Clojure stripMargin

Question

Scala предлагает метод stripMargin, который удаляет левую часть многострочной строки до указанного разделителя (по умолчанию: «|»).Вот пример:

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

возвращает строку

Foo
Bar

Есть ли подобная функция в Clojure?Если нет, то как бы вы реализовали это (наиболее функционально)?

Спасибо.

ОБНОВЛЕНИЕ : Пример, который я привел, не завершен.Метод stripMargin также сохраняет пробелы после разделителя:

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

возвращает строку

Foo
   Bar

Answer 1

Нет такой встроенной функции, но вы легко пишете:

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

Вот мое полное решение, собранное из ответов выше:

(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 "\\|")))

Вот некоторые «реальные» примеры ввода и вывода:

(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

Спасибо всем авторам.

Answer 3

Быстрое поиск в Google не вернул ни одной из существующих функций, но вот моя попытка решить эту проблему.Он не поддерживает пользовательские разделители и не очень оптимизирован по скорости.

(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 4

Вы также можете сделать это с помощью одного регулярного выражения:

(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))