Clojure stripMargin

Question

Scala oferuje metodę o nazwie stripMargin, która usuwa lewą część ciągu wielowierszowego do określonego separatora (domyślnie: "|"). Oto przykład:

"""|Foo 
    |Bar""".stripMargin 

zwraca ciąg

Foo 
Bar 

Czy istnieje podobna funkcja w Clojure? Jeśli nie, w jaki sposób można go wdrożyć (najbardziej funkcjonalnie)?

Dzięki.

UPDATE: Podany przeze mnie przykład nie jest kompletny. Metoda stripMargin zachowuje również spacje po separatorze:

"""|Foo 
    | Bar""".stripMargin 

zwraca łańcuch

Foo 
    Bar 

Answer 1

Nie ma takiej funkcji wbudowany ale piszesz go łatwo:

user=> (use '[clojure.contrib.string :only (join, split-lines, ltrim)]) //' 
nil 
user=> (->> "|Foo\n |Bar" split-lines (map ltrim) 
    (map #(.replaceFirst % "\\|" "")) (join "\n")) 
"Foo\nBar" 

Answer 2

Szybkie googling nie zwróciło żadnych istniejących funkcji, ale tutaj jest moja próba na problem. Nie obsługuje niestandardowych ograniczników i nie jest zoptymalizowany pod kątem szybkości.

(use '[clojure.contrib.str-utils :only (re-split re-sub str-join)]) 

(defn strip-margin [s] 
    (let [lines (seq (re-split #"\n" s))] 
    (str-join "\n" 
     (for [line lines] 
     (re-sub #"^\s*\|" "" line))))) 

Answer 3

Oto mój kompletne rozwiązanie, zebrane z powyższych odpowiedzi:

(use '[clojure.contrib.string :only (join, split-lines, ltrim)]) 

(defn strip-margin 
    ([s d] (->> s split-lines (map ltrim) (map #(.replaceFirst % d "")) (join "\n"))) 
    ([s] (strip-margin s "\\|"))) 

Oto „prawdziwy "wejście i wyjście próbki:

(println 
    (strip-margin "|<?xml version='1.0' encoding='utf-8'?> 
       |<people> 
       | <person> 
       | <name>Joe Smith</name> 
       | </person> 
       |</people>")) 

==>

<?xml version='1.0' encoding='utf-8'?> 
<people> 
    <person> 
    <name>Joe Smith</name> 
    </person> 
</people> 
nil 

Dziękuję wszystkim współpracownikom.

Answer 4

Można również zrobić to za pomocą jednego regexp:

(use '[clojure.contrib.string :only (replace-re)]) 

(def test-string 
"|<?xml version='1.0' encoding='utf-8'?> 
       |<people> 
       | <person> 
       | <name>Joe Smith</name> 
       | </person> 
       |</people>") 


(replace-re #"(^\|)|(.+\|)" "" test-string))