** 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
("C-c b a" . borg-assimilate)
("C-c b b" . borg-build)
("C-c b c" . borg-clone)
- ("C-c b m" . borg-insert-update-message)
("C-c b r" . borg-remove)))
#+end_src
** Secrets file
+Load the secrets file if it exists, otherwise show a warning.
+
#+begin_src emacs-lisp
-(load (no-littering-expand-etc-file-name "secrets"))
+(with-demoted-errors
+ (load (no-littering-expand-etc-file-name "secrets")))
#+end_src
** Better =$PATH= handling
(setq text-scale-mode-step 1.05)
#+end_src
+** Focus follows mouse
+
+I’d like focus to follow the mouse when I move the cursor from one
+window to the next.
+
+#+begin_src emacs-lisp
+(setq mouse-autoselect-window t)
+#+end_src
+
+Let’s define a function to conveniently disable this for certain
+buffers and/or modes.
+
+#+begin_src emacs-lisp
+(defun amin--no-mouse-autoselect-window ()
+ (make-local-variable 'mouse-autoselect-window)
+ (setq mouse-autoselect-window nil))
+#+end_src
+
** Libraries
#+begin_src emacs-lisp
(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)
- (helpful-mode . motion)
- (view-mode . motion)))
+ (dolist (mspair '((ebdb-mode . emacs)
+ (term-mode . emacs)
+ (helpful-mode . motion)
+ (magit-blame-mode . motion)
+ (view-mode . motion)))
(evil-set-initial-state (car mspair) (cdr mspair)))
;; fix tab and indentation in src blocks inside org-mode buffer
"a" '(:ignore t :wk "apps")
"a i" 'ielm
+ "a s" '(:ignore t :wk "shells/terms")
+
"b" '(:ignore t :wk "buffers")
"b k" 'kill-this-buffer
"b s" 'save-buffer
#+begin_src emacs-lisp
(use-package org
- :defer 3
+ :defer 1
:general
(amin--leader-keys
:states 'normal
#+begin_src emacs-lisp
(use-package magit
- :defer 2
- :general (amin--leader-keys "g s" 'magit-status)
+ :defer 1
+ :general
+ (amin--leader-keys
+ "g s" 'magit-status
+ "g l" 'magit-log-buffer-file)
:bind ("s-g" . magit-status)
:config
(magit-add-section-hook 'magit-status-sections-hook
(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
:config (column-number-mode))
(progn ; `text-mode'
- (add-hook 'text-mode-hook #'indicate-buffer-boundaries-left))
+ (add-hook 'text-mode-hook #'indicate-buffer-boundaries-left)
+ (add-hook 'text-mode-hook #'abbrev-mode))
(use-package tramp
:defer t
#+begin_src emacs-lisp
(use-package company
- :defer 2
+ :defer 1
:bind
(:map company-active-map
([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_\\|[-_]")
(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
#+begin_src emacs-lisp
(use-package projectile
- :defer 2
+ :defer t
:bind-keymap ("C-c p" . projectile-command-map)
:config
(projectile-mode)
#+begin_src emacs-lisp
(use-package shell-toggle
:after eshell
- :general (amin--leader-keys "a s" 'amin/shell-toggle)
+ :general (amin--leader-keys "a s e" 'amin/shell-toggle)
:bind ("C-c e" . amin/shell-toggle)
:config
(defun amin/shell-toggle (make-cd)
:hook (text-mode . typo-mode))
#+end_src
-** slack
+** hl-todo
+
+#+begin_src emacs-lisp
+(use-package hl-todo
+ :defer 4
+ :config
+ (global-hl-todo-mode))
+#+end_src
+
+** shrink-path
+
+#+begin_src emacs-lisp
+(use-package shrink-path
+ :after eshell
+ :config
+ (setq eshell-prompt-regexp "\\(.*\n\\)*λ "
+ eshell-prompt-function #'+eshell/prompt)
+
+ (defun +eshell/prompt ()
+ (let ((base/dir (shrink-path-prompt default-directory)))
+ (concat (propertize (car base/dir)
+ 'face 'font-lock-comment-face)
+ (propertize (cdr base/dir)
+ 'face 'font-lock-constant-face)
+ (propertize (+eshell--current-git-branch)
+ 'face 'font-lock-function-name-face)
+ "\n"
+ (propertize "λ" 'face 'eshell-prompt-face)
+ ;; needed for the input text to not have prompt face
+ (propertize " " 'face 'default))))
+
+ (defun +eshell--current-git-branch ()
+ (let ((branch (car (loop for match in (split-string (shell-command-to-string "git branch") "\n")
+ when (string-match "^\*" match)
+ collect match))))
+ (if (not (eq branch nil))
+ (concat " " (substring branch 2))
+ ""))))
+#+end_src
+
+** COMMENT slack :ARCHIVE:
Hopefully temporary.
(setq alert-default-style 'notifier))
#+end_src
-** hl-todo
-
-#+begin_src emacs-lisp
-(use-package hl-todo
- :defer 4
- :config
- (global-hl-todo-mode))
-#+end_src
-
-** shrink-path
-
-#+begin_src emacs-lisp
-(use-package shrink-path
- :after eshell
- :config
- (setq eshell-prompt-regexp "\\(.*\n\\)*λ "
- eshell-prompt-function #'+eshell/prompt)
-
- (defun +eshell/prompt ()
- (let ((base/dir (shrink-path-prompt default-directory)))
- (concat (propertize (car base/dir)
- 'face 'font-lock-comment-face)
- (propertize (cdr base/dir)
- 'face 'font-lock-constant-face)
- (propertize (+eshell--current-git-branch)
- 'face 'font-lock-function-name-face)
- "\n"
- (propertize "λ" 'face 'eshell-prompt-face)
- ;; needed for the input text to not have prompt face
- (propertize " " 'face 'default))))
-
- (defun +eshell--current-git-branch ()
- (let ((branch (car (loop for match in (split-string (shell-command-to-string "git branch") "\n")
- when (string-match "^\*" match)
- collect match))))
- (if (not (eq branch nil))
- (concat " " (substring branch 2))
- ""))))
-#+end_src
-
-** magithub
+** COMMENT magithub :ARCHIVE:
For when I /have to/ use GH.
:after eshell)
#+end_src
+** multi-term
+
+#+begin_src emacs-lisp
+(use-package multi-term
+ :defer 1
+ :general (amin--leader-keys
+ "a s m" 'multi-term
+ "a s p" 'multi-term-dedicated-toggle)
+ :bind ("C-c C-j" . term-line-mode)
+ :config
+ (setq multi-term-program "/bin/screen"
+ ;; TODO: add separate bindings for connecting to existing
+ ;; session vs. always creating a new one
+ multi-term-dedicated-select-after-open-p t
+ multi-term-dedicated-window-height 20
+ multi-term-dedicated-max-window-height 30
+ term-bind-key-alist
+ '(("C-c C-c" . term-interrupt-subjob)
+ ("C-c C-e" . term-send-esc)
+ ("C-k" . kill-line)
+ ("C-y" . term-paste)
+ ("M-f" . term-send-forward-word)
+ ("M-b" . term-send-backward-word)
+ ("M-p" . term-send-up)
+ ("M-n" . term-send-down)
+ ("<C-backspace>" . term-send-backward-kill-word)
+ ("<M-DEL>" . term-send-backward-kill-word)
+ ("M-d" . term-send-delete-word)
+ ("M-," . term-send-raw)
+ ("M-." . comint-dynamic-complete))
+ term-unbind-key-alist
+ '("C-z" "C-x" "C-c" "C-h" "C-y" "<ESC>")))
+#+end_src
+
* Email
#+begin_src emacs-lisp
:map gnus-summary-mode-map
("r" . gnus-summary-reply-with-original)
("R" . gnus-summary-wide-reply-with-original)
- ("M-L" . org-store-link)))
+ ("M-L" . org-store-link))
+ :hook (gnus-summary-mode . amin--no-mouse-autoselect-window))
(use-package gnus-msg
:config
(setq gnus-posting-styles
'((".*"
(address "amin@aminb.org")
- (body "\nBest,\namin\n"))
+ (body "\nBest,\namin\n")
+ (eval (setq amin--message-cite-say-hi t)))
("gnu.*"
(address "bandali@gnu.org"))
((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\"")))))
#+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)
(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\\)\\)"
+ "\\(\\(.*@aminb\\.org\\)\\|\\(amin@bandali\\.me\\)\\|\\(\\(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))))
+ (message-mode . (lambda ()
+ ;; (setq fill-column 65
+ ;; message-fill-column 65)
+ (make-local-variable 'company-idle-delay)
+ (setq company-idle-delay 0.2))))
;; :custom-face
;; (message-header-subject ((t (:foreground "#111" :weight semi-bold))))
;; (message-header-to ((t (:foreground "#111" :weight normal))))
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)
+** bbdb
-;; (use-package ebdb-vcard
-;; :after ebdb)
-#+end_src
-
-** COMMENT bbdb
+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_comment
+#+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
- (bbdb-mua-auto-update-init 'message)
- (setq bbdb-mua-auto-update-p 'query)
- (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus))
+ (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
+ bbdb-complete-mail nil)
+ (bbdb-initialize 'gnus 'message))
#+end_src
** COMMENT message-x
(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]]
projects / ~bandali / configs / blobdiff