[elpa] 148/352: Käytetään matalan tason customize-tyyppejä wcheck-language-data'ssa

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit ecc221b6cb6e66eefbad008b99b95ace8ec53594
Author: Teemu Likonen <address@hidden>
Date:   Mon Feb 22 17:17:04 2010 +0000

    Käytetään matalan tason customize-tyyppejä wcheck-language-data'ssa
    
    Muutetaan muuttujan wcheck-language-data customize käyttämään matalan
    tason tyyppejä, kuten repeat ja list, aiemman alist-tyypin sijaan. Tämä
    ei vaikuta toimintaan mitenkään, mutta koodi on ehkä hieman selkeämpi.
---
 wcheck-mode.el |  110 ++++++++++++++++++++++++++++---------------------------
 1 files changed, 56 insertions(+), 54 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index f686099..445af19 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -159,60 +159,62 @@ An example contents of the `wcheck-language-data' 
variable:
 
   :group 'wcheck
   :type
-  '(alist
-    :key-type (string :tag "Language")
-    :value-type
-    (repeat
-     :tag "Settings"
-     (choice
-      :format "%[Value Menu%] %v"
-      (cons :tag "Program" :format "%v"
-            (const :tag "Program: " :format "%t" program)
-            (file :format "%v"))
-      (cons :tag "Arguments" :format "%v"
-            (const :format "" args)
-            (repeat :tag "Arguments"
-                    :value-to-internal
-                    (lambda (widget value)
-                      (cond ((stringp value)
-                             (split-string-and-unquote value "[ \t\n]+"))
-                            ((listp value)
-                             value)))
-                    :match (lambda (widget value)
-                             (or (listp value)
-                                 (stringp value)))
-                    (string :format "%v")))
-      (cons :tag "Connection type" :format "%v"
-            (const :tag "Connection type: " :format "%t" connection)
-            (choice :format "%[Value Menu%] %v" :value nil
-                    (const :tag "pipe (nil)" nil)
-                    (const :tag "pty" :match (lambda (widget value)
-                                               (or (eq value t)
-                                                   (eq value 'pty)))
-                           pty)))
-      (cons :tag "Face" :format "%v"
-            (const :tag "Face: " :format "%t" face)
-            (symbol :format "%v" :value wcheck-default-face))
-      (cons :tag "Syntax table" :format "%v"
-            (const :tag "Syntax table: " :format "%t" syntax)
-            (variable :format "%v" :value text-mode-syntax-table))
-      (cons :tag "Regexp start" :format "%v"
-            (const :tag "Regexp start: " :format "%t" regexp-start)
-            (regexp :format "%v" :value "\\<'*"))
-      (cons :tag "Regexp body" :format "%v"
-            (const :tag "Regexp body: " :format "%t" regexp-body)
-            (regexp :format "%v" :value "\\w+?"))
-      (cons :tag "Regexp end" :format "%v"
-            (const :tag "Regexp end: " :format "%t" regexp-end)
-            (regexp :format "%v" :value "'*\\>"))
-      (cons :tag "Regexp discard" :format "%v"
-            (const :tag "Regexp discard: " :format "%t" regexp-discard)
-            (regexp :format "%v" :value "\\`'+\\'"))
-      (cons :tag "Regexp case" :format "%v"
-            (const :tag "Regexp case: " :format "%t" case-fold)
-            (choice :format "%[Value Menu%] %v" :value nil
-                    (const :tag "sensitive" nil)
-                    (const :tag "insensitive" t)))))))
+  '(repeat
+    (list
+     :format "%v"
+     (string :tag "Language")
+     (repeat
+      :inline t
+      :tag "Settings"
+      (choice
+       :format "%[Value Menu%] %v"
+       (cons :tag "Program" :format "%v"
+             (const :tag "Program: " :format "%t" program)
+             (file :format "%v"))
+       (cons :tag "Arguments" :format "%v"
+             (const :format "" args)
+             (repeat :tag "Arguments"
+                     :value-to-internal
+                     (lambda (widget value)
+                       (cond ((stringp value)
+                              (split-string-and-unquote value "[ \t\n]+"))
+                             ((listp value)
+                              value)))
+                     :match (lambda (widget value)
+                              (or (listp value)
+                                  (stringp value)))
+                     (string :format "%v")))
+       (cons :tag "Connection type" :format "%v"
+             (const :tag "Connection type: " :format "%t" connection)
+             (choice :format "%[Value Menu%] %v" :value nil
+                     (const :tag "pipe (nil)" nil)
+                     (const :tag "pty" :match (lambda (widget value)
+                                                (or (eq value t)
+                                                    (eq value 'pty)))
+                            pty)))
+       (cons :tag "Face" :format "%v"
+             (const :tag "Face: " :format "%t" face)
+             (symbol :format "%v" :value wcheck-default-face))
+       (cons :tag "Syntax table" :format "%v"
+             (const :tag "Syntax table: " :format "%t" syntax)
+             (variable :format "%v" :value text-mode-syntax-table))
+       (cons :tag "Regexp start" :format "%v"
+             (const :tag "Regexp start: " :format "%t" regexp-start)
+             (regexp :format "%v" :value "\\<'*"))
+       (cons :tag "Regexp body" :format "%v"
+             (const :tag "Regexp body: " :format "%t" regexp-body)
+             (regexp :format "%v" :value "\\w+?"))
+       (cons :tag "Regexp end" :format "%v"
+             (const :tag "Regexp end: " :format "%t" regexp-end)
+             (regexp :format "%v" :value "'*\\>"))
+       (cons :tag "Regexp discard" :format "%v"
+             (const :tag "Regexp discard: " :format "%t" regexp-discard)
+             (regexp :format "%v" :value "\\`'+\\'"))
+       (cons :tag "Regexp case" :format "%v"
+             (const :tag "Regexp case: " :format "%t" case-fold)
+             (choice :format "%[Value Menu%] %v" :value nil
+                     (const :tag "sensitive" nil)
+                     (const :tag "insensitive" t))))))))
 
 
 (defconst wcheck-language-data-defaults