mirror of
https://github.com/ilyakooo0/urbit.git
synced 2025-01-05 05:45:46 +03:00
Weird hack to allow hoon at start-of-line
This commit is contained in:
parent
fe96ff92bc
commit
6d03df2001
@ -9956,6 +9956,13 @@
|
||||
:- p.vex
|
||||
`[p.u.q.hav q.u.q.vex]
|
||||
::
|
||||
::REVIEW surely there is a less hacky "first or after space" solution
|
||||
++ easy-sol :: parse start of line
|
||||
|* a/*
|
||||
|= b/nail
|
||||
?: =(1 q.p.b) ((easy a) b)
|
||||
(fail b)
|
||||
::
|
||||
++ echo :: hoon literal
|
||||
|* sab/rule
|
||||
|= {naz/hair los/tape}
|
||||
@ -10019,15 +10026,15 @@
|
||||
:: #twig
|
||||
::
|
||||
;~ plug
|
||||
(stag %text (cold " " whit))
|
||||
(stag %text ;~(pose (cold " " whit) (easy-sol ~)))
|
||||
(stag %code ;~(pfix hax (echo wide)))
|
||||
(easy ~)
|
||||
;~(simu whit (easy ~))
|
||||
==
|
||||
::
|
||||
:: direct hoon constant
|
||||
::
|
||||
;~ plug
|
||||
(stag %text (cold " " whit))
|
||||
(stag %text ;~(pose (cold " " whit) (easy-sol ~)))
|
||||
::
|
||||
%+ stag %code
|
||||
%- echo
|
||||
@ -10041,7 +10048,7 @@
|
||||
;~(pfix cen ;~(pose sym buc pam bar qut nuck:so))
|
||||
==
|
||||
::
|
||||
(easy ~)
|
||||
;~(simu whit (easy ~))
|
||||
==
|
||||
::
|
||||
:: whitespace
|
||||
|
@ -2,6 +2,8 @@
|
||||
|
||||
un*bearably*
|
||||
|
||||
0b1100
|
||||
|
||||
---
|
||||
|
||||
## This is a header
|
||||
|
Loading…
Reference in New Issue
Block a user