mirror of
https://github.com/tloncorp/landscape.git
synced 2024-12-18 06:11:37 +03:00
255 lines
4.4 KiB
Plaintext
255 lines
4.4 KiB
Plaintext
/- sur=hark-store
|
|
^?
|
|
=, sur
|
|
=< [. sur]
|
|
|%
|
|
|
|
++ enjs
|
|
=, enjs:format
|
|
|%
|
|
++ update
|
|
|= upd=^update
|
|
^- json
|
|
%+ frond -.upd
|
|
?+ -.upd a+~
|
|
%added (notification +.upd)
|
|
%add-note (add-note +.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)
|
|
%saw-place (saw-place +.upd)
|
|
%all-stats (all-stats +.upd)
|
|
%del-place (place +.upd)
|
|
::%read-note (index +.upd)
|
|
::%note-read (note-read +.upd)
|
|
%archived (archived +.upd)
|
|
==
|
|
::
|
|
++ add-note
|
|
|= [bi=^bin bo=^body]
|
|
%- pairs
|
|
:~ bin+(bin bi)
|
|
body+(body bo)
|
|
==
|
|
::
|
|
++ saw-place
|
|
|= [p=^place t=(unit ^time)]
|
|
%- pairs
|
|
:~ place+(place p)
|
|
time+?~(t ~ (time u.t))
|
|
==
|
|
::
|
|
++ archived
|
|
|= [t=^time l=^lid n=^notification]
|
|
%- pairs
|
|
:~ lid+(lid l)
|
|
time+s+(scot %ud t)
|
|
notification+(notification n)
|
|
==
|
|
::
|
|
++ 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+(time 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+(^time time)
|
|
link+s+(spat link)
|
|
==
|
|
::
|
|
++ binned-notification
|
|
|= [=^bin =^notification]
|
|
%- pairs
|
|
:~ bin+(^bin bin)
|
|
notification+(^notification notification)
|
|
==
|
|
++ lid
|
|
|= l=^lid
|
|
^- json
|
|
%+ frond -.l
|
|
?- -.l
|
|
?(%seen %unseen) ~
|
|
%archive s+(scot %ud time.l)
|
|
==
|
|
::
|
|
++ timebox
|
|
|= [li=^lid l=(list ^notification)]
|
|
^- json
|
|
%- pairs
|
|
:~ lid+(lid li)
|
|
notifications+a+(turn l 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
|
|
|%
|
|
++ ship (su ;~(pfix sig fed:ag))
|
|
:: TODO: fix +stab
|
|
::
|
|
++ pa
|
|
|= j=json
|
|
^- path
|
|
?> ?=(%s -.j)
|
|
?: =('/' p.j) /
|
|
(stab p.j)
|
|
::
|
|
++ 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)
|
|
::
|
|
++ lid
|
|
%- of
|
|
:~ archive+sd
|
|
unseen+ul
|
|
seen+ul
|
|
==
|
|
::
|
|
++ archive
|
|
%- ot
|
|
:~ lid+lid
|
|
bin+bin
|
|
==
|
|
++ content
|
|
%- of
|
|
:~ text+so
|
|
ship+ship
|
|
==
|
|
::
|
|
++ body
|
|
%- ot
|
|
:~ title+(ar content)
|
|
content+(ar content)
|
|
time+di
|
|
binned+pa
|
|
link+pa
|
|
==
|
|
::
|
|
++ add-note
|
|
%- ot
|
|
:~ bin+bin
|
|
body+body
|
|
==
|
|
::
|
|
++ action
|
|
^- $-(json ^action)
|
|
%- of
|
|
:~ archive-all+ul
|
|
archive+archive
|
|
opened+ul
|
|
read-count+place
|
|
read-each+read-each
|
|
read-note+bin
|
|
add-note+add-note
|
|
==
|
|
--
|
|
--
|