[nongnu] elpa/inf-clojure 421b265 095/313: Add a command to display the inf-clojure version

[ELPA Syncer]

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

    Add a command to display the inf-clojure version
---
 CHANGELOG.md   |  1 +
 inf-clojure.el | 12 +++++++++++-
 2 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index f7cc4f4..99009ea 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -5,6 +5,7 @@
 ### New Features
 
 * [#34](https://github.com/clojure-emacs/inf-clojure/pull/34): Add support for 
socket REPL connections.
+* New interactive command `inf-clojure-display-version`.
 
 ### Bugs Fixed
 
diff --git a/inf-clojure.el b/inf-clojure.el
index f253224..d5c927d 100644
--- a/inf-clojure.el
+++ b/inf-clojure.el
@@ -48,6 +48,9 @@
   "Run an external Clojure process (REPL) in an Emacs buffer."
   :group 'clojure)
 
+(defconst inf-clojure-version "1.5.0-snapshot"
+  "The current version of `inf-clojure'.")
+
 (defcustom inf-clojure-prompt-read-only t
   "If non-nil, the prompt will be read-only.
 
@@ -83,7 +86,9 @@ mode.  Default is whitespace followed by 0 or 1 single-letter 
colon-keyword
         ["Show documentation for var" inf-clojure-show-var-documentation t]
         ["Show source for var" inf-clojure-show-var-source t]
         "--"
-        ["Clear REPL" inf-clojure-clear-repl-buffer]))
+        ["Clear REPL" inf-clojure-clear-repl-buffer]
+        "--"
+        ["Version" inf-clojure-display-version]))
     map))
 
 (defvar inf-clojure-minor-mode-map
@@ -777,6 +782,11 @@ Return the number of nested sexp the point was over or 
after."
   (setq-local eldoc-documentation-function #'inf-clojure-eldoc)
   (apply #'eldoc-add-command inf-clojure-extra-eldoc-commands))
 
+(defun inf-clojure-display-version ()
+  "Display the current `inf-clojure' in the minibuffer."
+  (interactive)
+  (message "inf-clojure (version %s)" inf-clojure-version))
+
 (provide 'inf-clojure)
 
 ;;; inf-clojure.el ends here