Support '.' in sections and fields

2026-03-12 11:06:12 +01:00
parent 21403e6ca9
commit 6a4005c1d8
1 changed files with 2 additions and 2 deletions
--- a/main.rkt
+++ b/main.rkt
@@ -84,8 +84,8 @@
 (define (file->ini file*)
  (let* ((file (get-ini-file file*))
 	 (lines (if (file-exists? file) (file->lines file) '()))
-         (re-section #px"^\\[([a-zA-Z0-9_-.]+)\\]$")
-         (re-keyval #px"^([a-zA-Z0-9_-.]+)[=](.*)$")
+         (re-section #px"^\\[([a-zA-Z0-9_.-]+)\\]$")
+         (re-keyval #px"^([a-zA-Z0-9_.-]+)[=](.*)$")
         (re-comment #px"^[;](.*)$"))
    (letrec ((f (lambda (sections section lines)
                  (if (null? lines)