Remove <todo-view> definition

This was only there for testing purposes, it has been moved to my rc file.

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))