Compare commits
6 Commits
remove-tex
...
header-fix
Author | SHA1 | Date | |
---|---|---|---|
c22231dfa1 | |||
1c922fd4b4 | |||
d5a776c761 | |||
c327eb18c6 | |||
754fd9d2fa | |||
612c0d1e31 |
@@ -1,12 +1,13 @@
|
||||
;;; ... -*- lexical-binding: t -*-
|
||||
;;; org-clock-waybar.el --- Summary
|
||||
|
||||
;; Copyright (C) 2021 Gergely Polonkai
|
||||
|
||||
;; Author: Gergely Polonkai <gergely@polonkai.eu>
|
||||
;; Keywords: org, clocking, waybar
|
||||
;; Version: 1.0
|
||||
;; Package-Requires: ((emacs "26.1"))
|
||||
;; URL: https://gitea.polonkai.eu/gergely/org-clock-waybar
|
||||
;; Package-Version: 1.0
|
||||
;; Package-Requires: ((emacs "26.1") (org-mode "9"))
|
||||
|
||||
;; This program is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
@@ -38,7 +39,7 @@
|
||||
|
||||
;;; Code:
|
||||
|
||||
(require 'xdg)
|
||||
(require 'xdg nil t)
|
||||
(require 'json)
|
||||
(require 'org-clock)
|
||||
|
||||
@@ -47,7 +48,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,12 +87,12 @@
|
||||
(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 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.
|
||||
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))
|
||||
(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.
|
||||
|
||||
This function is ought to be used via Emacsclient:
|
||||
|
Reference in New Issue
Block a user