From 5472b2f3beb49f86cc21f39645efeda4fe46f982 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 6 Sep 2020 14:07:40 +0200
Subject: VComponent describe outputs line numbers when available.

---
 module/vcomponent/describe.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/module/vcomponent/describe.scm b/module/vcomponent/describe.scm
index 063efa9c..fbdcf206 100644
--- a/module/vcomponent/describe.scm
+++ b/module/vcomponent/describe.scm
@@ -22,6 +22,8 @@
                           (trim-to-width
                            (format #f "~a" (value vline))
                            (- 80 indent maxlen)))
+                  (awhen (vline-source vline)
+                         (display ((@@ (vcomponent ical parse) get-line) it)))
                   (unless (null? (parameters vline))
                     (display " ;")
                     (for (key value) in (parameters vline)
-- 
cgit v1.2.3