From 33a49682f3c40f116c327511b1d46c44d60e186c Mon Sep 17 00:00:00 2001 From: Amin Bandali Date: Sat, 8 Dec 2018 15:31:14 -0500 Subject: [PATCH 1/1] [emacs] clean up old stuff remove smart-mode-line, supercite, ebdb, gnus-alias, and notmuch configs --- .gitmodules | 3 - init.org | 251 ---------------------------------------------------- lib/ebdb | 1 - 3 files changed, 255 deletions(-) delete mode 160000 lib/ebdb diff --git a/.gitmodules b/.gitmodules index 06680e6..b752b3c 100644 --- 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 --- 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 , 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 ,\n\n 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 " - nil ;; Organization - nil ;; extra headers - nil ;; extra body text - nil) ;; signature file - ("gnu" - nil - "Amin Bandali " - nil - nil - nil - nil) - ("uw" - nil - "Amin Bandali " - nil - (("Gcc" . "\"nnimap+uwaterloo:Sent Items\"")) - nil - nil)) - gnus-alias-identity-rules - '(("amin" ("Delivered-To" "