Hey, I have a question on some code I wrote to do parsing for an advent of code problem:

(meander/defsyntax keywordize [a b]
  `(meander/app #(keyword (str %1 "-" %2)) ~a ~b))

(meander/defsyntax to-map [a]
  `(meander/app (partial apply hash-map) ~a))

(meander/defsyntax parse-int [str]
  `(meander/app #(Integer/parseInt %) ~str))

(defn parse-description [description]
  (meander/rewrite
   (str/split description #" ")
   [?adj ?col _ "contain" . !ns !adjs !cols _ ...]
   {(keywordize ?adj ?col) (to-map [(keywordize !adjs !cols) (parse-int !ns) ...])}))

(def example
  "plaid magenta bags contain 2 clear lavender bags, 3 clear teal bags, 4 vibrant gold bags.")

(parse-description example)
;; {:plaid-magenta {:clear-lavender 2, :vibrant-gold 4, :clear-teal 3}}