aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authortv <tv@krebsco.de>2019-01-27 23:48:42 +0100
committertv <tv@krebsco.de>2019-01-27 23:48:42 +0100
commit92ca5dbea78d4520e1cc0a3162cee2bbeb6c4c88 (patch)
tree334434c4a9fdd5123baa9203559777479ef6cbdf /src
parent0e199f7a357a4c5973e5837ec67699cf224ca69c (diff)
Reaktor.Plugins.Mention: split using isNick
Diffstat (limited to 'src')
-rw-r--r--src/Data/Char/Extended.hs12
-rw-r--r--src/Reaktor/Plugins/Mention.hs4
2 files changed, 13 insertions, 3 deletions
diff --git a/src/Data/Char/Extended.hs b/src/Data/Char/Extended.hs
index add079d..34d0c3e 100644
--- a/src/Data/Char/Extended.hs
+++ b/src/Data/Char/Extended.hs
@@ -1,9 +1,19 @@
module Data.Char.Extended
( module Data.Char
, isAsciiLetter
+ , isNick
) where
import Data.Char
isAsciiLetter :: Char -> Bool
-isAsciiLetter c = Data.Char.isAsciiUpper c || Data.Char.isAsciiLower c
+isAsciiLetter c = isAsciiUpper c || isAsciiLower c
+
+-- RFC1459
+isNick :: Char -> Bool
+isNick c =
+ 0x41 <= i && i <= 0x7D || -- letters / specials
+ 0x30 <= i && i <= 0x39 || -- digits
+ 0x2D == i -- minus
+ where
+ i = ord c
diff --git a/src/Reaktor/Plugins/Mention.hs b/src/Reaktor/Plugins/Mention.hs
index b288fdb..b0dcca1 100644
--- a/src/Reaktor/Plugins/Mention.hs
+++ b/src/Reaktor/Plugins/Mention.hs
@@ -3,7 +3,7 @@
{-# LANGUAGE RecordWildCards #-}
module Reaktor.Plugins.Mention (new) where
-import qualified Data.Char
+import qualified Data.Char.Extended as C
import qualified Data.Text as T
import Prelude.Extended
import Reaktor
@@ -20,4 +20,4 @@ new Actions{..} = do
where
isMention nick text =
not (T.isPrefixOf (nick <> ":") text) &&
- any (==nick) (T.split (not . Data.Char.isAlphaNum) text)
+ any (==nick) (T.split (not . C.isNick) text)