ryuslash/undone
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Remove <todo-view> definition

Browse source 
This was only there for testing purposes, it has been moved to my rc file.
This commit is contained in:
Tom Willemsen 2012-10-01 00:36:22 +02:00
parent ffcd87e06f
commit 5e4c1f54f4
1 changed files with 0 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
undone/main.scm
View file

@ -160,21 +160,6 @@
(string->number (car args))))) (string->number (car args)))))
todo-list))) 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) (define (view args)
"Show a list of todo items." "Show a list of todo items."
(let* ((view-name (or (and (pair? args) (car args)) (let* ((view-name (or (and (pair? args) (car args))