diff options
author | Tom Willemsen | 2013-03-21 23:41:13 +0100 |
---|---|---|
committer | Tom Willemsen | 2013-03-21 23:42:54 +0100 |
commit | a664f8f6e8409b3db3a9ee27199a9c0b7868fac8 (patch) | |
tree | 3cdb82989dffdfc9d11151b5b4a5e5d0743ee21c /clark.lisp | |
parent | 99e7d7e303ffab779160f84ceb086aab9e5df065 (diff) | |
download | clark-a664f8f6e8409b3db3a9ee27199a9c0b7868fac8.tar.gz clark-a664f8f6e8409b3db3a9ee27199a9c0b7868fac8.zip |
Separate help texts from help command
Diffstat (limited to 'clark.lisp')
-rw-r--r-- | clark.lisp | 17 |
1 files changed, 13 insertions, 4 deletions
@@ -5,6 +5,15 @@ (defvar *db* nil "The database connection.") +(defconstant *helps* + '(("add" "Add a bookmark to the database" + "add <url> <name> <description> [<tags> ...]") + ("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 <url> <name> <description> [<tags> ...]~%" "~%" "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." |