Add sx--user-@name function to sx.el

1 files changed, 7 insertions, 0 deletions

diff --git a/sx.el b/sx.el
index ac4758e..d4c3ac2 100644
--- a/sx.el
+++ b/sx.el
@@ -198,6 +198,13 @@ Return the result of BODY."
      (add-text-properties p (point) ,properties)
      result))
 
+(defun sx--user-@name (user)
+  "Get the `display_name' of USER prepended with @."
+  (sx-assoc-let user
+    (when (stringp .display_name)
+      (concat "@" .display_name))))
+
+
 ;;; Assoc-let
 (defun sx--site (data)
   "Get the site in which DATA belongs.