monnier pushed a commit to branch master
in repository elpa.
commit 323998beec02fc7ecc0ed0a444b158415d098d9c
Author: Teemu Likonen <[email protected]>
Date: Sat Feb 13 20:08:48 2010 +0000
Muutetaan ulkoisen ohjelman argumentit listaksi
Aiemmin ulkoiselle ohjelmalle on määritelty argumentit merkkijonona
muodossa (args . "-l -d fi_FI"). Tämä merkkijono on sitten
automaattisesti hajotettu listaksi ("-l" "-d" "fi_FI"), jotta ulkoiselle
ohjelmalle menevät argumentit saadaan erotettua.
Nyt käyttäjä määrittelee argumentit jo alun alkaen listana, jossa
jokainen elementti on yksi argumentti. Tämä on varmatoimisempi, koska ei
olla enää riippuvaisia funktiosta, joka hajottaa argumenttimerkkijonon
listaksi. Teoriassa hajotusfunktio ei aina tuottaisi sellaista tulosta,
jota käyttäjä odottaa.
Edelleenkin vanha määrittelytapa (yksi merkkijono) toimii, joten
yhteensopivuutta ei ole rikottu. Merkkijonona määritellyt argumentit
muutetaan kuitenkin sisäisesti listaksi, ja myös customize ohjaa
käyttäjää tekemään sen listaksi.
---
wcheck-mode.el | 43 ++++++++++++++++++++++++++++++-------------
1 files changed, 30 insertions(+), 13 deletions(-)
diff --git a/wcheck-mode.el b/wcheck-mode.el
index 4e278a2..762cef9 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -63,7 +63,9 @@ program
for spell-checking LANGUAGE. This setting is mandatory.
args
- Optional command-line argument string for the program.
+ Optional command-line arguments for the program. The VALUE
+ is a list of strings. Each string is a single argument for
+ the program.
connection
The VALUE is used to set variable `process-connection-type'
@@ -143,17 +145,17 @@ An example contents of the `wcheck-language-data'
variable:
((\"suomi\"
(program . \"/usr/bin/enchant\")
- (args . \"-l -d fi_FI\"))
- (syntax . my-finnish-syntax-table)
+ (args \"-l\" \"-d\" \"fi_FI\")
+ (syntax . my-finnish-syntax-table))
(\"British English\"
(program . \"/usr/bin/ispell\")
- (args . \"-l -d british\")
+ (args \"-l\" \"-d\" \"british\"))
(\"Trailing whitespace\"
(program . \"/bin/cat\")
(regexp-start . \"\")
(regexp-body . \"\\\\s-+\")
(regexp-end . \"$\")
- (regexp-discard . \"\"))))"
+ (regexp-discard . \"\")))"
:group 'wcheck
:type
@@ -168,8 +170,18 @@ An example contents of the `wcheck-language-data' variable:
(const :tag "Program: " :format "%t" program)
(file :format "%v"))
(cons :tag "Arguments" :format "%v"
- (const :tag "Arguments: " :format "%t" args)
- (string :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
@@ -204,7 +216,7 @@ An example contents of the `wcheck-language-data' variable:
(defconst wcheck-language-data-defaults
- '((args . "")
+ '((args . nil)
(connection . nil)
(face . wcheck-default-face)
(syntax . text-mode-syntax-table)
@@ -679,9 +691,7 @@ operation was unsuccessful."
;; It doesn't exist so start a new one.
(let* ((language (wcheck-get-data :buffer buffer :language))
(program (wcheck-query-language-data language 'program))
- (args (split-string-and-unquote
- (wcheck-query-language-data language 'args t)
- "[ \t\n]+"))
+ (args (wcheck-query-language-data language 'args t))
(process-connection-type
(wcheck-query-language-data language 'connection t))
proc)
@@ -879,16 +889,23 @@ defined in `wcheck-language-data-defaults'."
((eq key 'syntax)
(if (syntax-table-p (and (boundp value)
(eval value)))
- value default-value))
+ value
+ default-value))
((eq key 'face)
(if (facep value) value default-value))
((or (eq key 'program)
- (eq key 'args)
(eq key 'regexp-start)
(eq key 'regexp-body)
(eq key 'regexp-end)
(eq key 'regexp-discard))
(if (stringp value) value default-value))
+ ((eq key 'args)
+ (cond ((listp value)
+ value)
+ ((stringp value)
+ ;; For backwards compatibility
+ (split-string-and-unquote value "[ \t\n]+"))
+ (t default-value)))
((or (eq key 'connection)
(eq key 'case-fold))
value))))
