Merge branch 'master' of github.com:cloojure/tupelo

deps.edn

@@ -76,3 +76,4 @@
                           }
            }
  }
+

src/tupelo/string.cljc

@@ -346,6 +346,14 @@
    txt :- s/Str]
   (clojure.string/join (clojure.core/take n txt)))
 
+(s/defn drop-lines :- s/Str
+  "Drops the first N lines of a multi-line string, returning a string result."
+  [N :- s/Int
+   text :- s/Str]
+  (clojure.string/join \newline
+    (clojure.core/drop N
+      (clojure.string/split-lines text))))
+
 (s/defn indent :- s/Str ; #todo add readme
   "Indents a string by pre-pending N spaces. Returns a string result."
   [n :- s/Int

test/tst/tupelo/string.cljc

@@ -590,3 +590,15 @@
     (is= "Cost: 00123" (str/format "Cost: %05d" 123))
     (is= "Cost:   123.46" (str/format "Cost: %8.2f" xx))))
 
+(verify
+  (let [sample-text "hello
+                     there
+                     again"
+        drop-1-str  (str/drop-lines 1 sample-text)
+        drop-2-str  (str/drop-lines 2 sample-text)]
+    (is-nonblank-lines= drop-1-str
+      "there
+       again")
+    (is-nonblank-lines= drop-2-str
+      "again")))
+