|
|
|
|
@ -2543,6 +2543,17 @@ |
|
|
|
|
(map last (re-seq #"\{:?(.\d+)?\}" s)) |
|
|
|
|
) |
|
|
|
|
|
|
|
|
|
(defn replace-groups [string groups] |
|
|
|
|
(if (empty? groups) |
|
|
|
|
string |
|
|
|
|
( |
|
|
|
|
replace-groups |
|
|
|
|
(clojure.string/replace-first string #"\{:?(.\d+)?\}" (first groups)) |
|
|
|
|
(rest groups) |
|
|
|
|
) |
|
|
|
|
) |
|
|
|
|
) |
|
|
|
|
|
|
|
|
|
(defn convertir-formato-impresion [args] |
|
|
|
|
(let [clojure-fspecifiers ( |
|
|
|
|
map |
|
|
|
|
@ -2552,16 +2563,7 @@ |
|
|
|
|
) |
|
|
|
|
] (if (empty? clojure-fspecifiers) |
|
|
|
|
args |
|
|
|
|
|
|
|
|
|
(into |
|
|
|
|
(rest args) |
|
|
|
|
(list (clojure.string/join |
|
|
|
|
(interleave |
|
|
|
|
(clojure.string/split (first args) #"\{:?(\.\d+)?\}") |
|
|
|
|
(concat clojure-fspecifiers '("")) |
|
|
|
|
) |
|
|
|
|
)) |
|
|
|
|
) |
|
|
|
|
(cons (replace-groups (first args) clojure-fspecifiers) (rest args)) |
|
|
|
|
) |
|
|
|
|
) |
|
|
|
|
) |
|
|
|
|
|