[emacs] manually add bbdb into lisp/bbdb/
[~bandali/configs] / init.org
index 4ff8b94..ced62ea 100644 (file)
--- a/init.org
+++ b/init.org
@@ -76,7 +76,7 @@ file.
 ** License
 
 #+begin_src emacs-lisp :comments none
-;; Copyright (C) 2018  Amin Bandali <amin@aminb.org>
+;; Copyright (C) 2018  Amin Bandali <bandali@gnu.org>
 
 ;; This program is free software: you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -191,7 +191,7 @@ but for now I've decided to keep them enabled. See documentation for
 
 #+begin_src emacs-lisp
 (setq user-full-name "Amin Bandali"
-      user-mail-address "amin@aminb.org")
+      user-mail-address "amin@bandali.me")
 #+end_src
 
 ** Package management
@@ -720,7 +720,8 @@ customizing it.
   (evil-mode 1)
   (general-swap-key nil '(normal motion) ";" ":")
 
-  (setq evil-want-visual-char-semi-exclusive t)
+  (setq evil-want-visual-char-semi-exclusive t
+        evil-cross-lines t)
 
   ;; custom mode state mappings
   (dolist (mspair '((ebdb-mode    . emacs)
@@ -867,6 +868,7 @@ In short, my favourite way of life.
         org-src-preserve-indentation nil
         org-edit-src-content-indentation 0
         org-email-link-description-format "Email %c: %s" ; %.30s
+        org-highlight-latex-and-related '(entities)
         org-log-done 'time)
   (add-to-list 'org-structure-template-alist '("L" . "src emacs-lisp") t)
   (after! org-src
@@ -880,12 +882,23 @@ In short, my favourite way of life.
         (org-edit-src-save)
         (org-edit-src-exit)))
     (define-key org-src-mode-map [remap evil-quit] 'org-edit-src-abort))
+  (font-lock-add-keywords
+   'org-mode
+   '(("[ \t]*\\(#\\+\\(BEGIN\\|END\\|begin\\|end\\)_\\(\\S-+\\)\\)[ \t]*\\([^\n:]*\\)"
+      (1 '(:foreground "#5a5b5a" :background "#292b2b") t) ; directive
+      (3 '(:foreground "#81a2be" :background "#292b2b") t) ; kind
+      (4 '(:foreground "#c5c8c6") t))) ; title
+   t)
   :bind (:map org-mode-map ("M-L" . org-insert-last-stored-link))
   :hook ((org-mode . org-indent-mode)
          (org-mode . auto-fill-mode)
          (org-mode . flyspell-mode))
   :custom
-  (org-latex-packages-alist '(("" "listings") ("" "color"))))
+  (org-latex-packages-alist '(("" "listings") ("" "color")))
+  :custom-face
+  '(org-block-begin-line ((t (:foreground "#5a5b5a" :background "#1d1f21"))))
+  '(org-block ((t (:background "#1d1f21"))))
+  '(org-latex-and-related ((t (:foreground "#b294bb")))))
 
 (use-package ox-latex
   :after ox
@@ -1018,10 +1031,11 @@ There's no way I could top that, so I won't attempt to.
   :config
   (setq ivy-wrap t)
   (ivy-mode 1)
-  :custom-face
-  (ivy-minibuffer-match-face-2 ((t (:background "#e99ce8" :weight semi-bold))))
-  (ivy-minibuffer-match-face-3 ((t (:background "#bbbbff" :weight semi-bold))))
-  (ivy-minibuffer-match-face-4 ((t (:background "#ffbbff" :weight semi-bold)))))
+  ;; :custom-face
+  ;; (ivy-minibuffer-match-face-2 ((t (:background "#e99ce8" :weight semi-bold))))
+  ;; (ivy-minibuffer-match-face-3 ((t (:background "#bbbbff" :weight semi-bold))))
+  ;; (ivy-minibuffer-match-face-4 ((t (:background "#ffbbff" :weight semi-bold))))
+)
 #+end_src
 
 **** Swiper
@@ -1059,7 +1073,7 @@ There's no way I could top that, so I won't attempt to.
 
 #+begin_src emacs-lisp
 (use-package eshell
-  :defer t
+  :defer 1
   :commands eshell
   :config
   (eval-when-compile (defvar eshell-prompt-regexp))
@@ -1076,11 +1090,18 @@ There's no way I could top that, so I won't attempt to.
     (eshell-send-input))
 
   (defun amin|eshell-setup ()
+    (make-local-variable 'company-idle-delay)
+    (setq company-idle-delay nil)
     (bind-keys :map eshell-mode-map
-               ("C-d" . amin/eshell-quit-or-delete-char)
-               ("C-l" . amin/eshell-clear)))
+               ("C-d"   . amin/eshell-quit-or-delete-char)
+               ("C-S-l" . amin/eshell-clear)
+               ("M-r"   . counsel-esh-history)
+               ([tab]   . company-complete)))
 
-  :hook (eshell-mode . amin|eshell-setup))
+  :hook (eshell-mode . amin|eshell-setup)
+  :custom
+  (eshell-hist-ignoredups t)
+  (eshell-input-filter 'eshell-input-filter-initial-space))
 #+end_src
 
 *** Ibuffer
@@ -1271,7 +1292,6 @@ TODO: break this giant source block down into individual org sections.
         ([tab]    . company-complete-common-or-cycle)
         ([escape] . company-abort))
   :custom
-  (company-idle-delay 0.3)
   (company-minimum-prefix-length 1)
   (company-selection-wrap-around t)
   (company-dabbrev-char-regexp "\\sw\\|\\s_\\|[-_]")
@@ -1704,7 +1724,7 @@ Emacs package that displays available keybindings in popup
 (load-theme 'tangomod t)
 #+end_src
 
-** [[https://github.com/Malabarba/smart-mode-line][smart-mode-line]]
+** COMMENT [[https://github.com/Malabarba/smart-mode-line][smart-mode-line]]
 
 #+begin_src emacs-lisp
 (use-package smart-mode-line
@@ -1714,29 +1734,42 @@ Emacs package that displays available keybindings in popup
   (remove-hook 'display-time-hook 'sml/propertize-time-string))
 #+end_src
 
+** doom-modeline
+
+#+begin_src emacs-lisp
+(use-package doom-modeline
+  :demand t
+  :config (setq doom-modeline-height 32)
+  :hook (after-init . doom-modeline-init))
+#+end_src
+
+** doom-themes
+
+#+begin_src emacs-lisp
+(use-package doom-themes)
+#+end_src
+
 ** theme helper functions
 
 #+begin_src emacs-lisp
-(defun amin/light ()
-  "Load light theme(s)."
+(defun amin/lights-on ()
+  "Enable my favourite light theme."
   (interactive)
   (progn
     (mapc #'disable-theme custom-enabled-themes)
-    (load-theme 'tangomod t)
-    (sml/apply-theme 'light)))
+    (load-theme 'tangomod t)))
 
-(defun amin/dark ()
-  "Load dark theme(s)."
+(defun amin/lights-off ()
+  "Go dark."
   (interactive)
   (progn
     (mapc #'disable-theme custom-enabled-themes)
-    (load-theme 'tangomod-dark t)
-    (sml/apply-theme 'dark)))
+    (load-theme 'doom-tomorrow-night t)))
 
 (amin--leader-keys
   "t"   '(:ignore t :wk "theme")
-  "t d" 'amin/dark
-  "t l" 'amin/light)
+  "t d" 'amin/lights-off
+  "t l" 'amin/lights-on)
 #+end_src
 
 ** [[https://github.com/bbatsov/crux][crux]]
@@ -1808,15 +1841,52 @@ Emacs package that displays available keybindings in popup
     "h h p" 'helpful-at-point))
 #+end_src
 
-** [[https://github.com/kyagi/shell-pop-el][shell-pop]]
+** [[https://github.com/knu/shell-toggle.el][shell-toggle]]
 
 #+begin_src emacs-lisp
-(use-package shell-pop
-  :defer 1
-  :general (amin--leader-keys "a s" 'shell-pop)
-  :init
-  (setq shell-pop-universal-key "C-c e"
-        shell-pop-shell-type '("eshell" "*eshell*" (lambda nil (eshell)))))
+(use-package shell-toggle
+  :after eshell
+  :general (amin--leader-keys "a s" 'amin/shell-toggle)
+  :bind ("C-c e" . amin/shell-toggle)
+  :config
+  (defun amin/shell-toggle (make-cd)
+    "Toggle between the shell buffer and whatever buffer you are editing.
+With a prefix argument MAKE-CD also insert a \"cd DIR\" command
+into the shell, where DIR is the directory of the current buffer.
+
+When called in the shell buffer returns you to the buffer you were editing
+before calling this the first time.
+
+Options: `shell-toggle-goto-eob'"
+    (interactive "P")
+    ;; Try to decide on one of three possibilities:
+    ;; If not in shell-buffer, switch to it.
+    ;; If in shell-buffer, return to state before going to the shell-buffer
+    (if (eq (current-buffer) shell-toggle-shell-buffer)
+        (shell-toggle-buffer-return-from-shell)
+      (progn
+        (shell-toggle-buffer-goto-shell make-cd)
+        (if shell-toggle-full-screen-window-only (delete-other-windows)))))
+
+  ;; override to split horizontally instead
+  (defun shell-toggle-buffer-switch-to-other-window ()
+    "Switch to other window.
+If the current window is the only window in the current frame,
+create a new window and switch to it.
+
+\(This is less intrusive to the current window configuration than
+`switch-buffer-other-window')"
+    (let ((this-window (selected-window)))
+      (other-window 1)
+      ;; If we did not switch window then we only have one window and need to
+      ;; create a new one.
+      (if (eq this-window (selected-window))
+             (progn
+               (split-window-horizontally)
+            (other-window 1)))))
+
+  :custom
+  (shell-toggle-launch-shell 'shell-toggle-eshell))
 #+end_src
 
 ** [[https://github.com/EricCrosson/unkillable-scratch][unkillable-scratch]]
@@ -1829,6 +1899,7 @@ Make =*scratch*= and =*Messages*= unkillable.
   :config
   (unkillable-scratch 1)
   :custom
+  (unkillable-scratch-behavior 'do-nothing)
   (unkillable-buffers '("^\\*scratch\\*$" "^\\*Messages\\*$")))
 #+end_src
 
@@ -2146,15 +2217,21 @@ For when I /have to/ use GH.
   :config
   (setq gnus-posting-styles
         '((".*"
-           (address "amin@aminb.org")
-           (body "\nBest,\namin\n"))
+           (address "amin@bandali.me")
+           (body "\nBest,\namin\n")
+           (signature-file "~/.signature-amin")
+           (eval (setq amin--message-cite-say-hi t)))
           ("gnu.*"
-           (address "bandali@gnu.org"))
+           (address "bandali@gnu.org")
+           (signature-file nil))
           ((header "subject" "ThankCRM")
-           (to "webmasters-comment@gnu.org"))
+           (to "webmasters-comment@gnu.org")
+           (body "\nAdded  to 2018supporters.html.\n\nMoving to campaigns.\n\n-amin\n")
+           (eval (setq amin--message-cite-say-hi nil)))
           ("nnimap\\+uwaterloo:.*"
            (address "abandali@uwaterloo.ca")
-           (gcc "\"nnimap+uwaterloo:Sent Items\"")))))
+           (gcc "\"nnimap+uwaterloo:Sent Items\"")
+           (signature-file nil)))))
 
 (use-package gnus-topic
   :hook (gnus-group-mode . gnus-topic-mode))
@@ -2189,6 +2266,7 @@ For when I /have to/ use GH.
 #+begin_src emacs-lisp
 (use-package message
   :config
+  (defconst amin--message-cite-style-format "On %Y-%m-%d %l:%M %p, %N wrote:")
   (defconst message-cite-style-bandali
     '((message-cite-function  'message-cite-original)
       (message-citation-line-function  'message-insert-formatted-citation-line)
@@ -2196,23 +2274,27 @@ For when I /have to/ use GH.
       (message-yank-prefix  "> ")
       (message-yank-cited-prefix  ">")
       (message-yank-empty-prefix  ">")
-      (message-citation-line-format "Hi %F,\n\nOn %Y-%m-%d %l:%M %p, %N wrote:"))
+      (message-citation-line-format
+       (if amin--message-cite-say-hi
+           (concat "Hi %F,\n\n" amin--message-cite-style-format)
+         amin--message-cite-style-format)))
     "Citation style based on Mozilla Thunderbird's. Use with message-cite-style.")
   (setq message-cite-style 'message-cite-style-bandali
         message-kill-buffer-on-exit t
         message-send-mail-function 'message-send-mail-with-sendmail
         message-sendmail-envelope-from 'header
         message-dont-reply-to-names
-        "\\(\\(.*@aminb\\.org\\)\\|\\(\\(aminb?\\|mab\\|bandali\\)@gnu\\.org\\)\\|\\(\\(m\\|a\\(min\\.\\)?\\)bandali@uwaterloo\\.ca\\)\\)"
+        "\\(\\(amin@bandali\\.me\\)\\|\\(.*@aminb\\.org\\)\\|\\(\\(aminb?\\|mab\\|bandali\\)@gnu\\.org\\)\\|\\(\\(m\\|a\\(min\\.\\)?\\)bandali@uwaterloo\\.ca\\)\\)"
         message-user-fqdn "aminb.org")
   :hook (;; (message-setup . mml-secure-message-sign-pgpmime)
          (message-mode . flyspell-mode)
          (message-mode . (lambda () (setq fill-column 65
                                      message-fill-column 65))))
-  :custom-face
-  (message-header-subject ((t (:foreground "#111" :weight semi-bold))))
-  (message-header-to      ((t (:foreground "#111" :weight normal))))
-  (message-header-cc      ((t (:foreground "#333" :weight normal)))))
+  ;; :custom-face
+  ;; (message-header-subject ((t (:foreground "#111" :weight semi-bold))))
+  ;; (message-header-to      ((t (:foreground "#111" :weight normal))))
+  ;; (message-header-cc      ((t (:foreground "#333" :weight normal))))
+  )
 
 (after! mml-sec
   (setq mml-secure-openpgp-encrypt-to-self t
@@ -2309,23 +2391,33 @@ Convenient footnotes in =message-mode=.
 ;;   :after ebdb)
 #+end_src
 
-** COMMENT bbdb
+** bbdb
 
-#+begin_comment
+Manually install bbdb (=lisp/bbdb= copied from an ELPA-based setup),
+because installing it from source on Emacs 27 using the following
+submodule configuration for some reason doesn’t work and results in
+very strange errors when using any of the functions.
+
+#+begin_src conf :tangle no
 [submodule "bbdb"]
        path = lib/bbdb
        url = https://git.savannah.nongnu.org/git/bbdb.git
-       load-path = lisp/elisp
+       load-path = lisp
        info-path = doc
        build-step = ./autogen.sh
-       build-step = ./configure --with-lispdir=elisp
+       build-step = ./configure
        build-step = make
        build-step = make install
-#+end_comment
+#+end_src
+
+I tried using =borg-elpa= instead of doing it like this, but it added
+2 seconds to my startup time, which is unacceptable to me.
 
 #+begin_src emacs-lisp
 (use-package bbdb
+  :load-path "lisp/bbdb"
   :init
+  (load (expand-file-name "lisp/bbdb/bbdb-autoloads.el" user-emacs-directory))
   (bbdb-mua-auto-update-init 'message)
   (setq bbdb-mua-auto-update-p 'query)
   (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus))