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

Compare commits

base: gergely:main
Branches Tags
gergely:main
gergely:readme-redesign
gergely:remove-text-properties
gergely:configurable-output
..
compare: gergely:remove-text-properties
Branches Tags
gergely:readme-redesign
gergely:main
gergely:remove-text-properties
gergely:configurable-output

No commits in common. "main" and "remove-text-properties" have entirely different histories.
main ... remove-tex

1 changed files with 5 additions and 7 deletions
Show Stats Expand all files Collapse all files

12
org-clock-waybar.el
View File

@ -38,7 +38,7 @@
;;; Code: ;;; Code:
(require 'xdg nil t) (require 'xdg)
(require 'json) (require 'json)
(require 'org-clock) (require 'org-clock)
@ -47,9 +47,7 @@
:group 'emacs) :group 'emacs)
(defcustom org-clock-waybar-filename (defcustom org-clock-waybar-filename
(if (fboundp 'xdg-cache-home) (expand-file-name "waybar-current-task.json" (xdg-cache-home))
(expand-file-name "waybar-current-task.json" (xdg-cache-home))
(expand-file-name "~/.cache/waybar-current-task.json"))
"Name of the file to save task data to." "Name of the file to save task data to."
:type 'string :type 'string
:group 'org-clock-waybar) :group 'org-clock-waybar)
@ -86,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.