branch: elpa/inf-clojure
commit 19605ac87e3b9dad242ff8fb1f86e86887b52182
Merge: 6ccb53e ff8dcd9
Author: Bozhidar Batsov <bozhidar.bat...@gmail.com>
Commit: Bozhidar Batsov <bozhidar.bat...@gmail.com>
Merge pull request #17 from otijhuis/remove-subprompts
Remove subprompts
---
inf-clojure.el | 13 +++++++++++--
1 file changed, 11 insertions(+), 2 deletions(-)
diff --git a/inf-clojure.el b/inf-clojure.el
index 733074b..f041642 100644
--- a/inf-clojure.el
+++ b/inf-clojure.el
@@ -153,6 +153,11 @@ to load that file."
:type 'regexp
:group 'inf-clojure)
+(defcustom inf-clojure-subprompt " *#_=> *"
+ "Regexp to recognize subprompts in the Inferior Clojure mode."
+ :type 'regexp
+ :group 'inf-clojure)
+
(defvar inf-clojure-buffer nil
"The current inf-clojure process buffer.
@@ -265,12 +270,16 @@ to continue it."
(replace-match "" t t string)
string))
+(defun inf-clojure-remove-subprompts (string)
+ "Remove subprompts from STRING."
+ (replace-regexp-in-string inf-clojure-subprompt "" string))
+
(defun inf-clojure-preoutput-filter (str)
"Preprocess the output STR from interactive commands."
(cond
((string-prefix-p "inf-clojure-" (symbol-name (or this-command
last-command)))
- ;; prepend a newline to the output string
- (inf-clojure-chomp (concat "\n" str)))
+ ;; Remove subprompts and prepend a newline to the output string
+ (inf-clojure-chomp (concat "\n" (inf-clojure-remove-subprompts str))))
(t str)))
(defvar inf-clojure-project-root-files
