[emacs] try out ebdb

[~bandali/configs] / init.org

diff --git a/init.org b/init.org
index 76b7b0c..741ad7a 100644 (file)
--- a/init.org
+++ b/init.org
@@ -2008,53 +2008,104 @@ Convenient footnotes in =message-mode=.
 
 ** supercite
 
 
 ** supercite
 

-#+begin_src emacs-lisp :tangle no
+#+begin_src emacs-lisp

 (use-package supercite
 (use-package supercite

-  :commands sc-cite-original
+  :after message

   :init
   :init

-  (add-hook 'mail-citation-hook 'sc-cite-original)
+  (setq sc-nested-citation-p t
+        ;; sc-cite-blank-lines-p t
+        sc-citation-leader ""
+        sc-auto-fill-region-p t
+        sc-confirm-always-p nil)
+  :config
+  (defun amin--sc-header ()
+    "Hi <firstname>,\n\n <from> writes:"
+    (let ((sc-mumble "")
+             (whofrom (sc-whofrom)))
+      (if whofrom
+             (insert (sc-hdr "Hi " (sc-mail-field "sc-firstname") ", \n\n")
+                  sc-reference-tag-string
+                         whofrom
+                         " writes:\n"))))
+  (add-to-list 'sc-rewrite-header-list '(amin--sc-header) t)
+  (setq sc-preferred-header-style (1- (length sc-rewrite-header-list)))
+  (add-hook 'mail-citation-hook 'sc-cite-original))
+#+end_src

 
 

-  (defun sc-remove-existing-signature ()
-    (save-excursion
-      (goto-char (region-beginning))
-      (when (re-search-forward message-signature-separator (region-end) t)
-        (delete-region (match-beginning 0) (region-end)))))
+** ebdb

 
 

-  (add-hook 'mail-citation-hook 'sc-remove-existing-signature)
+#+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")))

 
 

-  (defun sc-remove-if-not-mailing-list ()
-    (unless (assoc "list-id" sc-mail-info)
-      (setq attribution sc-default-attribution
-            citation (concat sc-citation-delimiter
-                             sc-citation-separator))))
+(use-package ebdb-com
+  :after ebdb)

 
 

-  (add-hook 'sc-attribs-postselect-hook 'sc-remove-if-not-mailing-list)
+(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
   :config

-  (defun sc-fill-if-different (&optional prefix)
-    "Fill the region bounded by `sc-fill-begin' and point.
-Only fill if optional PREFIX is different than
-`sc-fill-line-prefix'.  If `sc-auto-fill-region-p' is nil, do not
-fill region.  If PREFIX is not supplied, initialize fill
-variables.  This is useful for a regi `begin' frame-entry."
-    (if (not prefix)
-        (setq sc-fill-line-prefix ""
-              sc-fill-begin (line-beginning-position))
-      (if (and sc-auto-fill-region-p
-               (not (string= prefix sc-fill-line-prefix)))
-          (let ((fill-prefix sc-fill-line-prefix))
-            (unless (or (string= fill-prefix "")
-                        (save-excursion
-                          (goto-char sc-fill-begin)
-                          (or (looking-at ">+  +")
-                              (< (length
-                                  (buffer-substring (point)
-                                                    (line-end-position)))
-                                 65))))
-              (fill-region sc-fill-begin (line-beginning-position)))
-            (setq sc-fill-line-prefix prefix
-                  sc-fill-begin (line-beginning-position)))))
-nil))
+  (if (featurep 'message-x)
+      (gnus-harvest-install 'message-x)
+    (gnus-harvest-install)))

 #+end_src
 
 ** COMMENT gnus-alias                                              :ARCHIVE:
 #+end_src
 
 ** COMMENT gnus-alias                                              :ARCHIVE: