Demo app.

This commit is contained in:
C. Guy Yarvin 2014-06-07 20:05:32 -07:00
parent 82a9ce1211
commit e84c4e258d

35
main/app/foobug/core.hoon Normal file
View File

@ -0,0 +1,35 @@
!:
=> |%
++ foobug-state
$% [%0 bug=@ud]
==
--
|= *
|_ [hide foo=foobug-state]
++ prep
|= old=foobug-state
+>(foo old)
++ save
^- foobug-state
foo
::
++ peer
|= [ost=bone aud=kirk web=? hup=(unit (pair ,? path))]
~& [%peer lat.seq]
:_ +> :_ ~
:+ ost %give
:- %rust
:- %html
%- crip
%+ xmlt |
:_ ~
^- manx
;html
;head
;title: Hi, Pi!
==
;body
;p: Yo, world.
==
==
--