[nongnu] elpa/inf-clojure 8eaf885 275/313: [Fix #152] Sanitize should only remove whitespace at the end of a command

[ELPA Syncer]

branch: elpa/inf-clojure
commit 8eaf885cb03515c010eff6d9924b641d30b3eb45
Author: Andrea Richiardi <a.richiardi.work@gmail.com>
Commit: Bozhidar Batsov <bozhidar.batsov@gmail.com>

    [Fix #152] Sanitize should only remove whitespace at the end of a command
---
 inf-clojure.el            | 14 +-------------
 test/inf-clojure-tests.el | 23 ++++-------------------
 2 files changed, 5 insertions(+), 32 deletions(-)

diff --git a/inf-clojure.el b/inf-clojure.el
index 62d9402..e63a183 100644
--- a/inf-clojure.el
+++ b/inf-clojure.el
@@ -375,24 +375,12 @@ Should be a symbol that is a key in 
`inf-clojure-repl-features'."
   "Return non-nil iff STRING is a whole line semicolon comment."
   (string-match-p "^\s*;" string))
 
-(defun inf-clojure--make-single-line (string)
-  "Convert a multi-line STRING in a single-line STRING.
-It also reduces redundant whitespace for readability and removes
-comments."
-  (let* ((lines (seq-filter (lambda (s) (not 
(inf-clojure--whole-comment-line-p s)))
-                            (split-string string "[\r\n]" t))))
-    (mapconcat (lambda (s)
-                 (if (not (string-match-p ";" s))
-                     (replace-regexp-in-string "\s+" " " s)
-                   (concat s "\n")))
-               lines " ")))
-
 (defun inf-clojure--sanitize-command (command)
   "Sanitize COMMAND for sending it to a process.
 An example of things that this function does is to add a final
 newline at the end of the form.  Return an empty string if the
 sanitized command is empty."
-  (let ((sanitized (inf-clojure--make-single-line command)))
+  (let ((sanitized (string-trim-right command)))
     (if (string-blank-p sanitized)
         ""
       (concat sanitized "\n"))))
diff --git a/test/inf-clojure-tests.el b/test/inf-clojure-tests.el
index 7821c06..1dd4d01 100644
--- a/test/inf-clojure-tests.el
+++ b/test/inf-clojure-tests.el
@@ -111,24 +111,6 @@
          (expect (ict-bounds-string 
(inf-clojure-completion-bounds-of-expr-at-point))
                  :to-equal "deref")))))
 
-(describe "inf-clojure--make-single-line"
-  (it "replaces newlines with whitespace"
-      (expect (inf-clojure--make-single-line "(do\n(println \"hello 
world\")\n)") :to-equal "(do (println \"hello world\") )"))
-
-  (it "does not leave whitespace at the end"
-      (expect (inf-clojure--make-single-line "(do\n(println \"hello 
world\")\n)\n\n") :to-equal "(do (println \"hello world\") )"))
-
-  (it "returns empty string when the line is only newlines"
-      (expect (inf-clojure--make-single-line "\n\n\n\n") :to-equal ""))
-
-  (it "removes comments when on their own line"
-      (expect (inf-clojure--make-single-line "(do\n(println \"hello world\")\n 
   ;; remove me\n)") :to-equal "(do (println \"hello world\") )"))
-
-  (it "preserves newlines of inline comments"
-      (expect (inf-clojure--make-single-line "(do\n(println \"hello world\") 
;; don't remove this\n)") :to-equal "(do (println \"hello world\") ;; don't 
remove this\n )"))
-
-  )
-
 (describe "inf-clojure--sanitize-command"
   (it "sanitizes the command correctly"
      (expect (inf-clojure--sanitize-command "(doc println)") :to-equal "(doc 
println)\n"))
@@ -137,7 +119,10 @@
      (expect (inf-clojure--sanitize-command "(doc println)\n\n\n\n") :to-equal 
"(doc println)\n"))
 
   (it "returns empty string when the command is empty"
-     (expect (inf-clojure--sanitize-command "   ") :to-equal "")))
+      (expect (inf-clojure--sanitize-command "   ") :to-equal ""))
+
+  (it "only removes whitespace at the end of the command - fix 152"
+     (expect (inf-clojure--sanitize-command "1   5") :to-equal "1   5\n")))
 
 (describe "inf-clojure--update-feature"
   (it "updates new forms correctly"