branch: elpa/inf-clojure
commit 421b265f74a626c5476b56219d5d0eed8cfea68a
Author: Bozhidar Batsov <bozhi...@batsov.com>
Commit: Bozhidar Batsov <bozhi...@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
