urbit/pkg/arvo/mar/sole/effect.hoon

::
::::  /hoon/effect/sole/mar
  ::
/?    310
/-    sole
/+    base64
!:
::
::::
  ::
=,  sole
=,  format
|%
++  mar-sole-change                       ::  XX  dependency
  |_  cha=sole-change
  ++  grow
    |%  ++  json
      ^-  ^json
      =,  enjs
      =;  edi
        =,(cha (pairs ted+(edi ted) ler+a+~[(numb own.ler) (numb his.ler)] ~))
      |=  det=sole-edit
      ?-  -.det
        %nop  [%s 'nop']
        %mor  [%a (turn p.det ..$)]
        %del  (frond %del (numb p.det))
        %set  (frond %set (tape (tufa p.det)))
        %ins  (frond %ins (pairs at+(numb p.det) cha+s+(tuft q.det) ~))
      ==
    --
  --
++  wush
  |=  [wid=@u tan=tang]
  ^-  tape
  (of-wall (turn (flop tan) |=(a=tank (of-wall (wash 0^wid a)))))
::
++  purge                                               ::  discard ++styx style
  |=  a=styx  ^-  tape
  %-  zing  %+  turn  a
  |=  a=_?>(?=(^ a) i.a)
  ?@(a (trip a) ^$(a q.a))
--
::
|_  sef=sole-effect
::
++  grad  %noun
++  grab                                                ::  convert from
  |%
  ++  noun  sole-effect                                 ::  clam from %noun
  --
++  grow
  =,  enjs
  |%
  ++  noun  sef
  ++  json
    ^-  ^json
    ?+    -.sef
              ~|(unsupported-effect+-.sef !!)
        %mor  [%a (turn p.sef |=(a=sole-effect json(sef a)))]
        %err  (frond %hop (numb p.sef))
        %txt  (frond %txt (tape p.sef))
        %tan  (frond %tan (tape (wush 160 p.sef)))
        %det  (frond %det json:~(grow mar-sole-change +.sef))
    ::
        %pro
      %+  frond  %pro
      (pairs vis+b+vis.sef tag+s+tag.sef cad+(tape (purge cad.sef)) ~)
    ::
        %tab
      :-  %a
      %+  turn  p.sef
      |=  [=cord =^tank]
      %+  frond  %tab
      %-  pairs
      :~  match+s+cord
          info+(tape ~(ram re tank))
      ==
    ::
        ?(%bel %clr %nex)
      (frond %act %s -.sef)
    ==
  --
