From 72f41620c8c674fe1232f07bedd91bf0d7874ea2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Thu, 25 Jun 2020 22:36:15 +0200
Subject: Fix GEO output.

---
 module/output/ical.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'module/output/ical.scm')

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)]
-- 
cgit v1.2.3