version.lisp

;; Copyright (C) 2006-2008 Martin Bishop, Ivy Foster
;;
;;  This file is part of paulownia.
;;
;; paulownia 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.

;; paulownia 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 :paulownia)

;; (export '(*version* version))

;; (defparameter *version*
;;   #.(concatenate
;;      'string
;;      (let* ((sys (asdf:find-system :paulownia))
;;             (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