File: version.lisp

package info (click to toggle)
stumpwm 2:1.0.0-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster, sid
  • size: 1,216 kB
  • sloc: lisp: 13,721; makefile: 180; sh: 30
file content (47 lines) | stat: -rw-r--r-- 1,495 bytes parent folder | download | duplicates (2)
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
;; 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 --tags" 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