[nongnu] elpa/inf-clojure 0652692 012/313: Preprocess the output from interactive commands

[ELPA Syncer]

branch: elpa/inf-clojure
commit 06526921375d6fe1b63b6f5fb01b9cabad41d141
Author: Bozhidar Batsov <bozhidar@tradeo.com>
Commit: Bozhidar Batsov <bozhidar@tradeo.com>

    Preprocess the output from interactive commands
---
 inf-clojure.el | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/inf-clojure.el b/inf-clojure.el
index 6279a84..0831070 100644
--- a/inf-clojure.el
+++ b/inf-clojure.el
@@ -219,6 +219,7 @@ to continue it."
   (setq comint-get-old-input (function clojure-get-old-input))
   (setq comint-input-filter (function clojure-input-filter))
   (set (make-local-variable 'comint-prompt-read-only) 
inf-clojure-prompt-read-only)
+  (add-hook 'comint-preoutput-filter-functions 'clojure-preoutput-filter nil t)
   (add-hook 'completion-at-point-functions 'inf-clojure-completion-at-point 
nil t))
 
 (defun clojure-get-old-input ()
@@ -232,6 +233,17 @@ to continue it."
   "t if STR does not match `inf-clojure-filter-regexp'."
   (not (string-match inf-clojure-filter-regexp str)))
 
+(defun clojure-preoutput-filter (str)
+  "Preprocess the output STR from interactive commands."
+  (if (string-prefix-p "clojure-" (symbol-name (or this-command last-command)))
+      ;; prepend a newline to the output string
+      (let ((string (concat "\n" str)))
+        ;; strip the extra trailing newline
+        (if (string-match "[\n]+\\'" string)
+            (replace-match "" t t string)
+          string))
+    str))
+
 ;;;###autoload
 (defun inf-clojure (cmd)
   "Run an inferior Clojure process, input and output via buffer 
`*inf-clojure*'.