mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-12 15:01:38 +03:00
67cc10f55a
Hoon 151 merge
%gh crashes on startup
Conflicts:
urb/urbit.pill
urb/zod/app/dojo.hoon
urb/zod/app/hood.hoon
urb/zod/arvo/eyre.hoon
urb/zod/arvo/ford.hoon
urb/zod/arvo/gall.hoon
urb/zod/arvo/hoon.hoon
urb/zod/arvo/zuse.hoon
urb/zod/gen/cat.hoon
urb/zod/gen/ls.hoon
urb/zod/gen/ls/subdir.hoon
74 lines
1.8 KiB
Plaintext
74 lines
1.8 KiB
Plaintext
:: File writer module
|
|
::
|
|
:::: /hoon/write/lib
|
|
::
|
|
|%
|
|
++ part {$write $0 pith} :: no state
|
|
++ pith $~
|
|
--
|
|
::
|
|
::::
|
|
::
|
|
|%
|
|
++ data $%({$json json} {$mime mime})
|
|
++ card $% {$exec wire @p $~ {beak silk}}
|
|
{$info wire @p toro}
|
|
==
|
|
--
|
|
::
|
|
::::
|
|
::
|
|
|= [bowl part]
|
|
=* par +<+
|
|
|_ moz/(list {bone card})
|
|
++ abet [(flop moz) `part`par]
|
|
++ emit |=(a/card %_(+> moz :_(moz [ost a])))
|
|
++ beak-now byk(r [%da now])
|
|
++ poke-wipe
|
|
|= sup=spur ^+ abet :: XX determine extension, beak
|
|
=+ ext=%md
|
|
?~ (file (tope beak-now [ext sup]))
|
|
~|(not-found/[ext `path`(flop sup)] !!)
|
|
=- abet:(emit %info write/~ our -)
|
|
(fray (tope beak-now [ext sup]))
|
|
::
|
|
++ poke-tree
|
|
|= {sup/spur mim/mime} ^+ abet :: XX determine extension, beak
|
|
(poke--data [`%md (flop sup)] %mime mim)
|
|
::
|
|
++ poke-paste
|
|
|= {typ/?($hoon $md $txt) txt/@t} ^+ abet
|
|
(poke-data [`typ /web/paste/(scot %da now)] %mime / (taco txt))
|
|
::
|
|
++ poke-comment
|
|
|= {pax/path txt/@t} ^+ abet
|
|
=. pax [%web (welp pax /(scot %da now))]
|
|
=. txt (rap 3 (scot %p src) ': ' txt ~)
|
|
(poke--data [`%comment-md pax] %mime / (taco txt))
|
|
::
|
|
++ poke-sec-atom
|
|
|= [hot=host dat=@]
|
|
?> ?=(%& -.hot)
|
|
(poke--data [`%atom [%sec p.hot]] %mime / (taco dat))
|
|
::
|
|
++ poke--data
|
|
|= {{ext/(unit @t) pax/path} dat/data} ^+ abet
|
|
?~ ext $(ext [~ -.dat])
|
|
=+ cay=?-(-.dat $json [-.dat !>(+.dat)], $mime [-.dat !>(+.dat)])
|
|
?: =(u.ext -.dat)
|
|
(made pax ~ `cay)
|
|
=< abet
|
|
%^ emit %exec write+pax :: XX defer %nice
|
|
[our ~ beak-now %cast u.ext `cay]
|
|
::
|
|
++ made
|
|
|= {pax/wire @ res/gage} ^+ abet
|
|
:: ?. =(our src)
|
|
:: ~|(foreign-write/[our=our src=src] !!)
|
|
?+ -.res ~|(gage/-.res !!)
|
|
$| (mean p.res)
|
|
$& =- abet:(emit %info write+~ our -)
|
|
(foal :(welp (tope beak-now ~) pax /[-.p.res]) p.res)
|
|
==
|
|
--
|