Make command log colorful

Add two faces - one for keys and one for commands.

command-log-mode.el

@@ -48,6 +48,14 @@
 
 (eval-when-compile (require 'cl))
 
+(defface command-log-key
+  '((t (:foreground "cyan")))
+  "Face for keys in command log.")
+
+(defface command-log-command
+  '((t (:foreground "pale green")))
+  "Face for commands in command log.")
+
 (defvar clm/log-text t
   "A non-nil setting means text will be saved to the command log.")
 
@@ -266,11 +274,13 @@ Scrolling up can be accomplished with:
                  (insert
                   (propertize
                    (key-description (this-command-keys))
-                   :time  (format-time-string clm/time-string (current-time))))
+                   :time  (format-time-string clm/time-string (current-time))
+                   'face 'command-log-key))
                  (when (>= (current-column) clm/log-command-indentation)
                    (newline))
                  (move-to-column clm/log-command-indentation t)
-                 (princ cmd current)
+                 (insert (propertize (format "%s" cmd)
+                                     'face 'command-log-command))
                  (newline)
                  (setq clm/last-keyboard-command cmd)))
           (clm/scroll-buffer-window current))))))