diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-24 17:09:36 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-24 17:09:36 -0700 |
| commit | fcee99fb27feb268c25a803c9c85bfa56750585c (patch) | |
| tree | 0ef084dbe83d756ccee0c569520c27f9e6a82cb2 | |
| parent | bf9d7ed723517034449af5e4c2857897ccaddbfb (diff) | |
| download | consfigurator-fcee99fb27feb268c25a803c9c85bfa56750585c.tar.gz | |
FILE:CONTAINS-CONF-SPACE: accept any whitespace after the key
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
| -rw-r--r-- | src/property/file.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/property/file.lisp b/src/property/file.lisp index 0cae1c1..287c345 100644 --- a/src/property/file.lisp +++ b/src/property/file.lisp @@ -320,7 +320,7 @@ commented out; the first commented or uncommented line for each key will be uncommented and used to set the value, if it exists." (:desc (format nil "~A has ~{~A ~A~^, ~}" file pairs)) (:apply (simple-conf-update file pairs - :parse-kv #?/^(\S+) (.+)/ + :parse-kv #?/^(\S+)\s+(.+)/ :new-kv (lambda (k v) #?"${k} ${v}")))) (defprop contains-conf-equals :posix (file &rest pairs) |