From 847e0a0b1c177d311f54905115bc77aa73c0adf0 Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Thu, 4 Dec 2014 13:39:17 +0000
Subject: Understand non-ascii when handling @name

---
 sx.el | 38 ++++++++++++++++++++++++++++++++++++--
 1 file changed, 36 insertions(+), 2 deletions(-)

diff --git a/sx.el b/sx.el
index 431643c..1c0ae9f 100644
--- a/sx.el
+++ b/sx.el
@@ -251,14 +251,48 @@ Return the result of BODY."
        (push ov sx--overlays))
      result))
 
+(defvar sx--ascii-replacement-list  
+  '(("[:space:]" . "")
+    ("àåáâäãåą" .  "a")
+    ("èéêëę" .  "e")
+    ("ìíîïı" .  "i")
+    ("òóôõöøőð" .  "o")
+    ("ùúûüŭů" .  "u")
+    ("çćčĉ" .  "c")
+    ("żźž" .  "z")
+    ("śşšŝ" .  "s")
+    ("ñń" .  "n")
+    ("ýÿ" .  "y")
+    ("ğĝ" .  "g")
+    ("ř" . "r")
+    ("ł" . "l")
+    ("đ" . "d")
+    ("ß" . "ss")
+    ("Þ" . "th")
+    ("ĥ" . "h")
+    ("ĵ" . "j")
+    ("^[:ascii:]" . ""))
+  "List of replacements to use for non-ascii characters
+Used to convert user names into @mentions.")
+
 (defun sx--user-@name (user)
   "Get the `display_name' of USER prepended with @.
 In order to correctly @mention the user, all whitespace is
 removed from the display name before it is returned."
   (sx-assoc-let user
     (when (stringp .display_name)
-      (concat "@" (replace-regexp-in-string
-                   "[[:space:]]" "" .display_name)))))
+      (concat "@" (sx--recursive-replace
+                   sx--ascii-replacement-list .display_name)))))
+
+(defun sx--recursive-replace (alist string)
+  "Replace each car of ALIST with its cdr in STRING."
+  (if alist
+      (sx--recursive-replace
+       (cdr alist)
+       (let ((kar (car alist)))
+         (replace-regexp-in-string
+          (format "[%s]" (car kar)) (cdr kar) string)))
+    string))
 
 
 ;;; Assoc-let
-- 
cgit v1.2.3