diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-28 16:46:29 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-28 16:46:40 -0700 |
| commit | 12aa5bf3dcd2ee160036ef8d7f5302198f1a9371 (patch) | |
| tree | 7efeb81bead22052ecd2112c6c8dbc39430b90bb | |
| parent | fa10023cfccd73997cb217127ebf105d11d3eab4 (diff) | |
| download | consfigurator-12aa5bf3dcd2ee160036ef8d7f5302198f1a9371.tar.gz | |
add TODO regarding DEFHOSTDEPLOY
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
| -rw-r--r-- | src/deployment.lisp | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/deployment.lisp b/src/deployment.lisp index 3c6704e..a25e4f2 100644 --- a/src/deployment.lisp +++ b/src/deployment.lisp @@ -69,6 +69,9 @@ You can then eval (NAME) to execute this deployment." `(defun ,name () (deploy-these ,connection ,host ,@properties))) +;; TODO some useful combination of DEFHOST and DEFHOSTDEPLOY so that you don't +;; have to use two forms to specify the default connection type. Probably +;; want argument order to be similar to DEPLOY, DEPLOY-THESE etc. (defmacro defhostdeploy (connection host-name) "Where HOST-NAME names a host as defined with DEFHOST, define a function which does (deploy CONNECTION (symbol-value HOST)). |