From d1cde5a4c2b656f696ac42aa1ab338551c67e275 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 26 Feb 2019 00:07:42 +0100 Subject: Rename some functions. --- code.scm | 31 +++++++++++++++++++------------ 1 file changed, 19 insertions(+), 12 deletions(-) (limited to 'code.scm') diff --git a/code.scm b/code.scm index ec92c347..5ad6ad6c 100755 --- a/code.scm +++ b/code.scm @@ -5,26 +5,33 @@ (begin ;; Supurflous begin block here to make sourcing into geiser easier. (setenv "LD_LIBRARY_PATH" (getcwd)) - (load-extension "libguile-calendar" "init_vcomponent")) + (load-extension "libguile-calendar" "init_lib")) + +(define make-vcomponent %vcomponent-make) +(define children %vcomponent-children) +(define set-attr! %vcomponent-set-attribute!) +(define get-attr %vcomponent-get-attribute) (define root (make-vcomponent "testcal/d1-b.ics")) -(define cal (car (vcomponent-children root))) +(define cal (car (children root))) ;; TODO flatten all calendars into root (use-modules (srfi srfi-19) (srfi srfi-26)) -(for-each (lambda (ev) - (vcomponent-set-attribute! - ev "DTSTART" - ((cut string->date <> "~Y~m~dT~H~M~S") - (vcomponent-get-attribute ev "DTSTART")))) - (vcomponent-children cal)) +(define (mutate-attr! ev field transformer) + (set-attr! ev field + (transformer + (get-attr ev field)))) + +(for-each (cut mutate-attr! <> "DTSTART" + (cut string->date <> "~Y~m~dT~H~M~S")) + (children cal)) -(display (vcomponent-get-attribute (car (vcomponent-children cal)) - "DTSTART")) +(display (get-attr (car (children cal)) + "DTSTART")) (newline) -(display (vcomponent-get-attribute (car (vcomponent-children cal)) - "DTSTART")) +(display (get-attr (car (children cal)) + "DTSTART")) (newline) -- cgit v1.2.3