Thelie/taskwarrior.el
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Add ability to specify filter profiles

Browse source 
This name for this might change in the future.
This commit is contained in:
Patrick Winter 2019-06-25 13:02:06 +02:00
parent 092fdc75a8
commit 7e1a1d1bc3
No known key found for this signature in database
GPG key ID: 6799552170AB19E5
1 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
taskwarrior.el
View file

@ -16,6 +16,9 @@
(defvar taskwarrior-description 'taskwarrior-description (defvar taskwarrior-description 'taskwarrior-description
"Taskwarrior mode face used for tasks with a priority of C.") "Taskwarrior mode face used for tasks with a priority of C.")
(defvar taskwarrior-profile-alist 'taskwarrior-profile-alist
"A list of named filters in the form an associative list.")
(defface taskwarrior-priority-high-face (defface taskwarrior-priority-high-face
'((((min-colors 88) (class color)) '((((min-colors 88) (class color))
(:foreground "red1")) (:foreground "red1"))
@ -76,6 +79,7 @@
(define-key taskwarrior-mode-map (kbd "g") 'taskwarrior-update-buffer) (define-key taskwarrior-mode-map (kbd "g") 'taskwarrior-update-buffer)
(define-key taskwarrior-mode-map (kbd "a") 'taskwarrior-add) (define-key taskwarrior-mode-map (kbd "a") 'taskwarrior-add)
(define-key taskwarrior-mode-map (kbd "d") 'taskwarrior-done) (define-key taskwarrior-mode-map (kbd "d") 'taskwarrior-done)
(define-key taskwarrior-mode-map (kbd "l") 'taskwarrior-load-profile)
(define-key taskwarrior-mode-map (kbd "o") 'taskwarrior-open-annotation) (define-key taskwarrior-mode-map (kbd "o") 'taskwarrior-open-annotation)
(define-key taskwarrior-mode-map (kbd "D") 'taskwarrior-delete) (define-key taskwarrior-mode-map (kbd "D") 'taskwarrior-delete)
(define-key taskwarrior-mode-map (kbd "m") 'taskwarrior-mark-task) (define-key taskwarrior-mode-map (kbd "m") 'taskwarrior-mark-task)
@ -101,6 +105,16 @@
(when due (when due
(message "Due: %s | %i Annotations" due annotation-count)))) (message "Due: %s | %i Annotations" due annotation-count))))
(defun taskwarrior-load-profile ()
(interactive)
(let* ((profiles (-map 'car taskwarrior-profile-alist))
(profile (completing-read "Profile: " profiles))
(filter (cdr (assoc-string profile taskwarrior-profile-alist))))
(progn
(taskwarrior--set-filter filter)
(taskwarrior-update-buffer filter))))
(defun taskwarrior-previous-task () (defun taskwarrior-previous-task ()
(interactive) (interactive)
(previous-line) (previous-line)