change comment emission to preserve whitespace formatting module

3 spaces of leading whitespace (to account for traditional Lisp indent)

tweak js-comment accordingly

Author: swannodette

src/main/clojure/cljs/compiler.cljc

@@ -481,9 +481,13 @@
         docs (if jsdoc (concat docs jsdoc) docs)
         docs (remove nil? docs)]
     (letfn [(print-comment-lines [e]
-              (doseq [next-line (string/split-lines e)]
-                (emitln " * " (-> (string/trim next-line)
-                                  (string/replace "*/" "* /")))))]
+              (let [[x & ys] (string/split-lines e)]
+                (emitln " * " x)
+                (doseq [next-line ys]
+                  (emitln " * "
+                    (-> next-line
+                      (string/replace #"^   " "")
+                      (string/replace "*/" "* /"))))))]
       (when (seq docs)
         (emitln "/**")
         (doseq [e docs]

src/main/clojure/cljs/core.cljc

@@ -871,13 +871,13 @@
   [comment]
   (let [[x & ys] (string/split comment #"\n")]
     (core/list 'js*
-     (core/str
-       "\n/**\n"
-       (core/str " * " x "\n")
-       (core/->> ys
-         (map #(core/str " * " (subs % 3) "\n"))
-         (reduce core/str ""))
-       " */\n"))))
+      (core/str
+        "\n/**\n"
+        (core/str " * " x "\n")
+        (core/->> ys
+          (map #(core/str " * " (string/replace % #"^   " "") "\n"))
+          (reduce core/str ""))
+        " */\n"))))
 
 (core/defmacro true? [x]
   (bool-expr (core/list 'js* "~{} === true" x)))