Added a utility function that helps the tests on multiline strings.

src/hopen/util.cljc

@@ -1,4 +1,18 @@
-(ns hopen.util)
+(ns hopen.util
+  (:require [clojure.string :as str]))
+
+(defn triml
+  "Trims the white spaces at the beginning of each line in the text, including the delimiter."
+  ([text] (triml text "|"))
+  ([text delimiter]
+   (transduce (comp (map (fn [line]
+                           (let [trimmed (str/triml line)]
+                             (if (str/starts-with? trimmed delimiter)
+                               (subs trimmed (count delimiter))
+                               line))))
+                    (interpose "\n"))
+              str
+              (str/split-lines text))))
 
 (defn binding-partition
   "A transducer which is partitioning a multi-variables binding sequence."

test/hopen/util_test.cljc

@@ -2,7 +2,12 @@
   (:require #?(:clj  [clojure.test :refer [deftest testing is are]]
                :cljs [cljs.test    :refer [deftest testing is are]
                       :include-macros true])
-            [hopen.util :refer [parse-bindings collect collect-in]]))
+            [hopen.util :refer [triml parse-bindings collect collect-in]]))
+
+(deftest triml-test
+  (is (= (triml "hello,
+                | world!")
+         "hello,\n world!")))
 
 (deftest parse-bindings-test
   (testing "Example-spec the function's input and output"