gistfile1.txt

(def sfs-lexer
  (lexer
    ["\\s+"           :whitespace :drop-token]
    ["//.*"           :comment    :drop-token]
    ["\\{"            :open-brace]
    ["\\}"            :close-brace]
    ["[A-Z]+"         :type]
    ["[a-zA-Z0-9]+"   :key]
    ["=\\s*(.*)"      :value      #(-> %2)]))

(defn -main
  [& args]
  (dorun (map (partial println "TOKEN") (lex-seq sfs-lexer (slurp "test.sfs")))))