Merge branch 'master' into develop

project.clj

@@ -1,4 +1,4 @@
-(defproject adl-support "0.1.1-SNAPSHOT"
+(defproject adl-support "0.1.0"
   :description "A small library of functions called by generated ADL code."
   :url "http://example.com/FIXME"
   :license {:name "MIT License"

src/adl_support/core.clj

@@ -18,6 +18,14 @@
 ;;;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
+
+(def ^:dynamic *warn*
+  "The idea here is to have a function with which to show warnings to the user,
+  which can be dynamically bound. Any binding should be a function of one
+  argument, which it should print, log, or otherwise display."
+  (fn [s] (println s)))
+
+
 (defn query-string-to-map
   "A `query-string` - the query-part of a URL - comprises generally
   `<name>=<value>&<name>=<value>...`; reduce such a string to a map.

src/adl_support/utils.clj

@@ -3,9 +3,7 @@
   adl-support.utils
   (:require [clojure.math.numeric-tower :refer [expt]]
             [clojure.pprint :as p]
-            [clojure.string :as s]
-            [clojure.tools.logging :as log]
-            [clojure.xml :as x]))
+            [clojure.string :as s]))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;;