[emacs] clean up old stuff

remove smart-mode-line, supercite, ebdb, gnus-alias, and notmuch
configs

diff --git a/.gitmodules b/.gitmodules
index 06680e6..b752b3c 100644 (file)
--- a/.gitmodules
+++ b/.gitmodules
@@ -67,9 +67,6 @@
 [submodule "doom-themes"]
        path = lib/doom-themes
        url = git@github.com:hlissner/emacs-doom-themes.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 ced62ea..f58e843 100644 (file)
--- a/init.org
+++ b/init.org
@@ -1724,16 +1724,6 @@ Emacs package that displays available keybindings in popup
 (load-theme 'tangomod t)
 #+end_src
 
-** COMMENT [[https://github.com/Malabarba/smart-mode-line][smart-mode-line]]
-
-#+begin_src emacs-lisp
-(use-package smart-mode-line
-  :config
-  (sml/setup)
-  (sml/apply-theme 'light)
-  (remove-hook 'display-time-hook 'sml/propertize-time-string))
-#+end_src
-
 ** doom-modeline
 
 #+begin_src emacs-lisp
@@ -2325,72 +2315,6 @@ Convenient footnotes in =message-mode=.
         footnote-style     'unicode))
 #+end_src
 
-** COMMENT supercite
-
-#+begin_src emacs-lisp
-(use-package supercite
-  :after message
-  :init
-  (setq sc-nested-citation-p t
-        ;; sc-cite-blank-lines-p t
-        sc-citation-leader ""
-        sc-reference-tag-string ""
-        sc-preferred-header-style 5     ; (sc-header-author-writes)
-        sc-auto-fill-region-p nil
-        sc-confirm-always-p nil)
-  :config
-  ;;   (defun amin--sc-header-on-wrote ()
-  ;;     "\"On <date>, <sc-author> wrote:\" unless:
-  ;; 1. the \"sc-author\" field cannot be found, in which case nothing is inserted;
-  ;; 2. the \"date\" field is missing in which case only the from part is printed."
-  ;;     (let ((sc-mumble "")
-  ;;         (whofrom (sc-whofrom)))
-  ;;       (if whofrom
-  ;;         (insert sc-reference-tag-string
-  ;;                     (sc-hdr "On " (sc-mail-field "date") ", ")
-  ;;                     (sc-hdr "" (sc-mail-field "sc-author")) " wrote:\n"))))
-  ;;   (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)
-  ;; (add-to-list 'sc-rewrite-header-list '(amin--sc-header-on-wrote) t)
-  ;; (setq sc-preferred-header-style (1- (length sc-rewrite-header-list)))
-  (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
-
 ** bbdb
 
 Manually install bbdb (=lisp/bbdb= copied from an ELPA-based setup),
@@ -2450,181 +2374,6 @@ I tried using =borg-elpa= instead of doing it like this, but it added
     (gnus-harvest-install)))
 #+end_src
 
-** COMMENT gnus-alias                                              :ARCHIVE:
-
-#+begin_src emacs-lisp
-(use-package gnus-alias
-  :commands (gnus-alias-determine-identity
-             gnus-alias-select-identity)
-  :bind (:map  message-mode-map
-               ("s-i" . gnus-alias-select-identity))
-  :config
-  (setq
-   gnus-alias-default-identity "amin"
-   gnus-alias-identity-alist
-   '(("amin"
-      nil   ;; Does not refer to any other identity
-      "Amin Bandali <amin@aminb.org>"
-      nil   ;; Organization
-      nil   ;; extra headers
-      nil   ;; extra body text
-      nil)  ;; signature file
-     ("gnu"
-      nil
-      "Amin Bandali <bandali@gnu.org>"
-      nil
-      nil
-      nil
-      nil)
-     ("uw"
-      nil
-      "Amin Bandali <abandali@uwaterloo.ca>"
-      nil
-      (("Gcc" . "\"nnimap+uwaterloo:Sent Items\""))
-      nil
-      nil))
-   gnus-alias-identity-rules
-   '(("amin" ("Delivered-To" "<amin\\@aminb\\.org" both) "amin")
-     ("gnu" ("Delivered-To" "<gnu\\@aminb\\.org" both) "gnu")
-     ("uw" ("any" "<\\(.+\\)\\@uwaterloo\\.ca" both) "uw"))
-   gnus-alias-override-user-mail-address t)
-  :hook (message-setup . gnus-alias-determine-identity))
-#+end_src
-
-** COMMENT [[https://notmuchmail.org][notmuch]]                                                 :ARCHIVE:
-
-See [[notmuch:id:87muuqsvci.fsf@fencepost.gnu.org][bug follow-up]].
-
-#+begin_src emacs-lisp
-(defun amin/notmuch ()
-  "Delete other windows, then launch `notmuch'."
-  (interactive
-   (when (equal current-prefix-arg nil)
-     (delete-other-windows)))
-  (notmuch))
-
-(use-package notmuch
-  :commands notmuch
-  :bind ("C-c n" . amin/notmuch)
-  :custom (notmuch-always-prompt-for-sender t)
-  :config
-  (setq notmuch-hello-sections
-        '(notmuch-hello-insert-header
-          notmuch-hello-insert-saved-searches
-          ;; notmuch-hello-insert-search
-          notmuch-hello-insert-alltags)
-        notmuch-search-oldest-first nil
-        notmuch-show-all-tags-list t
-        notmuch-message-headers  ; see bug follow-up above
-        '("Subject" "To" "Cc" "Date" "List-Id" "X-RT-Originator")
-        notmuch-hello-thousands-separator ","
-        notmuch-fcc-dirs
-        '(("amin@aminb.org"        . "amin/Sent")
-          ("bandali@gnu.org"       . "gnu/Sent")
-          ("abandali@uwaterloo.ca" . "\"uwaterloo/Sent Items\"")
-          ("mab@gnu.org"           . "gnu/Sent")
-          ("amin@gnu.org"          . "gnu/Sent")
-          ("aminb@gnu.org"         . "gnu/Sent")
-          (".*"                    . "sent"))
-        notmuch-search-result-format
-        '(("date"    . "%12s ")
-          ("count"   . "%-7s ")
-          ("authors" . "%-40s ")
-          ("subject" . "%s ")
-          ("tags"    . "(%s)"))
-        notmuch-saved-searches
-        '((:name "inbox"     :query "tag:inbox"     :key "i")
-          (:name "unread"    :query "tag:unread"    :key "u")
-          (:name "latest"    :query "tag:latest"    :key "l")
-          (:name "encrypted" :query "tag:encrypted" :key "e")
-          (:name "flagged"   :query "tag:flagged"   :key "f")
-          (:name "sent"      :query "tag:sent"      :key "s")
-          (:name "drafts"    :query "tag:draft"     :key "d")
-          (:name "all mail"  :query "*"             :key "a")))
-  ;; (add-hook 'visual-fill-column-mode-hook
-  ;;           (lambda ()
-  ;;             (when (string= major-mode 'notmuch-message-mode)
-  ;;               (setq visual-fill-column-width 70))))
-  ;; (set! :evil-state 'notmuch-message-mode 'insert)
-  ;; (advice-add #'notmuch-bury-or-kill-this-buffer
-  ;;             :override #'kill-this-buffer)
-  :hook (notmuch-message-mode . doom-modeline-set-special-modeline)
-  :bind
-  (:map notmuch-hello-mode-map
-        ("u" . (lambda ()
-                 "Search for `unread'-tagged messages"
-                 (interactive)
-                 (notmuch-hello-search "tag:unread")))
-        ("i" . (lambda ()
-                 "Search for `inbox'-tagged messages"
-                 (interactive)
-                 (notmuch-hello-search "tag:inbox")))
-        ("l" . (lambda ()
-                 "Search for `latest'-tagged messages"
-                 (interactive)
-                 (notmuch-hello-search "tag:latest")))
-        ("e" . (lambda ()
-                 "Search for `encrypted'-tagged messages"
-                 (interactive)
-                 (notmuch-hello-search "tag:encrypted"))))
-  (:map notmuch-search-mode-map
-        ("k" . (lambda ()
-                 "Mark message read"
-                 (interactive)
-                 (notmuch-search-tag '("-unread"))
-                 ;; (notmuch-search-archive-thread)
-                 (notmuch-search-next-thread)))
-        ("u" . (lambda ()
-                 "Mark message unread"
-                 (interactive)
-                 (notmuch-search-tag '("+unread"))
-                 (notmuch-search-next-thread)))
-        ("K" . (lambda ()
-                 "Mark message deleted"
-                 (interactive)
-                 (notmuch-search-tag '("-unread" "-inbox" "+deleted"))
-                 (notmuch-search-next-thread)))
-        ("S" . (lambda ()
-                 "Mark message as spam"
-                 (interactive)
-                 (notmuch-search-tag '("-unread" "-inbox" "-webmasters" "+spam"))
-                 (notmuch-search-next-thread))))
-  (:map notmuch-tree-mode-map
-        ("k" . (lambda ()
-                 "Mark message read"
-                 (interactive)
-                 (notmuch-tree-tag '("-unread"))
-                 ;; (notmuch-tree-archive-thread)
-                 (notmuch-tree-next-message)))
-        ("u" . (lambda ()
-                 "Mark message unread"
-                 (interactive)
-                 (notmuch-tree-tag '("+unread"))
-                 (notmuch-tree-next-message)))
-        ("K" . (lambda ()
-                 "Mark message deleted"
-                 (interactive)
-                 (notmuch-tree-tag '("-unread" "-inbox" "+deleted"))
-                 (notmuch-tree-next-message)))
-        ("S" . (lambda ()
-                 "Mark message as spam"
-                 (interactive)
-                 (notmuch-tree-tag '("-unread" "-inbox" "-webmasters" "+spam"))
-                 (notmuch-tree-next-message))))
-  :custom-face
-  (notmuch-search-unread-face ((t (:weight semi-bold))))
-  (notmuch-tag-face ((t (:foreground "navy blue" :weight semi-bold)))))
-
-(use-package counsel-notmuch
-  :bind ("C-c s m" . counsel-notmuch))
-
-(after! notmuch-crypto
-  (setq notmuch-crypto-process-mime t))
-
-(use-package org-notmuch
-  :after (:any org notmuch))
-#+end_src
-
 * Blogging
 ** [[https://ox-hugo.scripter.co][ox-hugo]]
 

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