diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-02-18 18:56:18 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-02-18 18:56:18 +0100 |
commit | 7dd22dfad91491b21da600e47a495c047d61e834 (patch) | |
tree | 0e8488e8b9a0926cdc3da92ecc2be195c25d1a87 /code.scm | |
parent | Maybe improved makefile. (diff) | |
download | calp-7dd22dfad91491b21da600e47a495c047d61e834.tar.gz calp-7dd22dfad91491b21da600e47a495c047d61e834.tar.xz |
Start rework of guile interface.
Diffstat (limited to 'code.scm')
-rwxr-xr-x | code.scm | 35 |
1 files changed, 18 insertions, 17 deletions
@@ -11,23 +11,24 @@ (begin ;; Supurflous begin block here to make sourcing into geiser easier. (setenv "LD_LIBRARY_PATH" (getcwd)) - (load-extension "libguile-calendar" "init_calendar")) - -(define (get-properties calendar) - "Fancy wrappen around primitive-get-properties. -Transforms character codes into actuall chcaracters." - (define (recur tree) - (let ((head (car tree))) - (cons (cons (integer->char (car head)) - (cdr head)) - (map recur (cdr tree))))) - (let ((result (recur (primitive-get-properties calendar)))) - (cons 'ROOT (cdr result)))) - -(let* ((v (make-calendar "test-cal/alarm")) - (props (get-properties (cadr (get-components (car (get-components v))))))) - (pretty-print (beautify (flatten props))) - (newline)) + (load-extension "libguile-calendar" "init_vcomponent")) + +(begin + (define root (make-vcomponent "test.ics")) + (define cal (car (vcomponent-children root))) + (define events (vcomponent-children cal))) + +(define (pp-list strs) + (for-each (lambda (i str) + (format #t "~3d | ~a~%" + (1+ i) + str)) + (iota (length strs)) + strs)) + +(pp-list + (map (lambda (c) (car (vcomponent-get-attribute c "summary"))) + events)) #; (do ((i 0 (1+ i))) |