From 388bc6ac4ce8910a9d0ca31fca4c405918d7e539 Mon Sep 17 00:00:00 2001 From: Vidhu Kant Sharma Date: Mon, 29 Nov 2021 22:29:11 +0530 Subject: added confirm option for shutdown and restart --- .config/XMonad/xmonad.hs | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to '.config/XMonad/xmonad.hs') diff --git a/.config/XMonad/xmonad.hs b/.config/XMonad/xmonad.hs index 66d3bde..3b83b1b 100644 --- a/.config/XMonad/xmonad.hs +++ b/.config/XMonad/xmonad.hs @@ -95,8 +95,10 @@ networkingTS = myNetworkingTS a = TS.treeselectAction a networkingTS powerTS = - [ Node (TS.TSNode "Shutdown" "" (spawn "shutdown now")) [] - , Node (TS.TSNode "Restart" "" (spawn "reboot")) [] + [ Node (TS.TSNode "Shutdown" "" (return())) + [ Node (TS.TSNode "Confirm" "" (spawn "shutdown now")) [] ] + , Node (TS.TSNode "Restart" "" (return())) + [ Node (TS.TSNode "Confirm" "" (spawn "reboot")) [] ] ] myPowerTS a = TS.treeselectAction a powerTS @@ -300,7 +302,7 @@ main = do ) `additionalKeysP` [ ("M-c", spawn myColorPicker) -- Launchers - , ("M-u", myDevTS myTSConfig) + , ("M-S-w", myDevTS myTSConfig) , ("M-x", myXmonadTS myTSConfig) , ("M-e", myMediaTS myTSConfig) , ("M-S-e", myGamingTS myTSConfig) @@ -323,4 +325,4 @@ main = do -- other apps , ("M-S-b", spawn "dolphin") ] - -- used keys: u x e w o i p r t y q n b + -- used keys: x e w o i p r t y q n b -- cgit v1.2.3