From 21c56987de1d3740cace19dc13ca85c5e00124c9 Mon Sep 17 00:00:00 2001 From: Adrian Kummerlaender Date: Mon, 26 Jul 2021 21:16:23 +0200 Subject: Add custom style for org drawer --- gui/conf/metakr.org | 20 ++++++++++++++------ 1 file changed, 14 insertions(+), 6 deletions(-) diff --git a/gui/conf/metakr.org b/gui/conf/metakr.org index 1aae6f1..3990bf6 100644 --- a/gui/conf/metakr.org +++ b/gui/conf/metakr.org @@ -6,7 +6,7 @@ For quick iteration all colors are stored in a table. * Tangle scaffold #+BEGIN_SRC emacs-lisp :tangle ./akr-theme.el :noweb yes (deftheme akr "A theme of my own making.") - + <> (when (and (boundp 'custom-theme-load-path) @@ -338,16 +338,24 @@ For quick iteration all colors are stored in a table. :box (:line-width 3 :color @org-agenda-today-bg) :foreground @org-agenda-today-fg :background @org-agenda-today-bg) - (org-special-keyword - :inherit fixed-pitch - :foreground @org-special-keyword) (org-scheduled-previously :foreground @org-sched-prev) (org-agenda-done :foreground @org-agenda-done) (org-footnote :foreground @link) - + (org-drawer + :inherit fixed-pitch + :foreground @org-meta + :height 0.6) + (org-special-keyword + :inherit fixed-pitch + :foreground @org-special-keyword + :height 0.6) + (org-property-value + :inherit fixed-pitch + :height 0.6) + ;; Eshell (eshell-prompt :foreground @eshell-prompt) @@ -390,7 +398,7 @@ This block resolves the =@=-prefixed variables of the theme structure using a gi ((and (symbolp x) (string-prefix-p "@" (symbol-name x))) (cadr (assoc (substring (symbol-name x) 1) (cdr palette)))) (t x))) - + (print `(apply 'custom-theme-set-faces ',(make-symbol theme-name) -- cgit v1.2.3