From 026f8f42a124da1dcc0a7254e49e2cf787b82fe1 Mon Sep 17 00:00:00 2001 From: Sean Allred Date: Tue, 25 Nov 2014 22:39:52 -0500 Subject: Remove whitespace for effective at-mentions If the display name contained whitespace, the function would keep the whitespace in the at-mention. According to observed behavior on the website, this is not correct. This commit removes all whitespace from the returned display name in the appropriate function. --- sx.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'sx.el') diff --git a/sx.el b/sx.el index d4c3ac2..e47e6e3 100644 --- a/sx.el +++ b/sx.el @@ -199,10 +199,13 @@ Return the result of BODY." result)) (defun sx--user-@name (user) - "Get the `display_name' of USER prepended with @." + "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 "@" .display_name)))) + (concat "@" (replace-regexp-in-string + "[[:space:]]" "" .display_name))))) ;;; Assoc-let -- cgit v1.2.3