mirror of
https://github.com/urbit/shrub.git
synced 2024-12-21 01:41:37 +03:00
44 lines
698 B
Plaintext
44 lines
698 B
Plaintext
/+ *mip
|
|
|%
|
|
::
|
|
++ settings-0
|
|
=< settings
|
|
|%
|
|
+$ settings (map key bucket)
|
|
+$ bucket (map key val)
|
|
+$ val
|
|
$% [%s p=@t]
|
|
[%b p=?]
|
|
[%n p=@]
|
|
==
|
|
--
|
|
::
|
|
++ settings-1
|
|
=< settings
|
|
|%
|
|
+$ settings (map key bucket)
|
|
--
|
|
+$ bucket (map key val)
|
|
+$ key term
|
|
+$ val
|
|
$~ [%n 0]
|
|
$% [%s p=@t]
|
|
[%b p=?]
|
|
[%n p=@]
|
|
[%a p=(list val)]
|
|
==
|
|
::
|
|
+$ settings (mip desk key bucket)
|
|
+$ event
|
|
$% [%put-bucket =desk =key =bucket]
|
|
[%del-bucket =desk =key]
|
|
[%put-entry =desk buc=key =key =val]
|
|
[%del-entry =desk buc=key =key]
|
|
==
|
|
+$ data
|
|
$% [%all =settings]
|
|
[%bucket =bucket]
|
|
[%entry =val]
|
|
==
|
|
--
|