stgit.el: Add an stgit customization group

This makes it easier to customize faces and (future) variables.

Signed-off-by: Gustav Hållberg <gustav@virtutech.com>
Signed-off-by: Karl Hasselström <kha@treskal.com>

diff --git a/contrib/stgit.el b/contrib/stgit.el
index 0f47d4d7138b5ba71b0fd56157c5e010678bbfe9..503caf7a333a99de16073c9c37316db83b3d6e22 100644 (file)
--- a/contrib/stgit.el
+++ b/contrib/stgit.el
@@ -113,28 +113,36 @@ (defun stgit-reload ()
       (goto-line curline)))
   (stgit-refresh-git-status))
 
       (goto-line curline)))
   (stgit-refresh-git-status))
 

+(defgroup stgit nil
+  "A user interface for the StGit patch maintenance tool."
+  :group 'tools)
+

 (defface stgit-description-face
   '((((background dark)) (:foreground "tan"))
     (((background light)) (:foreground "dark red")))
 (defface stgit-description-face
   '((((background dark)) (:foreground "tan"))
     (((background light)) (:foreground "dark red")))

-  "The face used for StGit desriptions")
+  "The face used for StGit descriptions"
+  :group 'stgit)

 
 (defface stgit-top-patch-face
   '((((background dark)) (:weight bold :foreground "yellow"))
     (((background light)) (:weight bold :foreground "purple"))
     (t (:weight bold)))
 
 (defface stgit-top-patch-face
   '((((background dark)) (:weight bold :foreground "yellow"))
     (((background light)) (:weight bold :foreground "purple"))
     (t (:weight bold)))

-  "The face used for the top patch names")
+  "The face used for the top patch names"
+  :group 'stgit)

 
 (defface stgit-applied-patch-face
   '((((background dark)) (:foreground "light yellow"))
     (((background light)) (:foreground "purple"))
     (t ()))
 
 (defface stgit-applied-patch-face
   '((((background dark)) (:foreground "light yellow"))
     (((background light)) (:foreground "purple"))
     (t ()))

-  "The face used for applied patch names")
+  "The face used for applied patch names"
+  :group 'stgit)

 
 (defface stgit-unapplied-patch-face
   '((((background dark)) (:foreground "gray80"))
     (((background light)) (:foreground "orchid"))
     (t ()))
 
 (defface stgit-unapplied-patch-face
   '((((background dark)) (:foreground "gray80"))
     (((background light)) (:foreground "orchid"))
     (t ()))

-  "The face used for unapplied patch names")
+  "The face used for unapplied patch names"
+  :group 'stgit)

 
 (defun stgit-expand-patch (patchsym)
   (save-excursion
 
 (defun stgit-expand-patch (patchsym)
   (save-excursion