[emacs] try out ebdb

diff --git a/.gitmodules b/.gitmodules
index 1c5d913..914abe7 100644 (file)
--- a/.gitmodules
+++ b/.gitmodules
@@ -57,6 +57,9 @@
 [submodule "diff-hl"]
        path = lib/diff-hl
        url = git@github.com:dgutov/diff-hl.git
 [submodule "diff-hl"]
        path = lib/diff-hl
        url = git@github.com:dgutov/diff-hl.git

+[submodule "ebdb"]
+       path = lib/ebdb
+       url = git@github.com:emacsmirror/ebdb.git

 [submodule "edit-indirect"]
        path = lib/edit-indirect
        url = git@github.com:Fanael/edit-indirect.git
 [submodule "edit-indirect"]
        path = lib/edit-indirect
        url = git@github.com:Fanael/edit-indirect.git

diff --git a/init.org b/init.org
index 6152f3b..741ad7a 100644 (file)
--- a/init.org
+++ b/init.org
@@ -2032,6 +2032,82 @@ Convenient footnotes in =message-mode=.
   (add-hook 'mail-citation-hook 'sc-cite-original))
 #+end_src
 
   (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
 ** COMMENT gnus-alias                                              :ARCHIVE:
 
 #+begin_src emacs-lisp

diff --git a/lib/ebdb b/lib/ebdb
new file mode 160000 (submodule)
index 0000000..4444031
--- /dev/null
+++ b/lib/ebdb
@@ -0,0 +1 @@
+Subproject commit 44440310e739df9d46aaa38f9ac275199f25f439