From 0b610748ff22ef2fcab45f4fa46d73b2eaaa1c04 Mon Sep 17 00:00:00 2001
From: Daniel <89086143+BardofSprites@users.noreply.github.com>
Date: Fri, 5 Jul 2024 23:57:39 -0400
Subject: bigupdate

---
 fvwm/.fvwm/fvwmscript/FvwmScript-DateTime | 54 +++++++++++++++++++++++++++++++
 1 file changed, 54 insertions(+)
 create mode 100644 fvwm/.fvwm/fvwmscript/FvwmScript-DateTime

(limited to 'fvwm/.fvwm/fvwmscript/FvwmScript-DateTime')

diff --git a/fvwm/.fvwm/fvwmscript/FvwmScript-DateTime b/fvwm/.fvwm/fvwmscript/FvwmScript-DateTime
new file mode 100644
index 0000000..1d316d9
--- /dev/null
+++ b/fvwm/.fvwm/fvwmscript/FvwmScript-DateTime
@@ -0,0 +1,54 @@
+WindowTitle {DateTime}
+WindowSize  120 35
+Font "xft:Iosevka Comfy:size=12"
+
+Init
+ Begin
+  Set $Date = (GetOutput {exec date "+%Y-%m-%d"} 1 -1)
+  Set $Time = (GetOutput {exec date "+%H:%M"} 1 -1)
+
+  ChangeTitle 1 $Date
+  ChangeTitle 2 $Time
+End
+
+PeriodicTasks
+ Begin
+  If (RemainderOfDiv (GetTime) 15)==0 Then
+  Begin
+   Set $Date = (GetOutput {exec date "+%Y-%m-%d"} 1 -1)
+   Set $Time = (GetOutput {exec date "+%H:%M"} 1 -1)
+
+   ChangeTitle 1 $Date
+   ChangeTitle 2 $Time
+  End
+End
+
+Widget 1
+Property
+ Position 0 0
+ Size 120 20
+ Font "xft:Iosevka Comfy:size=12"
+ Type ItemDraw
+ Flags NoReliefString
+ Title {}
+Main
+ Case message of
+  SingleClic :
+  Begin
+  End
+End
+
+Widget 2
+Property
+ Position 0 20
+ Size 120 15
+ Font "xft:Iosevka Comfy:size=12"
+ Type ItemDraw
+ Flags NoReliefString
+ Title {}
+Main
+ Case message of
+  SingleClic :
+  Begin
+  End
+End
-- 
cgit v1.2.3