From 5e4c1f54f4157b29d032cb9f055f6943a969988c Mon Sep 17 00:00:00 2001
From: Tom Willemsen <tom@ryuslash.org>
Date: Mon, 1 Oct 2012 00:36:22 +0200
Subject: [PATCH] Remove <todo-view> definition

This was only there for testing purposes, it has been moved to my rc file.
---
 undone/main.scm | 15 ---------------
 1 file changed, 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))