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

Compare commits

base: gergely:configurable-output
Branches Tags
gergely:main gergely:configurable-output gergely:header-fix gergely:readme-redesign gergely:remove-text-properties Cadair:org-mode-9-error Cadair:main
..
compare: Cadair:41181a93925390c4367419b47f87956b5775bfcd
Branches Tags
Cadair:org-mode-9-error Cadair:main gergely:main gergely:configurable-output gergely:header-fix gergely:readme-redesign gergely:remove-text-properties

5 Commits
configurab ... 41181a9392

Author SHA1 Message Date
Stuart Mumford
41181a9392 try a different quoting 2026-02-03 10:28:38 +00:00
Stuart Mumford
8977329ef8 Drop org-mode dep 2026-02-03 09:59:52 +00:00
Gergely Polonkai
da6ee3cf18 Make different parts of the output configurable by setting user functions 2026-02-03 09:58:48 +00:00
Gergely Polonkai
0fc8997b33 Factor out clocked-out title generation to get-task-title 2026-02-03 09:58:48 +00:00
Gergely Polonkai
ee88437dba Rename most functions to remove the double dashes 
This naming convention denotes “private” functions; however, if we want to introduce more
customization, we should make these available and documented well.
 2026-02-03 09:58:48 +00:00
1 changed files with 13 additions and 13 deletions
Expand all files Collapse all files

26
org-clock-waybar.el
View File

@@ -7,7 +7,7 @@
;; Keywords: org, clocking, waybar
;; URL: https://gitea.polonkai.eu/gergely/org-clock-waybar
;; Package-Version: 1.0
;; Package-Requires: ((emacs "26.1") (org-mode "9"))
;; Package-Requires: ((emacs "26.1"))
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
@@ -148,24 +148,24 @@ 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.
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'."
(let* ((text-func (or 'org-clock-waybar-text-function
'org-clock-waybar-get-task-title))
(let* ((text-func (or (and (fboundp ('org-clock-waybar-text-function)))
#'org-clock-waybar-get-task-title))
(text (funcall text-func))
(alt-func (or 'org-clock-waybar-alt-function
'org-clock-waybar-get-task-category))
(alt-func (or (and (fboundp ('org-clock-waybar-alt-function)))
#'org-clock-waybar-get-task-category))
(alt (funcall alt-func))
(tooltip-func (or 'org-clock-waybar-tooltip-function
'org-clock-waybar-get-tooltip))
(tooltip-func (or (and (fboundp ('org-clock-waybar-tooltip-function)))
#'org-clock-waybar-get-tooltip))
(tooltip (funcall tooltip-func))
(class-func (or 'org-clock-waybar-class-function
'org-clock-waybar-get-tags))
(class-func (or (and (fboundp ('org-clock-waybar-class-function)))
#'org-clock-waybar-get-tags))
(class (funcall class-func))
(percentage (when (fboundp 'org-clock-waybar-percentage-function)
(funcall 'org-clock-waybar-percentage-function)))
(funcall #'org-clock-waybar-percentage-function)))
(output (json-new-object)))
(or (null title)
(stringp title)
(error "Title must be a string (org-clock-waybar)!"))
(or (null text)
(stringp text)
(error "Text must be a string (org-clock-waybar)!"))
(or (null alt)
(stringp alt)
(error "Alt text must be a string (org-clock-waybar)!"))