1 files changed, 35 insertions, 0 deletions
diff --git a/fvwm/.fvwm/fvwmscript/FvwmScript-ACPIStatus b/fvwm/.fvwm/fvwmscript/FvwmScript-ACPIStatus
new file mode 100644
index 0000000..b6c6d75
--- /dev/null
+++ b/fvwm/.fvwm/fvwmscript/FvwmScript-ACPIStatus
@@ -0,0 +1,35 @@
+WindowTitle {}
+WindowSize  120 35
+Font "xft:Iosevka Comfy:size=12"
+
+Init
+ Begin
+  Set $Date = (GetOutput {exec date "+%Y-%m-%d"} 1 -1)
+
+  ChangeTitle 1 $Date
+End
+
+PeriodicTasks
+ Begin
+  If (RemainderOfDiv (GetTime) 15)==0 Then
+  Begin
+   Set $Date = (GetOutput {exec date "+%Y-%m-%d"} 1 -1)
+
+   ChangeTitle 1 $Date
+  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