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

Compare commits

base: cdo:7a24be4b9c2e0bbf6aa3a11bcbb585d11e94b71b
Branches Tags
cdo:main
...
compare: cdo:main
Branches Tags
cdo:main

4 Commits
7a24be4b9c ... main

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
Camden Dixie O'Brien
1381f0b881 Use unless instead of when 2024-03-13 17:20:56 +00:00
Camden Dixie O'Brien
085736da27 Fix indentation 2024-03-13 17:20:49 +00:00
1 changed files with 18 additions and 30 deletions
Expand all files Collapse all files

16
tsv2vcard.scm
View File

@@ -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))
@@ -39,7 +27,7 @@
(define (foreach-line thunk)
(let loop ()
(let ((line (get-line (current-input-port))))
(when (not (eof-object? line))
(unless (eof-object? line)
(display (thunk line))
(loop)))))