[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 148/352: Käytetään matalan tason customize-tyyppejä wcheck-langu
From: |
Stefan Monnier |
Subject: |
[elpa] 148/352: Käytetään matalan tason customize-tyyppejä wcheck-language-data'ssa |
Date: |
Mon, 07 Jul 2014 14:03:24 +0000 |
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
- [elpa] 340/352: Makefile: Only byte-compile wcheck-mode.el, (continued)
- [elpa] 340/352: Makefile: Only byte-compile wcheck-mode.el, Stefan Monnier, 2014/07/07
- [elpa] 337/352: Use jit-lock-fontify-now instead of font-lock-fontify-region, Stefan Monnier, 2014/07/07
- [elpa] 306/352: Rephrase references to non-existing functions in README, Stefan Monnier, 2014/07/07
- [elpa] 210/352: Siirretään run-with-idle-timer-toiminto omaan funktioonsa, Stefan Monnier, 2014/07/07
- [elpa] 344/352: Update copyright year to 2014, Stefan Monnier, 2014/07/07
- [elpa] 169/352: Varmempi tapa tutkia, onko hiirivalikko käytössä, Stefan Monnier, 2014/07/07
- [elpa] 339/352: Makefile: add rules to make *.elc files (byte-compile), Stefan Monnier, 2014/07/07
- [elpa] 327/352: Convert README to Markdown markup (and rename: .org -> .md), Stefan Monnier, 2014/07/07
- [elpa] 163/352: Tallennetaan täsmäystiedot jäsenninfunktion kutsumisen ajaksi, Stefan Monnier, 2014/07/07
- [elpa] 176/352: Tarkennetaan Ispell-tulosteen käsittelyä, Stefan Monnier, 2014/07/07
- [elpa] 148/352: Käytetään matalan tason customize-tyyppejä wcheck-language-data'ssa,
Stefan Monnier <=
- [elpa] 342/352: Add pointer to Melpa package archive, Stefan Monnier, 2014/07/07
- [elpa] 266/352: Add an explicit OPERATION-MODE "nil" in README's examples, Stefan Monnier, 2014/07/07
- [elpa] 202/352: Abstrahoidaan read-key-toiminto funktioon wcheck-read-key, Stefan Monnier, 2014/07/07
- [elpa] 317/352: Update the version constant string too, Stefan Monnier, 2014/07/07
- [elpa] 313/352: Minor rephrasing in the README's "features" section, Stefan Monnier, 2014/07/07
- [elpa] 271/352: Revert "Add an explicit OPERATION-MODE "nil" in README's examples", Stefan Monnier, 2014/07/07
- [elpa] 349/352: Small README fixes, Stefan Monnier, 2014/07/07
- [elpa] 203/352: Päivitetään Copyright-vuosi ja versionumero: 2011.01.01, Stefan Monnier, 2014/07/07
- [elpa] 174/352: Hyödynnetään vaakasuuntainen tila paremmin oikolukuehdotuspuskurissa, Stefan Monnier, 2014/07/07
- [elpa] 287/352: Make "syntax" and "case-fold" effective with action-program and -parser, Stefan Monnier, 2014/07/07