@uw to @uv

This commit is contained in:
Anton Dyudin 2015-08-19 12:44:33 -07:00
parent 9081b3a278
commit 7ff8dff444
4 changed files with 10 additions and 10 deletions

View File

@ -17,7 +17,7 @@
|* a=fist
%- cu :_ (ar a)
~(gas in *(set ,_(need *a)))
++ id (ci (slat %uw) so)
++ id (ci (slat %uv) so)
++ ship (su fed:ag)
++ coma (of new/task old/(ot id/id dif/uppd ~) sort/(ar id) ~)
++ task
@ -50,7 +50,7 @@
--
--
:: {new: {
:: id:'0waoF.6Df9U.2-gc3.dXDP1',
:: id:'0vaof.6df9u.2agc3.d0dp1',
:: date-created:1440011611215,
:: version:1,
:: date-modified:1440011611215,

View File

@ -47,7 +47,7 @@
++ grab
|% ++ txt
|= a=wain ^+ taz
=+ ~[id=%uw "_" date-created=%da " " version=%ud date-modified=%da]
=+ ~[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)))
@ -73,7 +73,7 @@
++ txt
=+ taz
=+ due=?~(due-date ~ ~[' ' da/u.due-date])
:- (rend uw/id '_' da/date-created ' ' ud/version da/date-modified due)
:- (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 ~)

View File

@ -1,4 +1,4 @@
0w0_~1999.1.1 2~1999.1.2 ~1999.5.20
0v0_~1999.1.1 2~1999.1.2 ~1999.5.20
Tagged!
Yoooo
~fyr.gave

View File

@ -1,15 +1,15 @@
/- talk
|%
++ client
$: tasks=(map ,@uwH client-task)
sort=(list ,@uwH)
$: tasks=(map ,@uvH client-task)
sort=(list ,@uvH)
==
++ client-task
$: task=task
audience=(set station:talk)
==
++ task
$: id=@uwH
$: id=@uvH
date-created=@da
version=@u
date-modified=@da
@ -29,8 +29,8 @@
++ status ?(%took %gave %left)
++ command
$% [%new task]
[%old id=@uwH dif=update]
[%sort p=(list ,@uwH)]
[%old id=@uvH dif=update]
[%sort p=(list ,@uvH)]
==
++ update
$% $: %set