File tree Expand file tree Collapse file tree 4 files changed +8
-8
lines changed Expand file tree Collapse file tree 4 files changed +8
-8
lines changed Original file line number Diff line number Diff line change 1
1
(ns ^{:doc " ClojureScript analysis functions."
2
2
:author " Gary Trakhman"
3
- :added " 0.6 .0" }
3
+ :added " 0.5 .0" }
4
4
orchard.cljs.analysis
5
5
(:require [orchard.misc :as misc])
6
6
(:refer-clojure :exclude [find-ns find-var all-ns ns-aliases]))
Original file line number Diff line number Diff line change 1
1
(ns ^{:doc " ClojureScript metadata functions."
2
2
:author " Gary Trakhman"
3
- :added " 0.6 .0" }
3
+ :added " 0.5 .0" }
4
4
orchard.cljs.meta
5
5
(:require [orchard.cljs.analysis :as a #?@(:cljs [:include-macros true ])]
6
6
[orchard.misc :as misc #?@(:cljs [:include-macros true ])]))
Original file line number Diff line number Diff line change 26
26
27
27
Return nil if :sym is nil, attempting to generate a valid symbol even
28
28
in case some :ns is missing."
29
- {:added " 0.6 .0" }
29
+ {:added " 0.5 .0" }
30
30
[ns sym]
31
31
(when sym (symbol (some-> ns str) (str sym))))
32
32
35
35
36
36
This is only available from Clojure 1.9 so we backport it until we
37
37
drop support for Clojure 1.8."
38
- {:added " 0.6 .0" }
38
+ {:added " 0.5 .0" }
39
39
[x]
40
40
(boolean (and (symbol? x) (namespace x) true )))
41
41
49
49
and :unqualified-sym key.
50
50
51
51
If :dialect is nil, we assoc :clj, our default."
52
- {:added " 0.6 .0" }
52
+ {:added " 0.5 .0" }
53
53
[params]
54
54
(let [{:keys [sym ns context-ns]} params]
55
55
(cond-> (update params :dialect #(or % :clj ))
72
72
(assoc :qualified-sym (qualify-sym (or ns context-ns) sym)))))
73
73
74
74
(defn clj-meta
75
- {:added " 0.6 .0" }
75
+ {:added " 0.5 .0" }
76
76
[{:keys [dialect ns sym computed-ns unqualified-sym]}]
77
77
{:pre [(= dialect :clj )]}
78
78
(let [ns (or ns computed-ns)]
97
97
(some-> ns (java/resolve-symbol sym)))))
98
98
99
99
(defn cljs-meta
100
- {:added " 0.6 .0" }
100
+ {:added " 0.5 .0" }
101
101
[{:keys [dialect ns sym env context-ns unqualified-sym]}]
102
102
{:pre [(= dialect :cljs )]}
103
103
(let [context-ns (or context-ns ns )]
Original file line number Diff line number Diff line change 129
129
(defn require-and-resolve
130
130
" Try to require the namespace and get a var for the symbol, return the
131
131
var if successful, nil if not."
132
- {:added " 0.6 .0" }
132
+ {:added " 0.5 .0" }
133
133
[sym]
134
134
(when-let [ns (some-> sym namespace symbol)]
135
135
(when-not (find-ns ns )
You can’t perform that action at this time.
0 commit comments