diff options
Diffstat (limited to 'module/output/ical.scm')
-rw-r--r-- | module/output/ical.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/module/output/ical.scm b/module/output/ical.scm index 013de5fb..b10e0c56 100644 --- a/module/output/ical.scm +++ b/module/output/ical.scm @@ -65,7 +65,11 @@ (get-writer 'INTEGER)] [(memv key '(GEO)) - (error "Fuck you")] + (lambda (_ v) + (define fl (get-writer 'FLOAT)) + (format #f "~a:~a" + (fl (geo-latitude v)) + (fl (geo-longitude v))))] [(memv key '(RRULE)) (get-writer 'RECUR)] |