Rewrite vcard function using format

Use spaces instead of tabs for indentation
2024-03-13 17:33:17 +00:00 · 2024-03-13 17:22:55 +00:00
1 changed files with 18 additions and 30 deletions
--- a/tsv2vcard.scm
+++ b/tsv2vcard.scm
@@ -16,19 +16,7 @@
           (else (iter len rem (+ idx 1) res))))))

 (define (vcard name number)
-  (with-output-to-string
-	(lambda ()
-	  (display "BEGIN:VCARD")
-	  (newline)
-	  (display "N:;")
-	  (display name)
-	  (display ";;;")
-	  (newline)
-	  (display "TEL;TYPE=cell:")
-	  (display number)
-	  (newline)
-	  (display "END:VCARD")
-	  (newline))))
+  (format "BEGIN:VCARD~%N:;~a;;;~%TEL;TYPE=cell:~a~%END:VCARD~%" name number))

 (define (tsv-contact->vcard line)
  (let* ((fields (tsv-fields line))
Author	SHA1	Message	Date
Camden Dixie O'Brien	03cad0f3e2	Rewrite vcard function using format	2024-03-13 17:33:17 +00:00
Camden Dixie O'Brien	4255f1fe43	Use spaces instead of tabs for indentation	2024-03-13 17:22:55 +00:00