diff options
| -rw-r--r-- | brisket.hy | 23 |
1 files changed, 13 insertions, 10 deletions
@@ -80,6 +80,19 @@ usage: list-groups [pattern (optional)]" (if (or (is pattern None) (match pattern group.group)) (print group.group))))) +(defn describe-group [session &rest args] + "Describe the first group matching the pattern. + +usage: describe-groups [pattern]" + (when (< (len args) 1) + (err "usage: describe-group [group]") + (return)) + (let [group-name (first args) + description (.description session group-name)] + (if (= (len description) 0) + (err "ERROR: Group does not have a description.") + (print description)))) + (defn make-config [] "Create a default configuration file. @@ -176,16 +189,6 @@ The lookup order is: ;; # To-be-converted Python ;; -;; def describe_group(n, *args): -;; if len(args) < 1: -;; err("usage: describe-group [group]") -;; return -;; -;; _, descs = n.descriptions(args[0]) -;; -;; for desc in descs: -;; print(desc) -;; ;; def list_group(n, *args): ;; if len(args) < 1: ;; err("usage: list-group [group]") |