clogn :js option implemented

README.adoc

@@ -49,14 +49,14 @@ To include `debux` in your project for development, simply add the following to
 
 [source]
 ....
-[philoskim/debux "0.5.2"]
+[philoskim/debux "0.5.3"]
 ....
 
 and this to your production dependencies (make sure they are production only):
 
 [source]
 ....
-[philoskim/debux-stubs "0.5.2"]
+[philoskim/debux-stubs "0.5.3"]
 ....
 
 
@@ -65,6 +65,9 @@ and this to your production dependencies (make sure they are production only):
 NOTE: You can see _All change logs since v0.3.0_
 https://github.com/philoskim/debux/tree/master/doc/change-logs.adoc[here].
 
+* v0.5.3
+** The `:js` option can be used in `clogn` now.
+
 * v0.5.2
 ** The `:js` option error of `clog` is fixed.
 
@@ -1857,7 +1860,7 @@ dbgn: (+ n (mul2 3 4) (add2 10 20)) =>
 | :dup    | X   |   0   |  X   |  0   |   X
 | :style  | X   |   X   |  O   |  O   |   X
 | :once   | X   |   X   |  O   |  X   |   X
-| :js     | X   |   X   |  O   |  X   |   X
+| :js     | X   |   X   |  O   |  O   |   X
 
 |===
 
@@ -2304,7 +2307,7 @@ you can inspect the internal structures of ClojureScript data types.
 (clog {:a 10 :b 20} :js)
 ....
 
-image::clog-5.png[title=":js option example", width=550]
+image::clog-5.png[title=":js option example", width=750]
 
 
 
@@ -2517,7 +2520,7 @@ an example about running the link:https://github.com/bhauman/lein-figwheel[figwh
 (defproject example "0.1.0-SNAPSHOT"
   :dependencies [[org.clojure/clojure "1.8.0"]
                  [org.clojure/clojurescript "1.9.854"]
-                 [philoskim/debux "0.5.2"]]
+                 [philoskim/debux "0.5.3"]]
   :plugins [[lein-cljsbuild "1.1.6"]
             [lein-figwheel  "0.5.10"]]
   :source-paths ["src/clj"]

doc/change-logs.adoc

@@ -3,6 +3,9 @@
 :source-highlighter: coderay
 :sectnums:
 
+* v0.5.3
+** The `:js` option can be used in `clogn` now.
+
 * v0.5.2
 ** The `:js` option error of `clog` is fixed.
 

example/project.clj

@@ -2,7 +2,7 @@
   :dependencies [[org.clojure/clojure "1.8.0"]
                  [org.clojure/clojurescript "1.10.238"]
                  [org.clojure/core.async "0.3.465"]
-                 [philoskim/debux "0.5.2"]]
+                 [philoskim/debux "0.5.3"]]
   :plugins [[lein-cljsbuild "1.1.6"]
             [lein-figwheel  "0.5.18"]]
   :source-paths ["src/clj" "src/cljc"]

example/src/cljs/example/core.cljs

@@ -1,10 +1,10 @@
 (ns example.core
-  (:require example.lab
-            ;example.common
-            ;example.clogn
-            ;example.clog
-            ;example.dbgn
-            ;example.dbg
-            ;example.options
+  (:require ;example.lab
+            example.common
+            example.clogn
+            example.clog
+            example.dbgn
+            example.dbg
+            example.options
 ))
 

example/src/cljs/example/lab.cljs

@@ -1,36 +1,3 @@
 (ns example.lab
   (:require [debux.cs.core :as d :refer-macros [clog clogn dbg dbgn break]]))
 
-(clog #(+ 2 3) :js)
-
-(clog (-> "a b c d"
-         .toUpperCase
-         (.replace "A" "X")
-         (.split " ")
-         first) :js)
-
-(def person
-  {:name "Mark Volkmann"
-   :address {:street "644 Glen Summit"
-             :city "St. Charles"
-             :state "Missouri"
-             :zip 63304}
-   :employer {:name "Object Computing, Inc."
-              :address {:street "12140 Woodcrest Dr."
-                        :city "Creve Coeur"
-                        :state "Missouri"
-                        :zip 63141}}})
-
-(clog (-> person :employer :address :city) :js)
-
-(def c 5)
-(clog (->> c (+ 3) (/ 2) (- 1)) :js)
-
-(clog (let [a (take 5 (range))
-           {:keys [b c d] :or {d 10 b 20 c 30}} {:c 50 :d 100}
-           [e f g & h] ["a" "b" "c" "d" "e"]]
-        [a b c d e f g h]) :js)
-
-(def c (clog (comp inc inc +) :js))
-
-(c 10 20)

project.clj

@@ -1,4 +1,4 @@
-(defproject philoskim/debux "0.5.2"
+(defproject philoskim/debux "0.5.3"
   :description "A trace-based debugging library for Clojure and ClojureScript"
   :url "https://github.com/philoskim/debux"
   :license {"Eclipse Public License"

src/debux/common/util.cljc

@@ -202,7 +202,7 @@
 (defn pprint-result-with-indent
   [result]
   (let [pprint (str/trim (with-out-str (pp/pprint result)))
-        prefix (str (make-bars *indent-level*) "  ")]
+        prefix (str (make-bars *indent-level*) "   ")]
     (println (->> (str/split pprint #"\n")
                   (mapv #(str prefix %))
                   (str/join "\n")))

src/debux/cs/clogn.clj

@@ -8,20 +8,21 @@
 (defmacro d [form]
   `(let [opts# ~'+debux-dbg-opts+
          n#    (or (:n opts#) (:print-seq-length @ut/config*))
+         js#   (:js opts#)
          form-style# (or (:style opts#) :debug)
          form#   '~(dbgn/remove-d form 'debux.cs.clogn/d)
          result# ~form
          result2# (ut/take-n-if-seq n# result#)]
      (when (or (:dup opts#) (ut/eval-changed? (:evals opts#) form# result2#))
        (cs.ut/clog-form-with-indent (cs.ut/form-header form# (:msg opts#))
                                     form-style#)
-       (cs.ut/clog-result-with-indent result2#))
+       (cs.ut/clog-result-with-indent result2# js#))
      result#))
 
 (defmacro clogn
   "Console LOG every Nested forms of a form."
   [form & [{:keys [condition msg style] :as opts}]]
-  `(let [~'+debux-dbg-opts+ ~(dissoc opts :js :once)
+  `(let [~'+debux-dbg-opts+ ~(dissoc opts :once)
          condition#         ~condition]
      (if (or (nil? condition#) condition#)
        (let [title# (str "%cclogn: %c " (ut/truncate (pr-str '~form))