+; Copyright 2022 Frank Duncan (frank@consxy.com) under AGPL3. See distributed LICENSE.txt.
(in-package #:candle-cli)
(defgeneric execute-command (command args))
(let
((options
'((:name :help :short "h" :long "help" :description "Print this usage.")
- (:name :task :long "task" :variable-name "TASK" :takes-argument t :description "Run TASK"))))
+ (:name :task :long "task" :variable-name "TASK" :takes-argument t :description "Run TASK")
+ (:name :env :long "env" :variable-name "ENV" :takes-argument t
+ :description "Runs candle with *candle-environment* set to ENV as a keyword."))))
(standard-cli "candle run" options args :default nil
+ (when (opera:option-present :env parsed-options)
+ (setf candle:*environment* (intern (string-upcase (opera:option-argument :env parsed-options)) :keyword)))
(cond
((opera:option-present :task parsed-options)
(let