(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
("C-c b s" . save-buffer)
("C-c S" . save-buffer)
("C-c o" . other-window)
- ("C-c q q" . save-buffers-kill-terminal))
+ ("C-c q q" . save-buffers-kill-terminal)
+ ("C-c F m" . make-frame-command)
+ ("C-c F d" . delete-frame)
+ ("C-c F D" . delete-other-frames))
#+end_src
** Packages
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)
+ (org-mode . auto-fill-mode)
+ (org-mode . flyspell-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))
("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.
;; 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
#+begin_src emacs-lisp
(eval-when-compile (defvar lean-mode-map))
(use-package lean-mode
+ :defer 2
:bind (:map lean-mode-map
- ("S-SPC" . company-complete)))
-#+end_src
+ ("S-SPC" . company-complete))
+ :config
+ (require 'lean-input)
+ (setq default-input-method "Lean"))
+ #+end_src
** Haskell
: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
+** pdf-tools
+
+#+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
message-sendmail-envelope-from 'header
;; 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)))
#'flyspell-mode)
;; (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
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))
projects / ~bandali / configs / blobdiff