diff options
| author | Jose Antonio Ortega Ruiz <jao@imladris.local> | 2016-10-16 03:10:38 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@imladris.local> | 2016-10-16 03:10:51 +0200 |
| commit | a44af7c4f40b7166e963b4089f155f75f4fce4c2 (patch) | |
| tree | 0c1250e13c5fb1e5a1efe6ff39e3d3cebfac8a5f /themes | |
| parent | c8eface73d08fe8431d53c2700b592d22867a72d (diff) | |
| download | elibs-a44af7c4f40b7166e963b4089f155f75f4fce4c2.tar.gz elibs-a44af7c4f40b7166e963b4089f155f75f4fce4c2.tar.bz2 | |
themes: public functions to parse face specs
Diffstat (limited to 'themes')
| -rw-r--r-- | themes/jao-themes.el | 24 |
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)) |