mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-03 08:30:03 +00:00
Code

Use a separate face for mtags.

Browse Source
This commit is contained in:
Carsten Dominik 2008-05-14 14:53:32 +02:00
parent 80fb3351de
commit ca0ee78db6
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
contrib/lisp/org-mtags.el
View File

@ -88,6 +88,20 @@
:tag "Org Muse Tags"
:group 'org)
(defface org-mtags ; similar to shadow
(org-compatible-face 'shadow
'((((class color grayscale) (min-colors 88) (background light))
(:foreground "grey50"))
(((class color grayscale) (min-colors 88) (background dark))
(:foreground "grey70"))
(((class color) (min-colors 8) (background light))
(:foreground "green"))
(((class color) (min-colors 8) (background dark))
(:foreground "yellow"))))
"Face for Muse-like tags in Org."
:group 'org-mtags
:group 'org-faces)
(defcustom org-mtags-prefere-muse-templates t
"Non-nil means, prefere Muse tags for structure elements.
This is relevane when expanding the templates defined in the variable
@ -209,7 +223,7 @@ with string values. In addition, it reutnrs the following properties:
"Fontify the muse-like tags."
(while (re-search-forward org-mtags-fontification-re limit t)
(add-text-properties (match-beginning 0) (match-end 0)
'(face shadow font-lock-multiline t
'(face org-mtags font-lock-multiline t
font-lock-fontified t))))
(add-hook 'org-export-preprocess-hook 'org-mtags-replace)