landscape/desk/lib/groups-json.hoon

21 lines
358 B
Plaintext
Raw Normal View History

2023-07-13 20:46:25 +03:00
/- g=groups
|%
++ enjs
=, enjs:format
|%
++ flag
2023-07-13 20:46:25 +03:00
|= f=flag:g
(rap 3 (scot %p p.f) '/' q.f ~)
::
++ nest
2023-07-13 20:46:25 +03:00
|= n=nest:g
(rap 3 p.n '/' (flag q.n) ~)
--
++ dejs
=, dejs:format
|%
2023-07-13 20:46:25 +03:00
++ ship (se %p)
++ flag (su ;~((glue fas) ;~(pfix sig fed:ag) sym))
2023-09-23 01:06:25 +03:00
++ nest (su ;~((glue fas) sym ;~(pfix sig fed:ag) sym))
--
--