stub 'file view'

This commit is contained in:
Will Hanlen 2024-05-30 19:14:44 +02:00 committed by SuperCoolYun
parent 1adf4d5ace
commit 3106c008fb

View File

@ -68,10 +68,9 @@
;
==
++ hawk
|_ [here=pith main=manx raw=manx]
|_ [here=pith main=manx raw=manx has-app=?]
++ id *@da
++ idt `tape`(zing (scan +:(scow %da id) (most dot (star ;~(less dot prn)))))
++ has-app %.y :: XX : switch on it. make it real. etc
++ slot 0 :: XX fix sky positional saving
++ lift
;div.hawk.fc.wf.hf
@ -79,7 +78,10 @@
=hx-params "id,slot"
=hx-vals "\{\"id\": \"{<id>}\", \"slot\": \"{<slot>}\"}"
;+ header
::;+ raw
;div
=class "raw p-page wf hf b0 scroll-y scroll-x {(trip ?:(has-app 'hidden' ''))}"
;+ raw
==
;div
=class "rendered wf hf b0 scroll-y scroll-x {(trip ?:(has-app '' 'hidden'))}"
=id "hawk-rendered-{idt}"
@ -257,11 +259,15 @@
;div: 40
==
?~ src=(~(get by deps.bowl) %src)
=/ main
;div.wf.hf.fc.jc.ac: nothing here
=/ raw
;div.wf.hf.fc.jc.ac: raw view
%: eyre-cards
eyre-id
bowl
404
;div: 404
200
~(lift hawk #/[p/our.bowl] main raw |)
==
=/ here p.u.src
^- (list card:neo)
@ -277,12 +283,13 @@
=. kids.bol q.u.src
:: XX src.bowl
=/ main (!<(htmx-type q.pail.root) bol)
=/ raw *manx
=/ raw
;div.wf.hf.fc.jc.ac: raw view
%: eyre-cards
eyre-id
bowl
200
~(lift hawk here.bol main raw)
~(lift hawk here.bol main raw &)
==
::
%'POST'