stgit.el: Add customizable face for "Index" and "Work tree" titles
authorGustav Hållberg <gustav@virtutech.com>
Thu, 30 Jul 2009 22:58:00 +0000 (00:58 +0200)
committerGustav Hållberg <gustav@virtutech.com>
Thu, 6 Aug 2009 20:49:07 +0000 (22:49 +0200)
Signed-off-by: Gustav Hållberg <gustav@virtutech.com>
contrib/stgit.el

index 9bbc87d..0b404ea 100644 (file)
@@ -68,8 +68,10 @@ directory DIR or `default-directory'"
         (start (point))
         (name (stgit-patch-name patch)))
     (case name
-       (:index (insert (propertize "  Index" 'face 'italic)))
-       (:work (insert (propertize "  Work tree" 'face 'italic)))
+       (:index (insert (propertize "  Index"
+                                   'face 'stgit-index-work-tree-title-face)))
+       (:work  (insert (propertize "  Work tree"
+                                   'face 'stgit-index-work-tree-title-face)))
        (t (insert (case status
                     ('applied "+")
                     ('top ">")
@@ -306,6 +308,13 @@ Returns nil if there was no output."
   "StGit mode face used for permission changes."
   :group 'stgit)
 
+(defface stgit-index-work-tree-title-face
+  '((((supports :slant italic)) :slant italic)
+    (t :inherit bold))
+  "StGit mode face used for the \"Index\" and \"Work tree\" titles"
+  :group 'stgit)
+
+
 (defcustom stgit-expand-find-copies-harder
   nil
   "Try harder to find copied files when listing patches.