diff options
| -rw-r--r-- | etc/custom.el | 74 | ||||
| -rw-r--r-- | init.org | 20 |
2 files changed, 90 insertions, 4 deletions
diff --git a/etc/custom.el b/etc/custom.el new file mode 100644 index 0000000..3868db1 --- /dev/null +++ b/etc/custom.el @@ -0,0 +1,74 @@ +(custom-set-variables + ;; custom-set-variables was added by Custom. + ;; If you edit it by hand, you could mess it up, so be careful. + ;; Your init file should contain only one such instance. + ;; If there is more than one, they won't work right. + '(company-dabbrev-char-regexp "\\sw\\|\\s_\\|[-_]") + '(company-dabbrev-downcase nil) + '(company-dabbrev-ignore-case nil) + '(company-idle-delay 0.3) + '(company-minimum-prefix-length 1) + '(company-selection-wrap-around t) + '(ibuffer-formats + '((mark modified read-only locked " " + (name 18 18 :left :elide) + " " + (size-h 9 -1 :right) + " " + (mode 16 16 :left :elide) + " " filename-and-process) + (mark " " + (name 16 -1) + " " filename))) + '(ibuffer-saved-filter-groups + '(("default" + ("dired" + (mode . dired-mode)) + ("org" + (name . "^.*org$")) + ("web" + (or + (mode . web-mode) + (mode . css-mode) + (mode . scss-mode) + (mode . js2-mode))) + ("shell" + (or + (mode . eshell-mode) + (mode . shell-mode))) + ("notmuch" + (name . "*notmuch*")) + ("programming" + (or + (mode . python-mode) + (mode . c++-mode) + (mode . emacs-lisp-mode))) + ("emacs" + (or + (name . "^\\*scratch\\*$") + (name . "^\\*Messages\\*$")))))) + '(org-latex-packages-alist '(("" "listings") ("" "color"))) + '(safe-local-variable-values + '((eval setq org-latex-prefer-user-labels t) + (eval add-hook 'after-save-hook 'org-latex-export-to-latex t t) + (org-hugo-footer . " + +[//]: # \"Exported with love from a post written in Org mode\" +[//]: # \"- https://ox-hugo.scripter.co\"") + (eval add-hook 'after-save-hook #'amin/async-babel-tangle 'append 'local)))) +(custom-set-faces + ;; custom-set-faces was added by Custom. + ;; If you edit it by hand, you could mess it up, so be careful. + ;; Your init file should contain only one such instance. + ;; If there is more than one, they won't work right. + '(dired-directory ((t (:weight semi-bold)))) + '(font-lock-comment-face ((t (:foreground "#111111" :weight semi-bold)))) + '(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)))) + '(magit-diff-file-heading ((t (:weight normal)))) + '(message-header-subject ((t (:foreground "navy blue" :weight semi-bold)))) + '(message-header-to ((t (:foreground "MidnightBlue" :weight semi-bold)))) + '(notmuch-search-unread-face ((t (:weight semi-bold)))) + '(notmuch-tag-face ((t (:foreground "navy blue" :weight semi-bold)))) + '(widget-button ((t (:weight semi-bold))))) @@ -795,7 +795,8 @@ Not just how I do git, but /the/ way to do git. (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) @@ -821,7 +822,11 @@ There's no way I could top that, so I won't attempt to. ("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 @@ -1370,6 +1375,7 @@ Emacs package that displays available keybindings in popup ** [[https://github.com/maio/eink-emacs][eink-theme]] #+begin_src emacs-lisp +(setq doom-modeline-bar-width 5) (load-theme 'eink t) #+end_src @@ -1541,7 +1547,9 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]]. #'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 @@ -1604,6 +1612,7 @@ See [[notmuch:id:87muuqsvci.fsf@fencepost.gnu.org][bug follow-up]]. ;; (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 () @@ -1665,7 +1674,10 @@ See [[notmuch:id:87muuqsvci.fsf@fencepost.gnu.org][bug follow-up]]. "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)) |