--- a/lisp/_skeleton.lisp Thu Dec 20 23:55:17 2018 -0500
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,33 +0,0 @@
-(ql:quickload '(:adopt))
-
-;;;; Config -------------------------------------------------------------------
-(defparameter *default-name* "World")
-
-
-;;;; Functionality ------------------------------------------------------------
-(defun run (name)
- (format t "Hello, ~A~%" name))
-
-
-;;;; CLI ----------------------------------------------------------------------
-(adopt:define-interface *ui* "NAME"
- "Say Hello."
- ((help) "display help and exit"
- :long "help"
- :short #\h
- :reduce (constantly t))
- ((name) (format nil "say hello to NAME (default ~A)" *default-name*)
- :long "name"
- :short #\n
- :parameter "NAME"
- :initial-value *default-name*
- :reduce #'adopt:newest))
-
-(defun toplevel ()
- (multiple-value-bind (arguments options) (adopt:parse-options *ui*)
- (when (gethash 'help options)
- (adopt:print-usage *ui*)
- (adopt:exit 0))
- (unless (null arguments)
- (cerror "Ignore them" "Unrecognized command-line arguments: ~S" arguments))
- (run (gethash 'name options))))
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/example.lisp Fri Dec 21 15:24:34 2018 -0500
@@ -0,0 +1,41 @@
+(ql:quickload '(:adopt))
+
+;;;; Config -------------------------------------------------------------------
+(defparameter *default-name* "World")
+
+
+;;;; Functionality ------------------------------------------------------------
+(defun run (name)
+ (format t "Hello, ~A~%" name))
+
+
+;;;; CLI ----------------------------------------------------------------------
+(adopt:define-interface *ui*
+ (:name "example"
+ :usage "[-n NAME]"
+ :summary "Say Hello."
+ :documentation "An example program to show how to make well-behaved CLI tools in Common Lisp."
+ :examples '(("Say hello:" . "example")
+ ("Say hello to Alice:" . "example --name Alice")))
+ (help
+ :documentation "display help and exit"
+ :long "help"
+ :short #\h
+ :reduce (constantly t))
+ (name
+ :documentation (format nil "say hello to NAME (default ~A)" *default-name*)
+ :long "name"
+ :short #\n
+ :parameter "NAME"
+ :initial-value *default-name*
+ :reduce #'adopt:newest))
+
+(defun toplevel ()
+ (handler-case
+ (multiple-value-bind (arguments options) (adopt:parse-options *ui*)
+ (when (gethash 'help options)
+ (adopt:print-usage-and-exit *ui*))
+ (unless (null arguments)
+ (error "Unrecognized command-line arguments: ~S" arguments))
+ (run (gethash 'name options)))
+ (error (c) (adopt:print-error-and-exit c))))--- a/vim/custom-dictionary.utf-8.add Thu Dec 20 23:55:17 2018 -0500
+++ b/vim/custom-dictionary.utf-8.add Fri Dec 21 15:24:34 2018 -0500
@@ -269,3 +269,4 @@
dropdown
jQuery
deserializes
+healthchecks