From 388bc6ac4ce8910a9d0ca31fca4c405918d7e539 Mon Sep 17 00:00:00 2001
From: Vidhu Kant Sharma <vidhukant@protonmail.ch>
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')
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