diff options
Diffstat (limited to 'fvwm/.fvwm/fvwmscript')
| l--------- | fvwm/.fvwm/fvwmscript/.#FvwmScript-ACPIStatus | 1 | ||||
| -rw-r--r-- | fvwm/.fvwm/fvwmscript/FvwmScript-ACPIStatus | 35 | ||||
| -rw-r--r-- | fvwm/.fvwm/fvwmscript/FvwmScript-DateTime | 54 |
3 files changed, 90 insertions, 0 deletions
diff --git a/fvwm/.fvwm/fvwmscript/.#FvwmScript-ACPIStatus b/fvwm/.fvwm/fvwmscript/.#FvwmScript-ACPIStatus new file mode 120000 index 0000000..f86cf16 --- /dev/null +++ b/fvwm/.fvwm/fvwmscript/.#FvwmScript-ACPIStatus @@ -0,0 +1 @@ [email protected]:1720031871
\ No newline at end of file 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 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 |
