urbit/pkg/arvo/ted/build-mark.hoon

/-  spider
/+  strandio
=,  strand=strand:spider
^-  thread:spider
|=  arg=vase
=/  m  (strand ,vase)
^-  form:m
=+  !<([pax=path ~] arg)
?~  bem=(de-beam:format pax)
  (strand-fail:strand %path-not-beam >pax< ~)
=/  =mark  (rear s.u.bem)
;<  =dais:clay  bind:m  (build-mark:strandio -.u.bem mark)
(pure:m !>(dais))
-test, -build-file, -build-mark, -build-cast 2020-04-18 11:21:15 +03:00			`/- spider`
			`/+ strandio`
			`=, strand=strand:spider`
			`^- thread:spider`
			`\|= arg=vase`
			`=/ m (strand ,vase)`
			`^- form:m`
-build-{cast,file,mark}: accept full beams; load from any desk 2020-07-08 10:08:17 +03:00			`=+ !<([pax=path ~] arg)`
			`?~ bem=(de-beam:format pax)`
			`(strand-fail:strand %path-not-beam >pax< ~)`
zuse, clay, various: unflop the spur in beams Unflops the spur in +en-beam, +de-beam, and everything that calls either of those, or works with the consequences of their output. This includes clay's interface for mounting and unmounting, which now no longer expects the arguments to contain an old-style spur. 2020-11-24 04:20:36 +03:00			`=/ =mark (rear s.u.bem)`
-build-{cast,file,mark}: accept full beams; load from any desk 2020-07-08 10:08:17 +03:00			`;< =dais:clay bind:m (build-mark:strandio -.u.bem mark)`
-test, -build-file, -build-mark, -build-cast 2020-04-18 11:21:15 +03:00			`(pure:m !>(dais))`