- fixed parsing rule names.

src/date-formatter.lisp

@@ -51,7 +51,7 @@ note that:
 - %day   expands to (:day 2)
 
 This list can be passed to misc:format-time to get a time string"
-  (let ((parsed (parse 'format spec)))
+  (let ((parsed (parse 'date-formatter-format spec)))
     (loop for element in parsed collect
          (cond
            ((string= element "%%")

src/modeline-window.lisp

@@ -107,7 +107,7 @@
       (setf modeline-fg     fg)
       (setf modeline-bg     bg)
       (setf modeline-src    (swconf:modeline-fmt key))
-      (setf parsed-modeline (parse 'modeline modeline-src))
+      (setf parsed-modeline (parse 'modeline-modeline modeline-src))
       (expand-modeline-spec win))
     win))