1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
;;; nrepl-version.el --- Version information
;; Copyright © 2012-2013 Tim King, Phil Hagelberg
;; Copyright © 2013 Bozhidar Batsov, Hugo Duncan, Steve Purcell
;;
;; Author: Tim King <kingtim@gmail.com>
;; Phil Hagelberg <technomancy@gmail.com>
;; Bozhidar Batsov <bozhidar@batsov.com>
;; Hugo Duncan <hugo@hugoduncan.org>
;; Steve Purcell <steve@sanityinc.com>
;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;; This file is not part of GNU Emacs.
;;; Commentary:
;; Version information.
;;; Code:
(require 'pkg-info)
;;; Version information
(defun nrepl-library-version ()
"Get the version in the nrepl library header."
;; (-when-let (version (pkg-info-defining-library-version 'nrepl))
;; (pkg-info-format-version version)))
"0.3.0-snapshot")
(defun nrepl-package-version ()
"Get the package version of nrepl.
This is the version number of the installed nrepl package."
(-when-let (version (pkg-info-package-version 'nrepl))
(pkg-info-format-version version)))
(defun nrepl-version (&optional show-version)
"Get the nrepl version as string.
If called interactively or if SHOW-VERSION is non-nil, show the
version in the echo area and the messages buffer.
The returned string includes both, the version from package.el
and the library version, if both a present and different.
If the version number could not be determined, signal an error,
if called interactively, or if SHOW-VERSION is non-nil, otherwise
just return nil."
(interactive (list (not (or executing-kbd-macro noninteractive))))
(let* ((lib-version (nrepl-library-version))
(pkg-version (nrepl-package-version))
(version (cond
((and lib-version pkg-version
(not (string= lib-version pkg-version)))
(format "%s (package: %s)" lib-version pkg-version))
((or pkg-version lib-version)
(format "%s" (or pkg-version lib-version))))))
(when show-version
(unless version
(error "Could not find out nrepl version"))
(message "nrepl version: %s" version))
version))
(provide 'nrepl-version)
;;; nrepl-version.el ends here
|
