Fix sx-tag--get-all

Instead of returning

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

return

    ("tag" "tag")

1 files changed, 8 insertions, 5 deletions

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.