[emacs] update packages

[~bandali/configs] / init.org

diff --git a/init.org b/init.org
index 7e82b73..3ca07f5 100644 (file)
--- a/init.org
+++ b/init.org
@@ -324,8 +324,8 @@ database, low-level functions for querying the database, and a
 (use-package epkg
   :commands (epkg-list-packages epkg-describe-package)
   :bind
 (use-package epkg
   :commands (epkg-list-packages epkg-describe-package)
   :bind

-  (("C-c P e d" . epkg-describe-package)
-   ("C-c P e p" . epkg-list-packages))
+  (("C-c p e d" . epkg-describe-package)
+   ("C-c p e p" . epkg-list-packages))

   :config
   (setq epkg-repository "~/.emacs.d/straight/repos/epkgs/")
   (eval-when-compile (defvar ivy-initial-inputs-alist))
   :config
   (setq epkg-repository "~/.emacs.d/straight/repos/epkgs/")
   (eval-when-compile (defvar ivy-initial-inputs-alist))


@@ -739,6 +739,8 @@ for this.
 
 ** Bindings
 
 
 ** Bindings
 

+Some bindings for functions from built-in GNU Emacs packages:
+

 #+begin_src emacs-lisp
 (bind-keys
  ("C-c a i" . ielm)
 #+begin_src emacs-lisp
 (bind-keys
  ("C-c a i" . ielm)


@@ -763,6 +765,35 @@ for this.
  ("s-n"     . end-of-buffer))
 #+end_src
 
  ("s-n"     . end-of-buffer))
 #+end_src
 

+While at it, let's bind a few for some =straight-*= functions too:
+
+#+begin_src emacs-lisp
+(bind-keys
+ :prefix-map a/straight-prefix-map
+ :prefix "C-c p s"
+ ("u" . straight-use-package)
+ ("f" . straight-freeze-versions)
+ ("t" . straight-thaw-versions)
+ ("P" . straight-prune-build)
+ ("r" . straight-get-recipe)
+ ;; M-x ^straight-.*-all$
+ ("a c" . straight-check-all)
+ ("a f" . straight-fetch-all)
+ ("a m" . straight-merge-all)
+ ("a n" . straight-normalize-all)
+ ("a F" . straight-pull-all)
+ ("a P" . straight-push-all)
+ ("a r" . straight-rebuild-all)
+ ;; M-x ^straight-.*-package$
+ ("p c" . straight-check-package)
+ ("p f" . straight-fetch-package)
+ ("p m" . straight-merge-package)
+ ("p n" . straight-normalize-package)
+ ("p F" . straight-pull-package)
+ ("p P" . straight-push-package)
+ ("p r" . straight-rebuild-package))
+#+end_src
+

 ** Packages
 
 The packages in this section are absolutely essential to my everyday
 ** Packages
 
 The packages in this section are absolutely essential to my everyday


@@ -1809,19 +1840,21 @@ Emacs package that displays available keybindings in popup
     ;; prefixes for my personal bindings
     "C-c a"   "applications"
     "C-c a s" "shells"
     ;; prefixes for my personal bindings
     "C-c a"   "applications"
     "C-c a s" "shells"

-    "C-c P"   "package-management"
-    "C-c P e" "package-management/epkg"
-    "C-c P s" "package-management/straight.el"
+    "C-c p"   "package-management"
+    "C-c p e" "package-management/epkg"
+    "C-c p s" "straight.el"
+    "C-c psa" "all"
+    "C-c psp" "package"

     "C-c c"   "compile-and-comments"
     "C-c e"   "eval"
     "C-c f"   "files"
     "C-c F"   "frames"
     "C-S-h"   "help(ful)"
     "C-c m"   "multiple-cursors"
     "C-c c"   "compile-and-comments"
     "C-c e"   "eval"
     "C-c f"   "files"
     "C-c F"   "frames"
     "C-S-h"   "help(ful)"
     "C-c m"   "multiple-cursors"

-    "C-c p"   "projectile"
-    "C-c p s" "projectile/search"
-    "C-c p x" "projectile/execute"
-    "C-c p 4" "projectile/other-window"
+    "C-c P"   "projectile"
+    "C-c P s" "projectile/search"
+    "C-c P x" "projectile/execute"
+    "C-c P 4" "projectile/other-window"

     "C-c q"   "boxquote"
     "s-g"     "magit"
     "s-o"     "outline"
     "C-c q"   "boxquote"
     "s-g"     "magit"
     "s-o"     "outline"


@@ -1839,7 +1872,10 @@ Emacs package that displays available keybindings in popup
     "C-c C-e" "web/element"
     "C-c C-t" "web/tags")
 
     "C-c C-e" "web/element"
     "C-c C-t" "web/tags")
 

-  (which-key-mode))
+  (which-key-mode)
+  :custom
+  (which-key-add-column-padding 5)
+  (which-key-max-description-length 32))

 #+end_src
 
 ** theme
 #+end_src
 
 ** theme


