diff options
| author |  Tom Willemsen | 2012-10-04 11:05:30 +0200 |
|---|---|---|
| committer | Tom Willemsen | 2012-10-04 11:05:30 +0200 |
| commit | d6c24c4346692aefb310ee75ae60d29dec3d4e99 (patch) | |
| tree | fc208b775dd760e50cb8382d40b4077a4f2a38a6 | |
| parent | 35683db0e663e94f564be73d7f9daa78837ecd54 (diff) | |
| download | undone-d6c24c4346692aefb310ee75ae60d29dec3d4e99.tar.gz undone-d6c24c4346692aefb310ee75ae60d29dec3d4e99.zip | |
Add view-doc generic
This function should return a string that explains what the view does.
This should remove the need to compile the undonerc in order to get
the explanation.
| -rw-r--r-- | undone/main.scm | 2 | ||||
| -rw-r--r-- | undone/view.scm | 6 |
2 files changed, 6 insertions, 2 deletions
diff --git a/undone/main.scm b/undone/main.scm index b175954..aae732b 100644 --- a/undone/main.scm +++ b/undone/main.scm @@ -219,5 +219,5 @@ (for-each (lambda (view) (format #t "~a~20t~a~%" - (car view) (procedure-documentation (cdr view)))) + (car view) (view-doc (make (cdr view))))) view-list))))) diff --git a/undone/view.scm b/undone/view.scm index ce1ef23..61ec5c7 100644 --- a/undone/view.scm +++ b/undone/view.scm @@ -1,13 +1,14 @@ (define-module (undone view) #:use-module (oop goops) #:export (<view> view-list sort-view filter-view print-item - get-list-for print-view)) + get-list-for print-view view-doc)) (define-generic sort-view) (define-generic filter-view) (define-generic print-item) (define-generic get-list-for) (define-generic print-view) +(define-generic view-doc) (define-class <view> () (todo-list #:init-value '() #:init-keyword #:todo-list)) @@ -33,3 +34,6 @@ (for-each (lambda (item) (print-item v item)) (get-list-for v))) + +(define-method (view-doc (v <view>)) + "Default view, show only the basics.") |