Set version to 2023.11.09-407

CHANGES.md

@@ -1,5 +1,10 @@
 # Changelog
 
+## Version 2023.11.09-407
+
+- Fix deprecation warning
+
+
 ## Version 2023.10.15-405
 
 - Add performance improvement on `word?` predicate (x3 aprox)

build.clj

@@ -3,7 +3,7 @@
   (:require [clojure.tools.build.api :as b]))
 
 (def lib 'funcool/cuerdas)
-(def version (format "2023.10.15-%s" (b/git-count-revs nil)))
+(def version (format "2023.11.09-%s" (b/git-count-revs nil)))
 (def class-dir "target/classes")
 (def basis (b/create-basis {:project "deps.edn"}))
 (def jar-file (format "target/%s-%s.jar" (name lib) version))

doc/user-guide.md

@@ -23,7 +23,7 @@ aljibe de madera.
 Add the following dependency to your project.clj file:
 
 ```clojure
-funcool/cuerdas {:mvn/version "2023.10.15-405"}
+funcool/cuerdas {:mvn/version "2023.11.09-407"}
 ```
 
 ## Quick start
@@ -64,26 +64,22 @@ cljs.user=> (str/collapse-whitespace " foo bar    ")
 **NOTE**: this section expalins only a limited set of functions, for
 complete overview look at the namespace functions reference.
 
-### <<-
+### unindent
 
 Unindent lines. Either strip preceding whitespace automatically or
 with a user supplied regex.
 
 ```clojure
-(str/<<- "first line
-
+(str/unindent "first line
             second line (indented)
-
           another line")
 ```
 
 yields the string
 
 ```clojure
 first line
-
   second line (indented)
-
 another line
 ```
 

src/cuerdas/core.cljc

@@ -899,14 +899,15 @@
   DEPRECTED: replaced by `uninindent`"
   {:deprecated true}
   ([s]
-   (let [all-indents (->> (rest (lines s)) ;; ignore the first line
-                          (remove blank?)
-                          (c/concat [(last (lines s))]) ;; in case all lines are indented
-                          (map #(->> % (re-find #"^( +)") second count)))
-         min-indent  (re-pattern (format "^ {%s}"
-                                         (apply min all-indents)))]
-     (<<- min-indent s)))
-  ([r s] (->> s lines (map #(replace % r "")) unlines)))
+   (let [re (->> (rest (lines s)) ;; ignore the first line
+                 (remove blank?)
+                 (c/concat [(last (lines s))]) ;; in case all lines are indented
+                 (map #(->> % (re-find #"^( +)") second count))
+                 (apply min)
+                 (format "^ {%s}")
+                 (re-pattern))]
+     (->> s lines (map #(replace % re "")) unlines)))
+  ([re s] (->> s lines (map #(replace % re "")) unlines)))
 
 ;; --- String Interpolation