[elpa] externals/svg-lib a2fc52ec3e 1/2: Fix custom types

[ELPA Syncer]

branch: externals/svg-lib
commit a2fc52ec3e30e80fe426ae39e3aac619f73284b6
Author: Jimmy Yuen Ho Wong <wyuenho@gmail.com>
Commit: Jimmy Yuen Ho Wong <wyuenho@gmail.com>

    Fix custom types
---
 svg-lib.el | 24 ++++++++++++++++++++++--
 1 file changed, 22 insertions(+), 2 deletions(-)

diff --git a/svg-lib.el b/svg-lib.el
index 4b810ab250..cc9d2bdfa5 100644
--- a/svg-lib.el
+++ b/svg-lib.el
@@ -174,8 +174,28 @@ to the default face)."
 (defcustom svg-lib-style-default
   (svg-lib-style-compute-default)
   "Default style"
-  :type '(plist :key-type   (string :tag "Property")
-                :value-type (string :tag "Value"))
+  :type '(plist :key-type (choice (const :tag "Background" :background)
+                                  (const :tag "Foreground" :foreground)
+                                  (const :tag "Padding" :padding)
+                                  (const :tag "Margin" :margin)
+                                  (const :tag "Stroke" :stroke)
+                                  (const :tag "Radius" :radius)
+                                  (const :tag "Ascent" :ascent)
+                                  (const :tag "Alignment" :alignment)
+                                  (const :tag "Width" :width)
+                                  (const :tag "Height" :height)
+                                  (const :tag "Scale" :scale)
+                                  (const :tag "Crop Left" :crop-left)
+                                  (const :tag "Crop Right" :crop-right)
+                                  (const :tag "Collection" :collection)
+                                  (const :tag "Font Family" :font-family)
+                                  (const :tag "Font Size" :font-size)
+                                  (const :tag "Font Weight" :font-weight))
+                :value-type (choice (const :tag "None" nil)
+                                    (number)
+                                    (string)
+                                    (boolean)
+                                    (symbol)))
   :group 'svg-lib)