contrapunctus
/
chronometrist
Archived
1
3
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

Display index column

This commit is contained in:
contrapunctus 2022-04-08 11:41:50 +05:30
parent 162f005507
commit 0f0dab74bc
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
cl/chronometrist.org
View File

@ -2407,11 +2407,19 @@ s-expressions in a text column.")
;; (format *debug-io* "*application-frame*: ~a~%" *application-frame*)
(let ((stream *standard-output*)
(task-list (chronometrist:task-list)))
(clim:formatting-table (stream)
(loop for task in task-list do
(clim:formatting-row (stream)
(clim:formatting-cell (stream)
(format stream "~A" task)))))))
(formatting-table (stream)
(loop for task in task-list
for index from 1
do (formatting-row (stream)
(formatting-cell (stream)
(format stream "~2@A" index))
(formatting-cell (stream)
(format stream "~A" task)))))))
#+END_SRC
**** refresh :command:
#+BEGIN_SRC lisp
(define-chronometrist-command (com-refresh :name t) ())
#+END_SRC
**** run-chronometrist