From a664f8f6e8409b3db3a9ee27199a9c0b7868fac8 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Thu, 21 Mar 2013 23:41:13 +0100 Subject: [PATCH] Separate help texts from help command --- clark.lisp | 17 +++++++++++++---- 1 file changed, 13 insertions(+), 4 deletions(-) diff --git a/clark.lisp b/clark.lisp index 072a6cc..0cae25d 100644 --- a/clark.lisp +++ b/clark.lisp @@ -5,6 +5,15 @@ (defvar *db* nil "The database connection.") +(defconstant *helps* + '(("add" "Add a bookmark to the database" + "add [ ...]") + ("help" "Display this help and exit" + "help") + ("version" "Output version information and exit" + "version")) + "Help texts for commands.") + (defconstant *version* "0.1.0" "Clark's version.") @@ -56,10 +65,10 @@ The result contains the url and the name of the bookmark." " clark add [ ...]~%" "~%" "Possible commands:~%" - "~%" - "add Add a bookmark to the database~%" - "help Display this help and exit~%" - "version Output version information and exit~%"))) + "~%")) + (map nil (lambda (hlp) + (destructuring-bind (name short long) hlp + (format t " ~7A ~A~%" name short))) *helps*)) (defun insert-bookmark (url name description) "Insert URL, NAME and DESCRIPTION into the bookmark table."