urbit/mar/sole/action.hoon

::
::::  /hoon/action/sole/mar
  ::
/?    310
/-    sole
!:
::::
  ::
[sole .]
|_  sole-action
::
++  grab                                                ::  convert from
  |%
  ++  json
    |=  jon/^json  ^-  sole-action
    %-  need  %.  jon
    =>  [jo ..sole-action]
    |^  (fo %ret (of det+change ~))
    ++  fo
      |*  {a/term b/fist}
      |=(c/json ?.(=([%s a] c) (b c) (some [a ~])))
    ::
    ++  ra
      |*  {a/{term fist} b/fist}
      |=  c/json  %.  c
      ?.(=(%a -.c) b (pe -.a (ar +.a)))
    ::
    ++  change  (ot ler+(at ni ni ~) ted+(cu |*(a/* [0v0 a]) edit) ~)
    ++  char  (cu turf so)
    ++  edit
      %+  fo  %nop
      %+  ra  mor+|=(json (edit +<))
      (of del+ni set+(cu tuba sa) ins+(ot at+ni cha+char ~) ~)
    --
  ::
  ++  noun  sole-action                                   ::  clam from %noun
  --
--
converters up 2015-04-10 09:57:04 +03:00			`::`
fix hoon location header information 2016-02-05 06:05:37 +03:00			`:::: /hoon/action/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`
converters up 2015-04-10 09:57:04 +03:00			`!:`
			`::::`
			`::`
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 .]`
converters up 2015-04-10 09:57:04 +03:00			`\|_ sole-action`
			`::`
			`++ grab :: convert from`
			`\|%`
			`++ json`
Merge in Hoon 151 Complicated merge of Hoon 151. This commit is a major sequence point. 2016-02-10 22:03:28 +03:00			`\|= jon/^json ^- sole-action`
converters up 2015-04-10 09:57:04 +03:00			`%- need %. jon`
			`=> [jo ..sole-action]`
Merge in Hoon 151 Complicated merge of Hoon 151. This commit is a major sequence point. 2016-02-10 22:03:28 +03:00			`\|^ (fo %ret (of det+change ~))`
converters up 2015-04-10 09:57:04 +03:00			`++ fo`
Merge in Hoon 151 Complicated merge of Hoon 151. This commit is a major sequence point. 2016-02-10 22:03:28 +03:00			`\|* {a/term b/fist}`
			`\|=(c/json ?.(=([%s a] c) (b c) (some [a ~])))`
converters up 2015-04-10 09:57:04 +03:00			`::`
			`++ ra`
Merge in Hoon 151 Complicated merge of Hoon 151. This commit is a major sequence point. 2016-02-10 22:03:28 +03:00			`\|* {a/{term fist} b/fist}`
			`\|= c/json %. c`
			`?.(=(%a -.c) b (pe -.a (ar +.a)))`
converters up 2015-04-10 09:57:04 +03:00			`::`
Merge in Hoon 151 Complicated merge of Hoon 151. This commit is a major sequence point. 2016-02-10 22:03:28 +03:00			`++ change (ot ler+(at ni ni ~) ted+(cu \|(a/ [0v0 a]) edit) ~)`
converters up 2015-04-10 09:57:04 +03:00			`++ char (cu turf so)`
			`++ edit`
			`%+ fo %nop`
Merge in Hoon 151 Complicated merge of Hoon 151. This commit is a major sequence point. 2016-02-10 22:03:28 +03:00			`%+ ra mor+\|=(json (edit +<))`
			`(of del+ni set+(cu tuba sa) ins+(ot at+ni cha+char ~) ~)`
converters up 2015-04-10 09:57:04 +03:00			`--`
			`::`
			`++ noun sole-action :: clam from %noun`
			`--`
			`--`