Added a more useful README, and some example code.

src/squirrel_parse/core.clj

@@ -1,6 +1,16 @@
-(ns squirrel-parse.core)
+(ns squirrel-parse.core
+  (:require [squirrel-parse.parser :refer [parse]]
+            [squirrel-parse.simplify :refer [simplify]]
+            [squirrel-parse.to-adl :refer [to-adl]]))
 
-(defn foo
-  "I don't do a whole lot."
-  [x]
-  (println x "Hello, World!"))
+;;; This is get-you-started code.
+
+(defn parsed-statements-from-file
+  "Parses the file of SQL commands indicated by `filename`, and returns a sequence of parsed statements."
+  [filename]
+  (simplify (parse (slurp filename))))
+
+(defn mappy-structure-from-file
+  "Parses the file of SQL commands indicated by `filename`, and returns a more useful map of maps."
+  [filename]
+  (table-definitions-to-entities (parsed-statements-from-file filename)))

src/squirrel_parse/to_adl.clj

@@ -6,7 +6,7 @@
             [clj-time.format :refer [formatters unparse]]
             [squirrel-parse.parser :refer [parse]]
             [squirrel-parse.simplify :refer [simplify]]
-;;            [squirrel-parse.utils :refer [deep-merge]]
+            [squirrel-parse.utils :refer [deep-merge]]
             ))
 
 
@@ -288,6 +288,8 @@
 
 
 (defn to-adl-xml
+  "Turn `object`, a fragment of the mappy sort of structure created
+  by `table-definitions-to-entities`, into serialisable XML"
   [object]
   (cond
     (keyword? object)