Browse Source

Use a separate face for mtags.

Carsten Dominik 17 years ago
parent
commit
ca0ee78db6
1 changed files with 15 additions and 1 deletions
  1. 15 1
      contrib/lisp/org-mtags.el

+ 15 - 1
contrib/lisp/org-mtags.el

@@ -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)