urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-11-24 04:58:08 +03:00
Code Issues Packages Projects Releases Wiki Activity

working on tomb shrub from tree, added POST req handling, pokes and altered tasks to recognise %del gift

Browse Source
This commit is contained in:
SuperCoolYun 2024-07-08 10:28:40 -04:00
parent 87dbb1d4c0
commit 69719575f1
8 changed files with 206 additions and 59 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkg/arvo/app/neo.hoon
View File

@ -1564,9 +1564,9 @@
=. run
(emit (do-card #/[p/our.bowl]/srv/sky %make %sky-eyre ~ ~))
=. run
(emit (do-card #/[p/our.bowl]/srv/sky %make %tree ~ ~))
(emit (do-card #/[p/our.bowl]/tree %make %tree ~ ~))
=. run
(emit (do-card #/[p/our.bowl]/srv/sky %make %tree-eyre ~ ~))
(emit (do-card #/[p/our.bowl]/srv/tree %make %tree-eyre ~ ~))
run
++ pess |=(=post:neo (~(pith press post) %out))
++ clay-beak ^- path

17
pkg/arvo/neo/cod/std/src/con/http-request-tree-diff.hoon Normal file
View File

@ -0,0 +1,17 @@
/@ http-request
/@ tree-diff
/- serv=sky-server
:- [%http-request %$ %tree-diff]
|= =http-request
^- tree-diff
=/ pam (~(uni by pam:(parse-url:serv http-request)) (parse-form-body:serv http-request))
=/ bod ~(. by pam)
=/ head (@tas (got:bod 'head'))
?+ head ~| [%unknown-head head] !!
%send-tomb
~& >>> pith/(got:bod 'pith')
=/ path (stab (got:bod 'pith'))
[head (pave:neo path)]
%send-poke
[head *pith:neo *@tas *]
==

1
pkg/arvo/neo/cod/std/src/imp/hawk-eyre.hoon
View File

@ -25,7 +25,6 @@
%eyre-task
=+ !<(=task:eyre:neo vax)
=/ [eyre-id=@ta req=inbound-request:eyre] task
?. =(['neo' 'sky' ~] (scag 2 (stab url.request.req))) ~|(not-a-sky-task/url.request.req !!)
?. authenticated.req
=/ eyre=pith:neo #/[p/our.bowl]/$/eyre
:_ pail

10
pkg/arvo/neo/cod/std/src/imp/task.hoon
View File

@ -58,6 +58,15 @@
=/ this !<(task state-vase)
?+ stud !!
%gift
::check if %del case from tree view
=/ =gift:neo !<(gift:neo vax)
=/ gift-card=[=pith:neo =loot:neo]
%+ snag 0
~(tap of:neo gift)
?: =(mode.loot.gift-card %del)
=/ i (find [pith.gift-card ~] order.this)
?~ i [~ task/!>(this)]
[~ task/!>(this(order (oust [(need i) 1] order.this)))]
::check if all kid tasks are done
=/ dun (check-kids bowl)
[~ task/!>(this(done dun, kids-done dun))]
@ -94,6 +103,7 @@
?~ i `task/!>(this)
:_ task/!>(this(order (oust [(need i) 1] order.this)))
:~ [(welp here.bowl pith.diff) [%tomb ~]]
[(welp here.bowl pith.diff) [%cull ~]]
==
::
%reorder

143
pkg/arvo/neo/cod/std/src/imp/tree-eyre-handler.hoon
View File

@ -1,4 +1,6 @@
/@ htmx-type=htmx
/@ tree-diff
/- serv=sky-server
/* jquery
/* htmx-js
/* htmx-response-targets
@ -13,17 +15,18 @@
++ poke *(set stud:neo)
++ kids *kids:neo
++ deps
:: static dep to imp folder to create new shrub
%- ~(gas by *band:neo)
:~ :- %src
^- fief:neo
:- req=|
^- quay:neo
:- [pro/%htmx ~]
:- [[%or pro/%htmx any/~ ~] ~]
^- (unit port:neo)
:+ ~ %z
%- ~(gas by *lads:neo)
:~ :- &
`lash:neo`[any/~ ~]
`lash:neo`[[%or pro/%htmx any/~ ~] ~]
==
==
++ form
@ -39,6 +42,28 @@
=+ !<([eyre-id=@ta req=inbound-request:eyre] vase)
~& > req/req
:_ [stud vase]
:: deps = band
:: band = (map term fief)
:: fief = [=deed =quay]
:: quay = (pair lash (unit port))
:: port = (pair dare lads)
:: lads = (map pish lash)
:: lash = [state=curb poke=(set stud)]
::
:: lore = (axal idea)
:: idea = [saga=(pair aeon pail) thru=(unit stud) pail]
:: saga = (pair aeon pail)
:: aeon = (pair ever oath)
:: ever - total shrub version
:: oath = (pair hash=@uvH seal=@uvH)
:: pail = (pair stud vase)
::
:: src - (unit (pair pith lore))
:: p.u.src - pith
:: q.u.src - lore
:: q.saga.idea.q.u.src - pail
:: ~(tap by q.u.q.quay.u.src)
:: q.q.pail
?~ src=(~(get by deps.bowl) %src)
=/ stub=manx
;div
@ -51,7 +76,8 @@
['content-type' 'text/html']~
stub
==
~& > src/p.u.src
:: ~& > src/p.u.src
:: ~& > all-deps/~(tap by deps)
=/ here p.u.src
^- (list card:neo)
?+ method.request.req ~|(%unsupported-http-method !!)
@ -70,12 +96,19 @@
['content-type' 'text/html']~
stub
==
:: get lash from dep and pass pokes to poke-form
:: from src
:: ~& >>>
:: %+ turn ~(tap of:neo q.u.src)
:: |= [=pith:neo =idea:neo]
:: pail/(sell q.pail.idea)
=/ bol *bowl:neo
=. here.bol here
=. our.bol our.bowl
=. now.bol now.bowl
=. eny.bol eny.bowl
=. kids.bol q.u.src
~& > pail/q.saga.u.reet
=/ stub=manx
;div
;+ (view bol)
@ -87,6 +120,46 @@
['content-type' 'text/html']~
stub
==
%'POST'
=/ purl (parse-url:serv request.req)
=/ content-type (~(gut by pam.purl) 'content-type' 'text/html')
=/ body (parse-body:serv request.req)
=/ poke-stud
^- stud:neo
~| %no-stud-specified
(~(got by pam.purl) 'stud')
~& >> poke-stud/poke-stud
=/ diff-vase
(http-request [poke-stud `request:http`request.req])
~& >>> diff-vase/diff-vase
=/ diff-type -:!<(tree-diff diff-vase)
=/ bol *bowl:neo
=. here.bol here
=. our.bol our.bowl
=. now.bol now.bowl
=. eny.bol eny.bowl
=/ stub=manx
:: ?+ diff-type
;div
;p: error
==
:: %send-poke
:: ;div
:: ;p: sent
:: ==
:: %send-tomb
:: ;div
:: ;p: deleted
:: ==
:: ==
:- [#/[p/our.bowl]/tree %poke %tree-diff diff-vase]
%: eyre-cards
eyre-id
bol
200
['content-type' 'text/html']~
stub
==
==
--
--
@ -151,10 +224,12 @@
::only short paths
%+ sort
%+ skim ~(tap of:neo kids.bowl)
|=([=pith:neo *] =(1 (lent pith)))
|= [=pith:neo *]
=(1 (lent pith))
aor
|= [=pith:neo *]
%- crip "[{(en-tape:pith:neo pith)}]"
%- crip
"[{(en-tape:pith:neo pith)}]"
=/ row-template=tape (join ' 1fr ' (weld "[first-row]" `tape`first-kids))
;div
=style "display: grid; grid-template-rows: {row-template}; grid-template-columns: auto; padding: 12px;"
@ -163,7 +238,17 @@
;div.p2: none
=/ =pail:neo q.saga.u.node
;div
=style "grid-column-start: 1; grid-column-end: 2; grid-row-start: first-row; grid-row-end: first-row; padding: 8px; border: 2px solid black;border-radius: 6px; margin-top: 1rem;"
=style
"""
grid-column-start: 1;
grid-column-end: 2;
grid-row-start: first-row;
grid-row-end: first-row;
padding: 8px;
border: 2px solid black;
border-radius: 6px;
margin-top: 1rem;
"""
;p: {<p.pail>}
;+ (state-print pail)
==
@ -178,15 +263,31 @@
=style "visibility: hidden"
nothing
==
~& > pith/pith
;div
=style "grid-column-start: {(scow %ud +((lent pith)))}; grid-column-end: {(scow %ud (add 2 (lent pith)))}; grid-row-start: {(en-tape:pith:neo [-.pith ~])};grid-row-end: {(en-tape:pith:neo [-.pith ~])}; padding: 8px; border: 2px solid black;border-radius: 6px;margin-top: 1rem;"
;h3: {(en-tape:pith:neo pith)}
;+
=/ pal=pail:neo q.saga.idea
;+ (tomb-button bowl pith)
;div
;h3: state
;+ (state-print pal)
;+ (state-print q.saga.idea)
;+ (poke-form pith)
==
==
==
::
++ state-print
|= =pail:neo
^- manx
;div.pre.mono.scroll-x.p2
;+ ;/
=/ size (met 3 (jam q.q.pail))
?: (gth size 750) "vase too large to print: {<size>}"
(of-wall:format (~(win re (sell q.pail)) 0 80))
==
::
++ poke-form
|= =pith:neo
^- manx
;form
=hx-post "/neo/tree{(en-tape:pith:neo pith)}?stud=type-diff"
=hx-target "find .loading"
@ -219,18 +320,20 @@
;span.loading: loading
==
==
==
==
==
::
++ state-print
|= =pail:neo
++ tomb-button
|= [=bowl:neo =pith:neo]
^- manx
;div.pre.mono.scroll-x.p2
;+ ;/
=/ size (met 3 (jam q.q.pail))
?: (gth size 750) "vase too large to print: {<size>}"
(of-wall:format (~(win re (sell q.pail)) 0 80))
;form
=hx-post "/neo/tree{(en-tape:pith:neo here.bowl)}?stud=tree-diff&head=send-tomb"
=hx-swap "outerHTML"
=hx-target "find .loading"
;button.loader
=name "pith"
=value (en-tape:pith:neo (welp here.bowl pith))
;span.loaded: tomb
;span.loading: loading
==
==
::
--

3
pkg/arvo/neo/cod/std/src/imp/tree-eyre.hoon
View File

@ -16,7 +16,8 @@
%eyre-task
=+ !<(=task:eyre:neo vase)
=/ [eyre-id=@ta req=inbound-request:eyre] task
?. =(['neo' 'tree' ~] (scag 2 (stab url.request.req))) ~|(not-a-tree-task/url.request.req !!)
::~& >> path-req/req
:: ?. =(['neo' 'tree' ~] (scag 2 (stab url.request.req))) ~|(not-a-tree-task/url.request.req !!)
~& >>> 'in tree!'
?. authenticated.req
=/ eyre=pith:neo #/[p/our.bowl]/$/eyre

20
pkg/arvo/neo/cod/std/src/imp/tree.hoon
View File

@ -1,8 +1,9 @@
/@ tree
/@ tree-diff
^- kook:neo
|%
++ state pro/%tree
++ poke (sy %tree ~)
++ poke (sy %tree-diff ~)
++ kids *kids:neo
++ deps *deps:neo
++ form
@ -19,7 +20,22 @@
~& > stud/stud
=/ this !<(=tree q.pail)
?+ stud !!
%tree [~ tree/vase]
:: %tree
:: [~ tree/vase]
::
%tree-diff
=/ diff !<(tree-diff vase)
~& >>> diff-tree-imp/diff
?+ -.diff !!
%send-tomb
=/ =pith:neo +.diff
~& >>> pith-tomb/pith
:_ tree/!>(~)
:~
[pith %tomb ~]
[pith %cull ~]
==
==
==
--
--

3
pkg/arvo/neo/cod/std/src/pro/tree-diff.hoon
View File

@ -1,3 +1,4 @@
$%
[%send-diff =pith:neo type-diff=@tas val=*]
[%send-poke =pith:neo type-diff=@tas val=*]
[%send-tomb =pith:neo]
==