mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-19 12:51:51 +03:00
36 lines
725 B
Plaintext
36 lines
725 B
Plaintext
|
/- *story
|
||
|
|
|%
|
||
|
|
++ tako-to-text
|
||
|
|
|= [=tako:clay]
|
||
|
|
^- cord
|
||
|
|
"commit: {<`@uv`tako>}\0a"
|
||
|
|
++ proses-to-text
|
||
|
|
|= [proses=(set prose)]
|
||
|
|
^- cord
|
||
|
|
:: XX code cleanup: factor out duplicate code
|
||
|
|
=/ proses-list=(list prose) ~(tap in proses)
|
||
|
|
?: ?=(~ proses-list) ''
|
||
|
|
?: ?=([prose ~] proses-list)
|
||
|
|
=/ [title=@t body=@t] i.proses-list
|
||
|
|
%- crip
|
||
|
|
;: welp
|
||
|
|
"{(trip title)}"
|
||
|
|
"\0a\0a"
|
||
|
|
"{(trip body)}"
|
||
|
|
"\0a"
|
||
|
|
==
|
||
|
|
%- crip
|
||
|
|
%- tail
|
||
|
|
%^ spin ;;((list prose) proses-list) *tape :: WHY DO WE NEED ;;
|
||
|
|
|= [[title=@t body=@t] state=tape]
|
||
|
|
^- [prose tape]
|
||
|
|
:- [title body]
|
||
|
|
;: welp
|
||
|
|
state
|
||
|
|
"|||\0a"
|
||
|
|
"{(trip title)}"
|
||
|
|
"\0a\0a"
|
||
|
|
"{(trip body)}"
|
||
|
|
"\0a"
|
||
|
|
==
|
||
|
|
--
|