From 6d03df20015443db3ebd9929ab53b078da481ccd Mon Sep 17 00:00:00 2001 From: Anton Dyudin Date: Wed, 9 Aug 2017 18:07:55 -0700 Subject: [PATCH] Weird hack to allow hoon at start-of-line --- arvo/hoon.hoon | 15 +++++++++++---- web/unmark/3.txt | 2 ++ 2 files changed, 13 insertions(+), 4 deletions(-) diff --git a/arvo/hoon.hoon b/arvo/hoon.hoon index 7c4c80412..5f5124e83 100644 --- a/arvo/hoon.hoon +++ b/arvo/hoon.hoon @@ -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 diff --git a/web/unmark/3.txt b/web/unmark/3.txt index e7ed74154..801fc9e62 100644 --- a/web/unmark/3.txt +++ b/web/unmark/3.txt @@ -2,6 +2,8 @@ un*bearably* +0b1100 + --- ## This is a header