[emacs] manually add bbdb into lisp/bbdb/

[~bandali/configs] / init.org

diff --git a/init.org b/init.org
index a8dddd0..ced62ea 100644 (file)
--- a/init.org
+++ b/init.org
@@ -2218,14 +2218,20 @@ For when I /have to/ use GH.
   (setq gnus-posting-styles
         '((".*"
            (address "amin@bandali.me")
   (setq gnus-posting-styles
         '((".*"
            (address "amin@bandali.me")

-           (body "\nBest,\namin\n"))
+           (body "\nBest,\namin\n")
+           (signature-file "~/.signature-amin")
+           (eval (setq amin--message-cite-say-hi t)))

           ("gnu.*"
           ("gnu.*"

-           (address "bandali@gnu.org"))
+           (address "bandali@gnu.org")
+           (signature-file nil))

           ((header "subject" "ThankCRM")
           ((header "subject" "ThankCRM")

-           (to "webmasters-comment@gnu.org"))
+           (to "webmasters-comment@gnu.org")
+           (body "\nAdded  to 2018supporters.html.\n\nMoving to campaigns.\n\n-amin\n")
+           (eval (setq amin--message-cite-say-hi nil)))

           ("nnimap\\+uwaterloo:.*"
            (address "abandali@uwaterloo.ca")
           ("nnimap\\+uwaterloo:.*"
            (address "abandali@uwaterloo.ca")

-           (gcc "\"nnimap+uwaterloo:Sent Items\"")))))
+           (gcc "\"nnimap+uwaterloo:Sent Items\"")
+           (signature-file nil)))))

 
 (use-package gnus-topic
   :hook (gnus-group-mode . gnus-topic-mode))
 
 (use-package gnus-topic
   :hook (gnus-group-mode . gnus-topic-mode))


@@ -2260,6 +2266,7 @@ For when I /have to/ use GH.
 #+begin_src emacs-lisp
 (use-package message
   :config
 #+begin_src emacs-lisp
 (use-package message
   :config

+  (defconst amin--message-cite-style-format "On %Y-%m-%d %l:%M %p, %N wrote:")

   (defconst message-cite-style-bandali
     '((message-cite-function  'message-cite-original)
       (message-citation-line-function  'message-insert-formatted-citation-line)
   (defconst message-cite-style-bandali
     '((message-cite-function  'message-cite-original)
       (message-citation-line-function  'message-insert-formatted-citation-line)


@@ -2267,7 +2274,10 @@ For when I /have to/ use GH.
       (message-yank-prefix  "> ")
       (message-yank-cited-prefix  ">")
       (message-yank-empty-prefix  ">")
       (message-yank-prefix  "> ")
       (message-yank-cited-prefix  ">")
       (message-yank-empty-prefix  ">")

-      (message-citation-line-format "Hi %F,\n\nOn %Y-%m-%d %l:%M %p, %N wrote:"))
+      (message-citation-line-format
+       (if amin--message-cite-say-hi
+           (concat "Hi %F,\n\n" amin--message-cite-style-format)
+         amin--message-cite-style-format)))

     "Citation style based on Mozilla Thunderbird's. Use with message-cite-style.")
   (setq message-cite-style 'message-cite-style-bandali
         message-kill-buffer-on-exit t
     "Citation style based on Mozilla Thunderbird's. Use with message-cite-style.")
   (setq message-cite-style 'message-cite-style-bandali
         message-kill-buffer-on-exit t


@@ -2381,23 +2391,33 @@ Convenient footnotes in =message-mode=.
 ;;   :after ebdb)
 #+end_src
 
 ;;   :after ebdb)
 #+end_src
 

-** COMMENT bbdb
+** bbdb

 
 

-#+begin_comment
+Manually install bbdb (=lisp/bbdb= copied from an ELPA-based setup),
+because installing it from source on Emacs 27 using the following
+submodule configuration for some reason doesn’t work and results in
+very strange errors when using any of the functions.
+
+#+begin_src conf :tangle no

 [submodule "bbdb"]
        path = lib/bbdb
        url = https://git.savannah.nongnu.org/git/bbdb.git
 [submodule "bbdb"]
        path = lib/bbdb
        url = https://git.savannah.nongnu.org/git/bbdb.git

-       load-path = lisp/elisp
+       load-path = lisp

        info-path = doc
        build-step = ./autogen.sh
        info-path = doc
        build-step = ./autogen.sh

-       build-step = ./configure --with-lispdir=elisp
+       build-step = ./configure

        build-step = make
        build-step = make install
        build-step = make
        build-step = make install

-#+end_comment
+#+end_src
+
+I tried using =borg-elpa= instead of doing it like this, but it added
+2 seconds to my startup time, which is unacceptable to me.

 
 #+begin_src emacs-lisp
 (use-package bbdb
 
 #+begin_src emacs-lisp
 (use-package bbdb

+  :load-path "lisp/bbdb"

   :init
   :init

+  (load (expand-file-name "lisp/bbdb/bbdb-autoloads.el" user-emacs-directory))

   (bbdb-mua-auto-update-init 'message)
   (setq bbdb-mua-auto-update-p 'query)
   (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus))
   (bbdb-mua-auto-update-init 'message)
   (setq bbdb-mua-auto-update-p 'query)
   (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus))