@@ -59,7 +59,7 @@

 (defclass editor-panes-theme ()

   ((editor-panes :initform nil :accessor editor-panes)

    (buffers-panes :initform nil :accessor buffers-panes)

-   (editor-background :initform +default-background-color+ :accessor bg) 

+   (editor-background :initform +default-background-color+ :accessor bg)

    (editor-foreground :initform +default-foreground-color+ :accessor fg)

    (buffers-background :initform +default-background-color+ :accessor buffers-bg)

    (buffers-foreground :initform +default-foreground-color+ :accessor buffers-fg)

@@ -106,14 +106,14 @@

          (buffers-fg *editor-tool*))

         ((eq state :selected)

          (buffers-selected-fg *editor-tool*))))

-        

+

 (defun update-pane-colors (pane foreground background)

   (setf (capi:simple-pane-foreground pane) foreground)

   (setf (capi:simple-pane-background pane) background)

   (when (and (typep pane 'capi:editor-pane)

              (editor::buffer-font-lock-mode-p (capi:editor-pane-buffer pane)))

-      (gp:invalidate-rectangle pane)))

+    (gp:invalidate-rectangle pane)))

 (defgeneric clear-colors (tool)

@@ -160,22 +160,22 @@

 (defun set-color-theme (theme-name)

   (destructuring-bind (&rest color-theme-args

-                             &key foreground background

-                             listener-foreground

-                             listener-background

-                             output-foreground

-                             output-background

-                             buffers-foreground

-                             buffers-selected-foreground

-                             buffers-background

-                             &allow-other-keys)

+                       &key foreground background

+                         listener-foreground

+                         listener-background

+                         output-foreground

+                         output-background

+                         buffers-foreground

+                         buffers-selected-foreground

+                         buffers-background

+                       &allow-other-keys)

       (color-theme-args theme-name)

     ;; new instances of tools wrappers

     (clear-colors *editor-tool*)

     (clear-colors *listener-tool*)

     (clear-colors *all-tools*)

-    

+

     ;; editor foreground and background

     (when foreground

       (setf (fg *editor-tool*) foreground))

@@ -210,26 +210,27 @@

           (or buffers-background

               (bg *editor-tool*)))

-                                 

+

     (dolist (name *editor-face-names*)

       (let* ((color-theme-args-for-face (getf color-theme-args name))

              (face-name (intern (string name) '#:editor))

              (face (editor:make-face face-name :if-exists t)))

-        (apply 'editor:make-face face-name :if-exists :overwrite

+        (apply 'editor:make-face face-name

+               :if-exists :overwrite

                :documentation (or (getf color-theme-args-for-face :documentation)

                                   (slot-value face 'documentation))

                color-theme-args-for-face))))

-  

+

   theme-name)

 (defun color-theme (theme-name)

   (mapc 'set-color-theme (color-theme-super-theme-names theme-name))

   (set-color-theme theme-name)

-  

+

   (update *editor-tool*)

   (update *listener-tool*)

   (update *all-tools*)

-  

+

   theme-name)

 (defun define-color-theme (theme-name super-theme-names

@@ -242,9 +243,9 @@

       (declare (ignore color-theme-data))

       (unless found?

         (warn "Inherited color theme ~s not defined." super-theme-name))))

-  

+

   (setf (gethash theme-name *all-color-themes*) (list* super-theme-names color-theme-args))

-  

+

   theme-name)

 (defun remove-color-theme (theme-name)

@@ -300,9 +301,9 @@

 ;; we don't have defined capi:interface-display for lw-tools::listener,

 ;; so nothing to advice. Instead we need to define our own

 (sys::without-warning-on-redefinition

-  (defmethod capi:interface-display :before ((self lw-tools::listener))

-    (capi:map-pane-descendant-children

-     self 'set-listener-pane-colors)))

+    (defmethod capi:interface-display :before ((self lw-tools::listener))

+      (capi:map-pane-descendant-children

+       self 'set-listener-pane-colors)))

 ;; capi:collector-pane does'nt have interface-display method called,

 ;; so we adding the :after constuctor instead