markdown-parser.clj

;;- Item A
;;- Item B
;;=> [:ul [:li "Item A"] [:li "Item B"]]
(def markdown "- Item A\n- Item B")
 
(def parse
  (insta/parser
   "<root> = ul+
    ul = li+
    li = '- ' #'[a-zA-Z ]+' '\n'?"))
 
(parse markdown)
;; => ([:ul [:li "Item A"]] [:ul [:li "Item B"]])
 
;; Parser reports two possible ways to parse this:
;; 1. ([:ul [:li "- " "Item A" "\n"]] [:ul [:li "- " "Item B"]])
;; 2. ([:ul [:li "- " "Item A" "\n"] [:li "- " "Item B"]]))
;; It chooses the first way