1 files changed, 54 insertions, 0 deletions
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