forked from gergely/org-clock-waybar
Compare commits
1 Commits
612c0d1e31
...
remove-tex
Author | SHA1 | Date | |
---|---|---|---|
a144ee13c0 |
@@ -84,9 +84,9 @@
|
|||||||
(defun org-clock-waybar--get-tags ()
|
(defun org-clock-waybar--get-tags ()
|
||||||
"Get the tags of the currently clocked-in task."
|
"Get the tags of the currently clocked-in task."
|
||||||
(when (org-clocking-p)
|
(when (org-clocking-p)
|
||||||
(or (org-with-point-at org-clock-marker (org-get-tags))
|
(save-window-excursion
|
||||||
"")
|
(org-clock-goto)
|
||||||
))
|
(org-get-tags))))
|
||||||
|
|
||||||
(defun org-clock-waybar--get-clocked-task-json ()
|
(defun org-clock-waybar--get-clocked-task-json ()
|
||||||
"Get the currently clocked-in task’s data as a stringified JSON object.
|
"Get the currently clocked-in task’s data as a stringified JSON object.
|
||||||
@@ -122,7 +122,11 @@ value of `org-clock-waybar-not-clocked-in-text'."
|
|||||||
This function is ought to be used via Emacsclient:
|
This function is ought to be used via Emacsclient:
|
||||||
|
|
||||||
emacsclient --eval '(org-clock-waybar-output-task)'"
|
emacsclient --eval '(org-clock-waybar-output-task)'"
|
||||||
(org-clock-waybar--get-clocked-task-json))
|
(let* ((output (org-clock-waybar--get-clocked-task-json))
|
||||||
|
(start 0)
|
||||||
|
(end (length output)))
|
||||||
|
(set-text-properties start end nil output)
|
||||||
|
output))
|
||||||
|
|
||||||
(defun org-clock-waybar-setup ()
|
(defun org-clock-waybar-setup ()
|
||||||
"Setup org-clock-waybar.
|
"Setup org-clock-waybar.
|
||||||
|
Reference in New Issue
Block a user