diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-10 13:31:44 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-10 13:31:44 +0200 |
| commit | 2576546efc747257b4327d01fc628ad2ec993a40 (patch) | |
| tree | 6e6b33301bf7dd2de28bbbc4fd0da816678ed0ca | |
| parent | Replace iCalendar parser. (diff) | |
| download | calp-2576546efc747257b4327d01fc628ad2ec993a40.tar.gz calp-2576546efc747257b4327d01fc628ad2ec993a40.tar.xz | |
Add TODO about linewrapping.
| -rw-r--r-- | module/vcomponent/parse/component.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/module/vcomponent/parse/component.scm b/module/vcomponent/parse/component.scm index 565c129d..bb397f21 100644 --- a/module/vcomponent/parse/component.scm +++ b/module/vcomponent/parse/component.scm @@ -20,6 +20,11 @@ (let ((line (string-trim-right line))) (loop (if (char=? #\space (string-ref line 0)) + ;; Line Wrapping + ;; TODO if the line is split inside a unicode character + ;; then this produces multiple broken unicode characters. + ;; It could be solved by checking the start of the new line, + ;; and the tail of the old line for broken char (cons (string-append (car done) (string-drop line 1)) (cdr done)) |