diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-24 10:33:28 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-24 10:33:40 -0700 |
commit | 3eda6d0f63bb2b19182dfbacfaa9dd656286d740 (patch) | |
tree | 8ef50fa0e14c1909ce1b386926a325c609a4478a /src/combinator.lisp | |
parent | 33fdc2a3a738447e9cf6ac25b55e10308211506d (diff) | |
download | consfigurator-3eda6d0f63bb2b19182dfbacfaa9dd656286d740.tar.gz |
attempt to implement :AS connection type and AS combinator
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/combinator.lisp')
-rw-r--r-- | src/combinator.lisp | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/combinator.lisp b/src/combinator.lisp index c6e89e7..23c8575 100644 --- a/src/combinator.lisp +++ b/src/combinator.lisp @@ -130,3 +130,8 @@ ON-CHANGE in order." (dolist (propapp (reverse propapps)) (propappunapply propapp)))) :args (cdr propapp))) + +(defmacro as (user &body properties) + "Apply PROPERTIES as USER by reconnecting to the host with the :AS connection +type." + `(deploys-these. `((:as :to ,,user)) :parent ,@properties)) |