fix url grab

This commit is contained in:
Anton Dyudin 2015-09-11 17:07:50 -07:00
parent ecfefc1a9a
commit 81eeb6714e
3 changed files with 6 additions and 2 deletions

View File

@ -71,7 +71,7 @@
++ goal ,[p=ship q=term] :: flat application
++ clap :: action, user
$% [%peer p=path] :: subscribe
[%poke p=term q=*] :: apply
[%poke p=(cask)] :: apply
[%pull ~] :: unsubscribe
== ::
++ club :: action, system
@ -148,8 +148,8 @@
++ dp-build :: ++dojo-build
%+ knee *dojo-build |. ~+
;~ pose
;~(plug (cold %ge lus) dp-model)
;~(plug (cold %ur lus) auri:epur)
;~(plug (cold %ge lus) dp-model)
;~(plug (cold %as pam) sym ;~(pfix ace dp-source))
;~(plug (cold %do cab) dp-twig ;~(pfix ace dp-source))
dp-value

View File

@ -81,6 +81,7 @@
++ peer-drum (wrap peer):from-drum
++ poke-dill-belt (wrap poke-dill-belt):from-drum
++ poke-drum-link (wrap poke-link):from-drum
::++ poke-drum-exit (wrap poke-exit):from-drum
++ poke-drum-start (wrap poke-start):from-drum
++ poke-helm-hi (wrap poke-hi):from-helm
++ poke-helm-init (wrap poke-init):from-helm

View File

@ -215,6 +215,9 @@
=< se-abet =< se-view
(se-link gyl)
::
:: ++ poke-exit ::
:: |=(~ se-abet:(se-blit `dill-blit`[%qit ~])) :: XX find bone
:: ::
++ reap-phat ::
|= [way=wire saw=(unit tang)]
=< se-abet =< se-view