ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-13 08:38:43 +03:00
Code Issues Packages Projects Releases Wiki Activity

Eliminate most uses of the => [. library] antipattern.

Browse Source
This commit is contained in:
C. Guy Yarvin 2018-01-03 17:10:21 -08:00
parent 1039458536
commit f64a2f2cd0
5 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
app/ask.hoon
View File

@ -3,7 +3,7 @@
::
/? 310
/+ sole, hood-womb, prey
[. sole]
=, sole
|%
++ card
$% {$diff $sole-effect sole-effect}
@ -95,7 +95,7 @@
(transmit set+~ pro+prompt ~) :: XX handle multiple links?
::
$det :: reject all input
=^ inv som (~(transceive sole som) +.act)
=^ inv som (~(transceive ^sole som) +.act)
=. sos (~(put by sos) ost.bow som)
?~ wom
=/ try (rose (tufa buf.som) fed:ag)
@ -126,7 +126,7 @@
++ transmit
|= {inv/sole-edit mor/(list sole-effect)}
=/ som (~(got by sos) ost.bow)
=^ det som (~(transmit sole som) inv)
=^ det som (~(transmit ^sole som) inv)
=. sos (~(put by sos) ost.bow som)
[[(effect mor+[det+det mor])]~ +>.$]
::

12
app/dojo.hoon
View File

@ -1184,10 +1184,10 @@
++ dy-edit :: handle edit
|= cal/sole-change
^+ +>+>
=^ dat say (~(transceive sole say) cal)
=^ dat say (~(transceive ^sole say) cal)
?: |(?=(^ per) ?=(^ pux) ?=($~ pro))
~& %dy-edit-busy
=^ lic say (~(transmit sole say) dat)
=^ lic say (~(transmit ^sole say) dat)
(dy-diff %mor [%det lic] [%bel ~] ~)
(dy-slam(per `dat) /edit u.pro !>((tufa buf.say)))
::
@ -1465,12 +1465,12 @@
++ he-errd :: reject update
|= {rev/(unit sole-edit) err/@u} ^+ +>
=+ red=(fall rev [%nop ~]) :: required for error location sync
=^ lic say (~(transmit sole say) red)
=^ lic say (~(transmit ^sole say) red)
(he-diff %mor [%det lic] [%err err] ~)
::
++ he-pone :: clear prompt
^+ .
=^ cal say (~(transmit sole say) [%set ~])
=^ cal say (~(transmit ^sole say) [%set ~])
(he-diff %mor [%det cal] ~)
::
++ he-prow :: where we are
@ -1543,7 +1543,7 @@
^+ +>
:: ~& [%his-clock ler.cal]
:: ~& [%our-clock ven.say]
=^ dat say (~(transceive sole say) cal)
=^ dat say (~(transceive ^sole say) cal)
?. ?& ?=($del -.dat)
=(+(p.dat) (lent buf.say))
==
@ -1577,7 +1577,7 @@
?~ p.doy
(he-errd ~ (lent txt))
=+ old=(weld ?~(buf "> " " ") (tufa buf.say))
=^ cal say (~(transmit sole say) [%set ~])
=^ cal say (~(transmit ^sole say) [%set ~])
=. +>.$ (he-diff %mor txt+old nex+~ det+cal ~)
?- -.u.p.doy
$& (he-plan(buf ~) p.u.p.doy)

2
gen/moon.hoon
View File

@ -6,7 +6,7 @@
/- sole
/+ old-zuse
=, old-zuse
[. sole]
=, sole
::
::::
::

8
lib/hood/drum.hoon
View File

@ -4,7 +4,7 @@
/? 310 :: version
/- sole, hall
/+ sole
[. ^sole]
=, ^sole
:: :: ::
:::: :: ::
:: :: ::
@ -593,7 +593,7 @@
::
++ ta-err :: hear remote error
|= pos/@ud
(ta-erl (~(transpose sole say.inp) pos))
(ta-erl (~(transpose ^sole say.inp) pos))
::
++ ta-fec :: apply effect
|= fec/sole-effect
@ -642,14 +642,14 @@
::
++ ta-got :: apply change
|= cal/sole-change
=^ ted say.inp (~(receive sole say.inp) cal)
=^ ted say.inp (~(receive ^sole say.inp) cal)
(ta-dog:(ta-off ted.cal) ted)
::
++ ta-hom :: local edit
|= ted/sole-edit
^+ +>
=. +> (ta-det:(ta-off ted) ted)
(ta-dog(say.inp (~(commit sole say.inp) ted)) ted)
(ta-dog(say.inp (~(commit ^sole say.inp) ted)) ted)
::
++ ta-jump :: buffer pos
|= {dir/?($l $r) til/?($ace $edg $wrd) pos/@ud}

2
lib/sole.hoon
View File

@ -3,7 +3,7 @@
::
/? 310
/- sole
[. ^sole]
=, ^sole
::
::::
::