simon/adl-support
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Added *warn*

Browse source
This commit is contained in:
Simon Brooke 2018-07-20 14:07:33 +01:00
parent 604fa7f675
commit 6921ca99e4
2 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/adl_support/core.clj
View file

@ -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 (defn query-string-to-map
"A `query-string` - the query-part of a URL - comprises generally "A `query-string` - the query-part of a URL - comprises generally
`<name>=<value>&<name>=<value>...`; reduce such a string to a map. `<name>=<value>&<name>=<value>...`; reduce such a string to a map.

4
src/adl_support/utils.clj
View file

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