 (defvar log4cl-package-regexp)
 (defvar log4cl-file-regexp)
 (defvar log4cl-rest-regexp)
+
+(defvar log4cl-mode-map (make-sparse-keymap))
+
+(define-key log4cl-mode-map "\C-c\C-g" 'log4cl-fast-level-selection)
 
 (setq log4cl-log-level-regexp
       (concat "[[(< ]?"

              `(format "Inherit - %s"
                       (log4cl-level-name
                        (log4cl-logger-inherited-level ,info-symbol)))))
         (cmd 
          (if (eq info-symbol 'log4cl-popup-logger)
              `((log4cl-set-level ',info-symbol ,level)) 
            `(,(intern (format "log4cl-%s-%s" 
                               (log4cl-info-symbol-to-string info-symbol)
                               (downcase (log4cl-level-name level))))))))
    `[,(or level :unset)
      ,@cmd
      :label ,T
      :style radio
      :selected ,S
      ;; :active (not ,S)
      ]))


  (when log4cl-mode
    (log4cl-check-connection)))

(defun log4cl-redefine-menus (&optional global) 
  "Redefine Log4CL menus. If GLOBAL is true, make dropdown menu
global instead of local to files with `log4cl-mode' active"
  (easy-menu-define log4cl-popup-menu nil nil (log4cl-make-levels-menu 'log4cl-popup-logger)) 
  (if global 
      (easy-menu-define log4cl-menu (current-global-map) "Log4CL" (log4cl-make-menubar-menu))
    (easy-menu-define log4cl-menu log4cl-mode-map "Log4CL" (log4cl-make-menubar-menu))))

(log4cl-redefine-menus)

