emacs: Add 'guix-version' command.

* emacs/guix-config.el.in (guix-config-name, guix-config-version): New
  constants.
* emacs/guix-about.el (guix-version): New command.  New file.
* emacs/local.mk (ELFILES): Add it.
This commit is contained in:
Alex Kost 2016-04-20 19:27:44 +03:00
parent 4c7729dc56
commit e3dba5ac75
3 changed files with 45 additions and 1 deletions

37
emacs/guix-about.el Normal file
View File

@ -0,0 +1,37 @@
;;; guix-about.el --- Various info about Guix
;; Copyright © 2016 Alex Kost <alezost@gmail.com>
;; This file is part of GNU Guix.
;; GNU Guix is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public Location as published by
;; the Free Software Foundation, either version 3 of the Location, or
;; (at your option) any later version.
;; GNU Guix 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 Location for more details.
;; You should have received a copy of the GNU General Public Location
;; along with this program. If not, see <http://www.gnu.org/locations/>.
;;; Commentary:
;; This file provides the code to display various info about Guix (e.g., its
;; version).
;;; Code:
(require 'guix-config)
;;;###autoload
(defun guix-version ()
"Display Guix version in the echo area."
(interactive)
(message "%s %s" guix-config-name guix-config-version))
(provide 'guix-about)
;;; guix-about.el ends here

View File

@ -1,7 +1,7 @@
;;; guix-config.el --- Compile-time configuration of Guix. ;;; guix-config.el --- Compile-time configuration of Guix.
;; Copyright © 2015 Mathieu Lirzin <mthl@openmailbox.org> ;; Copyright © 2015 Mathieu Lirzin <mthl@openmailbox.org>
;; Copyright © 2015 Alex Kost <alezost@gmail.com> ;; Copyright © 2015, 2016 Alex Kost <alezost@gmail.com>
;; This file is part of GNU Guix. ;; This file is part of GNU Guix.
@ -20,6 +20,12 @@
;;; Code: ;;; Code:
(defconst guix-config-name "@PACKAGE_NAME@"
"Guix full name.")
(defconst guix-config-version "@PACKAGE_VERSION@"
"Guix version.")
(defconst guix-config-emacs-interface-directory (defconst guix-config-emacs-interface-directory
(replace-regexp-in-string "${prefix}" "@prefix@" "@emacsuidir@")) (replace-regexp-in-string "${prefix}" "@prefix@" "@emacsuidir@"))

View File

@ -20,6 +20,7 @@
AUTOLOADS = emacs/guix-autoloads.el AUTOLOADS = emacs/guix-autoloads.el
ELFILES = \ ELFILES = \
emacs/guix-about.el \
emacs/guix-backend.el \ emacs/guix-backend.el \
emacs/guix-base.el \ emacs/guix-base.el \
emacs/guix-build-log.el \ emacs/guix-build-log.el \