fix-parens; a function to correct bracket types

fix-parens.clj

(use 'name.choi.joshua.fnparse)

(def tokenize (partial re-seq #"\\[\[\](){}]|\"(?:\\.|[^\"])*\"|[\[\](){}]|[^\[\](){}]+"))

(def initial-state (comp (partial array-map :remainder) tokenize))

(def brackets {"[" "]" "(" ")" "{" "}"})

(def opening (term (set (keys brackets))))

(def closing (failpoint (term (set (vals brackets)))
                        vector))

(def content (term (complement (set (flatten (seq brackets))))))

(def expression (alt (complex [open opening
                               body (rep* expression)
                               _    closing]                                
                              (str open (apply str body) (brackets open)))
                     content))

(def fix-parens (comp (partial rule-match expression prn prn)
                      initial-state))