Commit 0c633519 authored by Aleix Conchillo Flaqué's avatar Aleix Conchillo Flaqué Committed by Aleix Conchillo Flaqué
Browse files

config.scm: provide valid range end

Provide a valid regular expression range for a-Z. Ranges are dependent on
locale, so it's better to be more specific, in this case a-zA-Z.

Fixes guile-hall#23
parent a24d9c5f
......@@ -103,7 +103,7 @@ Values from this codex can be extracted using `OPTION-REF'."
;; First, if auto?, check whether we want help etc.
(when auto?
(cond ((or (and (codex-metadatum 'generate-help? cdx)
(any (cute string-match "^-[a-Z]*h[a-Z]*$|^--help$" <>)
(any (cute string-match "^-[a-zA-Z]*h[a-zA-Z]*$|^--help$" <>)
commandline))
(and (codex-metadatum 'generate-usage? cdx)
(member "--usage" commandline)))
......@@ -420,7 +420,7 @@ the subcommands contained in CONFIGS."
(if ((compose (cut > <> longest-alias) string-length) alias)
(string-length alias)
longest-alias)))
(string-join
(match (fold (lambda (subcmd result)
(let ((string-name (symbol->string (configuration-name
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment