Add write-config

This procedure writes a configuration alist to a format understood by
git.

1 files changed, 14 insertions, 1 deletions

diff --git a/gitto/config.scm b/gitto/config.scm
index 1ba199e..14151f6 100644
--- a/gitto/config.scm
+++ b/gitto/config.scm
@@ -19,7 +19,7 @@
 
 (define-module (gitto config)
   #:use-module (ice-9 rdelim)
-  #:export (read-config))
+  #:export (read-config write-config))
 
 (define (parse-setting line)
   (let ((idx (string-index line #\=)))
@@ -45,3 +45,16 @@
                                (parse-setting line))))))
     (close-port port)
     config))
+
+(define* (write-config config #:optional (file #f))
+  (let ((thunk (lambda () (for-each write-section config))))
+    (if file
+        (with-output-to-file file thunk)
+        (thunk))))
+
+(define (write-section section)
+  (format #t "[~a]~%" (car section))
+  (for-each write-setting (cdr section)))
+
+(define (write-setting setting)
+  (format #t "~8t~a = ~a~%" (car setting) (cdr setting)))