diff options
Diffstat (limited to '')
-rwxr-xr-x | src/main.scm | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/src/main.scm b/src/main.scm deleted file mode 100755 index 408b9de0..00000000 --- a/src/main.scm +++ /dev/null @@ -1,24 +0,0 @@ -#!/usr/bin/guile \ --e main -s -!# - -(add-to-load-path (dirname (current-filename))) - -(use-modules (parse)) - -(define (main args) - -;; (define *path* "/home/hugo/.local/var/cal/STABEN/599ca4a2f8eda362aaac598c999321dcc8004780a1d5cef36019c7e421b70b08.ics") -;; (define root (parse-cal-path *path*)) - -;; (format #t "root = ~a~%" root) - - - (format (current-error-port) "Parsing ~s~%" (cadr args)) - (let ((cal (read-tree (cadr args)))) - (format #t "cal = ~a~%" cal) - (format (current-error-port) "~a events~%" (length cal))) - - ) - - |