themes: public functions to parse face specs

1 files changed, 23 insertions, 1 deletions

diff --git a/themes/jao-themes.el b/themes/jao-themes.el
index 0a52934..0de1c0f 100644
--- a/themes/jao-themes.el
+++ b/themes/jao-themes.el
@@ -163,6 +163,18 @@
         (push (cons (car f) body) *jao--parsed-faces*)
         (push (list (car f) body) result)))))
 
+(defun jao-themes-parse-face (f)
+  `(,(car f) ((t ,(jao-themes--parse-face-body (cdr f))))))
+
+(defun jao-themes-parse-faces (fs)
+  (let ((*jao--parsed-faces* nil))
+    (mapcar (lambda (f)
+              (let ((fp (jao-themes--parse-face-body (cdr f))))
+                (push (cons (car f) fp) *jao--parsed-faces*)
+                `(,(car f) ((t ,fp)))))
+            fs)))
+
+
 (defun jao--cmp-faces (a b)
   (let ((ai (cadr (assq '~ a)))
         (bi (cadr (assq '~ b))))
@@ -201,6 +213,7 @@
             (diredp-deletion (p error))
             (diredp-deletion-file-name (~ diredp-deletion))
             (diredp-dir-heading bf dfg dbg)
+            (diredp-dir-name (p f10))
             (diredp-dir-priv dfg dbg bf)
             (diredp-display-msg (p f00))
             (diredp-exec-priv dfg dbg bf)
@@ -392,6 +405,13 @@
             (fixed-pitch :family ,jao-themes--face-family)
             (flyspell-duplicate nbf (p warning))
             (flyspell-incorrect nbf (p error))
+            (font-latex-sectioning-1-face (~ outline-1))
+            (font-latex-sectioning-2-face (~ outline-2))
+            (font-latex-sectioning-3-face (~ outline-3))
+            (font-latex-sectioning-4-face (~ outline-4))
+            (font-latex-sectioning-5-face (~ outline-5))
+            (font-latex-slide-title-face (p f11))
+            (font-latex-warning-face (p warning))
             (font-lock-builtin-face (p keyword))
             (font-lock-comment-delimiter-face (p comment))
             (font-lock-comment-face (p comment))
@@ -586,11 +606,13 @@
             (link link nul)
             (link-visited vlink nul)
             (lui-button-face (p link))
-            (lui-time-stamp-face (p dimm)))
+            (lui-time-stamp-face (p dimm))
+            (lui-track-bar (c nil "gray90") :height 0.1))
           `((magit-branch (p f00))
             (magit-cherry-equivalent (p warning))
             (magit-diff-add (~ diff-added))
             (magit-diff-del (~ diff-removed))
+            (magit-diff-file-heading (p keyword))
             (magit-diff-file-header (~ diff-file-header))
             (magit-diff-hunk-header (~ diff-hunk-header))
             (magit-diff-none (p dimm))