mirror of
https://github.com/urbit/shrub.git
synced 2024-12-23 10:52:12 +03:00
195 lines
3.6 KiB
Plaintext
195 lines
3.6 KiB
Plaintext
/- sur=hark-store
|
|
^?
|
|
=, sur
|
|
=< [. sur]
|
|
|%
|
|
|
|
++ enjs
|
|
=, enjs:format
|
|
|%
|
|
++ update
|
|
|= upd=^update
|
|
^- json
|
|
|^
|
|
%+ frond -.upd
|
|
?+ -.upd a+~
|
|
%added (notification +.upd)
|
|
%timebox (timebox +.upd)
|
|
%more (more +.upd)
|
|
%read-each (read-each +.upd)
|
|
%read-count (place +.upd)
|
|
%unread-each (read-each +.upd)
|
|
%unread-count (unread-count +.upd)
|
|
%seen-index (place +.upd)
|
|
%all-stats (all-stats +.upd)
|
|
::%read-note (index +.upd)
|
|
::%note-read (note-read +.upd)
|
|
:: %archive (notif-ref +.upd)
|
|
==
|
|
::
|
|
++ note-read
|
|
|= *
|
|
(pairs ~)
|
|
::
|
|
++ all-stats
|
|
|= places=(map ^place ^stats)
|
|
^- json
|
|
:- %a
|
|
^- (list json)
|
|
%+ turn ~(tap by places)
|
|
|= [p=^place s=^stats]
|
|
%- pairs
|
|
:~ stats+(stats s)
|
|
place+(place p)
|
|
|
|
==
|
|
::
|
|
++ stats
|
|
|= s=^stats
|
|
^- json
|
|
%- pairs
|
|
:~ each+a+(turn ~(tap in each.s) (cork spat (lead %s)))
|
|
last+(time last.s)
|
|
count+(numb count.s)
|
|
==
|
|
++ more
|
|
|= upds=(list ^update)
|
|
^- json
|
|
a+(turn upds update)
|
|
::
|
|
++ place
|
|
|= =^place
|
|
%- pairs
|
|
:~ desk+s+desk.place
|
|
path+s+(spat path.place)
|
|
==
|
|
::
|
|
++ bin
|
|
|= =^bin
|
|
%- pairs
|
|
:~ place+(place place.bin)
|
|
path+s+(spat path.bin)
|
|
==
|
|
++ notification
|
|
|= ^notification
|
|
^- json
|
|
%- pairs
|
|
:~ time+s+(scot %ud date)
|
|
bin+(^bin bin)
|
|
body+(bodies body)
|
|
==
|
|
++ bodies
|
|
|= bs=(list ^body)
|
|
^- json
|
|
a+(turn bs body)
|
|
::
|
|
++ contents
|
|
|= cs=(list ^content)
|
|
^- json
|
|
a+(turn cs content)
|
|
::
|
|
++ content
|
|
|= c=^content
|
|
^- json
|
|
%+ frond -.c
|
|
?- -.c
|
|
%ship s+(scot %p ship.c)
|
|
%text s+cord.c
|
|
==
|
|
::
|
|
++ body
|
|
|= ^body
|
|
^- json
|
|
%- pairs
|
|
:~ title+(contents title)
|
|
content+(contents content)
|
|
time+s+(scot %ud time)
|
|
link+s+(spat link)
|
|
==
|
|
::
|
|
++ binned-notification
|
|
|= [=^bin =^notification]
|
|
%- pairs
|
|
:~ bin+(^bin bin)
|
|
notification+(^notification notification)
|
|
==
|
|
::
|
|
++ timebox
|
|
|= [tim=(unit @da) l=(list [^bin ^notification])]
|
|
^- json
|
|
%- pairs
|
|
:~ time+`json`?~(tim ~ s+(scot %ud u.tim))
|
|
:- %notifications
|
|
^- json
|
|
:- %a
|
|
%+ turn l
|
|
|= [=^bin =^notification]
|
|
^- json
|
|
(binned-notification bin notification)
|
|
==
|
|
::
|
|
++ read-each
|
|
|= [p=^place pax=^path]
|
|
%- pairs
|
|
:~ place+(place p)
|
|
path+(path pax)
|
|
==
|
|
::
|
|
++ unread-count
|
|
|= [p=^place inc=? count=@ud]
|
|
%- pairs
|
|
:~ place+(place p)
|
|
inc+b+inc
|
|
count+(numb count)
|
|
==
|
|
--
|
|
--
|
|
++ dejs
|
|
=, dejs:format
|
|
|%
|
|
::
|
|
++ place
|
|
%- ot
|
|
:~ desk+so
|
|
path+pa
|
|
==
|
|
::
|
|
++ bin
|
|
%- ot
|
|
:~ path+pa
|
|
place+place
|
|
==
|
|
::
|
|
++ read-each
|
|
%- ot
|
|
:~ place+place
|
|
path+pa
|
|
==
|
|
::
|
|
:: parse date as @ud
|
|
:: TODO: move to zuse
|
|
++ sd
|
|
|= jon=json
|
|
^- @da
|
|
?> ?=(%s -.jon)
|
|
`@da`(rash p.jon dem:ag)
|
|
|
|
++ archive
|
|
%- ot
|
|
:~ time+(mu sd)
|
|
bin+bin
|
|
==
|
|
::
|
|
++ action
|
|
^- $-(json ^action)
|
|
%- of
|
|
:~ read-all+ul
|
|
archive-all+ul
|
|
seen+ul
|
|
read-count+place
|
|
read-each+read-each
|
|
read-note+bin
|
|
==
|
|
--
|
|
--
|