-
-
Notifications
You must be signed in to change notification settings - Fork 46
/
interface.clj
48 lines (34 loc) · 1.38 KB
/
interface.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
(ns polylith.clj.core.common.interface
(:require [polylith.clj.core.common.core :as core])
(:require [polylith.clj.core.common.ws-dir :as ws-dir]
[polylith.clj.core.common.class-loader :as class-loader]
[polylith.clj.core.common.validate-args :as validate-args]))
(defn ns-to-path [namespace]
(core/ns-to-path namespace))
(defn path-to-ns [namespace]
(when namespace
(core/path-to-ns namespace)))
(defn suffix-ns-with-dot [namespace]
(core/sufix-ns-with-dot namespace))
(defn filter-clojure-paths [paths]
(core/filter-clojure-paths paths))
(defn create-class-loader [paths color-mode]
(class-loader/create-class-loader paths color-mode))
(defn eval-in [class-loader form]
(class-loader/eval-in class-loader form))
(defn find-brick [name workspace]
(core/find-brick name workspace))
(defn find-component [name components]
(core/find-component name components))
(defn find-base [base-name bases]
(core/find-base base-name bases))
(defn find-project [project-name projects]
(core/find-project project-name projects))
(defn validate-args [unnamed-args example]
(validate-args/validate unnamed-args example))
(defn color-mode [user-input]
(core/color-mode user-input))
(defn valid-config-file? [ws-dir color-mode]
(core/valid-config-file? ws-dir color-mode))
(defn workspace-dir [user-input color-mode]
(ws-dir/workspace-dir user-input color-mode))