From 69def2cceced0f59ab977f71d05a0c101c05b991 Mon Sep 17 00:00:00 2001
From: Vidhu Kant Sharma <bokuwakanojogahoshii@yahoo.com>
Date: Wed, 17 Feb 2021 19:15:17 +0530
Subject: added window copying functions

---
 XMonad/xmonad.hs | 21 ++++++++++++---------
 1 file changed, 12 insertions(+), 9 deletions(-)

(limited to 'XMonad/xmonad.hs')

diff --git a/XMonad/xmonad.hs b/XMonad/xmonad.hs
index 10a7f972..3a8e6e1f 100644
--- a/XMonad/xmonad.hs
+++ b/XMonad/xmonad.hs
@@ -47,10 +47,10 @@ import XMonad.Util.NamedScratchpad
 myStartupHook :: X ()
 myStartupHook = do
 	  spawnOnce "/home/zt/.xmonad/baraction | lemonbar -b  -g 500x21+800+0  -B '#171520' -F '#ffffff' -f 'Source Han Sans JP:size=10'"
-          spawnOnce "nitrogen --restore"
-          spawnOnce "startpage-server"
-          spawnOnce "picom" 
-          spawnOnce "deadd-notification-center"
+--          spawnOnce "nitrogen --restore"
+--          spawnOnce "startpage-server"
+--          spawnOnce "picom" 
+--          spawnOnce "deadd-notification-center"
           spawnOnce "brave"
 --           spawnOnce "sleep 3; trayer --align center --edge top --width 20 --height 21 --expand true --distance 90 --distancefrom right --tint 0x171520 --transparent true --alpha 0 --iconspacing 8"
 	  setWMName "Oppai"
@@ -234,11 +234,14 @@ myKeys = [
          ] ++ [ -- to swap workspaces
          ((mod1Mask .|. shiftMask, k), windows $ swapWithCurrent i)
          | (i, k) <- zip myWorkspaces [xK_1 ..]
-         ] -- ++ [
--- 	   ((m .|. myModMask, k), windows $ f i)
---         | (i, k) <- zip (myWorkspaces x) [xK_1 ..]
---         , (f, m) <- [(copy, shiftMask .|. controlMask)]
--- 	   ]
+         ] ++ [ -- copy
+ 	   ((m .|. myModMask, k), windows $ f i)
+         | (i, k) <- zip (myWorkspaces) [xK_1 ..]
+         , (f, m) <- [(copy, shiftMask .|. altMask)]
+ 	 ] ++ [ -- sticky-ing windows
+         ((myModMask, xK_v), windows copyToAll)  -- make window visible on all screens
+         , ((myModMask .|. shiftMask, xK_v), killAllOtherCopies)
+	 ]
 
 
 
-- 
cgit v1.2.3