shrub/main/app/foobug/core.hoon

!:     
=>  |%
    ++  foobug-state
      $%  [%0 bug=@ud]
      ==
    --
|=  *
|_  [hide foo=foobug-state]
++  prep
  |=  old=foobug-state
  +>(foo old)
++  save
  ^-  foobug-state
  foo
::
++  peer
  |=  [ost=bone you=ship pax=path]
  ~&  [%peer lat.seq]
  :_  +>  :_  ~
  :+  ost  %give
  :-  %rust
  :-  %html
  %-  crip  
  %+  xmlt  |
  :_  ~
  ^-  manx
  ;html
    ;head
      ;title: Hi, Pi!
    ==
    ;body 
      ;p: Yo, world.
    ==
  ==
--
Demo app. 2014-06-08 07:05:32 +04:00			`!:`
			`=> \|%`
			`++ foobug-state`
			`$% [%0 bug=@ud]`
			`==`
			`--`
			`\|= *`
			`\|_ [hide foo=foobug-state]`
			`++ prep`
			`\|= old=foobug-state`
			`+>(foo old)`
			`++ save`
			`^- foobug-state`
			`foo`
			`::`
			`++ peer`
Various fixes and improvements. 2014-06-10 10:20:41 +04:00			`\|= [ost=bone you=ship pax=path]`
Demo app. 2014-06-08 07:05:32 +04:00			`~& [%peer lat.seq]`
			`:_ +> :_ ~`
			`:+ ost %give`
			`:- %rust`
			`:- %html`
			`%- crip`
			`%+ xmlt \|`
			`:_ ~`
			`^- manx`
			`;html`
			`;head`
			`;title: Hi, Pi!`
			`==`
			`;body`
			`;p: Yo, world.`
			`==`
			`==`
			`--`