Introduce taskwarrior-task-at-point
This commit is contained in:
parent
02af750b16
commit
30adb49e95
1 changed files with 8 additions and 6 deletions
|
@ -204,12 +204,14 @@
|
|||
|
||||
(defun taskwarrior-id-at-point ()
|
||||
"Get id of task at point."
|
||||
(let* ((line (thing-at-point 'line t))
|
||||
(parse-result (string-match "^ [0-9]*" line))
|
||||
(id (string-trim-left (match-string 0 line))))
|
||||
(if (= id nil)
|
||||
(error "Unable to extract id from line '%s'" line)
|
||||
id)))
|
||||
(let ((line (thing-at-point 'line t)))
|
||||
(string-match "^ [0-9]*" line)
|
||||
(string-trim-left (match-string 0 line))))
|
||||
|
||||
(defun taskwarrior-task-at-point ()
|
||||
"Get id of task at point."
|
||||
(let ((id (taskwarrior-id-at-point)))
|
||||
(taskwarrior-export-task id)))
|
||||
|
||||
(defun taskwarrior-reset-filter ()
|
||||
"Reset the currently set filter."
|
||||
|
|
Loading…
Reference in a new issue