Compare commits

..

3 Commits

Author SHA1 Message Date
c327eb18c6
Make the xdg dependency optional
We now default to using `~/.cache/waybar-current-task.json` if the `xdg` package is not present.
2023-01-31 08:47:36 +01:00
754fd9d2fa Merge pull request '[Bugfix] Make sure we remove all text properties before outputting JSON data' (#8) from remove-text-properties into main
Reviewed-on: #8
2021-10-16 10:24:06 +00:00
612c0d1e31
Do not use org-clock-goto to get tags 2021-03-29 10:20:01 +01:00

View File

@ -38,7 +38,7 @@
;;; Code:
(require 'xdg)
(require 'xdg nil t)
(require 'json)
(require 'org-clock)
@ -47,7 +47,9 @@
:group 'emacs)
(defcustom org-clock-waybar-filename
(expand-file-name "waybar-current-task.json" (xdg-cache-home))
(if (fboundp '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."
:type 'string
:group 'org-clock-waybar)
@ -84,9 +86,9 @@
(defun org-clock-waybar--get-tags ()
"Get the tags of the currently clocked-in task."
(when (org-clocking-p)
(save-window-excursion
(org-clock-goto)
(org-get-tags))))
(or (org-with-point-at org-clock-marker (org-get-tags))
"")
))
(defun org-clock-waybar--get-clocked-task-json ()
"Get the currently clocked-in tasks data as a stringified JSON object.