Update xmonad/xmonad.hs

xmonad/xmonad.hs

@@ -33,6 +33,7 @@ import XMonad.Layout.Simplest
 import XMonad.Layout.SimplestFloat
 import XMonad.Layout.Spacing
 import XMonad.Actions.PerWindowKeys 
+import XMonad.Actions.FindEmptyWorkspace
 
 
 main :: IO ()
@@ -42,6 +43,7 @@ main = xmonad
      . withEasySB (statusBarProp "xmobar" (pure myXmobarPP)) defToggleStrutsKey
      $ myConfig
 
+
 myConfig = def
     { modMask    = mod4Mask      -- Rebind Mod to the Super key
     , layoutHook = myLayout      -- Use custom layouts
@@ -55,6 +57,8 @@ myConfig = def
 	  spawnOnce "feh --bg-fill /home/hashirama/wallpaper.jpg"
 	  spawnOnce "compton -b"
           spawnOnce "polybar top-monitor-1"
+	  spawnOnce "fcitx5 -d -r"
+  
     }
     
   `additionalKeysP`
@@ -64,9 +68,16 @@ myConfig = def
     , ("M-e", runOrRaise "goldendict" (className =? "GoldenDict-ng"))
     , ("M-p", runOrRaise "nyxt" (className =? "Nyxt"))
     , ("M-t", withFocused $ windows . W.sink)  -- Toggle float for the focused window
+    , ("M-`", runOrRaise "emacs" (className =? "Emacs"))
     , ("M-S-q", return ())  -- Unbind Mod + Shift + Q, to avoid quiting the wm.
     , ("M-q", kill)  -- Change the keybinding for closing windows to Mod + Q
     , ("M-m", spawn "alacritty -e sh -c 'cd  /mnt/Data/Music/  && cmus'")
+    , ("M-S-r", spawn "~/.local/bin/run_anki.sh")
+    , ("M-r", runOrRaise "~/.local/bin/run_anki.sh" (className =? "Anki"))
+    , ("M-S-f", sendToEmptyWorkspace)  -- View an empty workspace
+    , ("M-f", viewEmptyWorkspace)  -- View an empty workspace
+    , ("M-S-w", spawn "flameshot gui --path=/mnt/Data/mpv-screenshots/screenshots")
+    , ("M-w", spawn "~/.local/bin/copy_image.sh")
     ]