diff --git a/project.clj b/project.clj index 7b3b8cd..c0e28ce 100644 --- a/project.clj +++ b/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" diff --git a/src/adl_support/core.clj b/src/adl_support/core.clj index ccfee77..328ff6c 100644 --- a/src/adl_support/core.clj +++ b/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. diff --git a/src/adl_support/utils.clj b/src/adl_support/utils.clj index 91cec89..191961d 100644 --- a/src/adl_support/utils.clj +++ b/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])) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;