>From 82c1e76c179ce730b80b60f0386ff83ce0c64c22 Mon Sep 17 00:00:00 2001 From: Ivy Foster Date: Tue, 28 Oct 2008 23:40:18 -0500 Subject: [PATCH] version.lisp{,.in} now uses defcommand --- version.lisp.in | 11 +++++------ 1 files changed, 5 insertions(+), 6 deletions(-) diff --git a/version.lisp.in b/version.lisp.in index 7333082..7dfe360 100644 --- a/version.lisp.in +++ b/version.lisp.in @@ -1,4 +1,4 @@ -;; Copyright (C) 2006 Martin Bishop +;; Copyright (C) 2006-2008 Martin Bishop, Ivy Foster ;; ;; This file is part of stumpwm. ;; @@ -25,15 +25,14 @@ (in-package :stumpwm) -(export '(*version*)) +(export '(*version* version)) (defparameter *version* #.(concatenate 'string "@PACKAGE_VERSION@ Compiled On " (format-expand *time-format-string-alist* *time-format-string-default*))) -(defun echo-version (screen) - (echo-string screen *version*)) +(defcommand version () () + (message *version*)) -(define-stumpwm-command "version" () - (echo-version (current-screen))) +;; End of file -- 1.6.0.3