parsley

test.clj

(def parse (p/parser parser-options

                     :start         [:params? :line*]

                     :start         :tag-line
                     
                     :vspace        #"[\n\r]+"
                     
                     :params        [:vspace :doctype]
                     
                     :doctype       ["!!! " :doctype-spec]
                     :doctype-spec- #".*"
                     
                     
                     :line          [:tag-line]
                     
                     :tag-line      [:indent* :tag]

                     :indent        "  "
                     
                     :tag           ["%" :word]
                     :id            ["#" :word]
                     :class         ["." :word]
                     
                     :word-         #"[\w]+"

                     :nontag        #{:text}
                     
                     :a             #" *"
                     :b             #"[^\s#\.].*"
                     
                     :text          [:a?; :b
                                     ]
                     
                     
                     
                     ))