From 5e29ea61e86c399cb966fc2299566d43694c2cfe Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Wed, 7 Jan 2015 16:29:09 -0200
Subject: Move @name to sx-user

---
 sx.el | 33 ---------------------------------
 1 file changed, 33 deletions(-)

(limited to 'sx.el')

diff --git a/sx.el b/sx.el
index d67771b..36ecfca 100644
--- a/sx.el
+++ b/sx.el
@@ -294,39 +294,6 @@ Return the result of BODY."
        (push ov sx--overlays))
      result))
 
-(defconst 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 "@" (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
-- 
cgit v1.2.3