summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-04-16 01:33:52 +0100
committerjao <jao@gnu.org>2022-04-16 01:33:52 +0100
commit7bce289a1919943d42a2521736d14f4d197fab65 (patch)
treee07b843c3e2d7da72380640ef9e20a742aff8ed1
parent4682907cff93f2c17f4ccbe46f18ca95238c3fc6 (diff)
downloadxmonad-config-7bce289a1919943d42a2521736d14f4d197fab65.tar.gz
xmonad-config-7bce289a1919943d42a2521736d14f4d197fab65.tar.bz2
C-C as C-c for X11 apps
-rwxr-xr-xxmobars.sh2
-rw-r--r--xmonad.hs5
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 =
, ("<XF86AudioMute>", spawn "amixer sset Master toggle")
, ("<Print>", spawn "import -window root ~/screenshot.png")
, ("C-c", bindAll [(isntEmacs, raiseEmacs), (pure True, sendCtrlC)])
+ , ("C-S-c", bindFirst [(isntEmacs, sendCtrlC)])
, ("M-<Right>", move (10,0))
, ("M-<Left>", move (-10,0))
, ("M-<Up>", 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")