--
converters up 2015-04-10 09:57:04 +03:00			`::`
fix hoon location header information 2016-02-05 06:05:37 +03:00			`:::: /hoon/effect/sole/mar`
converters up 2015-04-10 09:57:04 +03:00			`::`
verified mark code 2016-02-18 02:00:12 +03:00			`/? 310`
Sur disqualification moved to userspace sed -i'' -e '/^\|/{x;/./{p;s/.//;};x;};/ \\/-.\\/{h;s/ //g;s/,[a-z]//g;s/^[^a-z]/[/;s/ ::.$//;s/$/ .]/;s// /g;x;s/\\//g;}' urb/zod/**.{hoon,hook} Followed by manual fixes where e.g. the file didn't start with a core 2015-09-01 23:56:42 +03:00			`/- sole`
Add support to `lens-command` for pill output and optimized base64 encoding. (#1068) Added support to `lens-command` for outputting a pill. We want this so that we can create (solid and brass) pills from `urb.py`. This also adds an optimized base64 encoding routine. The previous version of base64 stack overflowed on large inputs, and a tail-recursive version took hours to encode 5mb of data. This one uses the `ripn` jet and only takes a second or two. 2019-02-28 03:12:59 +03:00			`/+ base64`
			`!:`
!: in ford files is redundant 2016-11-17 04:42:58 +03:00			`::`
converters up 2015-04-10 09:57:04 +03:00			`::::`
			`::`
reformat =+ to =, in ford files 2016-11-17 04:37:39 +03:00			`=, sole`
canonize jo..:js:eyre into enjs:format 2016-12-03 02:47:16 +03:00			`=, format`
converters up 2015-04-10 09:57:04 +03:00			`\|%`
			`++ mar-sole-change :: XX dependency`
various: move away from face/type syntax In favor of face=type. 2020-11-25 23:22:55 +03:00			`\|_ cha=sole-change`
converters up 2015-04-10 09:57:04 +03:00			`++ grow`
			`\|% ++ json`
			`^- ^json`
canonize jo..:js:eyre into enjs:format 2016-12-03 02:47:16 +03:00			`=, enjs`
			`=; edi`
			`=,(cha (pairs ted+(edi ted) ler+a+~[(numb own.ler) (numb his.ler)] ~))`
various: move away from face/type syntax In favor of face=type. 2020-11-25 23:22:55 +03:00			`\|= det=sole-edit`
pub/sole/fab up 2015-04-14 23:38:37 +03:00			`?- -.det`
various: move away from $constant type syntax 2020-11-25 22:39:13 +03:00			`%nop [%s 'nop']`
			`%mor [%a (turn p.det ..$)]`
			`%del (frond %del (numb p.det))`
			`%set (frond %set (tape (tufa p.det)))`
			`%ins (frond %ins (pairs at+(numb p.det) cha+s+(tuft q.det) ~))`
converters up 2015-04-10 09:57:04 +03:00			`==`
Remove old-zuse (#867) * removes old-zuse 2018-10-27 02:19:18 +03:00			`--`
converters up 2015-04-10 09:57:04 +03:00			`--`
			`++ wush`
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way. 2020-11-26 17:09:31 +03:00			`\|= [wid=@u tan=tang]`
converters up 2015-04-10 09:57:04 +03:00			`^- tape`
various: move away from face/type syntax In favor of face=type. 2020-11-25 23:22:55 +03:00			`(of-wall (turn (flop tan) \|=(a=tank (of-wall (wash 0^wid a)))))`
converters up 2015-04-10 09:57:04 +03:00			`::`
fixes mar/sole/effect, purging styles on json:grow 2016-10-26 21:22:12 +03:00			`++ purge :: discard ++styx style`
various: move away from face/type syntax In favor of face=type. 2020-11-25 23:22:55 +03:00			`\|= a=styx ^- tape`
fixes mar/sole/effect, purging styles on json:grow 2016-10-26 21:22:12 +03:00			`%- zing %+ turn a`
various: move away from face/type syntax In favor of face=type. 2020-11-25 23:22:55 +03:00			`\|= a=_?>(?=(^ a) i.a)`
fixes mar/sole/effect, purging styles on json:grow 2016-10-26 21:22:12 +03:00			`?@(a (trip a) ^$(a q.a))`
converters up 2015-04-10 09:57:04 +03:00			`--`
!: in ford files is redundant 2016-11-17 04:42:58 +03:00			`::`
various: move away from face/type syntax In favor of face=type. 2020-11-25 23:22:55 +03:00			`\|_ sef=sole-effect`
converters up 2015-04-10 09:57:04 +03:00			`::`
mar: all marks build; added +grad and +noun:grow to many 2020-05-05 06:21:05 +03:00			`++ grad %noun`
converters up 2015-04-10 09:57:04 +03:00			`++ grab :: convert from`
			`\|%`
			`++ noun sole-effect :: clam from %noun`
			`--`
			`++ grow`
canonize jo..:js:eyre into enjs:format 2016-12-03 02:47:16 +03:00			`=, enjs`
converters up 2015-04-10 09:57:04 +03:00			`\|%`
mar: all marks build; added +grad and +noun:grow to many 2020-05-05 06:21:05 +03:00			`++ noun sef`
converters up 2015-04-10 09:57:04 +03:00			`++ json`
			`^- ^json`
Remove old-zuse (#867) * removes old-zuse 2018-10-27 02:19:18 +03:00			`?+ -.sef`
Merge in Hoon 151 Complicated merge of Hoon 151. This commit is a major sequence point. 2016-02-10 22:03:28 +03:00			`~\|(unsupported-effect+-.sef !!)`
various: move away from face/type syntax In favor of face=type. 2020-11-25 23:22:55 +03:00			`%mor [%a (turn p.sef \|=(a=sole-effect json(sef a)))]`
various: move away from $constant type syntax 2020-11-25 22:39:13 +03:00			`%err (frond %hop (numb p.sef))`
			`%txt (frond %txt (tape p.sef))`
			`%tan (frond %tan (tape (wush 160 p.sef)))`
			`%det (frond %det json:~(grow mar-sole-change +.sef))`
Merge in Hoon 151 Complicated merge of Hoon 151. This commit is a major sequence point. 2016-02-10 22:03:28 +03:00			`::`
various: move away from $constant type syntax 2020-11-25 22:39:13 +03:00			`%pro`
canonize jo..:js:eyre into enjs:format 2016-12-03 02:47:16 +03:00			`%+ frond %pro`
			`(pairs vis+b+vis.sef tag+s+tag.sef cad+(tape (purge cad.sef)) ~)`
mar/sole: add %tab conversion Our mark definitions for sole actions and effects pre-date our tab completion work. This commit adds tab completion actions and effects to the definition, so they can be sent and received as JSON. 2019-11-14 20:15:27 +03:00			`::`
various: move away from $constant type syntax 2020-11-25 22:39:13 +03:00			`%tab`
soto: style changes This commit amends the Soto application with style changes requested during code review, including structuring the mark conversion as a library. 2019-11-15 03:55:16 +03:00			`:- %a`
			`%+ turn p.sef`
			`\|= [=cord =^tank]`
soto: amend tab sole-effect json and handler The behaviour of $tab sole-effects lacked a 'tab' key, so Soto wasn't catching or writing them to the screen. This commit amends both the handler and the sole-effect to fix that behaviour. 2019-11-26 03:38:07 +03:00			`%+ frond %tab`
soto: style changes This commit amends the Soto application with style changes requested during code review, including structuring the mark conversion as a library. 2019-11-15 03:55:16 +03:00			`%- pairs`
			`:~ match+s+cord`
			`info+(tape ~(ram re tank))`
			`==`
fixes mar/sole/effect, purging styles on json:grow 2016-10-26 21:22:12 +03:00			`::`
various: move away from $constant type syntax 2020-11-25 22:39:13 +03:00			`?(%bel %clr %nex)`
canonize jo..:js:eyre into enjs:format 2016-12-03 02:47:16 +03:00			`(frond %act %s -.sef)`
converters up 2015-04-10 09:57:04 +03:00			`==`
			`--`
			`--`