Cadair/org-clock-waybar
1
0
Fork 0
forked from gergely/org-clock-waybar
Code Issues 4 Pull Requests Projects Releases Wiki Activity

try a different quoting

Browse Source
This commit is contained in:
Stuart Mumford
2026-02-03 10:14:03 +00:00
parent 8977329ef8
commit b930e3ccd0
1 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
org-clock-waybar.el
View File

@@ -148,20 +148,20 @@ When nil, the percentage text will be an empty string."
The output is in JSON format constructed in a way so Waybar can process it. The output is in JSON format constructed in a way so Waybar can process it.
If there is no clocked in task, alt becomes empty and text will be set to the If there is no clocked in task, alt becomes empty and text will be set to the
value of `org-clock-waybar-not-clocked-in-text'." value of `org-clock-waybar-not-clocked-in-text'."
(let* ((text-func (or 'org-clock-waybar-text-function (let* ((text-func (or #'org-clock-waybar-text-function
'org-clock-waybar-get-task-title)) #'org-clock-waybar-get-task-title))
(text (funcall text-func)) (text (funcall text-func))
(alt-func (or 'org-clock-waybar-alt-function (alt-func (or #'org-clock-waybar-alt-function
'org-clock-waybar-get-task-category)) #'org-clock-waybar-get-task-category))
(alt (funcall alt-func)) (alt (funcall alt-func))
(tooltip-func (or 'org-clock-waybar-tooltip-function (tooltip-func (or #'org-clock-waybar-tooltip-function
'org-clock-waybar-get-tooltip)) #'org-clock-waybar-get-tooltip))
(tooltip (funcall tooltip-func)) (tooltip (funcall tooltip-func))
(class-func (or 'org-clock-waybar-class-function (class-func (or #'org-clock-waybar-class-function
'org-clock-waybar-get-tags)) #'org-clock-waybar-get-tags))
(class (funcall class-func)) (class (funcall class-func))
(percentage (when (fboundp 'org-clock-waybar-percentage-function) (percentage (when (fboundp #'org-clock-waybar-percentage-function)
(funcall 'org-clock-waybar-percentage-function))) (funcall #'org-clock-waybar-percentage-function)))
(output (json-new-object))) (output (json-new-object)))
(or (null title) (or (null title)
(stringp title) (stringp title)