doc updated

README.adoc

@@ -1175,16 +1175,16 @@ result.
 
 [source]
 ....
-(dbgn (quote a))
+(dbgn (defmacro unless [pred a b]
+        `(if (not ~pred) ~a ~b)))
 ....
 
 [listing]
 .REPL output
 ----
-dbgn: (quote a) =>
-| (quote a) =>
-|   a
-a
+dbgn: (defmacro unless [pred a b] (clojure.core/seq (clojure.core/concat (cl ... =>
+| (defmacro unless [pred a b] (clojure.core/seq (clojure.core/concat (cl ... =>
+|   #'user/unless
 ----
 
 #### `:skip-form-itself-type` example
@@ -1206,8 +1206,7 @@ dbgn: (try (/ 1 0) (catch ArithmeticException e (str "caught exception: " (. ...
 |   "caught exception: Divide by zero"
 ----
 
-NOTE: The evaluated resuts of the `catch` form itself are not printed in the above
-      example.
+NOTE: The evaluated resuts of the `catch` form are not printed in the above example.
 
 #### `:expand-type` example
 

src/debux/common/skip.clj

@@ -26,7 +26,7 @@
       (ms/skip (ut/insert-blank-line))
        ~@form))
 
-(defn insert-skip-in-prepost [prepost]
+(defn- insert-skip-in-prepost [prepost]
   `(ms/skip ~prepost))
 
 (defn- insert-indent-info-in-defn-body [arity]

src/debux/cs/util.cljc

@@ -31,10 +31,7 @@
          :normal "background-color: white; color: black"
          :title  "background-color: white; color: #8b008b"} ))
 
-(defn- get-style
-  "<style kw|str> style-name
-   <return str?>"
-  [style]
+(defn- get-style [style]
   (cond
     (keyword? style)
     (cond
@@ -65,7 +62,7 @@
 
 ;;; printing for browser console
 #?(:cljs
-   (defn- form-header [form & [msg]]
+   (defn form-header [form & [msg]]
      (str "%c " (ut/truncate (pr-str form))
           " %c" (and msg (str "   <" msg ">"))
           " =>") ))

src/debux/dbg.clj

@@ -54,7 +54,7 @@
        result#) ))
 
 
-(def dbg*
+(def ^:private dbg*
   {:->   '#{clojure.core/-> cljs.core/->}
    :->>  '#{clojure.core/->> cljs.core/->>}
    :comp '#{clojure.core/comp cljs.core/comp}

src/debux/macro_types.clj

@@ -37,7 +37,7 @@
             some-> some->>}
          :dot-type `#{.} }))
 
-(defn merge-symbols [old-symbols new-symbols]
+(defn- merge-symbols [old-symbols new-symbols]
   (->> (map #(ut/ns-symbol %) new-symbols)
        set
        (set/union old-symbols) ))