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:header-fix gergely:configurable-output gergely:readme-redesign gergely:remove-text-properties Cadair:main
..
compare: Cadair:201135cc21cff8dc7e269d1bfc8f188fcccb21cf
Branches Tags
Cadair:main gergely:main gergely:header-fix gergely:configurable-output gergely:readme-redesign gergely:remove-text-properties

1 Commits
main ... 201135cc21

Author SHA1 Message Date
Stuart Mumford
201135cc21 sanitisation 2021-12-27 19:51:13 +00:00
1 changed files with 4 additions and 7 deletions
Expand all files Collapse all files

9
org-clock-waybar.el
View File

@@ -1,4 +1,3 @@
;;; ... -*- lexical-binding: t -*-
;;; org-clock-waybar.el --- Summary ;;; org-clock-waybar.el --- Summary
;; Copyright (C) 2021 Gergely Polonkai ;; Copyright (C) 2021 Gergely Polonkai
@@ -39,7 +38,7 @@
;;; Code: ;;; Code:
(require 'xdg nil t) (require 'xdg)
(require 'json) (require 'json)
(require 'org-clock) (require 'org-clock)
@@ -48,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)
@@ -92,7 +89,7 @@
)) ))
(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
@@ -119,7 +116,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-output-task () (defun org-clock-waybar-ouptut-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: