2019-11-19 01:41:08 +03:00
|
|
|
/- *identity
|
|
|
|
|
|%
|
2020-04-21 22:29:47 +03:00
|
|
|
+$ rolodex (map path contacts)
|
|
|
|
|
+$ contacts (map ship contact)
|
|
|
|
|
+$ avatar
|
2020-04-22 02:59:03 +03:00
|
|
|
$% [%octt content-type=@t octs=[p=@ud q=@t]]
|
2020-04-21 22:29:47 +03:00
|
|
|
[%url url=@t]
|
|
|
|
|
==
|
|
|
|
|
::
|
2019-11-19 01:41:08 +03:00
|
|
|
+$ contact
|
|
|
|
|
$: nickname=@t
|
|
|
|
|
email=@t
|
|
|
|
|
phone=@t
|
|
|
|
|
website=@t
|
|
|
|
|
notes=@t
|
|
|
|
|
color=@ux
|
|
|
|
|
avatar=(unit avatar)
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
+$ edit-field
|
|
|
|
|
$% [%nickname nickname=@t]
|
|
|
|
|
[%email email=@t]
|
|
|
|
|
[%phone phone=@t]
|
|
|
|
|
[%website website=@t]
|
|
|
|
|
[%notes notes=@t]
|
|
|
|
|
[%color color=@ux]
|
|
|
|
|
[%avatar avatar=(unit avatar)]
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
+$ contact-action
|
|
|
|
|
$% [%create =path]
|
|
|
|
|
[%delete =path]
|
|
|
|
|
[%add =path =ship =contact]
|
|
|
|
|
[%remove =path =ship]
|
|
|
|
|
[%edit =path =ship =edit-field]
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
+$ contact-update
|
2020-05-22 21:21:10 +03:00
|
|
|
$% [%initial =rolodex]
|
2019-11-19 01:41:08 +03:00
|
|
|
[%contacts =path =contacts]
|
|
|
|
|
contact-action
|
|
|
|
|
==
|
|
|
|
|
--
|
