   (vec (:tags (second (db/last-pings db user 2)))))
 
 (defmethod evaluate :TAG [_ [_ tag]]
-  tag)
+  (str/lower-case tag))
 
 (defmethod evaluate :HELP [_ v] v)
 

    valid?))

(defn eval-command [ctx s]
  (try (evaluate ctx (command-parser s))
       (catch Exception e
         (timbre/error e)
         (timbre/error (command-parser s)))))

(defn slack [{:keys [db tagtime] :as component} {:keys [params]}]
  (taoensso.timbre/logged-future


(defn slack-text [slack-message]
  (str
   (str/replace (get-in slack-message [:event :text]) #"^<.+> " "") "\n"))

(def command-parser (insta/parser (clojure.java.io/resource "parser.bnf") :string-ci true))

(defmulti evaluate (fn [context [v & vs]] v))

