np/worktimer
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add dmenu items printing (command 'dmenu')

Browse Source
This commit is contained in:
Nikolay Puzanov 2021-05-17 22:14:34 +03:00
parent fa9e969cf2
commit b00d8abdb5
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
worktimer.scm
View File

@ -708,6 +708,20 @@
(not-archived deadlines archives))) (not-archived deadlines archives)))
(values #f #f #f)) (values #f #f #f))
;;; Print dmenu items
(define (cmd-dmenu sheet deadlines archives . unused)
(let ((runrec (running sheet)))
(if runrec
(format #t "-- STOP ~a\n" (path->string (car runrec)))
(let ((last (last-task sheet)))
(when last
(format #t "-- START ~a\n" (path->string (car last)))))))
(format #t "~{~a\n~}" (record-path-list
(not-archived sheet archives)
(not-archived deadlines archives)))
(values #f #f #f))
;;; Print deadlines ;;; Print deadlines
(define (cmd-deadlist sheet deadlines archives . unused) (define (cmd-deadlist sheet deadlines archives . unused)
(format #t "~{~a ~}\n" (record-name-list deadlines)) (format #t "~{~a ~}\n" (record-name-list deadlines))
@ -973,6 +987,7 @@
((string= command "deadlist") cmd-deadlist) ((string= command "deadlist") cmd-deadlist)
((string= command "archlist") cmd-archlist) ((string= command "archlist") cmd-archlist)
((string= command "lasttask") cmd-lasttask) ((string= command "lasttask") cmd-lasttask)
((string= command "dmenu") cmd-dmenu)
;; ----------------------- Show usage ------------------------- ;; ;; ----------------------- Show usage ------------------------- ;;
(else (else