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

Compare commits

merge into: gergely:remove-text-properties
Branches Tags
gergely:main
gergely:header-fix
gergely:configurable-output
gergely:readme-redesign
gergely:remove-text-properties
...
pull from: gergely:main
Branches Tags
gergely:header-fix
gergely:configurable-output
gergely:main
gergely:readme-redesign
gergely:remove-text-properties

5 Commits
remove-tex ... main

Author SHA1 Message Date
Stuart Mumford
1c922fd4b4
Some more tweaks 2025-02-27 12:03:42 +00:00
Stuart Mumford
d5a776c761
fix typo 2025-02-27 11:53:10 +00:00
Gergely Polonkai
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
Gergely Polonkai
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
Stuart Mumford
612c0d1e31
Do not use org-clock-goto to get tags 2021-03-29 10:20:01 +01:00
1 changed files with 10 additions and 7 deletions
Show Stats Expand all files Collapse all files

15
org-clock-waybar.el
View File

@ -1,3 +1,4 @@
;;; ... -*- lexical-binding: t -*-
;;; org-clock-waybar.el --- Summary ;;; org-clock-waybar.el --- Summary
;; Copyright (C) 2021 Gergely Polonkai ;; Copyright (C) 2021 Gergely Polonkai
@ -38,7 +39,7 @@
;;; Code: ;;; Code:
(require 'xdg) (require 'xdg nil t)
(require 'json) (require 'json)
(require 'org-clock) (require 'org-clock)
@ -47,7 +48,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,12 +87,12 @@
(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.
The output is in JSON format constructed in a way so Waybar can process it. 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 If there is no clocked in task, alt becomes empty and text will be set to the
@ -116,7 +119,7 @@ value of `org-clock-waybar-not-clocked-in-text'."
(insert (org-clock-waybar--get-clocked-task-json)) (insert (org-clock-waybar--get-clocked-task-json))
(write-file org-clock-waybar-filename))) (write-file org-clock-waybar-filename)))
(defun org-clock-waybar-ouptut-task () (defun org-clock-waybar-output-task ()
"Output the current task in JSON format Waybar can understand. "Output the current task in JSON format Waybar can understand.
This function is ought to be used via Emacsclient: This function is ought to be used via Emacsclient: