From 527475405cc829686b17f4bb1f04f4052ad2914f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sat, 23 May 2020 21:58:35 +0200 Subject: Remove deprecated read-tree. --- module/vcomponent/parse.scm | 26 +------------------------- 1 file changed, 1 insertion(+), 25 deletions(-) (limited to 'module/vcomponent/parse.scm') diff --git a/module/vcomponent/parse.scm b/module/vcomponent/parse.scm index 9e5be8a3..55cf706f 100644 --- a/module/vcomponent/parse.scm +++ b/module/vcomponent/parse.scm @@ -127,29 +127,5 @@ (or (attr cal "X-WR-CALNAME") (string-append "[" (basename path) "]")))) - cal + cal) - ) - - - -;; DEPRECATED -;; find all ics files in a tree, and does something with them -(define-public (read-tree path) - (define list '()) - (ftw path - (lambda (filename statinfo flag) - (case flag - [(regular) - (case (stat:type statinfo) - [(regular) - (when (and (not (string= "." (string-take filename 1))) - (string= "ics" (string-take-right filename 3))) - (set! list (cons filename list))) - #t] - [else #t])] - [(directory) #t] - [else #f]))) - ((@ (ice-9 threads) n-par-map) 12 - (lambda (fname) (call-with-input-file fname parse-calendar)) - list)) -- cgit v1.2.3