From: Amin Bandali <bandali@gnu.org>
Date: Wed, 14 Nov 2018 00:20:14 +0000 (-0500)
Subject: [emacs] try out ebdb
X-Git-Url: https://git.shemshak.org/gitweb.cgi/~bandali/configs/commitdiff_plain/81ad062de322f5bb378f8a2e7b36ef7cd50ffeb9

[emacs] try out ebdb
---

diff --git a/.gitmodules b/.gitmodules
index 1c5d913..914abe7 100644
--- a/.gitmodules
+++ b/.gitmodules
@@ -57,6 +57,9 @@
 [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
diff --git a/init.org b/init.org
index 6152f3b..741ad7a 100644
--- 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
 
+** 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
diff --git a/lib/ebdb b/lib/ebdb
new file mode 160000
index 0000000..4444031
--- /dev/null
+++ b/lib/ebdb
@@ -0,0 +1 @@
+Subproject commit 44440310e739df9d46aaa38f9ac275199f25f439