Implement `describe-group'

1 files changed, 13 insertions, 10 deletions

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]")