From f466dfd26426088472000a3f56ac3482efb1881c Mon Sep 17 00:00:00 2001 From: "Jakob L. Kreuze" Date: Fri, 26 Apr 2019 13:44:22 -0400 Subject: Implement `describe-group' --- brisket.hy | 23 +++++++++++++---------- 1 file changed, 13 insertions(+), 10 deletions(-) (limited to 'brisket.hy') diff --git a/brisket.hy b/brisket.hy index f873029..7b95166 100644 --- a/brisket.hy +++ b/brisket.hy @@ -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]") -- cgit v1.3