[emacs] say hi and greetings for me :)

[~bandali/configs] / init.org

diff --git a/init.org b/init.org
index 6152f3b..480f73f 100644 (file)
--- a/init.org
+++ b/init.org
@@ -243,7 +243,9 @@ can then be managed with the help of Magit or other tools.
    ("C-c B A" . borg-activate)
    ("C-c B a" . borg-assimilate)
    ("C-c B b" . borg-build)
-   ("C-c B c" . borg-clone)))
+   ("C-c B c" . borg-clone)
+   ("C-c B m" . borg-insert-update-message)
+   ("C-c B r" . borg-remove)))
 #+end_src
 
 *** =use-package=
@@ -283,7 +285,6 @@ database, low-level functions for querying the database, and a
   :bind
   (("C-c B d" . epkg-describe-package)
    ("C-c B p" . epkg-list-packages)
-   ("C-c B r" . borg-remove)
    ("C-c B u" . epkg-update)))
 #+end_src
 
@@ -355,7 +356,7 @@ in my shell.
   (mapc #'disable-theme custom-enabled-themes))
 #+end_src
 
-** COMMENT Server
+** Server
 
 Start server if not already running. Alternatively, can be done by
 issuing =emacs --daemon= in the terminal, which can be automated with
@@ -1922,7 +1923,8 @@ For when I /have to/ use GH.
   :config
   (setq gnus-posting-styles
         '((".*"
-           (address "amin@aminb.org"))
+           (address "amin@aminb.org")
+           (body "\nBest,\namin\n"))
           ("gnu.*"
            (address "bandali@gnu.org"))
           ("nnimap\\+uwaterloo:.*"
@@ -2015,7 +2017,8 @@ Convenient footnotes in =message-mode=.
   (setq sc-nested-citation-p t
         ;; sc-cite-blank-lines-p t
         sc-citation-leader ""
-        sc-auto-fill-region-p t
+        sc-reference-tag-string ""
+        sc-auto-fill-region-p nil
         sc-confirm-always-p nil)
   :config
   (defun amin--sc-header ()
@@ -2023,7 +2026,7 @@ Convenient footnotes in =message-mode=.
     (let ((sc-mumble "")
              (whofrom (sc-whofrom)))
       (if whofrom
-             (insert (sc-hdr "Hi " (sc-mail-field "sc-firstname") ", \n\n")
+             (insert (sc-hdr "Hi " (sc-mail-field "sc-firstname") ",\n\n")
                   sc-reference-tag-string
                          whofrom
                          " writes:\n"))))
@@ -2032,6 +2035,82 @@ Convenient footnotes in =message-mode=.
   (add-hook 'mail-citation-hook 'sc-cite-original))
 #+end_src
 
+** ebdb
+
+#+begin_src emacs-lisp
+(use-package ebdb
+  :defer 1
+  :bind (:map gnus-group-mode-map ("e" . ebdb))
+  :config
+  (setq ebdb-sources (no-littering-expand-var-file-name "ebdb")))
+
+(use-package ebdb-com
+  :after ebdb)
+
+(use-package ebdb-complete
+  :after ebdb
+  :config
+  (ebdb-complete-enable))
+
+(use-package ebdb-gnus
+  :after ebdb)
+
+(use-package ebdb-message
+  :after ebdb)
+
+;; (use-package ebdb-vcard
+;;   :after ebdb)
+#+end_src
+
+** COMMENT bbdb
+
+#+begin_comment
+[submodule "bbdb"]
+       path = lib/bbdb
+       url = https://git.savannah.nongnu.org/git/bbdb.git
+       load-path = lisp/elisp
+       info-path = doc
+       build-step = ./autogen.sh
+       build-step = ./configure --with-lispdir=elisp
+       build-step = make
+       build-step = make install
+#+end_comment
+
+#+begin_src emacs-lisp
+(use-package bbdb
+  :init
+  (bbdb-mua-auto-update-init 'message)
+  (setq bbdb-mua-auto-update-p 'query)
+  (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus))
+#+end_src
+
+** COMMENT message-x
+
+#+begin_src emacs-lisp
+(use-package message-x
+  :custom
+  (message-x-completion-alist
+   (quote
+    (("\\([rR]esent-\\|[rR]eply-\\)?[tT]o:\\|[bB]?[cC][cC]:" . gnus-harvest-find-address)
+     ((if
+          (boundp
+           (quote message-newgroups-header-regexp))
+          message-newgroups-header-regexp message-newsgroups-header-regexp)
+      . message-expand-group)))))
+#+end_src
+
+** COMMENT gnus-harvest
+
+#+begin_src emacs-lisp
+(use-package gnus-harvest
+  :commands gnus-harvest-install
+  :demand t
+  :config
+  (if (featurep 'message-x)
+      (gnus-harvest-install 'message-x)
+    (gnus-harvest-install)))
+#+end_src
+
 ** COMMENT gnus-alias                                              :ARCHIVE:
 
 #+begin_src emacs-lisp