urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-14 11:08:45 +03:00
Code Issues Packages Projects Releases Wiki Activity

Proper backstepped separator comments for the main talk parser.

Browse Source
This commit is contained in:
Fang 2017-11-17 21:14:42 +01:00
parent 5cd9f12ae3
commit 6d4db0d017
1 changed files with 42 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

84
app/talk.hoon
View File

@ -673,19 +673,19 @@
%+ knee *^work |. ~+ %+ knee *^work |. ~+
=- ;~(pose ;~(pfix sem -) message) =- ;~(pose ;~(pfix sem -) message)
;~ pose ;~ pose
:: ::
:: circle management :: circle management
:: ::
;~((glue ace) (perk %join ~) sorz) ;~((glue ace) (perk %join ~) sorz)
:: ::
;~((glue ace) (perk %leave ~) cirs) ;~((glue ace) (perk %leave ~) cirs)
:: ::
;~ (glue ace) (perk %create ~) ;~ (glue ace) (perk %create ~)
pore pore
cire cire
qut qut
== ==
:: ::
;~ plug (perk %delete ~) ;~ plug (perk %delete ~)
;~(pfix ;~(plug ace cen) sym) ;~(pfix ;~(plug ace cen) sym)
;~ pose ;~ pose
@ -693,22 +693,22 @@
(easy ~) (easy ~)
== ==
== ==
:: ::
;~((glue ace) (perk %depict ~) cire qut) ;~((glue ace) (perk %depict ~) cire qut)
:: ::
;~((glue ace) (perk %filter ~) cire lobe lobe) ;~((glue ace) (perk %filter ~) cire lobe lobe)
:: ::
;~((glue ace) (perk %invite ~) cire shiz) ;~((glue ace) (perk %invite ~) cire shiz)
:: ::
;~((glue ace) (perk %banish ~) cire shiz) ;~((glue ace) (perk %banish ~) cire shiz)
:: ::
;~((glue ace) (perk %source ~) cire sorz) ;~((glue ace) (perk %source ~) cire sorz)
:: ::
;~((glue ace) (perk %unsource ~) cire sorz) ;~((glue ace) (perk %unsource ~) cire sorz)
::TODO why do these nest-fail when doing perk with multiple? ::TODO why do these nest-fail when doing perk with multiple?
:: ::
:: personal metadata :: personal metadata
:: ::
;~ (glue ace) ;~ (glue ace)
(perk %attend ~) (perk %attend ~)
cirs cirs
@ -717,7 +717,7 @@
(cook some (perk %gone %idle %hear %talk ~)) (cook some (perk %gone %idle %hear %talk ~))
== ==
== ==
:: ::
;~ plug ;~ plug
(perk %name ~) (perk %name ~)
;~(pfix ace cirs) ;~(pfix ace cirs)
@ -734,11 +734,11 @@
(easy ~) (easy ~)
== ==
== ==
:: ::
:: displaying info :: displaying info
:: ::
;~(plug (perk %who ~) ;~(pose ;~(pfix ace cirs) (easy ~))) ;~(plug (perk %who ~) ;~(pose ;~(pfix ace cirs) (easy ~)))
:: ::
;~ plug ;~ plug
(perk %what ~) (perk %what ~)
;~ pose ;~ pose
@ -746,17 +746,17 @@
(easy ~) (easy ~)
== ==
== ==
:: ::
;~((glue ace) (perk %show ~) circ) ;~((glue ace) (perk %show ~) circ)
:: ::
;~((glue ace) (perk %hide ~) circ) ;~((glue ace) (perk %hide ~) circ)
:: ::
:: ui settings :: ui settings
:: ::
;~(plug (perk %bind ~) ;~(pfix ace glyph) (punt ;~(pfix ace cirs))) ;~(plug (perk %bind ~) ;~(pfix ace glyph) (punt ;~(pfix ace cirs)))
:: ::
;~(plug (perk %unbind ~) ;~(pfix ace glyph) (punt ;~(pfix ace cirs))) ;~(plug (perk %unbind ~) ;~(pfix ace glyph) (punt ;~(pfix ace cirs)))
:: ::
;~ plug (perk %nick ~) ;~ plug (perk %nick ~)
;~ pose ;~ pose
;~ plug ;~ plug
@ -775,27 +775,27 @@
== ==
== ==
== ==
:: ::
;~(plug (cold %width (jest 'set width ')) dem:ag) ;~(plug (cold %width (jest 'set width ')) dem:ag)
:: ::
;~(plug (perk %set ~) ;~(pose ;~(pfix ace setting) (easy %$))) ;~(plug (perk %set ~) ;~(pose ;~(pfix ace setting) (easy %$)))
:: ::
;~(plug (perk %unset ~) ;~(pfix ace setting)) ;~(plug (perk %unset ~) ;~(pfix ace setting))
:: ::
:: miscellaneous :: miscellaneous
:: ::
;~(plug (perk %help ~) (easy ~)) ;~(plug (perk %help ~) (easy ~))
:: ::
:: (parsers below come last because they match quickly) :: (parsers below come last because they match quickly)
:: ::
:: messaging :: messaging
:: ::
(stag %target ;~(plug cirs (punt ;~(pfix ace message)))) (stag %target ;~(plug cirs (punt ;~(pfix ace message))))
:: ::
(stag %reply ;~(plug pick ;~(pfix ace speeches))) (stag %reply ;~(plug pick ;~(pfix ace speeches)))
:: ::
:: displaying info :: displaying info
:: ::
(stag %number pick) (stag %number pick)
== ==
-- --