From 4fe953de7b5994a896094cf0d62192559a08967d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 2 May 2019 17:58:07 +0200 Subject: work on porting most internal datastructures to scheme equivalents. --- test.scm | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 test.scm (limited to 'test.scm') diff --git a/test.scm b/test.scm new file mode 100644 index 00000000..a3ea80ef --- /dev/null +++ b/test.scm @@ -0,0 +1,16 @@ +(load "module/main.scm") +(use-modules (vcomponent primitive)) + +(define root (%vcomponent-make "/home/hugo/Möte grupp.ics")) +(define cal (car (children root))) + +(use-modules (ice-9 pretty-print)) + +(pretty-print (hash-map->list cons (%vcomponent-get-hash-table cal))) +(newline) + +(for e in (children cal) + (pretty-print (hash-map->list cons (%vcomponent-get-hash-table + e))) + (display (make-string 40 #\-)) + (newline)) -- cgit v1.2.3