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

2020-02-24 16:15:04 +00:00 · 2020-02-24 16:15:04 +00:00 · 861339458d
commit 861339458d
parent 8bd1e65c0b
392 changed files with 0 additions and 0 deletions
--- a/docs/js/compiled/out/devtools/formatters/helpers.cljs
+++ b/docs/js/compiled/out/devtools/formatters/helpers.cljs
@ -0,0 +1,118 @@
+(ns devtools.formatters.helpers
+  (:require-macros [devtools.oops :refer [oget safe-call]])
+  (:require [devtools.prefs :as prefs]
+            [devtools.munging :as munging]
+            [devtools.format :refer [IDevtoolsFormat]]
+            [devtools.protocols :refer [ITemplate IGroup ISurrogate IFormat]]))
+
+(defn pref [v]
+  (if (keyword? v)
+    (recur (prefs/pref v))
+    v))
+
+(defn get-prototype [o]
+  (.-prototype o))
+
+(defn get-constructor [o]
+  (.-constructor o))
+
+; ---------------------------------------------------------------------------------------------------------------------------
+
+(defn is-prototype? [o]
+  (identical? (get-prototype (get-constructor o)) o))
+
+(defn is-js-symbol? [o]
+  (= (goog/typeOf o) "symbol"))
+
+(defn cljs-function? [value]
+  (and (not (pref :disable-cljs-fn-formatting))                                                                               ; TODO: this should be deprecated
+       (not (var? value))                                                                                                     ; HACK: vars have IFn protocol and would act as functions TODO: implement custom rendering for vars
+       (munging/cljs-fn? value)))
+
+(defn has-formatting-protocol? [value]
+  (or (safe-call satisfies? false IPrintWithWriter value)
+      (safe-call satisfies? false IDevtoolsFormat value)                                                                      ; legacy
+      (safe-call satisfies? false IFormat value)))
+
+; IRC #clojurescript @ freenode.net on 2015-01-27:
+; [13:40:09] darwin_: Hi, what is the best way to test if I'm handled ClojureScript data value or plain javascript object?
+; [14:04:34] dnolen: there is a very low level thing you can check
+; [14:04:36] dnolen: https://github.com/clojure/clojurescript/blob/c2550c4fdc94178a7957497e2bfde54e5600c457/src/clj/cljs/core.clj#L901
+; [14:05:00] dnolen: this property is unlikely to change - still it's probably not something anything anyone should use w/o a really good reason
+(defn cljs-type? [f]
+  (and (goog/isObject f)                                                                                                      ; see http://stackoverflow.com/a/22482737/84283
+       (not (is-prototype? f))
+       (.-cljs$lang$type f)))
+
+(defn cljs-instance? [value]
+  (and (goog/isObject value)                                                                                                  ; see http://stackoverflow.com/a/22482737/84283
+       (cljs-type? (get-constructor value))))
+
+(defn cljs-land-value? [value]
+  (or (cljs-instance? value)
+      (has-formatting-protocol? value)))                                                                                      ; some raw js types can be extend-protocol to support cljs printing, see issue #21
+
+(defn cljs-value? [value]
+  (and
+    (or (cljs-land-value? value)
+        (cljs-function? value))
+    (not (is-prototype? value))
+    (not (is-js-symbol? value))))
+
+(defn bool? [value]
+  (or (true? value) (false? value)))
+
+(defn instance-of-a-well-known-type? [value]
+  (let [well-known-types (pref :well-known-types)
+        constructor-fn (get-constructor value)
+        [ns name] (munging/parse-constructor-info constructor-fn)
+        fully-qualified-type-name (str ns "/" name)]
+    (contains? well-known-types fully-qualified-type-name)))
+
+(defn should-render-instance? [value]
+  (and (cljs-instance? value)
+       (not (instance-of-a-well-known-type? value))))
+
+(defn directly-printable? [value]
+  (or (string? value)
+      (number? value)
+      (bool? value)))
+
+; ---------------------------------------------------------------------------------------------------------------------------
+
+(defn abbreviated? [template]
+  (some #(= (pref :more-marker) %) template))
+
+(defn abbreviate-long-string [string marker prefix-limit postfix-limit]
+  (let [prefix (.slice string 0 prefix-limit)
+        postfix (.slice string (- (.-length string) postfix-limit))]
+    (str prefix marker postfix)))
+
+(defn get-more-marker [more-count]
+  (str (pref :plus-symbol) more-count (pref :more-symbol)))
+
+(defn wrap-arity [arity]
+  (let [args-open-symbol (pref :args-open-symbol)
+        args-close-symbol (pref :args-close-symbol)]
+    (str args-open-symbol arity args-close-symbol)))
+
+(defn fetch-field-value [obj field]
+  [field (oget obj (munge field))])
+
+(defn fetch-fields-values [obj fields]
+  (map (partial fetch-field-value obj) fields))
+
+(defn expandable? [obj]
+  (if (satisfies? ISeqable obj)
+    (if-let [min-count (pref (if (instance-of-a-well-known-type? obj)
+                               :min-expandable-sequable-count-for-well-known-types
+                               :min-expandable-sequable-count))]
+      (if-not (empty? obj)
+        (let [actual-count (bounded-count min-count obj)]
+          (>= actual-count min-count))))))
+
+(defn should-render? [pref-key value default-check]
+  (if-let [render-pref (pref pref-key)]
+    (cond
+      (true? render-pref) (default-check value)
+      (fn? render-pref) (render-pref value))))