Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
48 lines (39 sloc) 1.45 KB
;; Copyright (C) 2006-2008 Martin Bishop, Ivy Foster
;;
;; This file is part of stumpwm.
;;
;; stumpwm 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 2, or (at your option)
;; any later version.
;; stumpwm 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 software; see the file COPYING. If not, see
;; <http://www.gnu.org/licenses/>.
;; Commentary:
;;
;; This file contains version information.
;;
;; Code:
(in-package :stumpwm)
(export '(*version* version))
(defparameter *version*
#.(concatenate
'string
(let* ((sys (asdf:find-system :stumpwm))
(git-dir (probe-path (asdf:system-relative-pathname sys ".git"))))
(if git-dir
(string-trim '(#\Newline)
(run-shell-command
(format nil "GIT_DIR=~a git describe" git-dir) t))
(asdf:component-version sys)))
" Compiled On "
(format-expand *time-format-string-alist*
*time-format-string-default*)))
(defcommand version () ()
"Print version information and compilation date."
(message *version*))
;; End of file
Something went wrong with that request. Please try again.