mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-22 14:21:34 +03:00
119 lines
3.1 KiB
Plaintext
119 lines
3.1 KiB
Plaintext
::
|
|
:::: /hoon/task/work/mar
|
|
::
|
|
/- *work
|
|
!:
|
|
::::
|
|
::
|
|
|%
|
|
++ rend
|
|
|= a=(list $|(char dime)) ^- cord
|
|
%- crip
|
|
|- ^- tape
|
|
?~ a ~
|
|
?@ i.a [i.a $(a t.a)]
|
|
(weld (scow i.a) $(a t.a))
|
|
::
|
|
++ indent |=(a=wain (turn a |=(b=cord (cat 3 ' ' b))))
|
|
::
|
|
++ undent
|
|
|* [a=wain b=$+(wain *)] ^+ [*b a]
|
|
=^ c a
|
|
|- ^- [c=wain a=wain]
|
|
?~ a [~ a]
|
|
?. =(' ' (end 3 2 i.a))
|
|
[~ a]
|
|
[[- c] a]:[(rsh 3 2 i.a) $(a t.a)]
|
|
[(b `wain`c) a]
|
|
++ keen |*(_[a=,* b=rule] |=(c=nail `(like a)`(b c)))
|
|
++ parse
|
|
|* [hed=?(~ $|(@tas tape)) tal=(pole)]
|
|
?~ hed (..$ tal)
|
|
?^ hed ;~(pfix (just (crip hed)) (..$ tal))
|
|
=- ?~(tal had ;~(plug had (..$ tal)))
|
|
=< had=(sear . nuck:so)
|
|
|= a=coin ^- (unit (odo:raid hed))
|
|
?. &(?=([%$ @ @] a) =(hed p.p.a)) ~
|
|
(some q.p.a)
|
|
::
|
|
++ advance
|
|
|* [a=wain b=_rule] ^+ [(wonk *b) a]
|
|
?~(a !! ~|(i.a [(rash i.a b) t.a]))
|
|
--
|
|
!:
|
|
::::
|
|
::
|
|
|_ taz=task
|
|
++ grab
|
|
|% ++ txt
|
|
|= a=wain ^+ taz
|
|
=+ ~[id=%uv "_" date-created=%da " " version=%ud date-modified=%da]
|
|
=^ b a (advance a ;~(plug (parse -) (punt (parse " " %da ~))))
|
|
=+ [-.b `due-date=(unit ,@da)`+.b]
|
|
=^ tags a (undent a ~(gas in *(set cord)))
|
|
=^ title a ?~(a !! a)
|
|
=^ b a (advance a (parse owner=%p "." status=%tas ~))
|
|
?> ?=(status.task status.b)
|
|
=+ b
|
|
=^ description a (undent a role)
|
|
:* id date-created version date-modified
|
|
owner status tags due-date title description
|
|
|- ^- (list comment)
|
|
?: =(~ a) ~
|
|
=^ b a (advance a (parse ship=%p " " date=%da ~))
|
|
=+ b
|
|
=^ body a (undent a role)
|
|
[[date ship body] $]
|
|
==
|
|
--
|
|
++ grow
|
|
|%
|
|
++ elem ;pre: {(zing `wall`(turn (wash 0^120 >taz<) |=(a=tape ['\0a' a])))}
|
|
++ mime [/text/x-task (taco (role txt))]
|
|
++ txt
|
|
=+ taz
|
|
=+ due=?~(due-date ~ ~[' ' da/u.due-date])
|
|
:- (rend uv/id '_' da/date-created ' ' ud/version da/date-modified due)
|
|
%+ welp (indent (sort (~(tap in tags)) aor))
|
|
:- title
|
|
:- (rend p/owner '.' tas/status ~)
|
|
%- zing ^- (list wain)
|
|
:- (indent (lore description))
|
|
%+ turn discussion
|
|
|= comment ^- wain
|
|
[(rend p/ship ' ' da/date ~) (indent (lore body))]
|
|
++ json
|
|
=+ taz
|
|
%- jobe :~ id/(jape <id>)
|
|
tags/[%a (turn (~(tap in tags)) |=(a=cord s/a))]
|
|
owner/(jape <owner>)
|
|
status/(jape <status>)
|
|
title/[%s title]
|
|
version/(jape <version>)
|
|
date-created/(jode date-created)
|
|
date-modified/(jode date-modified)
|
|
description/[%s description]
|
|
=< discussion/[%a (turn discussion .)]
|
|
|=(comment (jobe date/(jode date) ship/(jape <ship>) body/[%s body] ~))
|
|
due-date/?~(due-date ~ (jode u.due-date))
|
|
==
|
|
--
|
|
++ grad %txt
|
|
--
|
|
:: {id}_{date-created} {version}{date-modified}{|(" {due-date}" ~)}
|
|
:: {tag1}
|
|
:: {tag2}
|
|
:: ...
|
|
:: {title}
|
|
:: {owner}.{status}
|
|
:: {description}
|
|
:: {more description}
|
|
:: {ship1} {date}
|
|
:: {comment}
|
|
:: {more comment}
|
|
:: {more comment}
|
|
:: {ship2} {date}
|
|
:: {comment}
|
|
:: {more comment}
|
|
:: {more comment}
|