diff options
| -rw-r--r-- | completion.org | 1 | ||||
| -rw-r--r-- | email.org | 10 | ||||
| -rw-r--r-- | lib/themes/jao-light-theme.el | 10 |
3 files changed, 10 insertions, 11 deletions
diff --git a/completion.org b/completion.org index ea46420..1f1718f 100644 --- a/completion.org +++ b/completion.org @@ -103,6 +103,7 @@ (fset 'multi-occur #'consult-multi-occur) :config + (require 'jao-compilation) (defun jao-consult-project-root () (expand-file-name (or (jao-compilation-root) (vc-root-dir) ""))) @@ -502,7 +502,7 @@ :hook (notmuch-hello-refresh . jao--refresh-agenda) :bind (:map notmuch-hello-mode-map (("g" . jao-notmuch-refresh-hello) - ("S" . consut-notmuch) + ("S" . consult-notmuch) ("k" . nil) ("SPC" . widget-button-press)))) @@ -577,12 +577,14 @@ (when (not (window-live-p notmuch-tree-message-window)) (notmuch-tree-show-message nil)))) + (dolist (f '(notmuch-tree-match-tree-face + notmuch-tree-no-match-tree-face)) + (set-face-attribute f :family "Source Code Pro" :foreground "grey60")) + (defun jao-notmuch--format-field (fun field &rest args) (let ((rs (apply fun field args))) (cond ((and (stringp field) (string= field "tree")) - (propertize (replace-regexp-in-string "►" ">" rs) ;; "➤" - 'face - '(:family "Source Code Pro" :foreground "grey60"))) + (replace-regexp-in-string "►" "" rs)) ((not (stringp field)) (truncate-string-to-width rs 100)) (t rs)))) diff --git a/lib/themes/jao-light-theme.el b/lib/themes/jao-light-theme.el index 0a9e2eb..659f930 100644 --- a/lib/themes/jao-light-theme.el +++ b/lib/themes/jao-light-theme.el @@ -89,9 +89,9 @@ (compilation-info (c "#223142" nil) nbf) (company-scrollbar-bg (c nil "grey95")) (company-scrollbar-fg (c nil "grey90")) - (corfu-background (~ default) (c "black" paler-yellow) nul nit nbf) + (corfu-background (~ default) (c "black" pale-yellow) nul nit nbf) (corfu-bar (p hilite)) ;; moving part of the bar - (corfu-border (c paler-yellow)) ;; background of the bar + (corfu-border (c pale-yellow)) ;; background of the bar (corfu-current (p hilite)) (cursor (c "sienna3" "sienna3")) (diary (p error) nbf) @@ -109,8 +109,6 @@ (gnus-summary-cancelled (c "sienna3") st) (haskell-type-face (p f12)) (header-line (c nil "#efebe7")) - (ivy-highlight-face (c nil pale-yellow)) - (ivy-current-match (c nil pale-yellow)) (lui-track-bar (p dimm) :height 0.2 nul nil ex) (magit-diff-context-highlight (c nil yellow) ex) (magit-diff-hunk-heading-highlight (c nil yellow) it bf) @@ -126,9 +124,7 @@ (show-paren-match (c nil "grey85")) (success (p f00)) (vertical-border (c "grey70" nil)) - (warning (c "burlywood4")) - (w3m-image (c slate "ghost white")) - (w3m-bold (~ bold)))) + (warning (c "burlywood4")))) ;; (enable-theme 'jao-light) |