battery script, change keybinds

1 files changed, 8 insertions, 8 deletions

diff --git a/fvwm/.fvwm/fvwmscript/FvwmScript-ACPIStatus b/fvwm/.fvwm/fvwmscript/FvwmScript-ACPIStatus
index b6c6d75..a9daa8b 100644
--- a/fvwm/.fvwm/fvwmscript/FvwmScript-ACPIStatus
+++ b/fvwm/.fvwm/fvwmscript/FvwmScript-ACPIStatus
@@ -1,21 +1,21 @@
-WindowTitle {}
+WindowTitle {ACPIStatus}
 WindowSize  120 35
-Font "xft:Iosevka Comfy:size=12"
+Font "xft:Iosevka Comfy:size=14"
 
 Init
  Begin
-  Set $Date = (GetOutput {exec date "+%Y-%m-%d"} 1 -1)
+  Set $Battery = (GetOutput {exec acpi | sed -e 's/^.*, \([0-9]*\)%.*$/\1%/g'} 1 -1)
 
-  ChangeTitle 1 $Date
+  ChangeTitle 1 $Battery
 End
 
 PeriodicTasks
  Begin
-  If (RemainderOfDiv (GetTime) 15)==0 Then
+  If (RemainderOfDiv (GetTime) 60)==0 Then
   Begin
-   Set $Date = (GetOutput {exec date "+%Y-%m-%d"} 1 -1)
+   Set $Battery = (GetOutput {exec acpi | sed -e 's/^.*, \([0-9]*\)%.*$/\1%/g'} 1 -1)
 
-   ChangeTitle 1 $Date
+   ChangeTitle 1 $Battery
   End
 End
 
@@ -23,7 +23,7 @@ Widget 1
 Property
  Position 0 0
  Size 120 20
- Font "xft:Iosevka Comfy:size=12"
+ Font "xft:Iosevka Comfy:size=14"
  Type ItemDraw
  Flags NoReliefString
  Title {}