[nongnu] elpa/hyperdrive fa48b80132 060/102: Improve defcustom

[ELPA Syncer]

branch: elpa/hyperdrive
commit fa48b801328c69a0eb70b0cc320afaf1bce3ee89
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Improve defcustom
---
 hyperdrive-vars.el | 41 +++++++++++++++++++++++++++++------------
 1 file changed, 29 insertions(+), 12 deletions(-)

diff --git a/hyperdrive-vars.el b/hyperdrive-vars.el
index aba6a6bf2e..3032d70491 100644
--- a/hyperdrive-vars.el
+++ b/hyperdrive-vars.el
@@ -228,20 +228,37 @@ see."
   "Alist mapping hyperdrive and hyperdrive entry metadata item to format 
string.
 Each metadata item may be one of:
 
-- \\+`name' (Entry name)
-- \\+`path' (Entry path)
-- \\+`version' (Entry version)
-- \\+`petname' (Hyperdrive petname)
-- \\+`nickname' (Hyperdrive nickname)
-- \\+`domains' (Hyperdrive domains)
-- \\+`public-key' (Hyperdrive public key)
-- \\+`short-key' (Hyperdrive short key)
-- \\+`seed' (Hyperdrive seed)
+- \\=`name' (Entry name)
+- \\=`path' (Entry path)
+- \\=`version' (Entry version)
+- \\=`petname' (Hyperdrive petname)
+- \\=`nickname' (Hyperdrive nickname)
+- \\=`domains' (Hyperdrive domains)
+- \\=`public-key' (Hyperdrive public key)
+- \\=`short-key' (Hyperdrive short key)
+- \\=`seed' (Hyperdrive seed)
 
 In each corresponding format string, \"%s\" is replaced with the
-value.  Used in `hyperdrive-buffer-name-format', which see."
-  :type '(alist :key-type symbol :value-type string)
-  :options '(name version path petname nickname public-key short-key seed 
domains))
+value (and should only be present once in the string).  Used in
+`hyperdrive-buffer-name-format', which see."
+  :type '(list (cons :tag "Entry name" (const name)
+                     (string :tag "Format string"))
+               (cons :tag "Entry version" (const version)
+                     (string :tag "Format string"))
+               (cons :tag "Entry path" (const path)
+                     (string :tag "Format string"))
+               (cons :tag "Hyperdrive petname" (const petname)
+                     (string :tag "Format string"))
+               (cons :tag "Hyperdrive nickname" (const nickname)
+                     (string :tag "Format string"))
+               (cons :tag "Hyperdrive public key" (const public-key)
+                     (string :tag "Format string"))
+               (cons :tag "Hyperdrive short key" (const short-key)
+                     (string :tag "Format string"))
+               (cons :tag "Hyperdrive seed" (const seed)
+                     (string :tag "Format string"))
+               (cons :tag "Hyperdrive domains" (const domains)
+                     (string :tag "Format string"))))
 
 ;;;;; Faces