urbit/mar/dill/blit.hoon

::
::::  /hoon/dill-blit/mar
  ::
/?    314
/-    sole
[sole .]
|_  dib=dill-blit
::
++  grab                                                ::  convert from
  |%
  ++  noun  dill-blit                                       ::  clam from %noun
  --
++  grow
  |%
  ++  json
    ^-  ^json
    ?+  -.dib  ~|(unsupported-blit/-.dib !!)
      %mor  [%a (turn p.dib |=(a=dill-blit json(dib a)))]
      %hop  (joba %hop (jone p.dib))
      ?(%pro %out)  (joba -.dib (jape (tufa p.dib)))
      ?(%bel %clr)  (joba %act %s -.dib)
    ==
  --
--
Matrix frontend v1 2015-04-09 04:35:17 +03:00			`::`
path refactoring 2015-06-05 03:27:01 +03:00			`:::: /hoon/dill-blit/mar`
Matrix frontend v1 2015-04-09 04:35:17 +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`
			`[sole .]`
Matrix frontend v1 2015-04-09 04:35:17 +03:00			`\|_ dib=dill-blit`
			`::`
			`++ grab :: convert from`
			`\|%`
			`++ noun dill-blit :: clam from %noun`
			`--`
			`++ grow`
			`\|%`
			`++ json`
			`^- ^json`
			`?+ -.dib ~\|(unsupported-blit/-.dib !!)`
			`%mor [%a (turn p.dib \|=(a=dill-blit json(dib a)))]`
			`%hop (joba %hop (jone p.dib))`
			`?(%pro %out) (joba -.dib (jape (tufa p.dib)))`
			`?(%bel %clr) (joba %act %s -.dib)`
			`==`
			`--`
			`--`