From: Amin Bandali 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