drum: make |un/link work for non-default sessions

pkg/arvo/gen/hood/link.hoon

@@ -8,9 +8,11 @@
   ::
 :-  %say
 |=  $:  [now=@da eny=@uvJ byk=beak]
-        [arg=$?([dap=term ~] [who=ship dap=term ~]) ~]
+        arg=$?([dap=term ~] [who=ship dap=term ~])
+        drum-session=@ta
     ==
 :-  %drum-link
+:-  drum-session
 ?~  +.arg
   [p.byk dap.arg]
 [who.arg dap.arg]

pkg/arvo/gen/hood/unlink.hoon

@@ -8,9 +8,11 @@
   ::
 :-  %say
 |=  $:  [now=@da eny=@uvJ byk=beak]
-        [arg=$?([dap=term ~] [who=ship dap=term ~]) ~]
+        arg=$?([dap=term ~] [who=ship dap=term ~])
+        drum-session=@ta
     ==
 :-  %drum-unlink
+:-  drum-session
 ?~  +.arg
   [p.byk dap.arg]
 [who.arg dap.arg]

pkg/arvo/lib/hood/drum.hoon

@@ -128,7 +128,7 @@
 ++  klr   klr:format
 +$  state      ^state      ::  proxy
 +$  any-state  ^any-state  ::  proxy
-++  on-init    (poke-link our.hid %dojo)
+++  on-init    (poke-link %$ our.hid %dojo)
 ::
 ++  prep
   |=  s=@tas

pkg/arvo/mar/drum-put.hoon

@@ -1,8 +1,7 @@
+::  %drum-put: download into host system
 ::
-::::  /hoon/do-claim/womb/mar
-  ::
 /?    310
-|_  [path @]
+|_  [path $@(@ [@ta @])]
 ::
 ++  grad  %noun
 ++  grow
@@ -11,6 +10,6 @@
   --
 ++  grab                                                ::  convert from
   |%
-  +$  noun  [path @]                                    ::  clam from %noun
+  +$  noun  [path $@(@ [@ta @])]                        ::  clam from %noun
   --
 --