-
Notifications
You must be signed in to change notification settings - Fork 16
/
utils.clj
167 lines (140 loc) · 4.28 KB
/
utils.clj
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
(ns dali.utils
(:require [clojure.zip :as zip]))
(defn match-non-match
"Given a predicate and 2 values, it returns a vector with the
matching value first, and the non-matching value second. Returns nil
if none of the values match the predicate."
[pred x1 x2]
(cond (pred x1) [x1 x2]
(pred x2) [x2 x1]
:else nil))
(defn deep-merge
"Merges map b into map a recursively. If both values for a certain
key are maps, they are deeply merged themselves. If not, the value
from map b is used unless it's nil."
[a b]
(cond
(nil? a) b
(nil? b) a
:else
(let [all-keys (into #{} (concat (keys a) (keys b)))]
(into
{}
(map
(fn [key]
(let [va (a key ::none), vb (b key ::none)]
(cond (and (map? va) (map? vb)) [key (deep-merge va vb)]
(= ::none vb) [key va]
(= ::none va) [key vb]
:else [key vb]))) all-keys)))))
(defn function? [x]
(or (fn? x)
(instance? clojure.lang.MultiFn x)))
(defn num-or-fn? [x]
(or (number? x)
(function? x)))
(defn coll-of-nums-or-fns? [size v]
(and (coll? v)
(= size (count v))
(every? num-or-fn? v)))
(defn exception [& msg]
(Exception. (apply str msg)))
(defmacro assert-req [x]
`(when (nil? ~x) (throw (dali.utils/exception "Required var '" ~(str x) "' is nil"))))
(defmacro prn-names [& args]
`(do
~@(for [x args]
`(do
(print ~(str x " = "))
(prn ~x)))))
;;TODO fix, does not play well with tools.namespace
;; #?(:clj
;; (defn exception [& msg]
;; (Exception. (apply str msg)))
;;
;; :cljs
;; (defn exception [& msg]
;; (js/Error. (apply str msg))))
(defn ixml-zipper [document]
(zip/zipper #(not-empty (:content %))
:content
#(assoc %1 :content (vec %2))
document))
(defn generic-zipper
"Walks vectors, lists, maps, and maps' keys and values
individually. Take care not to replace a keypair with a single
value (will throw an exception)."
[x]
(zip/zipper
(some-fn sequential? map?)
seq
(fn [node children]
(cond (vector? node) (vec children)
(seq? node) (seq children)
(map? node) (into {} children)))
x))
(defn transform-zipper [zipper replace-fn]
(loop [zipper zipper]
(if (zip/end? zipper)
(zip/root zipper)
(recur (zip/next (zip/replace
zipper
(replace-fn zipper)))))))
(defn walk-zipper [zipper replace-fn]
(loop [zipper zipper]
(if (zip/end? zipper)
(zip/root zipper)
(recur (zip/next (replace-fn zipper))))))
(defn zipper-last [zipper]
(loop [zipper zipper]
(if (zip/end? (zip/next zipper)) zipper (recur (zip/next zipper)))))
(defn transform-zipper-backwards
([z replace-fn]
(loop [z z]
(let [p (zip/prev (zip/replace z (replace-fn z)))]
(if (nil? p) ;;we've hit top, no previous node
(zip/node z)
(recur p))))))
(defn transform-zipper-eval-order
[z replace-fn]
(let [tr replace-fn]
(loop [last-move nil
z z]
(cond (and z (zip/branch? z))
(if (= :up last-move)
(let [zz (tr z)]
(if (zip/right zz)
(recur :right (zip/right zz))
(if (zip/up zz)
(recur :up (zip/up zz))
(zip/node z))))
(recur :down (zip/down z)))
(zip/right z)
(recur :right (-> (tr z) zip/right))
(zip/up z)
(recur :up (-> z tr zip/up))
:else
(zip/node (tr z))))))
(defn dump-zipper
([z]
(dump-zipper z zip/next))
([z next-fn]
(loop [z z]
(when (and (not (nil? z)) (not (zip/end? z)))
(prn (zip/node z))
(recur (next-fn z))))))
(defn safe-update-in [m [k & ks] f & args]
(if-not (apply get-in m [(cons k ks)])
m (apply update-in m (cons k ks) f args)))
(defn to-enlive-class-selector [x]
(->> x name (str ".") keyword))
(defn to-enlive-id-selector [x]
(->> x name (str "#") keyword))
(defn to-iri-id [x]
(->> x name (str "#")))
(defn keyword-ns [k]
(->> k str (re-find #":(.+?)/") second))
(defn keyword-name [k]
(-> k str (subs 1)))
(defn keyword-concat [& args]
(->> args (map name) (apply str) keyword))