Make notable commands same as var reset keywords

AlexDaniel · AlexDaniel · commit 81fe2277d37d · 2018-08-29T21:46:40.000+03:00
Nobody remembers them anyway, so it's better to accept any word
consistently.
diff --git a/bin/Notable.p6 b/bin/Notable.p6
@@ -60,12 +60,13 @@ multi method irc-to-me($msg where
 }
 
 my &clearish = {
+    my @clear-commands = <clear reset delete default>;
     do if .args[1].starts-with: @shortcuts.any ~ ‘:’ {
-        m/^ \s* [clear|reset|delete] \s* $/
+        m/^ \s* @clear-commands \s* $/
     } else {
-        m/^ \s* [clear|reset|delete] \s+ <topic> \s* $/
+        m/^ \s* @clear-commands \s+ <topic> \s* $/
         ||
-        m/^ \s* <topic> \s+ [clear|reset|delete] \s* $/
+        m/^ \s* <topic> \s+ @clear-commands \s* $/
     }
 }
 multi method irc-to-me($msg where &clearish) {

Original file line number	Diff line number	Diff line change
`@@ -60,12 +60,13 @@ multi method irc-to-me($msg where`
`60`	`60`	`}`
`61`	`61`
`62`	`62`	`my &clearish = {`
	`63`	`+ my @clear-commands = <clear reset delete default>;`
`63`	`64`	`do if .args[1].starts-with: @shortcuts.any ~ ‘:’ {`
`64`		`- m/^ \s* [clear\|reset\|delete] \s* $/`
	`65`	`+ m/^ \s* @clear-commands \s* $/`
`65`	`66`	`} else {`
`66`		`- m/^ \s* [clear\|reset\|delete] \s+ <topic> \s* $/`
	`67`	`+ m/^ \s* @clear-commands \s+ <topic> \s* $/`
`67`	`68`	`\|\|`
`68`		`- m/^ \s* <topic> \s+ [clear\|reset\|delete] \s* $/`
	`69`	`+ m/^ \s* <topic> \s+ @clear-commands \s* $/`
`69`	`70`	`}`
`70`	`71`	`}`
`71`	`72`	`multi method irc-to-me($msg where &clearish) {`