mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-29 18:06:43 +03:00
changed name of app to be consistent
This commit is contained in:
Isaac Visintainer
parent
cfebabe7c7
commit
a60d8cdbfc
@ -1,3 +1,3 @@
|
||||
version https://git-lfs.github.com/spec/v1
|
||||
oid sha256:ff940a247fd3165fe55bd51f67762e857d63bb06220672599cc9e76ccf9f9e8e
|
||||
size 5846934
|
||||
oid sha256:f643e9f47f00558c8b900bc3d37ed9e5b2c38afae31e80cb106fb32042d8bcbb
|
||||
size 5976443
|
||||
|
||||
@ -1,3 +1,3 @@
|
||||
version https://git-lfs.github.com/spec/v1
|
||||
oid sha256:980cc9a756e49e6ba600ebfef91d09735eae1239da265cbc78fb6f783eab0f4c
|
||||
size 8481672
|
||||
oid sha256:cb9b9c4c37608ba908e1890928cfa8b4f7b9d5d236accf6af7eac6288950db74
|
||||
size 8632073
|
||||
|
||||
@ -1,37 +1,37 @@
|
||||
::
|
||||
:: /app/write.hoon
|
||||
:: /app/publish.hoon
|
||||
::
|
||||
/- hall, *write
|
||||
/+ *server, *write
|
||||
/- hall, *publish
|
||||
/+ *server, *publish
|
||||
::
|
||||
/= index
|
||||
/^ $-(json manx)
|
||||
/: /===/app/write/index /!noun/
|
||||
/: /===/app/publish/index /!noun/
|
||||
::
|
||||
/= js
|
||||
/^ octs
|
||||
/; as-octs:mimes:html
|
||||
/| /: /===/app/write/js/index /js/
|
||||
/| /: /===/app/publish/js/index /js/
|
||||
/~ ~
|
||||
==
|
||||
::
|
||||
/= css
|
||||
/^ octs
|
||||
/; as-octs:mimes:html
|
||||
/| /: /===/app/write/css/index /css/
|
||||
/| /: /===/app/publish/css/index /css/
|
||||
/~ ~
|
||||
==
|
||||
::
|
||||
/= tile-js
|
||||
/^ octs
|
||||
/; as-octs:mimes:html
|
||||
/| /: /===/app/write/js/tile /js/
|
||||
/| /: /===/app/publish/js/tile /js/
|
||||
/~ ~
|
||||
==
|
||||
::
|
||||
/= images
|
||||
/^ (map knot @)
|
||||
/: /===/app/write/img /_ /png/
|
||||
/: /===/app/publish/img /_ /png/
|
||||
::
|
||||
|%
|
||||
::
|
||||
@ -54,16 +54,16 @@
|
||||
::
|
||||
+$ poke
|
||||
$% [%hall-action action:hall]
|
||||
[%write-action action]
|
||||
[%publish-action action]
|
||||
[%launch-action @tas path @t]
|
||||
==
|
||||
::
|
||||
+$ diff
|
||||
$% [%hall-rumor rumor:hall]
|
||||
[%json json]
|
||||
[%write-collection collection]
|
||||
[%write-rumor rumor]
|
||||
[%write-update update]
|
||||
[%publish-collection collection]
|
||||
[%publish-rumor rumor]
|
||||
[%publish-update update]
|
||||
==
|
||||
::
|
||||
--
|
||||
@ -86,9 +86,9 @@
|
||||
^- (quip move _this)
|
||||
?~ old
|
||||
:_ this
|
||||
:~ [ost.bol %connect / [~ /'~publish'] %write]
|
||||
:~ [ost.bol %connect / [~ /'~publish'] %publish]
|
||||
:* ost.bol %poke /publish [our.bol %launch]
|
||||
%launch-action %write /publishtile '/~publish/tile.js'
|
||||
%launch-action %publish /publishtile '/~publish/tile.js'
|
||||
==
|
||||
==
|
||||
?- -.u.old
|
||||
@ -106,7 +106,7 @@
|
||||
++ get-contributors
|
||||
|= coll=@tas
|
||||
^- [mod=?(%white %black) who=(set @p)]
|
||||
=/ pax (weld our-beak /web/write/[coll])
|
||||
=/ pax (weld our-beak /web/publish/[coll])
|
||||
=/ pem=[r=dict:clay w=dict:clay] .^([dict:clay dict:clay] %cp pax)
|
||||
:- mod.rul.w.pem
|
||||
(resolve-real rul.w.pem)
|
||||
@ -348,7 +348,7 @@
|
||||
[~ da-this]
|
||||
=. subs.sat (~(del by subs.sat) who.del col.del)
|
||||
:- ~(tap in ~(key by pos.u.old))
|
||||
(da-emit [ost.bol %pull /collection/[col.del] [who.del %write] ~])
|
||||
(da-emit [ost.bol %pull /collection/[col.del] [who.del %publish] ~])
|
||||
:: iterate through post ids collected before, removing each from
|
||||
:: secondary indices in state
|
||||
::
|
||||
@ -539,7 +539,7 @@
|
||||
=/ rum=(unit rumor) (feel p del)
|
||||
?~ rum
|
||||
~
|
||||
[b %diff %write-rumor u.rum]~
|
||||
[b %diff %publish-rumor u.rum]~
|
||||
:: +feel: delta to rumor
|
||||
::
|
||||
++ feel
|
||||
@ -608,7 +608,7 @@
|
||||
?: ?=([%error *] build-result.mad)
|
||||
[%.n message.build-result.mad]
|
||||
?> ?=(%bake +<.build-result.mad)
|
||||
?> ?=(%write-info p.cage.build-result.mad)
|
||||
?> ?=(%publish-info p.cage.build-result.mad)
|
||||
[%.y (collection-info q.q.cage.build-result.mad)]
|
||||
::
|
||||
?~ awa
|
||||
@ -676,7 +676,7 @@
|
||||
?: ?=([%error *] build-result.mad)
|
||||
[%.n message.build-result.mad]
|
||||
?> ?=(%bake +<.build-result.mad)
|
||||
?> ?=(%write-post p.cage.build-result.mad)
|
||||
?> ?=(%publish-post p.cage.build-result.mad)
|
||||
[%.y (,[post-info manx @t] q.q.cage.build-result.mad)]
|
||||
::
|
||||
?~ awa
|
||||
@ -744,7 +744,7 @@
|
||||
?: ?=([%error *] build-result.mad)
|
||||
[%.n message.build-result.mad]
|
||||
?> ?=(%bake +<.build-result.mad)
|
||||
?> ?=(%write-comments p.cage.build-result.mad)
|
||||
?> ?=(%publish-comments p.cage.build-result.mad)
|
||||
[%.y (,(list [comment-info @t]) q.q.cage.build-result.mad)]
|
||||
::
|
||||
?~ awa
|
||||
@ -829,8 +829,8 @@
|
||||
^- (list move)
|
||||
=/ files=(list path)
|
||||
?~ post
|
||||
.^((list path) %ct (weld our-beak /web/write/[coll]))
|
||||
.^((list path) %ct (weld our-beak /web/write/[coll]/[u.post]))
|
||||
.^((list path) %ct (weld our-beak /web/publish/[coll]))
|
||||
.^((list path) %ct (weld our-beak /web/publish/[coll]/[u.post]))
|
||||
%+ turn files
|
||||
|= pax=path
|
||||
^- move
|
||||
@ -844,7 +844,7 @@
|
||||
%- (slog u.err)
|
||||
[~ this]
|
||||
::
|
||||
++ poke-write-action
|
||||
++ poke-publish-action
|
||||
|= act=action
|
||||
^- (quip move _this)
|
||||
?- -.act
|
||||
@ -866,27 +866,27 @@
|
||||
now.bol
|
||||
now.bol
|
||||
==
|
||||
=/ pax=path /web/write/[name.act]/write-info
|
||||
=/ pax=path /web/publish/[name.act]/publish-info
|
||||
=/ blog-perms=card
|
||||
:* %perm /perms q.byk.bol
|
||||
/web/write/[name.act]
|
||||
/web/publish/[name.act]
|
||||
%rw `read.perm.act `write.perm.act
|
||||
==
|
||||
=/ info-perms=card
|
||||
:* %perm /perms q.byk.bol
|
||||
/web/write/[name.act]/write-info
|
||||
/web/publish/[name.act]/publish-info
|
||||
%rw `*rule:clay `*rule:clay
|
||||
==
|
||||
::
|
||||
=/ wir=wire /collection/[name.act]
|
||||
=/ schema=schematic:ford
|
||||
:* %bake
|
||||
%write-info
|
||||
%publish-info
|
||||
*coin
|
||||
[[our.bol q.byk.bol] /[name.act]/write/web]
|
||||
[[our.bol q.byk.bol] /[name.act]/publish/web]
|
||||
==
|
||||
:_ this
|
||||
:~ (write-file pax %write-info !>(conf))
|
||||
:~ (write-file pax %publish-info !>(conf))
|
||||
[ost.bol blog-perms]
|
||||
[ost.bol info-perms]
|
||||
[ost.bol %build wir %.y schema]
|
||||
@ -895,8 +895,8 @@
|
||||
%new-post
|
||||
?. =(who.act our.bol)
|
||||
:_ this
|
||||
[ost.bol %poke /forward [who.act %write] %write-action act]~
|
||||
=/ pax=path /web/write/[coll.act]/[name.act]/udon
|
||||
[ost.bol %poke /forward [who.act %publish] %publish-action act]~
|
||||
=/ pax=path /web/publish/[coll.act]/[name.act]/udon
|
||||
?. (allowed src.bol %write pax)
|
||||
[~ this]
|
||||
=/ col=(unit collection) (~(get by pubs.sat) coll.act)
|
||||
@ -921,27 +921,27 @@
|
||||
=/ post-wir=wire /post/[coll.act]/[name.act]
|
||||
=/ post-schema=schematic:ford
|
||||
:* %bake
|
||||
%write-post
|
||||
%publish-post
|
||||
*coin
|
||||
[[our.bol q.byk.bol] /[name.act]/[coll.act]/write/web]
|
||||
[[our.bol q.byk.bol] /[name.act]/[coll.act]/publish/web]
|
||||
==
|
||||
::
|
||||
=/ comments-wir=wire /comments/[coll.act]/[name.act]
|
||||
=/ comments-schema=schematic:ford
|
||||
:* %bake
|
||||
%write-comments
|
||||
%publish-comments
|
||||
*coin
|
||||
[[our.bol q.byk.bol] /[name.act]/[coll.act]/write/web]
|
||||
[[our.bol q.byk.bol] /[name.act]/[coll.act]/publish/web]
|
||||
==
|
||||
::
|
||||
=/ post-perms=card
|
||||
:* %perm /perms q.byk.bol
|
||||
/web/write/[coll.act]/[name.act]/udon
|
||||
/web/publish/[coll.act]/[name.act]/udon
|
||||
%w `[%white (ships-to-whom (sy src.bol ~))]
|
||||
==
|
||||
=/ comment-perms=card
|
||||
:* %perm /perms q.byk.bol
|
||||
/web/write/[coll.act]/[name.act]
|
||||
/web/publish/[coll.act]/[name.act]
|
||||
%w `[%black ~]
|
||||
==
|
||||
:_ this
|
||||
@ -955,8 +955,8 @@
|
||||
%new-comment
|
||||
?. =(who.act our.bol)
|
||||
:_ this
|
||||
[ost.bol %poke /forward [who.act %write] %write-action act]~
|
||||
=/ pax=path /web/write/[coll.act]/[post.act]/(scot %da now.bol)/write-comment
|
||||
[ost.bol %poke /forward [who.act %publish] %publish-action act]~
|
||||
=/ pax=path /web/publish/[coll.act]/[post.act]/(scot %da now.bol)/publish-comment
|
||||
?. (allowed src.bol %write pax)
|
||||
[~ this]
|
||||
=/ col=(unit collection) (~(get by pubs.sat) coll.act)
|
||||
@ -974,7 +974,7 @@
|
||||
==
|
||||
::
|
||||
:_ this
|
||||
:~ (write-file pax %write-comment !>(com))
|
||||
:~ (write-file pax %publish-comment !>(com))
|
||||
[ost.bol comment-perms]
|
||||
==
|
||||
::
|
||||
@ -1017,7 +1017,7 @@
|
||||
?. =(src.bol our.bol)
|
||||
[~ this]
|
||||
:_ this
|
||||
[(delete-file /web/write/[coll.act]/[post.act]/[comment.act]/udon)]~
|
||||
[(delete-file /web/publish/[coll.act]/[post.act]/[comment.act]/udon)]~
|
||||
::
|
||||
%edit-collection
|
||||
?. =(src.bol our.bol)
|
||||
@ -1027,9 +1027,9 @@
|
||||
%edit-post
|
||||
?. =(who.act our.bol)
|
||||
:_ this
|
||||
[ost.bol %poke /forward [who.act %write] %write-action act]~
|
||||
[ost.bol %poke /forward [who.act %publish] %publish-action act]~
|
||||
::
|
||||
=/ pax=path /web/write/[coll.act]/[name.act]/udon
|
||||
=/ pax=path /web/publish/[coll.act]/[name.act]/udon
|
||||
?. (allowed src.bol %write pax)
|
||||
[~ this]
|
||||
=/ col=(unit collection) (~(get by pubs.sat) coll.act)
|
||||
@ -1074,14 +1074,14 @@
|
||||
%+ turn who.act
|
||||
|= who=@p
|
||||
^- move
|
||||
[ost.bol %poke /forward [who %write] %write-action new-act]
|
||||
[ost.bol %poke /forward [who %publish] %publish-action new-act]
|
||||
=. invites.sat (~(put by invites.sat) [src.bol coll.act] title.act)
|
||||
:_ this
|
||||
%+ welp make-tile-moves
|
||||
::
|
||||
%+ turn (prey:pubsub:userlib /primary bol)
|
||||
|= [b=bone *]
|
||||
[b %diff %write-update %invite %.y src.bol coll.act title.act]
|
||||
[b %diff %publish-update %invite %.y src.bol coll.act title.act]
|
||||
::
|
||||
:: %reject-invite: remove invite from list, acceptance is handled by
|
||||
:: %subscribe action
|
||||
@ -1097,7 +1097,7 @@
|
||||
%+ turn (prey:pubsub:userlib /primary bol)
|
||||
|= [b=bone *]
|
||||
^- move
|
||||
[b %diff %write-update %invite %.n who.act coll.act u.title]
|
||||
[b %diff %publish-update %invite %.n who.act coll.act u.title]
|
||||
::
|
||||
:: %serve:
|
||||
::
|
||||
@ -1106,44 +1106,44 @@
|
||||
?: (~(has by pubs.sat) coll.act)
|
||||
[~ this]
|
||||
=/ files=(list path)
|
||||
.^((list path) %ct (weld our-beak /web/write/[coll.act]))
|
||||
.^((list path) %ct (weld our-beak /web/publish/[coll.act]))
|
||||
=/ all=[moves=(list move) builds=(set wire)]
|
||||
%+ roll files
|
||||
|= [pax=path out=[moves=(list move) builds=(set wire)]]
|
||||
?+ pax
|
||||
out
|
||||
::
|
||||
[%web %write @tas %write-info ~]
|
||||
[%web %publish @tas %publish-info ~]
|
||||
?> =(coll.act i.t.t.pax)
|
||||
=/ wir=wire /collection/[coll.act]
|
||||
=/ schema=schematic:ford
|
||||
:* %bake
|
||||
%write-info
|
||||
%publish-info
|
||||
*coin
|
||||
[[our.bol q.byk.bol] /[coll.act]/write/web]
|
||||
[[our.bol q.byk.bol] /[coll.act]/publish/web]
|
||||
==
|
||||
%= out
|
||||
moves [[ost.bol %build wir %.y schema] moves.out]
|
||||
builds (~(put in builds.out) wir)
|
||||
==
|
||||
::
|
||||
[%web %write @tas @tas %udon ~]
|
||||
[%web %publish @tas @tas %udon ~]
|
||||
?> =(coll.act i.t.t.pax)
|
||||
=/ post i.t.t.t.pax
|
||||
=/ post-wir=wire /post/[coll.act]/[post]
|
||||
=/ post-schema=schematic:ford
|
||||
:* %bake
|
||||
%write-post
|
||||
%publish-post
|
||||
*coin
|
||||
[[our.bol q.byk.bol] /[post]/[coll.act]/write/web]
|
||||
[[our.bol q.byk.bol] /[post]/[coll.act]/publish/web]
|
||||
==
|
||||
::
|
||||
=/ comments-wir=wire /comments/[coll.act]/[post]
|
||||
=/ comments-schema=schematic:ford
|
||||
:* %bake
|
||||
%write-comments
|
||||
%publish-comments
|
||||
*coin
|
||||
[[our.bol q.byk.bol] /[post]/[coll.act]/write/web]
|
||||
[[our.bol q.byk.bol] /[post]/[coll.act]/publish/web]
|
||||
==
|
||||
%= out
|
||||
moves
|
||||
@ -1192,12 +1192,12 @@
|
||||
:_ this(outgoing.sat (~(put by outgoing.sat) wir ost.bol))
|
||||
;: welp
|
||||
make-tile-moves
|
||||
[ost.bol %peer wir [who.act %write] wir]~
|
||||
[ost.bol %peer wir [who.act %publish] wir]~
|
||||
?~ title ~
|
||||
%+ turn (prey:pubsub:userlib /primary bol)
|
||||
|= [b=bone *]
|
||||
^- move
|
||||
[b %diff %write-update %invite %.n who.act coll.act u.title]
|
||||
[b %diff %publish-update %invite %.n who.act coll.act u.title]
|
||||
==
|
||||
::
|
||||
:: %unsubscribe: unsub from a foreign blog, delete all state related to it
|
||||
@ -1227,12 +1227,12 @@
|
||||
latest.sat new-latest
|
||||
outgoing.sat (~(del by outgoing.sat) wir)
|
||||
==
|
||||
:- [u.bon %pull wir [who.act %write] ~]
|
||||
:- [u.bon %pull wir [who.act %publish] ~]
|
||||
%+ welp make-tile-moves
|
||||
%+ turn (prey:pubsub:userlib /primary bol)
|
||||
|= [b=bone *]
|
||||
^- move
|
||||
[b %diff %write-rumor %remove who.act coll.act ~]
|
||||
[b %diff %publish-rumor %remove who.act coll.act ~]
|
||||
::
|
||||
:: %read: notify that we've seen a post
|
||||
::
|
||||
@ -1393,7 +1393,7 @@
|
||||
?. ?=([@tas ~] wir)
|
||||
[~ this]
|
||||
=/ coll=@tas i.wir
|
||||
=/ pax /web/write/[coll]
|
||||
=/ pax /web/publish/[coll]
|
||||
?. (allowed src.bol %read pax)
|
||||
:_ this
|
||||
[ost.bol %quit ~]~
|
||||
@ -1407,9 +1407,9 @@
|
||||
=/ rum=rumor
|
||||
[%total our.bol coll new]
|
||||
:_ this(pubs.sat (~(put by pubs.sat) coll new))
|
||||
[ost.bol %diff %write-rumor rum]~
|
||||
[ost.bol %diff %publish-rumor rum]~
|
||||
::
|
||||
++ diff-write-rumor
|
||||
++ diff-publish-rumor
|
||||
|= [wir=wire rum=rumor]
|
||||
^- (quip move _this)
|
||||
(bake rum)
|
||||
|
Before Width: | Height: | Size: 245 B After Width: | Height: | Size: 245 B |
|
Before Width: | Height: | Size: 1.1 KiB After Width: | Height: | Size: 1.1 KiB |
@ -3,7 +3,7 @@
|
||||
;html
|
||||
::
|
||||
;head
|
||||
;title: Write
|
||||
;title: Publish
|
||||
;meta(charset "utf-8");
|
||||
;meta
|
||||
=name "viewport"
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@ -94,7 +94,7 @@
|
||||
[%home %modulo]
|
||||
[%home %launch]
|
||||
[%home %chat]
|
||||
[%home %write]
|
||||
[%home %publish]
|
||||
[%home %timer]
|
||||
[%home %clock]
|
||||
[%home %weather]
|
||||
|
||||
@ -1,4 +1,4 @@
|
||||
/- *write
|
||||
/- *publish
|
||||
/+ elem-to-react-json
|
||||
|%
|
||||
::
|
||||
@ -1,11 +1,11 @@
|
||||
::
|
||||
:::: /hoon/action/write/mar
|
||||
:::: /hoon/action/publish/mar
|
||||
::
|
||||
/? 309
|
||||
/- write
|
||||
/- publish
|
||||
=, format
|
||||
::
|
||||
|_ act=action:write
|
||||
|_ act=action:publish
|
||||
::
|
||||
++ grow
|
||||
|%
|
||||
@ -14,10 +14,10 @@
|
||||
::
|
||||
++ grab
|
||||
|%
|
||||
++ noun action:write
|
||||
++ noun action:publish
|
||||
++ json
|
||||
|= jon=^json
|
||||
%- action:write
|
||||
%- action:publish
|
||||
=< (action jon)
|
||||
|%
|
||||
++ action
|
||||
@ -1,12 +1,12 @@
|
||||
/- write
|
||||
/- publish
|
||||
!:
|
||||
|_ com=comment:write
|
||||
|_ com=comment:publish
|
||||
::
|
||||
::
|
||||
++ grow
|
||||
|%
|
||||
++ mime
|
||||
:- /text/x-write-comments
|
||||
:- /text/x-publish-comments
|
||||
(as-octs:mimes:html (of-wain:format txt))
|
||||
++ txt
|
||||
^- wain
|
||||
@ -26,7 +26,7 @@
|
||||
(txt (to-wain:format q.p))
|
||||
++ txt
|
||||
|= txs=(pole @t)
|
||||
^- comment:write
|
||||
^- comment:publish
|
||||
:: TODO: putting ~ instead of * breaks this but shouldn't
|
||||
::
|
||||
?> ?= $: creator=@t
|
||||
@ -62,7 +62,7 @@
|
||||
==
|
||||
::
|
||||
==
|
||||
++ noun comment:write
|
||||
++ noun comment:publish
|
||||
--
|
||||
++ grad %mime
|
||||
--
|
||||
@ -1,15 +1,15 @@
|
||||
::
|
||||
:::: /hoon/info/write/mar
|
||||
:::: /hoon/info/publish/mar
|
||||
::
|
||||
/- write
|
||||
/- publish
|
||||
!:
|
||||
|_ con=collection-info:write
|
||||
|_ con=collection-info:publish
|
||||
::
|
||||
::
|
||||
++ grow
|
||||
|%
|
||||
++ mime
|
||||
:- /text/x-write-info
|
||||
:- /text/x-publish-info
|
||||
(as-octs:mimes:html (of-wain:format txt))
|
||||
++ txt
|
||||
^- wain
|
||||
@ -29,7 +29,7 @@
|
||||
(txt (to-wain:format q.p))
|
||||
++ txt
|
||||
|= txs=(pole @t)
|
||||
^- collection-info:write
|
||||
^- collection-info:publish
|
||||
:: TODO: putting ~ instead of * breaks this but shouldn't
|
||||
::
|
||||
?> ?= $: owner=@t
|
||||
@ -55,14 +55,14 @@
|
||||
%+ rash comments.txs
|
||||
;~ pfix
|
||||
(jest 'comments: ')
|
||||
%+ cook comment-config:write
|
||||
%+ cook comment-config:publish
|
||||
;~(pose (jest %open) (jest %closed) (jest %none))
|
||||
==
|
||||
::
|
||||
%+ rash allow-edit.txs
|
||||
;~ pfix
|
||||
(jest 'allow-edit: ')
|
||||
%+ cook edit-config:write
|
||||
%+ cook edit-config:publish
|
||||
;~(pose (jest %post) (jest %comment) (jest %all) (jest %none))
|
||||
==
|
||||
::
|
||||
@ -78,7 +78,7 @@
|
||||
(cook year when:so)
|
||||
==
|
||||
==
|
||||
++ noun collection-info:write
|
||||
++ noun collection-info:publish
|
||||
--
|
||||
++ grad %mime
|
||||
--
|
||||
@ -1,5 +1,5 @@
|
||||
/- *write
|
||||
/+ *write, elem-to-react-json
|
||||
/- *publish
|
||||
/+ *publish
|
||||
|_ rum=rumor
|
||||
++ grab
|
||||
|%
|
||||
@ -1,4 +1,4 @@
|
||||
/- *write
|
||||
/- *publish
|
||||
|_ upd=update
|
||||
++ grab
|
||||
|%
|
||||
@ -1,12 +0,0 @@
|
||||
::
|
||||
:::: /hoon/paste/write/mar
|
||||
::
|
||||
/? 310
|
||||
|_ [typ=?($hoon $md $txt) txt=@t]
|
||||
++ grab
|
||||
|%
|
||||
++ noun [?($hoon $md $txt) @t]
|
||||
++ json
|
||||
(corl need =>(dejs-soft:format (ot typ+(ci (soft ?($hoon $md $txt)) so) txt+so ~)))
|
||||
--
|
||||
--
|
||||
@ -1,12 +0,0 @@
|
||||
::
|
||||
:::: /hoon/paste/write/mar
|
||||
::
|
||||
/? 310
|
||||
|_ [who=@txname loc=@txloc]
|
||||
++ grab
|
||||
|%
|
||||
++ noun [@txname @txloc]
|
||||
++ json
|
||||
(corl need =>(dejs-soft:format (ot who+so loc+so ~)))
|
||||
--
|
||||
--
|
||||
@ -1,15 +0,0 @@
|
||||
::
|
||||
:::: /hoon/tree/write/mar
|
||||
::
|
||||
/? 310
|
||||
::
|
||||
=, mimes:html
|
||||
=, format
|
||||
|_ [sup=spur mim=mime]
|
||||
++ grab
|
||||
|%
|
||||
++ noun [spur mime]
|
||||
++ json
|
||||
=,(dejs (ot sup+(su fel:stab) mime+(cu |=(a=@t [/ (as-octs a)]) so) ~))
|
||||
--
|
||||
--
|
||||
@ -1,11 +0,0 @@
|
||||
::
|
||||
:::: /hoon/wipe/write/mar
|
||||
::
|
||||
/? 310
|
||||
|_ spur
|
||||
++ grab
|
||||
|%
|
||||
++ noun spur
|
||||
++ json (corl need (su:dejs-soft:format fel:stab))
|
||||
--
|
||||
--
|
||||
14
pkg/arvo/ren/publish/comments.hoon
Normal file
14
pkg/arvo/ren/publish/comments.hoon
Normal file
@ -0,0 +1,14 @@
|
||||
/- publish
|
||||
/+ publish
|
||||
/= result
|
||||
/^ (list comment:publish)
|
||||
/;
|
||||
|= comments=(map knot comment:publish)
|
||||
^- (list [comment-info:publish @t])
|
||||
%+ sort ~(val by comments)
|
||||
|= [a=comment:publish b=comment:publish]
|
||||
^- ?
|
||||
(lte date-created.info.a date-created.info.b)
|
||||
::
|
||||
/_ /publish-comment/
|
||||
result
|
||||
@ -1,15 +1,15 @@
|
||||
/- write
|
||||
/+ write, cram, elem-to-react-json
|
||||
/- publish
|
||||
/+ publish, cram, elem-to-react-json
|
||||
/= args /$ ,[beam *]
|
||||
/= result
|
||||
/^ [post-info:write manx @t]
|
||||
/^ [post-info:publish manx @t]
|
||||
/;
|
||||
|= $: post-front=(map knot cord)
|
||||
post-content=manx
|
||||
post-raw=wain
|
||||
~
|
||||
==
|
||||
:+ (front-to-post-info:write post-front)
|
||||
:+ (front-to-post-info:publish post-front)
|
||||
post-content
|
||||
(of-wain:format (slag 11 post-raw))
|
||||
::
|
||||
@ -1,14 +0,0 @@
|
||||
/- write
|
||||
/+ write
|
||||
/= result
|
||||
/^ (list comment:write)
|
||||
/;
|
||||
|= comments=(map knot comment:write)
|
||||
^- (list [comment-info:write @t])
|
||||
%+ sort ~(val by comments)
|
||||
|= [a=comment:write b=comment:write]
|
||||
^- ?
|
||||
(lte date-created.info.a date-created.info.b)
|
||||
::
|
||||
/_ /write-comment/
|
||||
result
|
||||
2
pkg/urbit/.gitignore
vendored
2
pkg/urbit/.gitignore
vendored
@ -25,3 +25,5 @@ GTAGS
|
||||
*.swp
|
||||
hash_tests
|
||||
hashtable_tests
|
||||
mug_tests
|
||||
jam_tests
|
||||
|
||||
Loading…
Reference in New Issue
Block a user