(require 'borg)
(borg-initialize)
-(require 'borg-nix-shell)
-(setq borg-build-shell-command 'borg-nix-shell-build-command)
+;; (require 'borg-nix-shell)
+;; (setq borg-build-shell-command 'borg-nix-shell-build-command)
(with-eval-after-load 'bind-key
(bind-keys
Font stack with better unicode support, around =Ubuntu Mono= and
=Hack=.
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp :tangle no
(dolist (ft (fontset-list))
(set-fontset-font
ft
'unicode
- (font-spec :name "Ubuntu Mono"))
+ (font-spec :name "Source Code Pro" :size 14))
(set-fontset-font
ft
'unicode
'prepend))
#+end_src
+** Gentler font resizing
+
+#+begin_src emacs-lisp
+(setq text-scale-mode-step 1.05)
+#+end_src
+
** Libraries
#+begin_src emacs-lisp
org-src-preserve-indentation nil
org-edit-src-content-indentation 0
org-log-done 'time)
- :hook (org-mode . org-indent-mode))
+ :hook (org-mode . org-indent-mode)
+ :custom
+ (org-latex-packages-alist '(("" "listings") ("" "color"))))
+
+(use-package ox-latex
+ :config
+ (setq org-latex-listings 'listings)
+ (add-to-list 'org-latex-packages-alist '("" "listings"))
+ (add-to-list 'org-latex-packages-alist '("" "color"))
+ (add-to-list 'org-latex-classes
+ '("IEEEtran" "\\documentclass[11pt]{IEEEtran}"
+ ("\\section{%s}" . "\\section*{%s}")
+ ("\\subsection{%s}" . "\\subsection*{%s}")
+ ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
+ ("\\paragraph{%s}" . "\\paragraph*{%s}")
+ ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
+ t))
+
+(use-package ox-beamer)
(use-package org-notmuch
:after (:any org notmuch))
+
+(use-package orgalist)
#+end_src
**** asynchronous tangle
("SPC" . magit-status)
("s" . magit-status)
("S" . magit-status-prefix)
- ("B" . magit-blame)
+ ("B" . magit-blame-addition)
("C" . magit-clone)
- ("f" . magit-fetch)
- ("F" . magit-pull)
- ("P" . magit-push)
+ ("f" . magit-fetch-other)
+ ("F" . magit-pull-branch)
+ ("P" . magit-push-other)
("p" . magit-dispatch-popup)
- ("c c" . magit-commit)
+ ("c c" . magit-commit-create)
("c a" . magit-commit-amend)
("b b" . magit-checkout)
- ("b c" . magit-branch))
+ ("b c" . magit-branch-create))
:config
(magit-add-section-hook 'magit-status-sections-hook
'magit-insert-modules
'magit-insert-stashes
- 'append))
+ 'append)
+ :custom-face (magit-diff-file-heading ((t (:weight normal)))))
#+end_src
*** [[https://github.com/abo-abo/swiper][Ivy]] (and friends)
("DEL" . ivy-backward-delete-char))
:config
(setq ivy-wrap t)
- (ivy-mode 1))
+ (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)))))
#+end_src
**** Swiper
#+begin_src emacs-lisp
(use-package swiper
- :bind (([remap isearch-forward] . swiper)
- ([remap isearch-backward] . swiper)))
+ :bind (("C-s" . swiper)
+ ("C-r" . swiper)))
#+end_src
**** Counsel
(ibuffer-saved-filter-groups
'(("default"
("dired" (mode . dired-mode))
- ("org" (name . "^.*org$"))
+ ("org" (mode . org-mode))
("web"
(or
(mode . web-mode)
:hook (ibuffer . (lambda () (ibuffer-switch-to-saved-filter-groups "default"))))
#+end_src
+*** Outline
+
+#+begin_src emacs-lisp
+(use-package outline
+ :hook (prog-mode . outline-minor-mode)
+ :bind
+ (:map
+ outline-minor-mode-map
+ ("<s-tab>" . outline-toggle-children)
+ ("s-p" . outline-previous-visible-heading)
+ ("s-n" . outline-next-visible-heading)
+ :prefix-map amin--outline-prefix-map
+ :prefix "s-o"
+ ("TAB" . outline-toggle-children)
+ ("a" . outline-hide-body)
+ ("H" . outline-hide-body)
+ ("S" . outline-show-all)
+ ("h" . outline-hide-subtree)
+ ("s" . outline-show-subtree)))
+#+end_src
+
* Borg's =layer/essentials=
TODO: break this giant source block down into individual org sections.
(use-package recentf
:demand t
- :config (add-to-list 'recentf-exclude "^/\\(?:ssh\\|su\\|sudo\\)?:"))
+ :config
+ (add-to-list 'recentf-exclude "^/\\(?:ssh\\|su\\|sudo\\)?:")
+ (setq recentf-max-saved-items 40))
(use-package savehist
:config (savehist-mode))
;; Only flycheck when I actually save the buffer
(setq flycheck-check-syntax-automatically '(mode-enabled save)))
+
+;; http://endlessparentheses.com/ispell-and-apostrophes.html
+(use-package ispell
+ :config
+ ;; ’ can be part of a word
+ (setq ispell-local-dictionary-alist
+ `((nil "[[:alpha:]]" "[^[:alpha:]]"
+ "['\x2019]" nil ("-B") nil utf-8)))
+ ;; don't send ’ to the subprocess
+ (defun endless/replace-apostrophe (args)
+ (cons (replace-regexp-in-string
+ "’" "'" (car args))
+ (cdr args)))
+ (advice-add #'ispell-send-string :filter-args
+ #'endless/replace-apostrophe)
+
+ ;; convert ' back to ’ from the subprocess
+ (defun endless/replace-quote (args)
+ (if (not (derived-mode-p 'org-mode))
+ args
+ (cons (replace-regexp-in-string
+ "'" "’" (car args))
+ (cdr args))))
+ (advice-add #'ispell-parse-output :filter-args
+ #'endless/replace-quote))
#+end_src
* Programming modes
:hook (web-mode css-mode html-mode sgml-mode))
#+end_src
+** Nix
+
+#+begin_src emacs-lisp
+(use-package nix-mode
+ :mode "\\.nix\\'")
+#+end_src
+
* Emacs Enhancements
** [[https://github.com/justbur/emacs-which-key][which-key]]
:hook (after-init . doom-modeline-init))
#+end_src
-** [[https://github.com/11111000000/tao-theme-emacs][tao-theme]]
-
-#+begin_src emacs-lisp :tangle no
-(use-package tao-theme
- :demand t
- :config (load-theme 'tao-yang t))
-#+end_src
-
** [[https://github.com/maio/eink-emacs][eink-theme]]
#+begin_src emacs-lisp
+(setq doom-modeline-bar-width 5)
(load-theme 'eink t)
#+end_src
(set-face-foreground 'highlight-indent-guides-top-character-face "grey40")) ; grey13 is nice too
#+end_src
-* Email
-** [[https://notmuchmail.org][notmuch]]
+** pdf-tools
-See [[notmuch:id:87muuqsvci.fsf@fencepost.gnu.org][bug follow-up]].
+#+begin_src emacs-lisp
+(use-package pdf-tools
+ :magic ("%PDF" . pdf-view-mode)
+ :config (pdf-tools-install)
+ :bind
+ (:map pdf-view-mode-map
+ ("C-s" . isearch-forward)
+ ("C-r" . isearch-backward)
+ ("j" . pdf-view-next-line-or-next-page)
+ ("k" . pdf-view-previous-line-or-previous-page)))
+#+end_src
+
+** anzu
+
+#+begin_src emacs-lisp
+(use-package anzu)
+#+end_src
+
+** typo.el
+
+#+begin_src emacs-lisp
+(use-package typo
+ :config
+ (typo-global-mode 1)
+ :hook (text-mode . typo-mode))
+#+end_src
+
+* Email
#+begin_src emacs-lisp
-(defvar amin-maildir "~/mail")
+(defvar amin-maildir (expand-file-name "~/mail/"))
+(after! recentf
+ (add-to-list 'recentf-exclude amin-maildir))
+#+end_src
+** sendmail
+
+#+begin_src emacs-lisp
(use-package sendmail
- ;; :ensure nil
:config
(setq sendmail-program "/usr/bin/msmtp"
- ; message-sendmail-extra-arguments '("-v" "-d")
+ ;; message-sendmail-extra-arguments '("-v" "-d")
mail-specify-envelope-from t
mail-envelope-from 'header))
+#+end_src
+
+** message
+#+begin_src emacs-lisp
(use-package message
- ;; :ensure nil
:config
(setq message-kill-buffer-on-exit t
message-send-mail-function 'message-send-mail-with-sendmail
message-sendmail-envelope-from 'header
- message-directory "drafts"
+ ;; message-directory "drafts"
message-user-fqdn "aminb.org")
+ ;; (add-hook 'message-mode-hook 'electric-quote-local-mode)
(add-hook 'message-mode-hook
(lambda () (setq fill-column 65
message-fill-column 65)))
(add-hook 'message-mode-hook
#'flyspell-mode)
- ;; (add-hook 'notmuch-message-mode-hook #'+doom-modeline|set-special-modeline)
- ;; TODO: is there a way to only run this when replying and not composing?
- ;; (add-hook 'notmuch-message-mode-hook
- ;; (lambda () (progn
- ;; (newline)
- ;; (newline)
- ;; (forward-line -1)
- ;; (forward-line -1))))
;; (add-hook 'message-setup-hook
;; #'mml-secure-message-sign-pgpmime)
- )
+ :custom-face
+ (message-header-subject ((t (:foreground "navy blue" :weight semi-bold))))
+ (message-header-to ((t (:foreground "MidnightBlue" :weight semi-bold)))))
(after! mml-sec
(setq mml-secure-openpgp-encrypt-to-self t
mml-secure-openpgp-sign-with-sender t))
+#+end_src
+
+** [[https://notmuchmail.org][notmuch]]
+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)
(use-package notmuch
:commands notmuch
- :bind ("C-c m" . amin/notmuch)
+ :bind ("C-c n" . amin/notmuch)
:custom (notmuch-always-prompt-for-sender t)
:config
(setq notmuch-hello-sections
notmuch-hello-thousands-separator ","
notmuch-fcc-dirs
'(("amin@aminb.org" . "amin/Sent")
- ("amin@gnu.org" . "gnu/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
;; (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 ()
"Mark message as spam"
(interactive)
(notmuch-tree-tag '("-unread" "-inbox" "-webmasters" "+spam"))
- (notmuch-tree-next-message)))))
+ (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))
-
-(after! recentf
- (add-to-list 'recentf-exclude (expand-file-name amin-maildir)))
#+end_src
** supercite
#+begin_src emacs-lisp
(use-package ox-hugo
:after ox)
+
+(use-package ox-hugo-auto-export
+ :load-path "lib/ox-hugo")
#+end_src
* Post initialization
projects / ~bandali / configs / blobdiff