diff --git a/arvo/eyre.hoon b/arvo/eyre.hoon index cd5fd9356..f4472ddb5 100644 --- a/arvo/eyre.hoon +++ b/arvo/eyre.hoon @@ -79,6 +79,18 @@ =+ zeb=(~(get by mah) cus) $(hed t.hed, mah (~(put by mah) cus ?~(zeb [q.i.hed ~] [q.i.hed u.zeb]))) :: +++ lofi :: insert scripts + |= [mog=(list manx) luv=love] + ^- love + ?: =(~ mog) luv + ?+ -.luv luv + %mid + =+ str=(trip q.q.luv) + =+ scr=|-(^-(tape ?~(mog "" (xmlt & i.mog $(mog t.mog))))) + =+ rep=(need (repg "" str scr)) + [%mid p.luv (tact rep)] + == +:: ++ loft :: love to response |= luv=love ^- httr @@ -246,7 +258,6 @@ ++ gout |= [our=ship ses=hole num=@ud rot=riot] ^+ +> - ~& [%gout our ses num] =+ sef=`serf`(need (~(get by own) our)) =+ cyz=`cyst`(need (~(get by wup.sef) ses)) abet:work:(~(iota ya [our ses] sef cyz) num rot) @@ -540,7 +551,6 @@ "/{(trip pey)}". "/{(scow %ud ven)}". "/{(trip q.toe)}');" - ~& [%ven ven %call cal] [-.sac (weld `marl`+.sac `marl`[cal ~])] ^= sac ;script @@ -923,7 +933,6 @@ %new ?- -.som.pip %det - ~& [%wink-det som.pip num ses] :- [~ pip(pez %way)] =+ rif=`riff`[p.som.pip ~ [%| q.som.pip]] +>.$(..ya (hoot our num ses rif)) @@ -936,10 +945,11 @@ pez ^- pest ?~ syt - [%err 404 [[%leaf "{<+.som.pip>} not found"] ~]] + [%err 404 [[%leaf "{} not found"] ~]] ?- -.u.syt | [%err 500 (flop p.u.syt)] - & [%fin p.u.syt] + & [%fin (lofi r.som.pip p.u.syt)] + :: & [%fin p.u.syt] == == == diff --git a/try/syn/web/template/htmn.hoon b/try/syn/web/template/htmn.hoon index 0e4670931..d9e200d1e 100644 --- a/try/syn/web/template/htmn.hoon +++ b/try/syn/web/template/htmn.hoon @@ -13,7 +13,7 @@ ;= ;title: Hi again! ; - ;p: Hello, world. + ;p: Hello, world. Goodbye! Hello! Typing... ;p:"Hello: pos is {}" ;- "Goodbye" ;+ ;p:"Hello again" diff --git a/try/web/test.md b/try/web/test.md new file mode 100644 index 000000000..cb8c4c28c --- /dev/null +++ b/try/web/test.md @@ -0,0 +1 @@ +This is a trivial **markdown file**. When I type stuff, it appears!