X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?a=blobdiff_plain;f=src%2Fmain%2Fcli.lisp;h=ac58c121e0ed5e98f71c5cfbb3a93f14aae6f497;hb=refs%2Fheads%2Fdevelopment;hp=75ecd40b3af6b6c15eb5fe7527e1abd7d80b36f4;hpb=5c21748c18e32bb9fe17bb4c23329be02edc23a2;p=candle

diff --git a/src/main/cli.lisp b/src/main/cli.lisp
index 75ecd40..ac58c12 100644
--- a/src/main/cli.lisp
+++ b/src/main/cli.lisp
@@ -1,3 +1,4 @@
+; Copyright 2022 Frank Duncan (frank@consxy.com) under AGPL3.  See distributed LICENSE.txt.
 (in-package #:candle-cli)
 
 (defgeneric execute-command (command args))
@@ -271,8 +272,12 @@
  (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