diff --git a/README.md b/README.md index 152578c..696c7a9 100755 --- a/README.md +++ b/README.md @@ -169,6 +169,7 @@ and run `M-x cm-test-mdarkdown-to-html`. * [cm-test](https://github.com/kostafey/cm-test) * [ejc-sql](https://github.com/kostafey/ejc-sql) +* [flower](https://github.com/PositiveTechnologies/flower) ## Requirements: diff --git a/src/elisp/clomacs.el b/src/elisp/clomacs.el index 9124da0..27f4639 100644 --- a/src/elisp/clomacs.el +++ b/src/elisp/clomacs.el @@ -120,9 +120,11 @@ If can't find any nREPL process return nil." raw-string)) (defun clomacs-clean-result-string (return-string) - (s-replace-all '(("\\\"" . "\"") + (s-replace-all '(("\\\\" . "\\") + ("\\\"" . "\"") ("\\n" . "\n") - ("\\t" . "\t")) return-string)) + ("\\t" . "\t")) + return-string)) (defun clomacs-format-result (raw-string return-type) "Format Elisp representation of Clojure evaluation result." diff --git a/test/clj/clomacs/cm_test.clj b/test/clj/clomacs/cm_test.clj index dbf1876..8b898b9 100644 --- a/test/clj/clomacs/cm_test.clj +++ b/test/clj/clomacs/cm_test.clj @@ -8,4 +8,5 @@ (defn text-with-newlines [] (str "Some text in the first line \n" - "and text in the new line.")) + "and text in the new line. " + "Text with backslash and \\no new line.")) diff --git a/test/elisp/clomacs-test.el b/test/elisp/clomacs-test.el index d4250ca..d9a71d6 100755 --- a/test/elisp/clomacs-test.el +++ b/test/elisp/clomacs-test.el @@ -77,7 +77,8 @@ (should (equal (clomacs-test-text-with-newlines) (concat "Some text in the first line \n" - "and text in the new line."))) + "and text in the new line. " + "Text with backslash and \\no new line."))) (clomacs-defun clomacs-test-md-wrapper my-md-to-html-string