forked from gergely/org-clock-waybar
60 lines
1.9 KiB
EmacsLisp
60 lines
1.9 KiB
EmacsLisp
|
;;; org-clock-waybar --- Summary
|
|||
|
|
|
|||
|
|
;;; Commentary:
|
|||
|
|
|
|||
|
|
;;; Code:
|
|||
|
|
|
|||
|
|
(require 'xdg)
|
|||
|
|
(require 'org-clock)
|
|||
|
|
|
|||
|
|
(defgroup org-clock-waybar nil
|
|||
|
|
"Send current clocked task to a JSON file for Waybar visualization"
|
|||
|
|
:group 'emacs)
|
|||
|
|
|
|||
|
|
(defcustom org-clock-waybar-filename
|
|||
|
|
(expand-file-name ".waybar-current-task.json" (xdg-cache-home))
|
|||
|
|
"Name of the file to save task data to."
|
|||
|
|
:type 'string
|
|||
|
|
:group 'org-clock-waybar)
|
|||
|
|
|
|||
|
|
(defconst org-clock-waybar-filename-coding-system
|
|||
|
|
(if (coding-system-p 'utf-8-emacs)
|
|||
|
|
'utf-8-emacs
|
|||
|
|
'emacs-mule)
|
|||
|
|
"Coding system of the file `org-clock-waybar-filename'.")
|
|||
|
|
|
|||
|
|
(defun org-clock-waybar--get-clocked-task-json (buffer)
|
|||
|
|
"Save the current clocked-in task’s title and category to BUFFER.
|
|||
|
|
|
|||
|
|
The output is in JSON format. If there is no clocked in task, both title and
|
|||
|
|
category will be a JSON null value."
|
|||
|
|
(let ((category (when org-clock-current-task
|
|||
|
|
(get-text-property 0 'org-category org-clock-current-task)))
|
|||
|
|
(title (when org-clock-current-task
|
|||
|
|
(substring-no-properties org-clock-current-task))))
|
|||
|
|
(with-current-buffer buffer
|
|||
|
|
(insert "{\"title\":")
|
|||
|
|
(insert (if title (json-encode-string title) "null"))
|
|||
|
|
(insert ",\"category\":")
|
|||
|
|
(insert (if category (json-encode-string category) "null"))
|
|||
|
|
(insert "}"))))
|
|||
|
|
|
|||
|
|
(defun org-clock-waybar-save-task ()
|
|||
|
|
"Save the current clocked in task to `org-clock-waybar-filename'."
|
|||
|
|
(with-temp-buffer
|
|||
|
|
(erase-buffer)
|
|||
|
|
(set-buffer-file-coding-system org-clock-waybar-filename-coding-system)
|
|||
|
|
(org-clock-waybar--get-clocked-task-json (current-buffer))
|
|||
|
|
(write-file org-clock-waybar-filename)))
|
|||
|
|
|
|||
|
|
(defun org-clock-waybar-setup ()
|
|||
|
|
"Setup org-clock-waybar.
|
|||
|
|
|
|||
|
|
It adds `org-clock-waybar-save-task' to both `org-clock-in-hook' and
|
|||
|
|
`org-clock-out-hook'."
|
|||
|
|
(add-hook 'org-clock-in-hook #'org-clock-waybar-save-task)
|
|||
|
|
(add-hook 'org-clock-out-hook #'org-clock-waybar-save-task))
|
|||
|
|
|
|||
|
|
(provide 'org-clock-waybar)
|
|||
|
|
;;; org-clock-waybar.el ends here
|