Compare commits
3 Commits
remove-tex
...
main
Author | SHA1 | Date | |
---|---|---|---|
c327eb18c6 | |||
754fd9d2fa | |||
612c0d1e31 |
@ -38,7 +38,7 @@
|
|||||||
|
|
||||||
;;; Code:
|
;;; Code:
|
||||||
|
|
||||||
(require 'xdg)
|
(require 'xdg nil t)
|
||||||
(require 'json)
|
(require 'json)
|
||||||
(require 'org-clock)
|
(require 'org-clock)
|
||||||
|
|
||||||
@ -47,7 +47,9 @@
|
|||||||
: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)
|
||||||
@ -84,9 +86,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)
|
||||||
(save-window-excursion
|
(or (org-with-point-at org-clock-marker (org-get-tags))
|
||||||
(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.
|
||||||
|
Loading…
Reference in New Issue
Block a user