ryuslash/clark
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Reorder functions, add docstring to clark

Browse source
This commit is contained in:
Tom Willemsen 2013-03-21 21:29:43 +01:00
parent 0e6e795681
commit f70b12c1c9
1 changed files with 16 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
clark.lisp
View file

@ -29,18 +29,6 @@ The result contains the url and the name of the bookmark."
(statement-column-value statement 1)) (statement-column-value statement 1))
finally (finalize-statement statement)))) finally (finalize-statement statement))))
(defun print-bookmark (bm)
"Print information about bookmark BM.
BM should be a list containing the url and name of the bookmark."
(destructuring-bind (url name) bm
(format t "~A~%~A~%~%" url name)))
(defun make-command-name (base)
"Turn BASE into the name of a possible command."
(intern (concatenate 'string (string-upcase base) "-COMMAND")
:org.ryuslash.clark))
(defun help-command (args) (defun help-command (args)
"Show a help message." "Show a help message."
(format t (concatenate (format t (concatenate
@ -52,11 +40,27 @@ BM should be a list containing the url and name of the bookmark."
"help Display this help and exit~%" "help Display this help and exit~%"
"version Output version information and exit~%"))) "version Output version information and exit~%")))
(defun make-command-name (base)
"Turn BASE into the name of a possible command."
(intern (concatenate 'string (string-upcase base) "-COMMAND")
:org.ryuslash.clark))
(defun print-bookmark (bm)
"Print information about bookmark BM.
BM should be a list containing the url and name of the bookmark."
(destructuring-bind (url name) bm
(format t "~A~%~A~%~%" url name)))
(defun version-command (args) (defun version-command (args)
"Display clark's version number." "Display clark's version number."
(format t "clark version ~A~%" *version*)) (format t "clark version ~A~%" *version*))
(defun clark (args) (defun clark (args)
"Main function.
Connect to the database, parse command-line arguments, execute and
then disconnect."
(check-db "test2.db") (check-db "test2.db")
(if (> (length args) 1) (if (> (length args) 1)
(let* ((cmd-name (make-command-name (cadr args)))) (let* ((cmd-name (make-command-name (cadr args))))