spacepaste

Paste details

reply | raw

  1.  
  2. -- ###### Imports ###### --
  3. -- ### Xmonad ### --
  4. import XMonad
  5. import XMonad.Core as XMonad hiding
  6. (workspaces,manageHook,keys,logHook,startupHook,borderWidth,mouseBindings
  7. ,layoutHook,modMask,terminal,normalBorderColor,focusedBorderColor,focusFollowsMouse
  8. ,handleEventHook,clickJustFocuses)
  9. import qualified XMonad.Core as XMonad
  10. (workspaces,manageHook,keys,logHook,startupHook,borderWidth,mouseBindings
  11. ,layoutHook,modMask,terminal,normalBorderColor,focusedBorderColor,focusFollowsMouse
  12. ,handleEventHook,clickJustFocuses)
  13. import XMonad.Operations
  14. import XMonad.Util.Run
  15. import XMonad.Actions.CycleWS
  16. import XMonad.Actions.SpawnOn
  17. import qualified Data.Map as M
  18. import qualified XMonad.StackSet as W
  19. import Data.Bits ((.|.))
  20. import Data.Monoid
  21. import Data.Ratio ((%))
  22. import Graphics.X11.Xlib
  23. import Graphics.X11.Xlib.Extras
  25. -- ### System ### --
  26. import System.IO
  27. import System.Exit
  29. -- ### Prompt ### --
  30. import XMonad.Prompt
  31. import XMonad.Prompt.RunOrRaise (runOrRaisePrompt)
  32. import XMonad.Prompt.AppendFile (appendFilePrompt)
  34. -- ### Hooks ### --
  35. import XMonad.ManageHook
  36. import XMonad.Hooks.ManageDocks
  37. import XMonad.Hooks.ManageHelpers
  38. import XMonad.Hooks.SetWMName
  39. import XMonad.Hooks.DynamicLog
  40. import XMonad.Hooks.UrgencyHook
  41. import XMonad.Hooks.FadeInactive
  42. import XMonad.Hooks.EwmhDesktops
  43. import XMonad.Operations
  45. -- ### Layout ### --
  46. import XMonad.Layout
  47. import XMonad.Layout.NoBorders (smartBorders, noBorders)
  48. import XMonad.Layout.PerWorkspace (onWorkspace, onWorkspaces)
  49. import XMonad.Layout.Reflect (reflectHoriz)
  50. import XMonad.Layout.IM
  51. import XMonad.Layout.SimpleFloat
  52. import XMonad.Layout.Spacing
  53. import XMonad.Layout.ResizableTile
  54. import XMonad.Layout.LayoutHints
  55. import XMonad.Layout.LayoutModifier
  56. import XMonad.Layout.Grid
  57. import XMonad.Layout.Tabbed
  58. import XMonad.Layout.TrackFloating
  60. -- ###### End Imports ### --
  62. -- ###### Config ###### --
  63. -- ### Terminal ### --
  64. myTerminal = "terminator"
  66. -- ### modMask ### --
  67. mymodMask :: KeyMask
  68. mymodMask = mod4Mask
  70. -- ### Workspaces ### --
  71. myWorkspaces = ["1:cKlap","2:www","3:dev","4:file","5:virt","6:mayhem","7:media","8:com"]
  73. -- ### Bars/Dzen2 ### --
  74. myXmonadBar = "dzen2 -x '0' -y '0' -h '18' -w '1000' -ta 'l' -fg '#999999' -bg '#000000' -fn '-*-fixed-medium-*-*-*-12-*-*-*-*-*-iso8859-*'"
  75. myTrayBar = "~/.xmonad/dzen/status_bars/dzen_secondary.sh | dzen2 -x '1000' -y '0' -h '18' -w '366' -ta 'r' -fg '#999999' -bg '#000000' -fn '-*-fixed-medium-*-*-*-12-*-*-*-*-*-iso8859-*'"
  76. myStatusBar = "~/.xmonad/dzen/status_bars/dzen_main.sh | dzen2 -x '0' -w '1000' -y '750' -h '18' -fg '#999999' -bg '#000000' -ta 'l' -fn '-*-fixed-medium-*-*-*-12-*-*-*-*-*-iso8859-*'"
  77. myMpdBar = "~/.xmonad/dzen/status_bars/dzen_audio.sh | dzen2 -x '1000' -w '366' -y '750' -h '18' -fg '#999999' -bg '#000000' -ta 'r' -fn '-*-fixed-medium-*-*-*-12-*-*-*-*-*-iso8859-*'"
  78. myBitmapsDir = "/home/coke/.xmonad/dzen"
  80. -- ### Main ### --
  81. main = do
  82. --bg <- spawnPipe "feh --bg-tile /home/coke/wallpapers/ska.jpg"
  83. dzenLeftBar <- spawnPipe myXmonadBar
  84. dzenStatusBar <- spawnPipe myStatusBar
  85. dzenTrayBar <- spawnPipe myTrayBar
  86. dzenMpdBar <- spawnPipe myMpdBar
  87. xmonad $ defaultConfig
  88. { terminal = myTerminal
  89. , workspaces = myWorkspaces
  90. , keys = myKeys
  91. , modMask = mymodMask
  92. , layoutHook = myLayoutHook
  93. , manageHook = manageSpawn <+> myManageHook
  94. , logHook = myLogHook dzenLeftBar
  95. , normalBorderColor = colorNormalBorder
  96. , focusedBorderColor = colorFocusedBorder
  97. , borderWidth = 0
  98. , startupHook = myStartupHook }
  100. -- ### StartupHook ### --
  101. myStartupHook :: X ()
  102. myStartupHook = do
  103. spawn "compton -cfb -D 1 -r 10 -l -15 -t -12 -o 0.6 -e 1.0 -i 1.0"
  104. spawn "xscreensaver -nosplash"
  105. spawn "xsetroot -cursor_name left_ptr"
  106. -- spawnOn "8:com" "terminator -x screen irssi"
  107. -- spawnOn "1:cKlap" "aterm -e htop"
  108. -- spawnOn "1:cKlap" "aterm -e tty-clock -c -C 1 -s -n"
  109. -- spawnOn "1:cKlap" "terminator -x alsamixer --card=1"
  110. -- spawnOn "1:cKlap" "terminator -x ncmpcpp"
  111. -- spawnOn "1:cKlap" "terminator -x wicd-curses"
  112. -- spawnOn "1:cKlap" "terminator -x htop"
  113. -- spawnOn "2:www" "google-chrome-stable"
  114. spawnOn "4:file" "nautilus --no-desktop --browser"
  115. spawnOn "6:mayhem" "terminator -x ssh coke@ccokee.no-ip.org"
  116. -- spawnOn "6:mayhem" "terminator -x ssh root@ccokee.no-ip.org:2222"
  117. -- spawnOn "6:mayhem" "terminator"
  118. -- spawnOn "8:com" "skype"
  120. -- ### ManageHook ### --
  121. myManageHook :: ManageHook
  122. myManageHook = (composeAll . concat $
  123. [ [resource =? r --> doIgnore | r <- myIgnores] -- ignore desktop
  124. , [className =? c --> doShift "3:develop" | c <- myDev ] -- move myDev to dev
  125. , [className =? c --> doShift "4:file" | c <- myFiles ] -- move myFiles to file
  126. , [className =? c --> doShift "7:media" | c <- myMedia ] -- move myMedia to media
  127. , [className =? c --> doShift "8:com" | c <- myChat ] -- move myChat to com
  128. , [className =? c --> doShift "5:virt" | c <- myVBox ] -- move myVBox to virt
  129. , [className =? c --> doCenterFloat | c <- myFloats ] -- float my floats
  130. , [name =? n --> doCenterFloat | n <- myNames ] -- float my names
  131. , [isFullscreen --> myDoFullFloat ]])
  133. where
  135. role = stringProperty "WM_WINDOW_ROLE"
  136. name = stringProperty "WM_NAME"
  137. -- classnames
  138. myTerms = ["aterm","urxvt","terminator"]
  139. myFloats = ["vlc","gimp","VirtualBox","skype"]
  140. myWebs = ["Firefox","google-chrome-stable"]
  141. myMedia = ["Spotify","vlc","kodi"]
  142. myChat = ["skype"]
  143. myFiles = ["nautilus","thunar","mc"]
  144. myDev = ["gvim","eclipse","ADT","emacs"]
  145. myVBox = ["VirtualBox","Virtualbox-bin","vbox"]
  146. -- resources
  147. myIgnores = ["desktop","desktop_window","notify-osd","stalonetray","trayer"]
  148. -- names
  149. myNames = ["bashrun","Google Chrome Options","Chromium Options"]
  151. -- ### LogHook ### --
  152. myLogHook :: Handle -> X ()
  153. myLogHook h = dynamicLogWithPP $ defaultPP
  154. {
  155. ppCurrent = dzenColor "#c9dee8" "#000000" . wrap "^fg(#c9dee8)[^fg(#ffffff)" "^fg(#c9dee8)]"
  156. , ppVisible = dzenColor "#c9dee8" "#000000" . wrap "^fg(#999999)[^fg(#c9dee8)" "^fg(#999999)]"
  157. , ppHidden = dzenColor "#eeeeee" "#000000" . pad
  158. , ppHiddenNoWindows = dzenColor "#999999" "#000000" . pad
  159. , ppUrgent = dzenColor "#ff0000" "#000000" . pad
  160. , ppWsSep = " "
  161. , ppSep = ":"
  162. , ppLayout = dzenColor "#c9dee8" "#000000" .
  163. (\x -> case x of
  164. "Spacing 7 ResizableTall" -> "^i(" ++ myBitmapsDir ++ "/tall.xbm)"
  165. "Mirror ResizableTall" -> "^i(" ++ myBitmapsDir ++ "/mtall.xbm)"
  166. "Full" -> "^i(" ++ myBitmapsDir ++ "/full.xbm)"
  167. "Simple Float" -> "~"
  168. _ -> x
  169. )
  170. , ppTitle = (" " ++) . dzenColor "#c9dee8" "#000000" . dzenEscape
  171. , ppOutput = hPutStrLn h
  172. }
  174. -- ### LayoutHook ### --
  175. myLayoutHook = onWorkspaces ["1:cKlap"] cKlapLayout $
  176. onWorkspaces ["2:www"] wwwLayout $
  177. onWorkspaces ["3:develop"] simpLayout $
  178. onWorkspaces ["4:files"] wwwLayout $
  179. onWorkspaces ["5:virt"] vBoxLayout $
  180. --onWorkspaces ["6:mayhem"] netLayout $
  181. onWorkspaces ["7:media"] mediaLayout $
  182. onWorkspaces ["8:com"] chatLayout $
  183. simpLayout
  185. -- ### Layouts ### --
  187. cKlapLayout = avoidStruts $ tiled ||| Mirror tiled ||| noBorders Full ||| simpleFloat
  188. where
  189. tiled = spacing 7 $ ResizableTall 1 (2/100) (2/3) []
  191. wwwLayout = avoidStruts $ noBorders tiled ||| Mirror tiled ||| noBorders Full ||| simpleFloat
  192. where
  193. tiled = spacing 7 $ ResizableTall 1 (2/100) (1/2) []
  195. simpLayout = avoidStruts $ noBorders Full ||| tiled ||| Mirror tiled ||| simpleFloat
  196. where
  197. tiled = spacing 7 $ ResizableTall 1 (2/100) (1/2) []
  199. vBoxLayout = avoidStruts $ noBorders simpleFloat
  201. --netLayout = spacing 7 $ avoidStruts $ smartBorders $ withIM (1%5) (And (Resource "aterm") (Role "buddy_list")) Grid
  203. mediaLayout = noBorders Full $ withIM 0.11 (Role "gimp-toolbox") $ reflectHoriz
  204. $ withIM 0.15 (Role "gimp-dock") (trackFloating simpleTabbed)
  206. chatLayout = avoidStruts $ withIM (1%5) (And (ClassName "skype") (Role "buddy_list")) simpleFloat
  208. -- ### Theme ### --
  209. colorOrange = "#83bbf4"
  210. colorDarkGray = "#1B1D1E"
  211. colorPink = "#F92672"
  212. colorGreen = "#A6E22E"
  213. colorBlue = "#66D9EF"
  214. colorYellow = "#E6DB74"
  215. colorWhite = "#CCCCC6"
  216. colorNormalBorder = "#CCCCCC"
  217. colorFocusedBorder = "#EEEEEE"
  219. -- ### Fonts ### --
  220. barFont = "-*-fixed-*-*-*-*-10-*-*-*-*-*-*-*"
  221. barXFont = "fixed"
  222. xftFont = "xft: fixed"
  224. -- ### Prompt Config ### --
  225. mXPConfig :: XPConfig
  226. mXPConfig =
  227. defaultXPConfig { font = barFont
  228. , bgColor = colorDarkGray
  229. , fgColor = colorGreen
  230. , bgHLight = colorGreen
  231. , fgHLight = colorDarkGray
  232. , promptBorderWidth = 0
  233. , height = 12
  234. , historyFilter = deleteConsecutive
  235. }
  236. -- ### Run or Raise Menu ### --
  237. largeXPConfig :: XPConfig
  238. largeXPConfig = mXPConfig
  239. { font = xftFont
  240. , height = 12
  241. }
  242. -- ### Trick for fullscreen switching windows ### --
  243. myDoFullFloat :: ManageHook
  244. myDoFullFloat = doF W.focusDown <+> doFullFloat
  247. -- ### Key Bindings ### --
  248. myKeys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
  249. [ ((modMask, xK_p ), runOrRaisePrompt largeXPConfig)
  250. , ((modMask, xK_k ), spawn $ XMonad.terminal conf)
  251. , ((modMask, xK_F2 ), spawn "gmrun")
  252. , ((modMask .|. shiftMask, xK_c ), kill)
  253. , ((modMask .|. shiftMask, xK_l ), spawn "xscreensaver-command -lock")
  255. , ((0, xK_Print ), spawn "scrot -e 'mv $f ~/screenshots/'")
  256. , ((modMask, xK_c ), spawn "google-chrome-stable")
  257. , ((modMask, xK_n ), spawn "nautilus --no-desktop --browser")
  259. , ((0, 0x1008ff12 ), spawn "amixer -c 1 sset Master toggle") -- XF86AudioMute
  260. , ((0, 0x1008ff11 ), spawn "amixer -c 1 sset Master 5%-") -- XF86AudioLowerVolume
  261. , ((0, 0x1008ff13 ), spawn "amixer -c 1 sset Master 5%+")
  262. , ((0, 0x1008ff14 ), spawn "rhythmbox-client --play-pause")
  263. , ((0, 0x1008ff17 ), spawn "rhythmbox-client --next")
  264. , ((0, 0x1008ff16 ), spawn "rhythmbox-client --previous")
  265. , ((modMask, xK_x ), spawn "xbmc")
  266. , ((modMask, xK_g ), spawn "gimp")
  267. , ((modMask, xK_i ), spawn "screen irssi")
  268. , ((modMask, xK_v ), spawn "VirtualBox")
  269. , ((modMask .|. shiftMask, xK_v ), spawn "VBoxManage startvm 'Windows 10'")
  270. , ((modMask, xK_m ), spawn "vlc")
  271. , ((modMask .|. shiftMask, xK_m ), spawn "kodi")
  272. , ((modMask, xK_d ), spawn "deluge-gtk")
  273. , ((modMask, xK_e ), spawn "eclipse")
  274. , ((modMask .|. shiftMask, xK_e ), spawn "emacs")
  275. , ((modMask, xK_space ), sendMessage NextLayout)
  276. , ((modMask .|. shiftMask, xK_space ), setLayout $ XMonad.layoutHook conf) -- reset layout on current desktop to default
  277. , ((modMask, xK_b ), sendMessage ToggleStruts)
  278. , ((modMask, xK_r ), refresh)
  279. , ((modMask, xK_Tab ), windows W.focusDown) -- move focus to next window
  280. , ((modMask .|. shiftMask, xK_j ), windows W.focusDown)
  281. , ((modMask .|. shiftMask, xK_k ), windows W.focusUp )
  282. , ((modMask .|. shiftMask, xK_Down ), windows W.swapDown) -- swap the focused window with the next window
  283. , ((modMask .|. shiftMask, xK_Up ), windows W.swapUp) -- swap the focused window with the previous window
  284. , ((modMask, xK_Return ), windows W.swapMaster)
  285. , ((modMask, xK_t ), withFocused $ windows . W.sink) -- Push window back into tiling
  286. , ((modMask, xK_h ), sendMessage Shrink) -- %! Shrink a master area
  287. , ((modMask, xK_l ), sendMessage Expand) -- %! Expand a master area
  288. , ((modMask, xK_comma ), sendMessage (IncMasterN 1))
  289. , ((modMask, xK_period ), sendMessage (IncMasterN (-1)))
  291. -- workspaces
  292. , ((modMask .|. controlMask, xK_Right ), nextWS)
  293. , ((modMask .|. shiftMask, xK_Right ), shiftToNext)
  294. , ((modMask .|. controlMask, xK_Left ), prevWS)
  295. , ((modMask .|. shiftMask, xK_Left ), shiftToPrev)
  297. -- quit, or restart
  298. , ((modMask .|. shiftMask, xK_q ), io (exitWith ExitSuccess))
  299. , ((modMask, xK_q ), spawn "killall dzen2 && /home/my_user/.cabal/bin/xmonad --recompile && /home/my_user/.cabal/bin/xmonad --restart")
  300. ]
  301. ++
  302. -- mod-[1..9] %! Switch to workspace N
  303. -- mod-shift-[1..9] %! Move client to workspace N
  304. [((m .|. modMask, k), windows $ f i)
  305. | (i, k) <- zip (XMonad.workspaces conf) [xK_1 .. xK_9]
  306. , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]]
  308. -- ++
  309. --
  310. -- mod-{w,e,r}, Switch to physical/Xinerama screens 1, 2, or 3
  311. -- mod-shift-{w,e,r}, Move client to screen 1, 2, or 3
  312. --
  313. -- [((m .|. modMask, key), screenWorkspace sc >>= flip whenJust (windows . f))
  314. -- | (key, sc) <- zip [xK_w, xK_e, xK_r] [0..]
  315. -- , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]]
  317. -- ###### End Config ###### --
  318.  
Powered by spacepaste. Paste removal.