diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-25 22:36:15 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-25 22:36:15 +0200 |
commit | 72f41620c8c674fe1232f07bedd91bf0d7874ea2 (patch) | |
tree | 3f5b271831092967c07bc4a6c7515a6628084316 /module/output/ical.scm | |
parent | Move stuff from output/ical to output/common./ (diff) | |
download | calp-72f41620c8c674fe1232f07bedd91bf0d7874ea2.tar.gz calp-72f41620c8c674fe1232f07bedd91bf0d7874ea2.tar.xz |
Fix GEO output.
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)] |