From 3a83424797e1a9ef9516a9643b0a63b4c3fd5d46 Mon Sep 17 00:00:00 2001
From: Daniel <89086143+BardofSprites@users.noreply.github.com>
Date: Mon, 11 Nov 2024 17:02:09 -0500
Subject: horizontal bar

---
 .../fvwmscript/FvwmScript-ACPIStatus-Horizontal    | 35 ++++++++++++++++++++++
 .../fvwmscript/FvwmScript-DateTime-Horizontal      | 33 ++++++++++++++++++++
 2 files changed, 68 insertions(+)
 create mode 100644 fvwm/.fvwm/fvwmscript/FvwmScript-ACPIStatus-Horizontal
 create mode 100644 fvwm/.fvwm/fvwmscript/FvwmScript-DateTime-Horizontal

(limited to 'fvwm/.fvwm/fvwmscript')

diff --git a/fvwm/.fvwm/fvwmscript/FvwmScript-ACPIStatus-Horizontal b/fvwm/.fvwm/fvwmscript/FvwmScript-ACPIStatus-Horizontal
new file mode 100644
index 0000000..aff94a6
--- /dev/null
+++ b/fvwm/.fvwm/fvwmscript/FvwmScript-ACPIStatus-Horizontal
@@ -0,0 +1,35 @@
+WindowTitle {ACPIStatus}
+WindowSize  120 35
+Font "xft:Iosevka Comfy:size=14"
+
+Init
+ Begin
+  Set $Battery = (GetOutput {exec acpi | sed -e 's/^.*, \([0-9]*\)%.*$/\1%/g'} 1 -1)
+
+  ChangeTitle 1 $Battery
+End
+
+PeriodicTasks
+ Begin
+  If (RemainderOfDiv (GetTime) 60)==0 Then
+  Begin
+   Set $Battery = (GetOutput {exec acpi | sed -e 's/^.*, \([0-9]*\)%.*$/\1%/g'} 1 -1)
+
+   ChangeTitle 1 $Battery
+  End
+End
+
+Widget 1
+Property
+ Position 0 -5
+ Size 40 35
+ Font "xft:Iosevka Comfy:size=14"
+ Type ItemDraw
+ Flags NoReliefString
+ Title {}
+Main
+ Case message of
+  SingleClic :
+  Begin
+  End
+End
diff --git a/fvwm/.fvwm/fvwmscript/FvwmScript-DateTime-Horizontal b/fvwm/.fvwm/fvwmscript/FvwmScript-DateTime-Horizontal
new file mode 100644
index 0000000..6f3e260
--- /dev/null
+++ b/fvwm/.fvwm/fvwmscript/FvwmScript-DateTime-Horizontal
@@ -0,0 +1,33 @@
+WindowTitle {DateTime}
+WindowSize  160 35
+Font "xft:Iosevka Comfy:size=14"
+
+Init
+ Begin
+  Set $Time = (GetOutput {exec date "+%Y-%m-%d %H:%M"} 1 -1)
+  ChangeTitle 1 $Time
+End
+
+PeriodicTasks
+ Begin
+  If (RemainderOfDiv (GetTime) 15)==0 Then
+  Begin
+   Set $Time = (GetOutput {exec date "+%Y-%m-%d %H:%M"} 1 -1)
+   ChangeTitle 1 $Time
+  End
+End
+
+Widget 1
+Property
+ Position 0 -5
+ Size 160 35
+ Font "xft:Iosevka Comfy:size=14"
+ Type ItemDraw
+ Flags NoReliefString
+ Title {}
+Main
+ Case message of
+  SingleClic :
+  Begin
+  End
+End
\ No newline at end of file
-- 
cgit v1.2.3