FVWM-Crystal Code

90 lines (78 with data), 5.0 kB

# Menu for different ways to run away ;)
# Created by: Pawel "NEMO" Drygas <nemo@braxis.org>
# Modified by Dominique Michel <dominique_libre@sourceforge.net> for use with
# session managers as gnome-session

DestroyFunc KillAutoHibernate
AddToFunc KillAutoHibernate
+ I Piperead 'for i in `ps -C AutoHibernate -o pid=` ; do kill $i $[infostore.SILENT]; done'

DestroyFunc EndAutoHibernate
AddToFunc EndAutoHibernate
+ I KillAutoHibernate
+ I SavePreferences AutoHibernation Nop

DestroyMenu /AutoHibernatePMValue
AddToMenu /AutoHibernatePMValue
+ "$[gt. 1 %]" Exec exec $[FVWM_SYSTEMDIR]/scripts/AutoHibernate 1 pm
+ "$[gt. 2 %]" Exec exec $[FVWM_SYSTEMDIR]/scripts/AutoHibernate 2 pm
+ "$[gt. 3 %]" Exec exec $[FVWM_SYSTEMDIR]/scripts/AutoHibernate 3 pm
+ "$[gt. 5 %]" Exec exec $[FVWM_SYSTEMDIR]/scripts/AutoHibernate 5 pm
+ "$[gt.10 %]" Exec exec $[FVWM_SYSTEMDIR]/scripts/AutoHibernate 10 pm
+ "$[gt.15 %]" Exec exec $[FVWM_SYSTEMDIR]/scripts/AutoHibernate 15 pm
+ "$[gt.20 %]" Exec exec $[FVWM_SYSTEMDIR]/scripts/AutoHibernate 20 pm
+ "$[gt.25 %]" Exec exec $[FVWM_SYSTEMDIR]/scripts/AutoHibernate 25 pm
+ "$[gt.50 %]" Exec exec $[FVWM_SYSTEMDIR]/scripts/AutoHibernate 50 pm
+ "$[gt.75 %]" Exec exec $[FVWM_SYSTEMDIR]/scripts/AutoHibernate 75 pm

DestroyMenu /AutoHibernateSysValue
AddToMenu /AutoHibernateSysValue
+ "$[gt. 1 %]" Exec exec $[FVWM_SYSTEMDIR]/scripts/AutoHibernate 1 sys
+ "$[gt. 2 %]" Exec exec $[FVWM_SYSTEMDIR]/scripts/AutoHibernate 2 sys
+ "$[gt. 3 %]" Exec exec $[FVWM_SYSTEMDIR]/scripts/AutoHibernate 3 sys
+ "$[gt. 5 %]" Exec exec $[FVWM_SYSTEMDIR]/scripts/AutoHibernate 5 sys
+ "$[gt.10 %]" Exec exec $[FVWM_SYSTEMDIR]/scripts/AutoHibernate 10 sys
+ "$[gt.15 %]" Exec exec $[FVWM_SYSTEMDIR]/scripts/AutoHibernate 15 sys
+ "$[gt.20 %]" Exec exec $[FVWM_SYSTEMDIR]/scripts/AutoHibernate 20 sys
+ "$[gt.25 %]" Exec exec $[FVWM_SYSTEMDIR]/scripts/AutoHibernate 25 sys
+ "$[gt.50 %]" Exec exec $[FVWM_SYSTEMDIR]/scripts/AutoHibernate 50 sys
+ "$[gt.75 %]" Exec exec $[FVWM_SYSTEMDIR]/scripts/AutoHibernate 75 sys

