Some more tweaks

We now default to using `~/.cache/waybar-current-task.json` if the `xdg` package is not present.

org-clock-waybar.el

@@ -1,3 +1,4 @@
+;;; ...  -*- lexical-binding: t -*-
 ;;; org-clock-waybar.el --- Summary
 
 ;; Copyright (C) 2021 Gergely Polonkai
@@ -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
+  (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)
@@ -89,7 +92,7 @@
     ))
 
 (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,13 +119,17 @@ 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:
 
 emacsclient --eval '(org-clock-waybar-output-task)'"
-  (org-clock-waybar--get-clocked-task-json))
+  (let* ((output (org-clock-waybar--get-clocked-task-json))
+         (start 0)
+         (end (length output)))
+    (set-text-properties start end nil output)
+    output))
 
 (defun org-clock-waybar-setup ()
   "Setup org-clock-waybar.