cdo/tsv2vcard
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Rewrite vcard function using format

Browse Source
This commit is contained in:
Camden Dixie O'Brien 2024-03-13 17:33:17 +00:00
parent 4255f1fe43
commit 03cad0f3e2
1 changed files with 1 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tsv2vcard.scm
View File

@ -16,19 +16,7 @@
(else (iter len rem (+ idx 1) res)))))) (else (iter len rem (+ idx 1) res))))))
(define (vcard name number) (define (vcard name number)
(with-output-to-string (format "BEGIN:VCARD~%N:;~a;;;~%TEL;TYPE=cell:~a~%END:VCARD~%" name number))
(lambda ()
(display "BEGIN:VCARD")
(newline)
(display "N:;")
(display name)
(display ";;;")
(newline)
(display "TEL;TYPE=cell:")
(display number)
(newline)
(display "END:VCARD")
(newline))))
(define (tsv-contact->vcard line) (define (tsv-contact->vcard line)
(let* ((fields (tsv-fields line)) (let* ((fields (tsv-fields line))