Assimilate EBDB and move email setup to separate files in lisp/

Gnus for reading, message for writing, and EBDB for contacts.

3 files changed, 77 insertions, 0 deletions

diff --git a/lisp/bandali-ebdb.el b/lisp/bandali-ebdb.el
new file mode 100644
index 0000000..8b8f3c0
--- /dev/null
+++ b/lisp/bandali-ebdb.el
@@ -0,0 +1,44 @@
+(use-package ebdb
+  :demand
+  :after gnus
+  :bind (:map gnus-group-mode-map ("e" . ebdb))
+  :config
+  (setq ebdb-sources (b/var "ebdb"))
+  (with-eval-after-load 'swiper
+    (add-to-list 'swiper-font-lock-exclude 'ebdb-mode t)))
+
+(use-package ebdb-com
+  :after ebdb)
+
+(use-package ebdb-complete
+  :after ebdb
+  :config
+  ;; (setq ebdb-complete-mail 'capf)
+  (ebdb-complete-enable))
+
+(use-package ebdb-message
+  :demand
+  :after ebdb)
+
+;; (use-package company-ebdb
+;;   :config
+;;   (defun company-ebdb--post-complete (_) nil))
+
+(use-package ebdb-gnus
+  :demand
+  :after ebdb
+  :custom
+  (ebdb-gnus-window-size 0.3))
+
+(use-package ebdb-mua
+  :demand
+  :after ebdb
+  :custom (ebdb-mua-pop-up t))
+
+;; (use-package ebdb-message
+;;   :after ebdb)
+
+;; (use-package ebdb-vcard
+;;   :after ebdb)
+
+(provide 'bandali-ebdb)
diff --git a/lisp/bandali-gnus.el b/lisp/bandali-gnus.el
index f3fa118..bb5ea02 100644
--- a/lisp/bandali-gnus.el
+++ b/lisp/bandali-gnus.el
@@ -408,4 +408,14 @@ https://csclub.uwaterloo.ca/~abandali")
   (mml-secure-openpgp-encrypt-to-self t)
   (mml-secure-openpgp-sign-with-sender t))
 
+(use-package gnus-article-treat-patch
+  :disabled
+  :demand
+  :load-path "lisp/"
+  :config
+  ;; note: be sure to customize faces with `:foreground "white"' when
+  ;; using a theme with a white/light background :)
+  (setq ft/gnus-article-patch-conditions
+        '("^@@ -[0-9]+,[0-9]+ \\+[0-9]+,[0-9]+ @@")))
+
 (provide 'bandali-gnus)
diff --git a/lisp/bandali-message.el b/lisp/bandali-message.el
index 491b6e2..33bebc9 100644
--- a/lisp/bandali-message.el
+++ b/lisp/bandali-message.el
@@ -66,4 +66,27 @@
         ("r" . footnote-renumber-footnotes)
         ("s" . footnote-set-style)))
 
+(use-package message-x)
+
+(comment
+  (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))))))
+
+(comment
+  (use-package gnus-harvest
+    :commands gnus-harvest-install
+    :demand
+    :config
+    (if (featurep 'message-x)
+        (gnus-harvest-install 'message-x)
+      (gnus-harvest-install))))
+
 (provide 'bandali-message)