From 4d0ef156bdb0cd0f890608ea73bbf92dde1b2c12 Mon Sep 17 00:00:00 2001
From: BardofSprites <89086143+BardofSprites@users.noreply.github.com>
Date: Sat, 17 Aug 2024 17:10:21 -0400
Subject: org clock status bar

also added changes to prevent moving around the bars
---
 fvwm/.fvwm/fvwmscript/org-clock | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 fvwm/.fvwm/fvwmscript/org-clock

(limited to 'fvwm/.fvwm/fvwmscript/org-clock')

diff --git a/fvwm/.fvwm/fvwmscript/org-clock b/fvwm/.fvwm/fvwmscript/org-clock
new file mode 100644
index 0000000..72bc571
--- /dev/null
+++ b/fvwm/.fvwm/fvwmscript/org-clock
@@ -0,0 +1,33 @@
+WindowTitle {Org-Clock}
+WindowSize  1000 30
+Font "xft:Iosevka Comfy:size=20"
+
+Init
+ Begin
+  Set $task = (GetOutput {exec emacsclient --eval '(bard/org-clock-task-string)'} 1 -1)
+  ChangeTitle 1 $task
+End
+
+PeriodicTasks
+ Begin
+  If (RemainderOfDiv (GetTime) 15)==0 Then
+  Begin
+   Set $task = (GetOutput {exec emacsclient --eval '(bard/org-clock-task-string)'} 1 -1)
+   ChangeTitle 1 $task
+  End
+End
+
+Widget 1
+Property
+ Position 0 0
+ Size 1000 30
+ Font "xft:Iosevka Comfy:size=20"
+ Type ItemDraw
+ Flags NoReliefString
+ Title {}
+Main
+ Case message of
+  SingleClic :
+  Begin
+  End
+End
\ No newline at end of file
-- 
cgit v1.2.3