More explicit referencing
/- sole, lens :: console structures
/+ sole :: console library
=, sole
-=, space:userlib
-=, format
:: :: ::
:::: :: ::::
:: :: ::
::
=? a &(?=(^ a) =('' i.a))
t.a
- =+((de-beam a) ?^(- u [he-beak (flop a)]))
+ =+((de-beam:format a) ?^(- u [he-beak (flop a)]))
=+ vez=(vang | dp-path)
(sear plex:vez (stag %clsg poor:vez))
::
auru:de-purl:html
::
++ dp-model ;~(plug dp-server dp-config) :: ++dojo-model
- ++ dp-path (en-beam he-beam) :: ++path
+ ++ dp-path (en-beam:format he-beam) :: ++path
++ dp-server (stag 0 (most net sym)) :: ++dojo-server
++ dp-hoon tall:(vang | dp-path) :: ++hoon
++ dp-rood :: 'dir' hoon
- => (vang | (en-beam dir))
+ => (vang | (en-beam:format dir))
;~ pose
rood
::
?: ?=({@ ~} pax) ~[i.pax %home '0']
?: ?=({@ @ ~} pax) ~[i.pax i.t.pax '0']
pax
- =. dir (need (de-beam pax))
+ =. dir (need (de-beam:format pax))
=- +>(..dy (he-diff %tan - ~))
- rose+[" " `~]^~[leaf+"=%" (smyt (en-beam he-beak s.dir))]
+ rose+[" " `~]^~[leaf+"=%" (smyt (en-beam:format he-beak s.dir))]
==
::
$help
%info
/file
our.hid
- (foal (en-beam p.p.mad) cay)
+ (foal:space:userlib (en-beam:format p.p.mad) cay)
==
::
$flat
?- -.sink.com
$stdout [%show %0]
$output-file $(sink.com [%command (cat 3 '@' pax.sink.com)])
- $output-clay [%file (need (de-beam pax.sink.com))]
+ $output-clay [%file (need (de-beam:format pax.sink.com))]
$url [%http %post `~. url.sink.com]
$to-api !!
$send-api [%poke our.hid api.sink.com]
