Clay task for retrieving the rules that apply to a group.

sys/vane/clay.hoon

@@ -3621,6 +3621,27 @@
   ::
       $crew
     [[hen %give %cruz cez.ruf]~ ..^$]
+  ::
+      $crow
+    =+  rom=(fall (~(get by fat.ruf) our.req) *room)
+    =+  des=~(tap by dos.rom)
+    =|  rus/(map desk {r/regs w/regs})
+    |^
+      ?~  des  [[hen %give %croz rus]~ ..^^$]
+      =+  per=(filter-rules per.q.i.des)
+      =+  pew=(filter-rules pew.q.i.des)
+      $(des t.des, rus (~(put by rus) p.i.des per pew))
+    ::
+    ++  filter-rules
+      |=  pes/regs
+      ^+  pes
+      =-  (~(gas in *regs) -)
+      %+  murn  ~(tap by pes)
+      |=  {p/path r/rule}
+      ^-  (unit (pair path rule))
+      ?.  (~(has in who.r) |+nom.req)  ~
+      `[p r]
+    --
   ::
       $drop
     =^  mos  ruf

sys/zuse.hoon

@@ -381,7 +381,8 @@
   ++  able  ^?
     |%
     ++  gift                                            ::  out result <-$
-      $%  {$cruz cez/(map @ta crew)}                    ::  permission groups
+      $%  {$croz rus/(map desk {r/regs w/regs})}        ::  rules for group
+          {$cruz cez/(map @ta crew)}                    ::  permission groups
           {$dirk p/@tas}                                ::  mark mount dirty
           {$ergo p/@tas q/mode}                         ::  version update
           {$hill p/(list @tas)}                         ::  mount points
@@ -399,6 +400,7 @@
       $%  {$boat $~}                                    ::  pier rebooted
           {$cred our/ship nom/@ta cew/crew}             ::  set permission group
           {$crew our/ship}                              ::  permission groups
+          {$crow our/ship nom/@ta}                      ::  group usage
           {$drop our/@p des/desk}                       ::  cancel pending merge
           {$info our/@p des/desk dit/nori}              ::  internal edit
           {$init our/@p}                                ::  report install