From 92ca5dbea78d4520e1cc0a3162cee2bbeb6c4c88 Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Sun, 27 Jan 2019 23:48:42 +0100
Subject: Reaktor.Plugins.Mention: split using isNick

---
 src/Data/Char/Extended.hs | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'src/Data')

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
-- 
cgit v1.2.3