[nongnu] elpa/inf-clojure 591f7fc 050/313: [Fix #14] Add inf-clojure-eval-buffer

[ELPA Syncer]

branch: elpa/inf-clojure
commit 591f7fc6028d056155a18fa85bb610fef75f67e0
Author: Bozhidar Batsov <bozhidar@batsov.com>
Commit: Bozhidar Batsov <bozhidar@batsov.com>

    [Fix #14] Add inf-clojure-eval-buffer
---
 inf-clojure.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/inf-clojure.el b/inf-clojure.el
index f0451f8..9fbc2ee 100644
--- a/inf-clojure.el
+++ b/inf-clojure.el
@@ -90,6 +90,7 @@ mode.  Default is whitespace followed by 0 or 1 single-letter 
colon-keyword
     (define-key map "\C-x\C-e" #'inf-clojure-eval-last-sexp) ; Gnu convention
     (define-key map "\C-c\C-e" #'inf-clojure-eval-last-sexp)
     (define-key map "\C-c\C-c" #'inf-clojure-eval-defun)     ; SLIME/CIDER 
style
+    (define-key map "\C-c\C-b" #'inf-clojure-eval-buffer)
     (define-key map "\C-c\C-r" #'inf-clojure-eval-region)
     (define-key map "\C-c\C-n" #'inf-clojure-eval-form-and-next)
     (define-key map "\C-c\C-p" #'inf-clojure-eval-paragraph)
@@ -108,6 +109,7 @@ mode.  Default is whitespace followed by 0 or 1 
single-letter colon-keyword
         ["Eval top-level sexp at point" inf-clojure-eval-defun t]
         ["Eval last sexp" inf-clojure-eval-last-sexp t]
         ["Eval region" inf-clojure-eval-region t]
+        ["Eval buffer" inf-clojure-eval-buffer t]
         "--"
         ["Load file..." inf-clojure-load-file t]
         "--"
@@ -350,6 +352,17 @@ Prefix argument means switch to the Clojure buffer 
afterwards."
       (inf-clojure-eval-region (point) end)))
   (if and-go (inf-clojure-switch-to-repl t)))
 
+(defun inf-clojure-eval-buffer (&optional and-go)
+  "Send the current buffer to the inferior Clojure process.
+Prefix argument means switch to the Clojure buffer afterwards."
+  (interactive "P")
+  (save-excursion
+    (end-of-buffer)
+    (let ((end (point)) (case-fold-search t))
+      (beginning-of-buffer)
+      (inf-clojure-eval-region (point) end)))
+  (if and-go (inf-clojure-switch-to-repl t)))
+
 (defun inf-clojure-eval-last-sexp (&optional and-go)
   "Send the previous sexp to the inferior Clojure process.
 Prefix argument means switch to the Clojure buffer afterwards."