@@ -1926,7 +1962,7 @@ Emacs package that displays available keybindings in popup
 
 #+begin_src emacs-lisp
 (use-package projectile
 
 #+begin_src emacs-lisp
 (use-package projectile

-  :bind-keymap ("C-c p" . projectile-command-map)
+  :bind-keymap ("C-c P" . projectile-command-map)

   :config
   (projectile-mode)
 
   :config
   (projectile-mode)
 


@@ -2050,9 +2086,10 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
               (propertize (+eshell--current-git-branch)
                           'face 'font-lock-function-name-face)
               "\n"
               (propertize (+eshell--current-git-branch)
                           'face 'font-lock-function-name-face)
               "\n"

-              (propertize "λ" 'face 'eshell-prompt-face)
+              ;; "λ"
+              ;; (propertize "λ" 'face 'eshell-prompt)

               ;; needed for the input text to not have prompt face
               ;; needed for the input text to not have prompt face

-              (propertize " " 'face 'default))))
+              (propertize "λ " 'face 'default))))

 
   (defun +eshell--current-git-branch ()
     (let ((branch (car (loop for match in (split-string (shell-command-to-string "git branch") "\n")
 
   (defun +eshell--current-git-branch ()
     (let ((branch (car (loop for match in (split-string (shell-command-to-string "git branch") "\n")


@@ -2187,7 +2224,11 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
    gnus-save-newsrc-file nil
    gnus-read-newsrc-file nil
    gnus-interactive-exit nil
    gnus-save-newsrc-file nil
    gnus-read-newsrc-file nil
    gnus-interactive-exit nil

-   gnus-gcc-mark-as-read t))
+   gnus-gcc-mark-as-read t)
+  :config
+  (require 'ebdb)
+  (require 'ebdb-mua)
+  (require 'ebdb-gnus))

 
 (use-feature gnus-art
   :config
 
 (use-feature gnus-art
   :config


@@ -2303,6 +2344,7 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
         message-dont-reply-to-names
         "\\(\\(.*@aminb\\.org\\)\\|\\(amin@bandali\\.me\\)\\|\\(\\(aminb?\\|mab\\|bandali\\)@gnu\\.org\\)\\|\\(\\(m\\|a\\(min\\.\\)?\\)bandali@uwaterloo\\.ca\\)\\)"
         message-user-fqdn "aminb.org")
         message-dont-reply-to-names
         "\\(\\(.*@aminb\\.org\\)\\|\\(amin@bandali\\.me\\)\\|\\(\\(aminb?\\|mab\\|bandali\\)@gnu\\.org\\)\\|\\(\\(m\\|a\\(min\\.\\)?\\)bandali@uwaterloo\\.ca\\)\\)"
         message-user-fqdn "aminb.org")

+  (require 'company-ebdb)

   :hook (;; (message-setup . mml-secure-message-sign-pgpmime)
          (message-mode . flyspell-mode)
          (message-mode . (lambda ()
   :hook (;; (message-setup . mml-secure-message-sign-pgpmime)
          (message-mode . flyspell-mode)
          (message-mode . (lambda ()


@@ -2350,7 +2392,6 @@ Convenient footnotes in =message-mode=.
 #+begin_src emacs-lisp
 (use-package ebdb
   :straight (:host github :repo "girzel/ebdb")
 #+begin_src emacs-lisp
 (use-package ebdb
   :straight (:host github :repo "girzel/ebdb")

-  :defer 2

   :after gnus
   :bind (:map gnus-group-mode-map ("e" . ebdb))
   :config
   :after gnus
   :bind (:map gnus-group-mode-map ("e" . ebdb))
   :config


@@ -2367,14 +2408,11 @@ Convenient footnotes in =message-mode=.
 ;;   (ebdb-complete-enable))
 
 (use-package company-ebdb
 ;;   (ebdb-complete-enable))
 
 (use-package company-ebdb

-  :defer 2

   :config
   (defun company-ebdb--post-complete (_) nil))
 
 (use-feature ebdb-gnus
   :config
   (defun company-ebdb--post-complete (_) nil))
 
 (use-feature ebdb-gnus

-  :defer 3

   :after ebdb
   :after ebdb

-  :demand

   :custom
   (ebdb-gnus-window-configuration
    '(article
   :custom
   (ebdb-gnus-window-configuration
    '(article


@@ -2385,9 +2423,7 @@ Convenient footnotes in =message-mode=.
                            (ebdb-gnus 0.3))))))
 
 (use-feature ebdb-mua
                            (ebdb-gnus 0.3))))))
 
 (use-feature ebdb-mua

-  :defer 3

   :after ebdb
   :after ebdb

-  :demand

   ;; :custom (ebdb-mua-pop-up nil)
   )
 
   ;; :custom (ebdb-mua-pop-up nil)
   )
 


@@ -2399,9 +2435,13 @@ Convenient footnotes in =message-mode=.
 ;;   :after ebdb)
 #+end_src
 
 ;;   :after ebdb)
 #+end_src
 

-** COMMENT message-x
+** message-x

 
 #+begin_src emacs-lisp
 
 #+begin_src emacs-lisp

+(use-package message-x)
+#+end_src
+
+#+begin_src emacs-lisp :tangle no

 (use-package message-x
   :custom
   (message-x-completion-alist
 (use-package message-x
   :custom
   (message-x-completion-alist