[emacs] some cosmetic changes

diff --git a/etc/custom.el b/etc/custom.el
new file mode 100644 (file)
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)))))

diff --git a/init.org b/init.org
index 0dcec85..b82ba6f 100644 (file)
--- a/init.org
+++ b/init.org
@@ -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
   (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)
 #+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)
    ("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
 #+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
 ** [[https://github.com/maio/eink-emacs][eink-theme]]
 
 #+begin_src emacs-lisp

+(setq doom-modeline-bar-width 5)

 (load-theme 'eink t)
 #+end_src
 
 (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)
             #'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
 
 (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)
   ;; (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 ()
   :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"))
                  "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))
 
 (use-package counsel-notmuch
   :bind ("C-c s m" . counsel-notmuch))