changeset 11: |
d8f806f1d327 |
parent: |
8f59e2f1b8c4
|
author: |
ellis <ellis@rwest.io> |
date: |
Sun, 14 May 2023 21:27:04 -0400 |
permissions: |
-rw-r--r-- |
description: |
obj updates |
4 (defparameter demo-path (merge-pathnames "cl-demo" (uiop:temporary-directory))) 6 (defvar db-path (merge-pathnames "db" demo-path)) 9 "Returns the top-level CLI options." 13 :description "demo app to run" 16 :initial-value "client" 17 :env-vars '("DEMO_APP") 21 :description "path to config" 24 :initial-value "$DEMO_PATH/.fig" 25 :env-vars '("DEMO_CONFIG")))) 27 (defun cli-handler (cmd) 28 "Handler for the `demo' command." 29 (let ((app (cli:getopt cmd :app))) 30 (format t "running: ~A!~%" app))) 36 :description "A collection of demos" 38 :authors '("ellis <ellis@rwest.io>") 41 :handler #'cli-handler)) 44 "A demo of some common-lisp functionality."