prettier printing

This commit is contained in:
Anton Dyudin 2015-09-01 12:35:42 -07:00
parent e227a523fd
commit e7b7d918d5
3 changed files with 28 additions and 2 deletions

View File

@ -1679,7 +1679,7 @@
"[{(trip p.sep)}]: {(trip q.sep)}"
::
%tax
" {<sen>}: {<sep>}"
" {(rend-work-duty p.sep)}"
==
--
::

View File

@ -29,4 +29,29 @@
:+ (shaf %thot eny)
[[[%& our (main our)] [*envelope %pending]] ~ ~]
[now *bouquet [%app dap (crip ~(ram re i.mes))]]
++ rend-work-duty
=+ work-stuff
|^ |= due=duty ^- tape
?- -.due
%archive =+(due " -{(tr-id id)} {(trip -.due)}.")
%create =+(due " -{(tr-id id.tax)} {(trip -.due)}: {<title.tax>}")
%change =+(due " -{(tr-id id)} {(trip -.due)}: {(tr-meat meat)}")
%update
=+ due
" -{(tr-id id)} {(trip -.due)} {<version>} by {<her>}: {(tr-meat meat.due)}"
==
++ tr-id |=(a=@uv (scow %uv (rsh 2 25 a)))
++ tr-term |=(a=term (rash a (star ;~(pose (cold ' ' hep) next))))
++ tr-meat
|= feh=flesh ^- tape
?- -.feh
%set-done =+(feh ?:(don (tr-term -.feh) (tr-term %set-undone)))
%set-doer =+(feh "{(tr-term -.feh)} {?~(her "none" <u.her>)}")
%set-date-due =+(feh "{(tr-term -.feh)} {?~(wen "none" <u.wen>)}")
%set-tags =+(feh "{(tr-term -.feh)} {<tag>}")
%set-title =+(feh "{(tr-term -.feh)} {<til>}")
%set-description =+(feh "{(tr-term -.feh)} {<des>}")
%add-comment =+(feh "{(tr-term -.feh)} {<com>}")
==
--
--

View File

@ -3,6 +3,7 @@
::
/? 314
/- *talk
/+ talk
!:
|_ rep=report
::
@ -90,7 +91,7 @@
%lin (jobe txt/[%s q.a] say/[%b p.a] ~)
%url (joba txt/[%s (crip (earf p.a))])
%exp (joba txt/[%s p.a])
%tax (joba txt/(jape <p.a>))
%tax (joba txt/(jape (rend-work-duty p.a)))
%app (jobe txt/[%s q.a] src/[%s p.a] ~)
%fat (jobe tor/(tors p.a) taf/$(a q.a) ~)
:: %inv (jobe ship/(jope p.a) party/[%s q.a] ~)