1 files changed, 11 insertions(+), 10 deletions(-)

M ushin-shapes.el

@@ 57,16 57,17 @@
 
 (defun ushin-shapes--build-tag (shape)
   "Build `svg-tag-mode' tag from SHAPE."
-  `(,(concat ":\\(" shape "\\):") .
-    ((lambda (tag)
-       (svg-lib-icon ,shape
-                     `( :background "transparent"
-                        :foreground ,ushin-shapes-foreground-color
-                        :padding 0
-                        :stroke 0
-                        :height 1
-                        :scale 0.8
-                        :collection "ushin"))))))
+  `(,(format ":\\(%s\\):" shape)
+    (lambda (arg)
+      (svg-lib-icon ,shape nil
+                    :background "transparent"
+                    :foreground ,ushin-shapes-foreground-color
+                    :padding 0
+                    :stroke 0
+                    :height 1
+                    :scale 0.8
+                    :collection "ushin"))
+    nil nil))
 
 (defun ushin-shapes-tags ()
   "Return list of ushin `svg-tag-mode' tags."