mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-09-20 23:18:00 +03:00
Isaac and I merged hall read/unread with latest collections.
This commit is contained in:
parent
aaea4c9695
commit
b387f70fdc
@ -421,6 +421,7 @@
|
||||
$permit (action-permit +.act)
|
||||
$delete (action-delete +.act)
|
||||
$usage (action-usage +.act)
|
||||
$read (action-read +.act)
|
||||
:: messaging
|
||||
$convey (action-convey +.act)
|
||||
$phrase (action-phrase +.act)
|
||||
@ -489,6 +490,7 @@
|
||||
:- typ
|
||||
?. ?=(?($village $journal) typ) ~
|
||||
[our.bol ~ ~]
|
||||
0
|
||||
==
|
||||
(ta-evil (crip "{(trip nom)}: already exists"))
|
||||
::
|
||||
@ -556,6 +558,15 @@
|
||||
(ta-evil (crip "no story {(trip nom)}"))
|
||||
so-done:(~(so-usage so nom ~ u.soy) add tas)
|
||||
::
|
||||
++ action-read
|
||||
:> set the read message number
|
||||
::
|
||||
|= {nom/name red/@ud}
|
||||
=+ soy=(~(get by stories) nom)
|
||||
?~ soy
|
||||
(ta-evil (crip "no story {(trip nom)}"))
|
||||
so-done:(~(so-read so nom ~ u.soy) red)
|
||||
::
|
||||
:> # %messaging
|
||||
+|
|
||||
++ action-convey
|
||||
@ -1178,6 +1189,7 @@
|
||||
[%filter fit.cof]
|
||||
[%secure sec.con.cof]
|
||||
[%permit & sis.con.cof]
|
||||
[%read red.cof]
|
||||
==
|
||||
=- (murn - same)
|
||||
^- (list (unit diff-config))
|
||||
@ -1258,6 +1270,13 @@
|
||||
?~ sas +>.$
|
||||
(so-delta-our %config so-cir %usage add sas)
|
||||
::
|
||||
++ so-read
|
||||
:> set the read message number in circle config
|
||||
|= {red/@ud}
|
||||
^+ +>
|
||||
?: =(red red.shape) +>
|
||||
(so-delta-our %config so-cir %read red)
|
||||
::
|
||||
++ so-filter
|
||||
:> change message rules
|
||||
:>
|
||||
|
@ -78,6 +78,7 @@
|
||||
{$banish name (set ship)} :< deny permission
|
||||
{$source name (map circle range)} :< add source
|
||||
{$unsource name (map circle range)} :< remove source
|
||||
{$read name @ud} :< set read count
|
||||
:: personal metadata ::
|
||||
{$attend audience (unit presence)} :< set our presence
|
||||
{$name audience human} :< set our name
|
||||
@ -161,10 +162,15 @@
|
||||
++ prep-config
|
||||
|= cof/config-0
|
||||
^- config
|
||||
%= cof
|
||||
src
|
||||
=. src.cof
|
||||
%- ~(gas in *(set source))
|
||||
(murn ~(tap in src.cof) prep-source)
|
||||
:* src.cof
|
||||
cap.cof
|
||||
tag.cof
|
||||
fit.cof
|
||||
con.cof
|
||||
0
|
||||
==
|
||||
::
|
||||
++ prep-source
|
||||
@ -827,6 +833,8 @@
|
||||
;~ pose
|
||||
::
|
||||
:: circle management
|
||||
::
|
||||
;~((glue ace) (perk %read ~) cire dem:ag)
|
||||
::
|
||||
;~((glue ace) (perk %join ~) sorz)
|
||||
::
|
||||
@ -1065,6 +1073,7 @@
|
||||
$banish (permit | +.job)
|
||||
$source (source & +.job)
|
||||
$unsource (source | +.job)
|
||||
$read (read +.job)
|
||||
:: personal metadata
|
||||
$attend (attend +.job)
|
||||
$name (set-name +.job)
|
||||
@ -1268,6 +1277,15 @@
|
||||
^+ ..sh-work
|
||||
(sh-act %source nom sub pos)
|
||||
::
|
||||
++ read
|
||||
:> %read
|
||||
:>
|
||||
:> set {red} for {nom}
|
||||
::
|
||||
|= {nom/name red/@ud}
|
||||
^+ ..sh-work
|
||||
(sh-act %read nom red)
|
||||
::
|
||||
:> #
|
||||
:> # %personal-metadata
|
||||
:> #
|
||||
@ -1911,6 +1929,9 @@
|
||||
::
|
||||
$caption
|
||||
"cap: {(trip cap.dif)}"
|
||||
::
|
||||
$read
|
||||
"red: {(scow %ud red.dif)}"
|
||||
::
|
||||
$filter
|
||||
;: weld
|
||||
|
@ -183,6 +183,7 @@
|
||||
$secure s+sec.a
|
||||
$permit (pairs add+b+add.a sis+(sa sis.a ship) ~)
|
||||
$remove b+&
|
||||
$read (numb red.a)
|
||||
==
|
||||
::
|
||||
++ disa ::> diff-status
|
||||
@ -233,6 +234,7 @@
|
||||
tag+(sa tag.a cord)
|
||||
fit+(filt fit.a)
|
||||
con+(cont con.a)
|
||||
red+(numb red.a)
|
||||
==
|
||||
::
|
||||
++ sorc ::> source
|
||||
@ -475,6 +477,7 @@
|
||||
tag+(as so)
|
||||
fit+filt
|
||||
con+cont
|
||||
red+ni
|
||||
==
|
||||
::
|
||||
::TODO maybe just an object?
|
||||
|
@ -145,6 +145,7 @@
|
||||
$caption cof(cap cap.dif)
|
||||
$filter cof(fit fit.dif)
|
||||
$remove cof
|
||||
$read cof(red red.dif)
|
||||
::
|
||||
$usage
|
||||
%= cof
|
||||
|
@ -22,6 +22,7 @@
|
||||
filter+(ot nom+so fit+filt ~)
|
||||
permit+(ot nom+so inv+bo sis+(as (su fed:ag)) ~)
|
||||
source+(ot nom+so sub+bo srs+(as sorc) ~)
|
||||
read+(ot nom+so red+ni ~)
|
||||
usage+(ot nom+so add+bo tas+(as so) ~)
|
||||
::
|
||||
convey+(ar thot)
|
||||
@ -54,6 +55,7 @@
|
||||
$filter ~[nom+s+nom.act fit+(filt fit.act)]
|
||||
$permit ~[nom+s+nom.act inv+b+inv.act sis+(sa sis.act ship)]
|
||||
$source ~[nom+s+nom.act sub+b+sub.act srs+(sa srs.act sorc)]
|
||||
$read ~[nom+s+nom.act red+(numb red.act)]
|
||||
$usage ~[nom+s+nom.act add+b+add.act tas+(sa tas.act cord:enjs)]
|
||||
::
|
||||
$phrase ~[aud+(audi aud.act) ses+a+(turn ses.act spec:enjs)]
|
||||
|
@ -117,6 +117,7 @@
|
||||
{$secure sec/security} :< changed security
|
||||
{$permit add/? sis/(set ship)} :< add/rem to b/w-list
|
||||
{$remove $~} :< removed config
|
||||
{$read red/@ud} :< changed read message
|
||||
== ::
|
||||
++ diff-status :> status change
|
||||
$% {$full sat/status} :< fully changed status
|
||||
@ -145,6 +146,7 @@
|
||||
{$filter nom/name fit/filter} :< change message rules
|
||||
{$permit nom/name inv/? sis/(set ship)} :< invite/banish
|
||||
{$source nom/name sub/? srs/(set source)} :< un/sub to/from src
|
||||
{$read nom/name red/@ud} :< change read message
|
||||
{$usage nom/name add/? tas/tags} :< add/rem usage tags
|
||||
:: messaging ::
|
||||
{$convey tos/(list thought)} :< post exact
|
||||
@ -186,6 +188,7 @@
|
||||
tag/tags :< usage tags
|
||||
fit/filter :< message rules
|
||||
con/control :< restrictions
|
||||
red/@ud :< last read message
|
||||
== ::
|
||||
++ source {cir/circle ran/range} :< subscription target
|
||||
++ filter :> content filters
|
||||
|
Loading…
Reference in New Issue
Block a user