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

To be used on GitHub Pages, the demo must be in /docs

Browse source
This commit is contained in:
Simon Brooke 2020-02-24 16:15:04 +00:00
parent 8bd1e65c0b
commit 861339458d
No known key found for this signature in database
GPG key ID: A7A4F18D1D4DF987
392 changed files with 0 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

114
docs/js/compiled/out/devtools/core.cljs Normal file
View file

@ -0,0 +1,114 @@
(ns devtools.core
(:require [devtools.prefs :as prefs]
[devtools.hints :as hints]
[devtools.defaults :refer [feature-groups]]
[devtools.formatters :as formatters]
[devtools.async :as async]
[devtools.toolbox] ; this auto-requires the toolbox namespace, used by cljs-oops
[devtools.context :as context]
[devtools.util :refer [display-banner-if-needed! install-feature! resolve-features! make-lib-info
print-config-overrides-if-requested!
under-advanced-build? display-advanced-build-warning-if-needed!]]))
; -- public API -------------------------------------------------------------------------------------------------------------
(defn is-feature-available? [feature]
(case feature
:formatters (formatters/available?)
:hints (hints/available?)
:async (async/available?)))
(defn available?
([] (available? (prefs/pref :features-to-install)))
([features-desc]
(let [features (resolve-features! features-desc @feature-groups)]
(if (empty? features)
false
(every? is-feature-available? features)))))
(defn is-feature-installed? [feature]
(case feature
:formatters (formatters/installed?)
:hints (hints/installed?)
:async (async/installed?)))
(defn installed?
([] (installed? (prefs/pref :features-to-install)))
([features-desc]
(let [features (resolve-features! features-desc @feature-groups)]
(if (empty? features)
false
(every? is-feature-installed? features)))))
(defn install!
([] (install! (prefs/pref :features-to-install)))
([features-desc]
(if (under-advanced-build?)
(display-advanced-build-warning-if-needed!)
(let [features (resolve-features! features-desc @feature-groups)]
(display-banner-if-needed! features @feature-groups)
(print-config-overrides-if-requested! "config overrides prior install:\n")
(install-feature! :formatters features is-feature-available? formatters/install!)
(install-feature! :hints features is-feature-available? hints/install!)
(install-feature! :async features is-feature-available? async/install!)))))
(defn uninstall! []
(formatters/uninstall!)
(hints/uninstall!)
(async/uninstall!))
(defn set-prefs! [new-prefs]
(prefs/set-prefs! new-prefs))
(defn get-prefs []
(prefs/get-prefs))
(defn set-pref! [pref val]
(prefs/set-pref! pref val))
; -- deprecated API ---------------------------------------------------------------------------------------------------------
(defn enable! []
(.warn (context/get-console) (str "devtools.core/enable! was removed "
"and has no effect in " (make-lib-info) " "
"=> remove the call")))
(defn disable! []
(.warn (context/get-console) (str "devtools.core/disable! was removed "
"and has no effect in " (make-lib-info) " "
"=> remove the call")))
(defn set-single-feature! [_feature _val]
(.warn (context/get-console) (str "devtools.core/set-single-feature! was removed "
"and has no effect in " (make-lib-info) " "
"=> use (devtools.core/install! features) to install custom features")))
(defn enable-single-feature! [_feature]
(.warn (context/get-console) (str "devtools.core/enable-single-feature! was removed "
"and has no effect in " (make-lib-info) " "
"=> use (devtools.core/install! features) to install custom features")))
(defn disable-single-feature! [_feature]
(.warn (context/get-console) (str "devtools.core/disable-single-feature! was removed "
"and has no effect in " (make-lib-info) " "
"=> use (devtools.core/install! features) to install custom features")))
(defn enable-feature! [& _features]
(.warn (context/get-console) (str "devtools.core/enable-feature! was removed "
"and has no effect in " (make-lib-info) " "
"=> use (devtools.core/install! features) to install custom features")))
(defn disable-feature! [& _features]
(.warn (context/get-console) (str "devtools.core/disable-feature! was removed "
"and has no effect in " (make-lib-info) " "
"=> use (devtools.core/install! features) to install custom features")))
(defn single-feature-available? [_feature]
(.warn (context/get-console) (str "devtools.core/single-feature-available? was removed "
"and has no effect in " (make-lib-info) " "
"=> use devtools.core/is-feature-available? instead")))
(defn feature-available? [& _features]
(.warn (context/get-console) (str "devtools.core/feature-available? was removed "
"and has no effect in " (make-lib-info) " "
"=> use devtools.core/is-feature-available? instead")))