From 7bce289a1919943d42a2521736d14f4d197fab65 Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 16 Apr 2022 01:33:52 +0100 Subject: C-C as C-c for X11 apps --- xmobars.sh | 2 +- xmonad.hs | 5 ++--- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/xmobars.sh b/xmobars.sh index 5a67e55..e119eda 100755 --- a/xmobars.sh +++ b/xmobars.sh @@ -8,7 +8,7 @@ trayer --margin 2 --distancefrom left \ --widthtype request \ --height 21 --heighttype pixel \ --transparent true \ - --alpha 16 --padding 1 & + --alpha 60 --padding 1 & killall xmobar-exwm xmobar-exwm $* & diff --git a/xmonad.hs b/xmonad.hs index dd885e4..3b9cf31 100644 --- a/xmonad.hs +++ b/xmonad.hs @@ -7,7 +7,7 @@ import XMonad hiding ( (|||) ) import XMonad.Actions.FloatKeys (keysMoveWindow, keysResizeWindow) import XMonad.Actions.WindowGo (raise, runOrRaise) import qualified XMonad.Actions.GridSelect as GS -import XMonad.Actions.PerWindowKeys (bindAll) +import XMonad.Actions.PerWindowKeys (bindAll, bindFirst) import XMonad.Hooks.ManageHelpers ((-?>)) import qualified XMonad.Hooks.ManageDocks as MD import qualified XMonad.Hooks.ManageHelpers as MH @@ -104,6 +104,7 @@ keyDefs conf = , ("", spawn "amixer sset Master toggle") , ("", spawn "import -window root ~/screenshot.png") , ("C-c", bindAll [(isntEmacs, raiseEmacs), (pure True, sendCtrlC)]) + , ("C-S-c", bindFirst [(isntEmacs, sendCtrlC)]) , ("M-", move (10,0)) , ("M-", move (-10,0)) , ("M-", move (0,-10)) @@ -123,8 +124,6 @@ keyDefs conf = , ("M-e", runOrRaiseEmacs) , ("M-f", toggleEmacs runOrRaiseFirefox) , ("M-m", raiseEmacs >> emacsclient "jao-transient-media") - , ("M-o", raiseEmacs >> emacsclient "other-window 1") - , ("M-S-o", raiseEmacs >> emacsclient "jao-transpose-windows 1") , ("M-S-r", PS.shellPrompt $ conf {P.position = P.Top}) , ("M-C-r", PS.shellPrompt $ conf {P.position = P.Top}) , ("M-s", raiseEmacs >> emacsclient "jao-transient-streaming") -- cgit v1.2.3