literate configuration

1 files changed, 90 insertions, 5 deletions

diff --git a/bard-emacs-modules/bard-emacs-theme.el b/bard-emacs-modules/bard-emacs-theme.el
index c729379..969adee 100644
--- a/bard-emacs-modules/bard-emacs-theme.el
+++ b/bard-emacs-modules/bard-emacs-theme.el
@@ -3,6 +3,79 @@
 ;; declare all themes as safe (i trust developers)
 (setq custom-safe-themes t)
 
+(use-package ef-themes
+  :ensure t
+  :demand t
+  :hook
+  ((ef-themes-post-load . bard/ef-themes-hl-todo-faces)
+   (ef-themes-post-load . logos-update-fringe-in-buffers))
+  :config
+  (defun bard/ef-themes-hl-todo-faces ()
+    "Configure `hl-todo-keyword-faces' with Ef themes colors.
+The exact color values are taken from the active Ef theme."
+    (ef-themes-with-colors
+      (setq hl-todo-keyword-faces
+            `(("WAIT" . ,yellow)
+              ("TODO" . ,red)
+              ("NEXT" . ,blue)
+              ("THEM" . ,magenta)
+              ("PROG" . ,cyan-warmer)
+              ("OKAY" . ,green-warmer)
+              ("DONT" . ,yellow-warmer)
+              ("FAIL" . ,red-warmer)
+              ("BUG" . ,red-warmer)
+              ("DONE" . ,green)
+              ("NOTE" . ,blue-warmer)
+              ("KLUDGE" . ,cyan)
+              ("HACK" . ,cyan)
+              ("TEMP" . ,red)
+              ("FIXME" . ,red-warmer)
+              ("XXX+" . ,red-warmer)
+              ("KILLED" . ,cyan)
+              ("REVIEW" . ,red)
+              ("DEPRECATED" . ,yellow)))))
+
+  (setq org-priority-faces
+        '((?A . (:inherit (bold next-error)))
+          (?B . org-priority)
+          (?C . (:inherit (shadow org-priority)))))
+
+  ;; (setq ef-themes-headings
+  ;;       '((0 variable-pitch bold 1.5)
+  ;;         (1 variable-pitch bold 1.3)
+  ;;         (2 regular 1.2)
+  ;;         (3 1.1)
+  ;;         (agenda-date . (variable-pitch bold 1.3))
+  ;;         (agenda-structure . (variable-pitch bold 1.5))
+  ;;         (t . 1.1)))
+
+  (setq ef-themes-headings
+        '((0 . (variable-pitch light 1.5))
+          (1 . (variable-pitch light 1.3))
+          (2 . (regular 1.2))
+          (t . (variable-pitch 1.1))
+          (agenda-date . (variable-pitch bold 1.3))
+          (agenda-structure . (variable-pitch bold 1.5))))
+
+  ;; better faces in overrides
+  (setq ef-themes-common-palette-overrides
+        `((fringe unspecified)
+          (bg-line-number-active bg-hl-line)
+          (bg-line-number-inactive unspecified)
+          (fg-line-number-active fg-main)
+          (bg-tab-bar bg-dim)))
+
+  ;; verbatim need higher contrast for org mode
+  (setq ef-elea-dark-palette-overrides
+        '((prose-verbatim yellow-cooler)))
+
+  (setq ef-elea-light-palette-overrides
+        '((prose-verbatim yellow-cooler)))
+
+  (define-key global-map (kbd "M-<f5>") #'ef-themes-select)
+  (setq ef-themes-variable-pitch-ui t
+        ef-themes-mixed-fonts t))
+
 (use-package doom-themes
   :ensure t
   :config
@@ -10,12 +83,10 @@
   (bard/select-theme 'doom-gruvbox)
   )
 
-(use-package doom-modeline
+(use-package gruber-darker-theme
   :ensure t
-  :config
-  (doom-modeline-mode t)
-  (setq doom-modeline-buffer-file-name-style 'buffer-name)
-  )
+  :vc (:url "https://github.com/BardofSprites/gruber-darker-theme"
+       :rev newest))
 
 ;;;; Fonts
 (use-package fontaine
@@ -48,6 +119,20 @@
   (org-mode . mixed-pitch-mode)
   )
 
+(use-package spacious-padding
+  :ensure t
+  :config
+  (setq spacious-padding-widths
+        '( :internal-border-width 10
+           :header-line-width 4
+           :mode-line-width 6
+           :tab-width 4
+           :right-divider-width 1
+           :left-fringe-width 0
+           :right-fringe-width 0
+           :scroll-bar-width 0))
+  (spacious-padding-mode t))
+
 (provide 'bard-emacs-theme)
 
 ;;; bard-emacs-theme.el ends here