1
0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-22 22:31:30 +03:00
urbit/mar/work/command.hoon

100 lines
2.3 KiB
Plaintext
Raw Normal View History

2015-08-19 22:19:55 +03:00
::
:::: /hoon/command/work/mar
::
/- *work
!:
::::
::
|_ mad=command
++ grab
|% ++ noun command
++ json
=> [jo ..command]
=< (corl need (cu |=(a=command a) coma))
|%
++ as
:: |*(a=fist (cu sa (ar a))) :: XX types
|* a=fist
%- cu :_ (ar a)
~(gas in *(set ,_(need *a)))
2015-08-20 22:20:14 +03:00
++ ot
|* a=(pole ,[@tas fist])
|= b=json
%. ((^ot a) b)
%+ slog 0
?+ b ~
[%o *]
%+ murn `(list ,[@tas fist])`a
|= [c=term d=fist] ^- (unit tank)
=+ (~(get by p.b) c)
?~ - (some >[c (turn (~(tap by p.b)) head)]<)
=+ (d u)
?~ - (some >[c u]<)
~
==
++ of
|* a=(pole ,[@tas fist])
|= b=json
%. ((of:jo a) b)
%+ slog 0
?+ b ~
[%o *]
%+ murn `(list ,[@tas fist])`a
|= [c=term d=fist] ^- (unit tank)
=+ (~(get by p.b) c)
?~ - ~
=+ (d u)
?~ - (some >[c u]<)
~
==
2015-08-19 22:44:33 +03:00
++ id (ci (slat %uv) so)
2015-08-19 22:19:55 +03:00
++ ship (su fed:ag)
2015-08-21 01:57:13 +03:00
++ coma (of new/task old/(ot id/id version/ni dif/uppd ~) sort/(ar id) ~)
2015-08-19 22:19:55 +03:00
++ task
2015-08-20 22:20:14 +03:00
%- ot :~
2015-08-20 23:50:06 +03:00
audience/audi
2015-08-20 22:20:14 +03:00
id/id date-created/di
version/ni date-modified/di
owner/ship status/(ci (soft status) so)
tags/(as so) date-due/(mu di)
done/(mu di) title/so
description/so discussion/(ar (ot date/di ship/ship body/so ~))
==
2015-08-20 23:50:06 +03:00
++ audi (as stan)
++ stan (su ;~((glue fas) ;~(pfix sig fed:ag) urs:ab))
2015-08-19 22:19:55 +03:00
++ uppd
%- of :~
own/(of announce/ul claim/ul ~)
2015-08-20 04:37:09 +03:00
add/(of comment/so ~)
2015-08-19 22:19:55 +03:00
:- %set
%- of :~
2015-08-20 04:37:09 +03:00
date-due/(mu di)
2015-08-19 22:19:55 +03:00
title/so
description/so
tags/(as so)
2015-08-20 04:37:09 +03:00
done/bo
2015-08-20 22:20:14 +03:00
audience/audi
2015-08-19 22:19:55 +03:00
==
==
--
--
++ grow
|%
++ elem ;pre: {(zing `wall`(turn (wash 0^120 >mad<) |=(a=tape ['\0a' a])))}
--
--
:: {new: {
2015-08-19 22:44:33 +03:00
:: id:'0vaof.6df9u.2agc3.d0dp1',
2015-08-19 22:19:55 +03:00
:: date-created:1440011611215,
:: version:1,
:: date-modified:1440011611215,
:: owner:'fyr',
:: status:'gave',
:: tags:['tag'],
2015-08-20 04:37:09 +03:00
:: date-due:null,
2015-08-20 22:20:14 +03:00
:: done:false,
2015-08-19 22:19:55 +03:00
:: title:'Test task',
:: description:'The converter owrks right?',
:: discussion:[{date:1440011611215,ship:'sondel',body:'hi'}]
:: } }