shrub/mar/sole/action.hoon

::
::::  /hoon/sole-action/mar
  ::
/?    314
/-    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=[p=term q=fist] b=fist]
      |=  c=json  %.  c
      ?.(=(%a -.c) b (pe p.a (ar q.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			`::`
path refactoring 2015-06-05 03:27:01 +03:00			`:::: /hoon/sole-action/mar`
converters up 2015-04-10 09:57:04 +03:00			`::`
			`/? 314`
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`
			`\|= jon=^json ^- sole-action`
			`%- need %. jon`
			`=> [jo ..sole-action]`
share.coffee lib/sole implementation 2015-04-14 03:20:54 +03:00			`\|^ (fo %ret (of det/change ~))`
converters up 2015-04-10 09:57:04 +03:00			`++ fo`
			`\|* [a=term b=fist]`
			`\|=(c=json ?.(=([%s a] c) (b c) (some [a ~])))`
			`::`
			`++ ra`
			`\|* [a=[p=term q=fist] b=fist]`
			`\|= c=json %. c`
			`?.(=(%a -.c) b (pe p.a (ar q.a)))`
			`::`
			`++ change (ot ler/(at ni ni ~) ted/(cu \|(a= [0v0 a]) edit) ~)`
			`++ char (cu turf so)`
			`++ edit`
			`%+ fo %nop`
			`%+ ra mor/\|=(json (edit +<))`
share.coffee lib/sole implementation 2015-04-14 03:20:54 +03:00			`(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`
			`--`
			`--`