Remove <todo-view> definition
This was only there for testing purposes, it has been moved to my rc file.
This commit is contained in:
parent
ffcd87e06f
commit
5e4c1f54f4
1 changed files with 0 additions and 15 deletions
|
@ -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))
|
||||||
|
|
Loading…
Reference in a new issue