DestroyFunc AutoHibernate-generator
AddToFunc AutoHibernate-generator
+ I DestroyMenu recreate /AutoHibernate
+ I Piperead "if ps -C AutoHibernate -o pid= 1>2 2>/dev/null; \
	then echo Test \\\(x /usr/sbin/pm-hibernate\\\) AddToMenu /AutoHibernate \\'$[gt.Stop]\\' EndAutoHibernate; \
		echo Test \\\(x /usr/bin/systemctl\\\) AddToMenu /AutoHibernate \\'$[gt.Stop]\\' EndAutoHibernate; \
	else echo Test \\\(x /usr/sbin/pm-hibernate\\\) AddToMenu /AutoHibernate \\'$[gt.Start when battery is as low as]\\' Popup /AutoHibernatePMValue; \
		echo Test \\\(x /usr/bin/systemctl\\\) AddToMenu /AutoHibernate \\'$[gt.Start when battery is as low as]\\' Popup /AutoHibernateSysValue; \
	fi

DestroyMenu /AutoHibernate
AddToMenu /AutoHibernate
+ DynamicPopupAction Function AutoHibernate-generator

DestroyMenu /Exit
AddToMenu /Exit 
+ '%22x22/fvwm-crystal/view-refresh.png%$[gt.Restart]' Restart
Test (x xscreensaver) + '%22x22/fvwm-crystal/system-lock-screen.png%$[gt.Lock screen]' X xscreensaver-command -lock
Test (EnvIsSet SESSION_MANAGER) + '%22x22/fvwm-crystal/system-log-out.png%$[gt.Logout]' QuitSession
Test (!EnvIsSet SESSION_MANAGER) + '%22x22/fvwm-crystal/system-log-out.png%$[gt.Logout]' Quit
Test (x /usr/sbin/pm-hibernate) + '' Nop
Test (x /usr/sbin/pm-hibernate) + '%22x22/fvwm-crystal/gdm.png%$[gt.Automatic suspend to disk]' Popup /AutoHibernate
Test (x /usr/bin/systemctl) + '%22x22/fvwm-crystal/gdm.png%$[gt.Automatic suspend to disk]' Popup /AutoHibernate
Test (x /usr/sbin/pm-suspend) + '' Nop
Test (x /usr/sbin/pm-suspend) + '%22x22/fvwm-crystal/gdm.png%$[gt.Resume to RAM]' S pm-suspend
Test (x /usr/sbin/pm-suspend-hybrid) + '%22x22/fvwm-crystal/gdm.png%$[gt.Resume hybride]' S pm-suspend-hybrid
Test (x /usr/sbin/pm-hibernate) + '%22x22/fvwm-crystal/gdm.png%$[gt.Suspend to disk]' S pm-hibernate
Test (x /usr/sbin/pm-powersave) + '%22x22/fvwm-crystal/gdm.png%$[gt.Powersave]' S pm-powersave
Test (x /usr/bin/systemctl) + '' Nop
Test (x /usr/bin/systemctl) + '%22x22/fvwm-crystal/gdm.png%$[gt.Resume to RAM]' S systemctl suspend -i
Test (X systemctl) + '%22x22/fvwm-crystal/gdm.png%$[gt.Suspend to disk]' S systemctl hibernate -i
Test (EnvIsSet SESSION_MANAGER) + '' Nop
Test (EnvIsSet SESSION_MANAGER) + '%22x22/fvwm-crystal/gdm.png%$[gt.Save session]' Exec exec gnome-session-save --gui
Test (EnvIsSet SESSION_MANAGER) + '%22x22/fvwm-crystal/gdm.png%$[gt.Manage session]' Exec exec gnome-session-properties

DestroyFunc Exit-SelectExitManager
AddToFunc Exit-SelectExitManager
+ I Test (X systemctl) Include components/functions/Exit-systemctl
+ I TestRc (NoMatch) Include components/functions/Exit-sudo

DestroyFunc Exit-SelectLoginManager
AddToFunc Exit-SelectLoginManager
+ I Test (X gdmflexiserver) PipeRead 'pidof gdm > /dev/null && echo "Include components/functions/Exit-gdm" || echo "Exit-SelectExitManager"'
+ I TestRc (NoMatch) Exit-SelectExitManager

Exit-SelectLoginManager
Test (x /usr/sbin/pm-hibernate) AddToFunc ExitFunction I Test (ToRestart) KillAutoHibernate

# vim:ft=fvwm