       (((class color) (min-colors 16) (background dark)) (:foreground "PaleGreen" :bold t))
       (((class color) (min-colors 8)) (:foreground "green"))
       (t (:bold t))))
-  "Face for log level in fast logger selection window"
-  :group 'log4cl :group 'log4cl-faces)
+  "Face for log level in `log4cl-fast-level-selection' window"
+  :group 'log4cl)
 
 (defface log4cl-level-inherited-face
     '((((class color) (min-colors 16) (background light)) (:foreground "ForestGreen" :bold nil :slant italic))
       (((class color) (min-colors 16) (background dark)) (:foreground "PaleGreen" :bold nil :slant italic))
       (((class color) (min-colors 8)) (:foreground "green"))
       (t (:bold nil :slant italic)))
-  "Face for inherited log level in fast logger selection window"
-  :group 'log4cl :group 'log4cl-faces)
+  "Face for inherited log level in `log4cl-fast-level-selection' window"
+  :group 'log4cl)
 
 
 (defvar log4cl-log-level-names

(require 'font-lock)
(require 'cl)

(defface log4cl-package-face
    '((((background dark)) (:foreground "#7474FFFFFFFF" :background "DimGray")) ; ~ cyan
      (t (:foreground "DarkRed")))
  "*Face for displaying package name category
logging event originated in"
  :group 'log4cl :group 'log4cl-faces)

(defface log4cl-file-category-face
    '((((background dark)) (:foreground "#7474FFFFFFFF" :background "DimGray")) ; ~ cyan
      (t (:foreground "DarkRed")))
  "*Face used for a category corresponding to the file name where
event originated in"
  :group 'log4cl :group 'log4cl-faces)

(defface log4cl-function-category-face
    '((((background dark)) (:foreground "Yellow"))
      (t                   (:foreground "Blue")))
  "*Face used for categories after the package and file name (usually the function/method name)"
  :group 'log4cl :group 'log4cl-faces)

(defface log4cl-level-category-face
    '((t                   (:weight bold)))
  "*Face used for the log level"
  :group 'log4cl :group 'log4cl-faces)

(defface log4cl-level-selection-face
  (org-compatible-face nil

(setq log4cl-category-package-properties (list 'face 'log4cl-package-face
                                                  'keymap log4cl-category-mouse-map
                                                  'pointer 'hand) 
      log4cl-category-file-properties (list 'face 'log4cl-file-face
                                               'keymap log4cl-category-mouse-map
                                               'pointer 'hand) 
      log4cl-category-function-properties (list 'face 'log4cl-function-face
                                                   'keymap log4cl-category-mouse-map
                                                   'pointer 'hand)
      log4cl-category-level-properties (list 'face 'log4cl-level-face))

(defvar log4cl-log-level-regexp)
(defvar log4cl-log-level-base-regexp)
