                                    (log4cl-logger-inherited-level info)))))))
 
 
-(defun can-lay-down-in-columns (table nsubcol width maxcol col-pad)
+(defun log4cl-layout-columns (table nsubcol width maxcol col-pad)
   "Given a table like ((aa bbb ccc) (aaaa bbbb ccc)) calculate how many columns we can
   lay it down with in a given width, so each element aligns below the other"
   (let* ((cw '())

      (add-text-properties 0 (length text) (first args) text)
      text)))

(defun log4cl-fast-level-selection (&optional arg)
  "Set log level interactively"
  (interactive)

  ;; (figure out the list of things to display)
  (let ((log4cl-root-logger nil)
        (log4cl-package-logger nil)
        (log4cl-file-logger 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)
