diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-23 21:58:35 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-23 21:58:35 +0200 |
| commit | 527475405cc829686b17f4bb1f04f4052ad2914f (patch) | |
| tree | 52622e288b57d53d9c7c2a815e814063feb48277 /module/vcomponent/parse.scm | |
| parent | Remove (vcomponent load) module. (diff) | |
| download | calp-527475405cc829686b17f4bb1f04f4052ad2914f.tar.gz calp-527475405cc829686b17f4bb1f04f4052ad2914f.tar.xz | |
Remove deprecated read-tree.
Diffstat (limited to 'module/vcomponent/parse.scm')
| -rw-r--r-- | module/vcomponent/parse.scm | 26 |
1 files changed, 1 insertions, 25 deletions
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)) |