From a44af7c4f40b7166e963b4089f155f75f4fce4c2 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sun, 16 Oct 2016 03:10:38 +0200 Subject: themes: public functions to parse face specs --- themes/jao-themes.el | 24 +++++++++++++++++++++++- 1 file changed, 23 insertions(+), 1 deletion(-) (limited to 'themes/jao-themes.el') 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)) -- cgit v1.2.3