[nongnu] elpa/inf-clojure 78d2ab2 034/313: Add a command for clearing the REPL buffer

[ELPA Syncer]

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

    Add a command for clearing the REPL buffer
---
 inf-clojure.el | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/inf-clojure.el b/inf-clojure.el
index 87edee1..c749a59 100644
--- a/inf-clojure.el
+++ b/inf-clojure.el
@@ -68,6 +68,7 @@ mode.  Default is whitespace followed by 0 or 1 single-letter 
colon-keyword
     (define-key map "\C-c\C-a" 'inf-clojure-show-arglist)
     (define-key map "\C-c\C-v" 'inf-clojure-show-var-documentation)
     (define-key map "\C-c\C-s" 'inf-clojure-show-var-source)
+    (define-key map "\C-c\M-o" 'inf-clojure-clear-repl-buffer)
     (easy-menu-define inf-clojure-mode-menu map
       "Inferior Clojure REPL Menu"
       '("Inf-Clojure REPL"
@@ -77,7 +78,9 @@ mode.  Default is whitespace followed by 0 or 1 single-letter 
colon-keyword
         "--"
         ["Show arglist" inf-clojure-show-arglist t]
         ["Show documentation for var" inf-clojure-show-var-documentation t]
-        ["Show source for var" inf-clojure-show-var-source t]))
+        ["Show source for var" inf-clojure-show-var-source t]
+        "--"
+        ["Clear REPL" inf-clojure-clear-repl-buffer]))
     map))
 
 (defvar inf-clojure-minor-mode-map
@@ -281,6 +284,12 @@ Fallback to `default-directory.' if not within a project."
                            inf-clojure-project-root-files)))
       default-directory))
 
+(defun inf-clojure-clear-repl-buffer ()
+  "Clear the REPL buffer."
+  (interactive)
+  (let ((comint-buffer-maximum-size 0))
+    (comint-truncate-buffer)))
+
 ;;;###autoload
 (defun inf-clojure (cmd)
   "Run an inferior Clojure process, input and output via buffer 
`*inf-clojure*'.