blob: a3ea80efb1a6f1a6a6645ea9cba837ba18aa31ca (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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))
|
