Support '.' in sections and fields

2026-03-12 11:01:17 +01:00
parent c6cf128a1f
commit 21403e6ca9
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)