changeset 32: |
02aa015bff73 |
parent: |
2015d7277629
|
author: |
ellis <ellis@rwest.io> |
date: |
Sun, 27 Aug 2023 21:19:19 -0400 |
permissions: |
-rw-r--r-- |
description: |
containerfile updates |
4 (defparameter demo-path (merge-pathnames "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 (clingon: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." 45 (clingon:run (cli-cmd)))