@@ -24,6 +24,7 @@

   ; TODO: Replace with the 'match' macro

   (cond

    (empty? cmdline) db

+   (= "clear" cmdline) (assoc-in db [:cmdline :history] [])

    (= "Open Game License" cmdline) (append-history (db :license))

    (= "spells" cmdline) (append-history (vals spells))

    (= "items" cmdline) (append-history (vals equipment))