diff options
| -rw-r--r-- | undone/main.scm | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/undone/main.scm b/undone/main.scm index 508a8f2..2fa47f7 100644 --- a/undone/main.scm +++ b/undone/main.scm @@ -160,21 +160,6 @@ (string->number (car args))))) todo-list))) -(define-class <todo-view> (<view>)) - -(define-method (sort-view (v <todo-view>) l) - (reverse l)) - -(define-method (filter-view (v <todo-view>)) - (lambda (elm) - (let ((state (assq 'state elm))) - (and state (not (string= (cdr state) "done")))))) - -(define-method (print-item (v <todo-view>) item) - (format #t "~a ~a~%" - (cdr (assq 'state item)) - (cdr (assq 'content item)))) - (define (view args) "Show a list of todo items." (let* ((view-name (or (and (pair? args) (car args)) |