diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-22 23:28:28 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-23 12:59:19 +0200 |
| commit | 87bbd213925a890e3c068b5e1975ba3f68d5cb6c (patch) | |
| tree | 70fefcd47264281e95bd5a604bd14c10c7e50de4 | |
| parent | Migrated some TODO items to github issues. (diff) | |
| download | calp-87bbd213925a890e3c068b5e1975ba3f68d5cb6c.tar.gz calp-87bbd213925a890e3c068b5e1975ba3f68d5cb6c.tar.xz | |
Simplify rrule writer.
| -rw-r--r-- | module/vcomponent/recurrence/internal.scm | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/module/vcomponent/recurrence/internal.scm b/module/vcomponent/recurrence/internal.scm index 33818440..b15ce90e 100644 --- a/module/vcomponent/recurrence/internal.scm +++ b/module/vcomponent/recurrence/internal.scm @@ -66,15 +66,7 @@ (display "#<<recur-rule>" port) (for field in (record-type-fields <recur-rule>) (awhen (get field) - (display " " port) - (display field port) - (display "=" port) - (display - (case field - ;; TODO check over date/time/datetime here - ;; ((until) ((@ (datetime util) time->string) it)) - (else it)) - port))) + (format port " ~a=~a" field it))) (display ">" port))))) |