From 4e214c5d399011d35878bf82d25f8263284efd10 Mon Sep 17 00:00:00 2001
From: Sean Allred <code@seanallred.com>
Date: Fri, 2 Jan 2015 22:21:32 -0500
Subject: Fix sx-tag--get-all

Instead of returning

    (((name . "tag")) ((name . "tag"))),

return

    ("tag" "tag")
---
 sx-tag.el | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

(limited to 'sx-tag.el')

diff --git a/sx-tag.el b/sx-tag.el
index 37a3fd3..e9d3f4f 100644
--- a/sx-tag.el
+++ b/sx-tag.el
@@ -33,11 +33,14 @@
 
 (defun sx-tag--get-all (site)
   "Retrieve all tags for SITE."
-  (sx-method-call 'tags
-    :get-all t
-    :filter sx-tag-filter
-    :site site
-    :keywords '((pagesize . 100))))
+  (mapcar
+   (lambda (tag)
+     (cdr (assoc 'name tag)))
+   (sx-method-call 'tags
+     :get-all t
+     :filter sx-tag-filter
+     :site site
+     :keywords '((pagesize . 100)))))
 
 (defun sx-tag--get-some-tags-containing (site string)
   "Return at most 100 tags for SITE containing STRING.
-- 
cgit v1.2.3