instaporous.clj

;; i want this:

[:time_value
 {:tag :cat,
  :parsers
  '({:tag :nt, :keyword :hours_value}
    {:tag :nt, :keyword :colon, :hide true}
    {:tag :nt, :keyword :minutes_value}
    {:tag :nt, :keyword :colon, :hide true}
    {:tag :nt, :keyword :seconds_value})}]
    
;; turned into this:

Diagram(Sequence(NonTerminal(':hours_value'),NonTerminal(':colon'),NonTerminal(':minutes_value'),NonTerminal(':colon'),NonTerminal(':seconds_value')))

;; (where "cat" == "Sequence" and "nt" == "NonTerminal")