diff options
Diffstat (limited to '.config/xmonad/xmonad-example-configs')
4 files changed, 0 insertions, 3293 deletions
diff --git a/.config/xmonad/xmonad-example-configs/xmonad-example-polybar-treeselect-workspaces.hs b/.config/xmonad/xmonad-example-configs/xmonad-example-polybar-treeselect-workspaces.hs deleted file mode 100644 index 663d1bd..0000000 --- a/.config/xmonad/xmonad-example-configs/xmonad-example-polybar-treeselect-workspaces.hs +++ /dev/null @@ -1,851 +0,0 @@ --- Xmonad is a dynamically tiling X11 window manager that is written and --- configured in Haskell. Official documentation: https://xmonad.org - --- This is the xmonad configuration of Derek Taylor (DistroTube) --- My YouTube: http://www.youtube.com/c/DistroTube --- My GitLab: http://www.gitlab.com/dwt1/ - --- This config is massively long. It is purposely bloated with a ton of --- examples of what you can do with xmonad. It is written more as a --- study guide rather than a config that you should download and use. - ------------------------------------------------------------------------- --- IMPORTS ------------------------------------------------------------------------- - -- Base -import XMonad -import System.Exit (exitSuccess) -import qualified XMonad.StackSet as W - - -- Actions -import XMonad.Actions.CopyWindow (kill1, killAllOtherCopies) -import XMonad.Actions.CycleWS (moveTo, shiftTo, WSType(..), nextScreen, prevScreen) -import XMonad.Actions.GridSelect -import XMonad.Actions.MouseResize -import XMonad.Actions.Promote -import XMonad.Actions.RotSlaves (rotSlavesDown, rotAllDown) -import qualified XMonad.Actions.TreeSelect as TS -import XMonad.Actions.WindowGo (runOrRaise) -import XMonad.Actions.WithAll (sinkAll, killAll) -import qualified XMonad.Actions.Search as S - - -- Data -import Data.Char (isSpace) -import Data.Monoid -import Data.Maybe (isJust) -import Data.Tree -import qualified Data.Tuple.Extra as TE -import qualified Data.Map as M - - -- Hooks -import XMonad.Hooks.DynamicLog (dynamicLogWithPP, wrap, PP(..)) -import XMonad.Hooks.EwmhDesktops -- for some fullscreen events, also for xcomposite in obs. -import XMonad.Hooks.FadeInactive -import XMonad.Hooks.ManageDocks (avoidStruts, docks, docksEventHook, ToggleStruts(..)) -import XMonad.Hooks.ServerMode -import XMonad.Hooks.SetWMName - - -- Layouts -import XMonad.Layout.GridVariants (Grid(Grid)) -import XMonad.Layout.SimplestFloat -import XMonad.Layout.Spiral -import XMonad.Layout.ResizableTile -import XMonad.Layout.Tabbed -import XMonad.Layout.ThreeColumns - - -- Layouts modifiers -import XMonad.Layout.LayoutModifier -import XMonad.Layout.LimitWindows (limitWindows, increaseLimit, decreaseLimit) -import XMonad.Layout.Magnifier -import XMonad.Layout.MultiToggle (mkToggle, single, EOT(EOT), (??)) -import XMonad.Layout.MultiToggle.Instances (StdTransformers(NBFULL, MIRROR, NOBORDERS)) -import XMonad.Layout.NoBorders -import XMonad.Layout.Renamed (renamed, Rename(Replace)) -import XMonad.Layout.ShowWName -import XMonad.Layout.Spacing -import XMonad.Layout.WindowArranger (windowArrange, WindowArrangerMsg(..)) -import qualified XMonad.Layout.ToggleLayouts as T (toggleLayouts, ToggleLayout(Toggle)) -import qualified XMonad.Layout.MultiToggle as MT (Toggle(..)) - - -- Prompt -import XMonad.Prompt -import XMonad.Prompt.Input -import XMonad.Prompt.FuzzyMatch -import XMonad.Prompt.Man -import XMonad.Prompt.Pass -import XMonad.Prompt.Shell (shellPrompt) -import XMonad.Prompt.Ssh -import XMonad.Prompt.XMonad -import Control.Arrow (first) - - -- Utilities -import XMonad.Util.EZConfig (additionalKeysP) -import XMonad.Util.NamedScratchpad -import XMonad.Util.Run (runProcessWithInput, safeSpawn) -import XMonad.Util.SpawnOnce - - -- For polybar -import qualified DBus as D -import qualified DBus.Client as D -import qualified Codec.Binary.UTF8.String as UTF8 - ------------------------------------------------------------------------- --- VARIABLES ------------------------------------------------------------------------- --- It's nice to assign values to stuff that you will use more than once --- in the config. Setting values for things like font, terminal and editor --- means you only have to change the value here to make changes globally. -myFont :: String -myFont = "xft:Mononoki Nerd Font:bold:size=9" - -myModMask :: KeyMask -myModMask = mod4Mask -- Sets modkey to super/windows key - -myTerminal :: String -myTerminal = "alacritty" -- Sets default terminal - -myBrowser :: String -myBrowser = myTerminal ++ " -e lynx " -- Sets lynx as browser for tree select --- myBrowser = "firefox " -- Sets firefox as browser for tree select - -myEditor :: String -myEditor = "emacsclient -c -a emacs " -- Sets emacs as editor for tree select --- myEditor = myTerminal ++ " -e vim " -- Sets vim as editor for tree select - -myBorderWidth :: Dimension -myBorderWidth = 2 -- Sets border width for windows - -myNormColor :: String -myNormColor = "#292d3e" -- Border color of normal windows - -myFocusColor :: String -myFocusColor = "#bbc5ff" -- Border color of focused windows - -altMask :: KeyMask -altMask = mod1Mask -- Setting this for use in xprompts - --- Colors for polybar -color1, color2, color3, color4 :: String -color1 = "#7F7F7F" -color2 = "#c792ea" -color3 = "#900000" -color4 = "#2E9AFE" - ------------------------------------------------------------------------- --- AUTOSTART ------------------------------------------------------------------------- -myStartupHook :: X () -myStartupHook = do - spawnOnce "nitrogen --restore &" - spawnOnce "picom &" - spawnOnce "/usr/bin/emacs --daemon &" - spawnOnce "~/.config/polybar/launch-xmonad.sh &" - setWMName "LG3D" - ------------------------------------------------------------------------- --- GRID SELECT ------------------------------------------------------------------------- --- GridSelect displays items (programs, open windows, etc.) in a 2D grid --- and lets the user select from it with the cursor/hjkl keys or the mouse. -myColorizer :: Window -> Bool -> X (String, String) -myColorizer = colorRangeFromClassName - (0x29,0x2d,0x3e) -- lowest inactive bg - (0x29,0x2d,0x3e) -- highest inactive bg - (0xc7,0x92,0xea) -- active bg - (0xc0,0xa7,0x9a) -- inactive fg - (0x29,0x2d,0x3e) -- active fg - --- gridSelect menu layout -mygridConfig :: p -> GSConfig Window -mygridConfig colorizer = (buildDefaultGSConfig myColorizer) - { gs_cellheight = 40 - , gs_cellwidth = 200 - , gs_cellpadding = 6 - , gs_originFractX = 0.5 - , gs_originFractY = 0.5 - , gs_font = myFont - } - -spawnSelected' :: [(String, String)] -> X () -spawnSelected' lst = gridselect conf lst >>= flip whenJust spawn - where conf = def - { gs_cellheight = 40 - , gs_cellwidth = 200 - , gs_cellpadding = 6 - , gs_originFractX = 0.5 - , gs_originFractY = 0.5 - , gs_font = myFont - } - --- The lists below are actually 3-tuples for use with gridSelect and treeSelect. --- TreeSelect uses all three values in the 3-tuples but GridSelect only needs first --- two values in each list (see myAppGrid, myBookmarkGrid and myConfigGrid below). -myApplications :: [(String, String, String)] -myApplications = [ ("Audacity", "audacity", "Graphical cross-platform audio eidtor") - , ("Deadbeef", "deadbeef", "Lightweight GUI audio player") - , ("Emacs", "emacs", "Much more than a text editor") - , ("Firefox", "firefox", "The famous open source web browser") - , ("Geany", "geany", "A nice text editor") - , ("Geary", "geary", "Email client that is attractive") - , ("Gimp", "gimp", "Open source alternative to Photoshop") - , ("Kdenlive", "kdenlive", "A great open source video editor") - , ("LibreOffice Impress", "loimpress", "For making presentations") - , ("LibreOffice Writer", "lowriter", "A fully featured word processor") - , ("OBS", "obs", "Open broadcaster software") - , ("PCManFM", "pcmanfm", "Lightweight graphical file manager") - , ("Simple Terminal", "st", "Suckless simple terminal") - , ("Steam", "steam", "Proprietary gaming platform") - , ("Surf Browser", "surf suckless.org", "Suckless surf web browser") - , ("Xonotic", "xonotic-glx", "A fast-paced first person shooter") - ] - -myBookmarks :: [(String, String, String)] -myBookmarks = [ ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - ] - -myConfigs :: [(String, String, String)] -myConfigs = [ ("bashrc", myEditor ++ "~/.bashrc", "the bourne again shell") - , ("doom emacs config.el", myEditor ++ "~/.doom.d/config.el", "doom emacs config") - , ("doom emacs init.el", myEditor ++ "~/.doom.d/init.el", "doom emacs init") - , ("dwm", myEditor ++ "~/dwm-distrotube/config.h", "dwm config file") - , ("qtile", myEditor ++ "~/.config/qtile/config.py", "qtile config") - , ("xmonad.hs", myEditor ++ "~/.xmonad/xmonad.hs", "xmonad config") - , ("zshrc", myEditor ++ "~/.zshrc", "config for the z shell") - ] - --- Let's take myApplications, myBookmarks and myConfigs and take only --- the first two values from those 3-tuples (for GridSelect). -myAppGrid :: [(String, String)] -myAppGrid = [ (a,b) | (a,b,c) <- xs] - where xs = myApplications - -myBookmarkGrid :: [(String, String)] -myBookmarkGrid = [ (a,b) | (a,b,c) <- xs] - where xs = myBookmarks - -myConfigGrid :: [(String, String)] -myConfigGrid = [ (a,b) | (a,b,c) <- xs] - where xs = myConfigs - ------------------------------------------------------------------------- --- TREE SELECT ------------------------------------------------------------------------- --- TreeSelect displays your workspaces or actions in a Tree-like format. --- You can select desired workspace/action with the cursor or hjkl keys. - -treeselectAction :: TS.TSConfig (X ()) -> X () -treeselectAction a = TS.treeselectAction a - [ Node (TS.TSNode "applications" "a list of programs I use often" (return ())) - [Node (TS.TSNode (TE.fst3 $ myApplications !! n) - (TE.thd3 $ myApplications !! n) - (spawn $ TE.snd3 $ myApplications !! n) - ) [] | n <- [0..(length myApplications - 1)] - ] - , Node (TS.TSNode "bookmarks" "a list of web bookmarks" (return ())) - [Node (TS.TSNode(TE.fst3 $ myBookmarks !! n) - (TE.thd3 $ myBookmarks !! n) - (spawn $ TE.snd3 $ myBookmarks !! n) - ) [] | n <- [0..(length myBookmarks - 1)] - ] - , Node (TS.TSNode "config files" "config files that edit often" (return ())) - [Node (TS.TSNode (TE.fst3 $ myConfigs !! n) - (TE.thd3 $ myConfigs !! n) - (spawn $ TE.snd3 $ myConfigs !! n) - ) [] | n <- [0..(length myConfigs - 1)] - ] - ] - --- Configuration options for treeSelect -tsDefaultConfig :: TS.TSConfig a -tsDefaultConfig = TS.TSConfig { TS.ts_hidechildren = True - , TS.ts_background = 0xdd292d3e - , TS.ts_font = myFont - , TS.ts_node = (0xffd0d0d0, 0xff202331) - , TS.ts_nodealt = (0xffd0d0d0, 0xff292d3e) - , TS.ts_highlight = (0xffffffff, 0xff755999) - , TS.ts_extra = 0xffd0d0d0 - , TS.ts_node_width = 200 - , TS.ts_node_height = 20 - , TS.ts_originX = 0 - , TS.ts_originY = 0 - , TS.ts_indent = 80 - , TS.ts_navigate = myTreeNavigation - } - --- Keybindings for treeSelect menus. Use h-j-k-l to navigate. --- Use 'o' and 'i' to move forward/back in the workspace history. --- Single KEY's are for top-level nodes. SUPER+KEY are for the --- second-level nodes. SUPER+ALT+KEY are third-level nodes. -myTreeNavigation = M.fromList - [ ((0, xK_Escape), TS.cancel) - , ((0, xK_Return), TS.select) - , ((0, xK_space), TS.select) - , ((0, xK_Up), TS.movePrev) - , ((0, xK_Down), TS.moveNext) - , ((0, xK_Left), TS.moveParent) - , ((0, xK_Right), TS.moveChild) - , ((0, xK_k), TS.movePrev) - , ((0, xK_j), TS.moveNext) - , ((0, xK_h), TS.moveParent) - , ((0, xK_l), TS.moveChild) - , ((0, xK_o), TS.moveHistBack) - , ((0, xK_i), TS.moveHistForward) - , ((0, xK_d), TS.moveTo ["dev"]) - , ((0, xK_g), TS.moveTo ["graphics"]) - , ((0, xK_m), TS.moveTo ["music"]) - , ((0, xK_v), TS.moveTo ["video"]) - , ((0, xK_w), TS.moveTo ["web"]) - , ((mod4Mask, xK_b), TS.moveTo ["web", "browser"]) - , ((mod4Mask, xK_c), TS.moveTo ["web", "chat"]) - , ((mod4Mask, xK_m), TS.moveTo ["web", "email"]) - , ((mod4Mask, xK_r), TS.moveTo ["web", "rss"]) - , ((mod4Mask, xK_w), TS.moveTo ["web", "web conference"]) - , ((mod4Mask, xK_d), TS.moveTo ["dev", "docs"]) - , ((mod4Mask, xK_e), TS.moveTo ["dev", "emacs"]) - , ((mod4Mask, xK_f), TS.moveTo ["dev", "files"]) - , ((mod4Mask, xK_p), TS.moveTo ["dev", "programming"]) - , ((mod4Mask, xK_t), TS.moveTo ["dev", "terminal"]) - , ((mod4Mask, xK_z), TS.moveTo ["dev", "virtualization"]) - , ((mod4Mask, xK_g), TS.moveTo ["graphics", "gimp"]) - , ((mod4Mask, xK_i), TS.moveTo ["graphics", "image viewer"]) - , ((mod4Mask, xK_a), TS.moveTo ["music", "audio editor"]) - , ((mod4Mask, xK_u), TS.moveTo ["music", "music player"]) - , ((mod4Mask, xK_o), TS.moveTo ["video", "obs"]) - , ((mod4Mask, xK_v), TS.moveTo ["video", "video player"]) - , ((mod4Mask, xK_k), TS.moveTo ["video", "kdenlive"]) - , ((mod4Mask .|. altMask, xK_h), TS.moveTo ["dev", "programming", "haskell"]) - , ((mod4Mask .|. altMask, xK_p), TS.moveTo ["dev", "programming", "python"]) - , ((mod4Mask .|. altMask, xK_s), TS.moveTo ["dev", "programming", "shell"]) - ] - ------------------------------------------------------------------------- --- XPROMPT SETTINGS ------------------------------------------------------------------------- -dtXPConfig :: XPConfig -dtXPConfig = def - { font = myFont - , bgColor = "#292d3e" - , fgColor = "#d0d0d0" - , bgHLight = "#c792ea" - , fgHLight = "#000000" - , borderColor = "#535974" - , promptBorderWidth = 0 - , promptKeymap = dtXPKeymap - , position = Top --- , position = CenteredAt { xpCenterY = 0.3, xpWidth = 0.3 } - , height = 20 - , historySize = 256 - , historyFilter = id - , defaultText = [] - , autoComplete = Just 100000 -- set Just 100000 for .1 sec - , showCompletionOnTab = False - -- , searchPredicate = isPrefixOf - , searchPredicate = fuzzyMatch - , alwaysHighlight = True - , maxComplRows = Nothing -- set to Just 5 for 5 rows - } - --- The same config above minus the autocomplete feature which is annoying --- on certain Xprompts, like the search engine prompts. -dtXPConfig' :: XPConfig -dtXPConfig' = dtXPConfig - { autoComplete = Nothing - } - --- A list of all of the standard Xmonad prompts and a key press assigned to them. --- These are used in conjunction with keybinding I set later in the config. -promptList :: [(String, XPConfig -> X ())] -promptList = [ ("m", manPrompt) -- manpages prompt - , ("p", passPrompt) -- get passwords (requires 'pass') - , ("g", passGeneratePrompt) -- generate passwords (requires 'pass') - , ("r", passRemovePrompt) -- remove passwords (requires 'pass') - , ("s", sshPrompt) -- ssh prompt - , ("x", xmonadPrompt) -- xmonad prompt - ] - --- Same as the above list except this is for my custom prompts. -promptList' :: [(String, XPConfig -> String -> X (), String)] -promptList' = [ ("c", calcPrompt, "qalc") -- requires qalculate-gtk - ] - ------------------------------------------------------------------------- --- CUSTOM PROMPTS ------------------------------------------------------------------------- --- calcPrompt requires a cli calculator called qalcualte-gtk. --- You could use this as a template for other custom prompts that --- use command line programs that return a single line of output. -calcPrompt :: XPConfig -> String -> X () -calcPrompt c ans = - inputPrompt c (trim ans) ?+ \input -> - liftIO(runProcessWithInput "qalc" [input] "") >>= calcPrompt c - where - trim = f . f - where f = reverse . dropWhile isSpace - ------------------------------------------------------------------------- --- XPROMPT KEYMAP (emacs-like key bindings for xprompts) ------------------------------------------------------------------------- -dtXPKeymap :: M.Map (KeyMask,KeySym) (XP ()) -dtXPKeymap = M.fromList $ - map (first $ (,) controlMask) -- control + <key> - [ (xK_z, killBefore) -- kill line backwards - , (xK_k, killAfter) -- kill line forwards - , (xK_a, startOfLine) -- move to the beginning of the line - , (xK_e, endOfLine) -- move to the end of the line - , (xK_m, deleteString Next) -- delete a character foward - , (xK_b, moveCursor Prev) -- move cursor forward - , (xK_f, moveCursor Next) -- move cursor backward - , (xK_BackSpace, killWord Prev) -- kill the previous word - , (xK_y, pasteString) -- paste a string - , (xK_g, quit) -- quit out of prompt - , (xK_bracketleft, quit) - ] - ++ - map (first $ (,) altMask) -- meta key + <key> - [ (xK_BackSpace, killWord Prev) -- kill the prev word - , (xK_f, moveWord Next) -- move a word forward - , (xK_b, moveWord Prev) -- move a word backward - , (xK_d, killWord Next) -- kill the next word - , (xK_n, moveHistory W.focusUp') -- move up thru history - , (xK_p, moveHistory W.focusDown') -- move down thru history - ] - ++ - map (first $ (,) 0) -- <key> - [ (xK_Return, setSuccess True >> setDone True) - , (xK_KP_Enter, setSuccess True >> setDone True) - , (xK_BackSpace, deleteString Prev) - , (xK_Delete, deleteString Next) - , (xK_Left, moveCursor Prev) - , (xK_Right, moveCursor Next) - , (xK_Home, startOfLine) - , (xK_End, endOfLine) - , (xK_Down, moveHistory W.focusUp') - , (xK_Up, moveHistory W.focusDown') - , (xK_Escape, quit) - ] - ------------------------------------------------------------------------- --- SEARCH ENGINES ------------------------------------------------------------------------- --- Xmonad has several search engines available to use located in --- XMonad.Actions.Search. Additionally, you can add other search engines --- such as those listed below. -archwiki, ebay, news, reddit, urban :: S.SearchEngine - -archwiki = S.searchEngine "archwiki" "https://wiki.archlinux.org/index.php?search=" -ebay = S.searchEngine "ebay" "https://www.ebay.com/sch/i.html?_nkw=" -news = S.searchEngine "news" "https://news.google.com/search?q=" -reddit = S.searchEngine "reddit" "https://www.reddit.com/search/?q=" -urban = S.searchEngine "urban" "https://www.urbandictionary.com/define.php?term=" - --- This is the list of search engines that I want to use. Some are from --- XMonad.Actions.Search, and some are the ones that I added above. -searchList :: [(String, S.SearchEngine)] -searchList = [ ("a", archwiki) - , ("d", S.duckduckgo) - , ("e", ebay) - , ("g", S.google) - , ("h", S.hoogle) - , ("i", S.images) - , ("n", news) - , ("r", reddit) - , ("s", S.stackage) - , ("t", S.thesaurus) - , ("v", S.vocabulary) - , ("b", S.wayback) - , ("u", urban) - , ("w", S.wikipedia) - , ("y", S.youtube) - , ("z", S.amazon) - ] - - ------------------------------------------------------------------------- --- WORKSPACES ------------------------------------------------------------------------- --- TreeSelect workspaces -myWorkspaces :: Forest String -myWorkspaces = [ Node "dev" - [ Node "terminal" [] - , Node "emacs" [] - , Node "docs" [] - , Node "files" [] - , Node "programming" - [ Node "haskell" [] - , Node "python" [] - , Node "shell" [] - ] - , Node "virtualization" [] - ] - , Node "web" - [ Node "browser" [] - , Node "chat" [] - , Node "email" [] - , Node "rss" [] - , Node "web conference" [] - ] - , Node "graphics" - [ Node "gimp" [] - , Node "image viewer" [] - ] - , Node "music" - [ Node "audio editor" [] - , Node "music player" [] - ] - , Node "video" - [ Node "obs" [] - , Node "kdenlive" [] - , Node "video player" [] - ] - ] - ------------------------------------------------------------------------- --- MANAGEHOOK ------------------------------------------------------------------------- --- Sets some rules for certain programs. Examples include forcing certain --- programs to always float, or to always appear on a certain workspace. --- Forcing programs to a certain workspace with a doShift requires xdotool --- if you are using clickable workspaces. You need the className or title --- of the program. Use xprop to get this info. - -myManageHook :: XMonad.Query (Data.Monoid.Endo WindowSet) -myManageHook = composeAll - -- using 'doShift ( myWorkspaces !! 7)' sends program to workspace 8! - -- I'm doing it this way because otherwise I would have to write out - -- the full name of my clickable workspaces, which would look like: - -- doShift "<action xdotool super+8>gfx</action>" - [ className =? "obs" --> doShift ( "video.obs" ) - , title =? "firefox" --> doShift ( "web.browser" ) - , title =? "qutebrowser" --> doShift ( "web.browser" ) - , className =? "mpv" --> doShift ( "video.movie player" ) - , className =? "vlc" --> doShift ( "video.movie player" ) - , className =? "Gimp" --> doShift ( "graphics.gimp") - , className =? "Gimp" --> doFloat - , title =? "Oracle VM VirtualBox Manager" --> doFloat - , className =? "VirtualBox Manager" --> doShift ( "dev.virtualization" ) - , (className =? "firefox" <&&> resource =? "Dialog") --> doFloat -- Float Firefox Dialog - ] <+> namedScratchpadManageHook myScratchPads - ------------------------------------------------------------------------- --- LOGHOOK ------------------------------------------------------------------------- --- Override the PP values as you would otherwise, adding colors etc depending --- on the statusbar used -myLogHook :: D.Client -> PP -myLogHook dbus = def - { ppOutput = dbusOutput dbus - , ppCurrent = wrap ("%{F" ++ color4 ++ "} ") "%{F-}" - , ppVisible = wrap ("%{F" ++ color1 ++ "} ") "%{F-}" - , ppUrgent = wrap ("%{F" ++ color3 ++ "} ") "%{F-}" - , ppHidden = wrap ("%{F" ++ color1 ++ "} ") "%{F-}" - , ppTitle = wrap ("%{F" ++ color2 ++ "}")"%{F-}" - , ppSep = " | " - } - ------------------------------------------------------------------------- --- LAYOUTS ------------------------------------------------------------------------- --- Makes setting the spacingRaw simpler to write. The spacingRaw --- module adds a configurable amount of space around windows. -mySpacing :: Integer -> l a -> XMonad.Layout.LayoutModifier.ModifiedLayout Spacing l a -mySpacing i = spacingRaw False (Border i i i i) True (Border i i i i) True - --- Below is a variation of the above except no borders are applied --- if fewer than two windows. So a single window has no gaps. -mySpacing' :: Integer -> l a -> XMonad.Layout.LayoutModifier.ModifiedLayout Spacing l a -mySpacing' i = spacingRaw True (Border i i i i) True (Border i i i i) True - --- Defining a bunch of layouts, many that I don't use. -tall = renamed [Replace "tall"] - $ limitWindows 12 - $ mySpacing 8 - $ ResizableTall 1 (3/100) (1/2) [] -magnify = renamed [Replace "magnify"] - $ magnifier - $ limitWindows 12 - $ mySpacing 8 - $ ResizableTall 1 (3/100) (1/2) [] -monocle = renamed [Replace "monocle"] - $ limitWindows 20 Full -floats = renamed [Replace "floats"] - $ limitWindows 20 simplestFloat -grid = renamed [Replace "grid"] - $ limitWindows 12 - $ mySpacing 8 - $ mkToggle (single MIRROR) - $ Grid (16/10) -spirals = renamed [Replace "spirals"] - $ mySpacing' 8 - $ spiral (6/7) -threeCol = renamed [Replace "threeCol"] - $ limitWindows 7 - $ mySpacing' 4 - $ ThreeCol 1 (3/100) (1/2) -threeRow = renamed [Replace "threeRow"] - $ limitWindows 7 - $ mySpacing' 4 - -- Mirror takes a layout and rotates it by 90 degrees. - -- So we are applying Mirror to the ThreeCol layout. - $ Mirror - $ ThreeCol 1 (3/100) (1/2) -tabs = renamed [Replace "tabs"] - -- I cannot add spacing to this layout because it will - -- add spacing between window and tabs which looks bad. - $ tabbed shrinkText myTabConfig - where - myTabConfig = def { fontName = "xft:Mononoki Nerd Font:regular:pixelsize=11" - , activeColor = "#292d3e" - , inactiveColor = "#3e445e" - , activeBorderColor = "#292d3e" - , inactiveBorderColor = "#292d3e" - , activeTextColor = "#ffffff" - , inactiveTextColor = "#d0d0d0" - } - --- Theme for showWName which prints current workspace when you change workspaces. -myShowWNameTheme :: SWNConfig -myShowWNameTheme = def - { swn_font = "xft:Sans:bold:size=60" - , swn_fade = 1.0 - , swn_bgcolor = "#000000" - , swn_color = "#FFFFFF" - } - --- The layout hook -myLayoutHook = avoidStruts $ mouseResize $ windowArrange $ T.toggleLayouts floats $ - mkToggle (NBFULL ?? NOBORDERS ?? EOT) myDefaultLayout - where - -- I've commented out the layouts I don't use. - myDefaultLayout = tall - ||| magnify - ||| noBorders monocle - ||| floats - -- ||| grid - ||| noBorders tabs - -- ||| spirals - -- ||| threeCol - -- ||| threeRow - ------------------------------------------------------------------------- --- SCRATCHPADS ------------------------------------------------------------------------- --- Allows to have several floating scratchpads running different applications. --- Import Util.NamedScratchpad. Bind a key to namedScratchpadSpawnAction. -myScratchPads :: [NamedScratchpad] -myScratchPads = [ NS "terminal" spawnTerm findTerm manageTerm - , NS "mocp" spawnMocp findMocp manageMocp - ] - where - spawnTerm = myTerminal ++ " -n scratchpad" - findTerm = resource =? "scratchpad" - manageTerm = customFloating $ W.RationalRect l t w h - where - h = 0.9 - w = 0.9 - t = 0.95 -h - l = 0.95 -w - spawnMocp = myTerminal ++ " -n mocp 'mocp'" - findMocp = resource =? "mocp" - manageMocp = customFloating $ W.RationalRect l t w h - where - h = 0.9 - w = 0.9 - t = 0.95 -h - l = 0.95 -w - ------------------------------------------------------------------------- --- KEYBINDINGS ------------------------------------------------------------------------- --- I am using the Xmonad.Util.EZConfig module which allows keybindings --- to be written in simpler, emacs-like format. -myKeys :: [(String, X ())] -myKeys = - -- Xmonad - [ ("M-C-r", spawn "xmonad --recompile") -- Recompiles xmonad - , ("M-S-r", spawn "xmonad --restart") -- Restarts xmonad - , ("M-S-q", io exitSuccess) -- Quits xmonad - - -- Open my preferred terminal - , ("M-<Return>", spawn myTerminal) - - -- Run Prompt - , ("M-S-<Return>", shellPrompt dtXPConfig) -- Shell Prompt - - -- Windows - , ("M-S-c", kill1) -- Kill the currently focused client - , ("M-S-a", killAll) -- Kill all windows on current workspace - - -- Floating windows - , ("M-f", sendMessage (T.Toggle "floats")) -- Toggles my 'floats' layout - , ("M-<Delete>", withFocused $ windows . W.sink) -- Push floating window back to tile - , ("M-S-<Delete>", sinkAll) -- Push ALL floating windows to tile - - -- Grid Select (CTRL-g followed by a key) - , ("C-g g", spawnSelected' myAppGrid) -- grid select favorite apps - , ("C-g m", spawnSelected' myBookmarkGrid) -- grid select some bookmarks - , ("C-g c", spawnSelected' myConfigGrid) -- grid select useful config files - , ("C-g t", goToSelected $ mygridConfig myColorizer) -- goto selected window - , ("C-g b", bringSelected $ mygridConfig myColorizer) -- bring selected window - - -- Tree Select/ - -- tree select actions menu - , ("C-t a", treeselectAction tsDefaultConfig) - -- tree select workspaces menu - , ("C-t t", TS.treeselectWorkspace tsDefaultConfig myWorkspaces W.greedyView) - -- tree select choose workspace to send window - , ("C-t g", TS.treeselectWorkspace tsDefaultConfig myWorkspaces W.shift) - - -- Windows navigation - , ("M-m", windows W.focusMaster) -- Move focus to the master window - , ("M-j", windows W.focusDown) -- Move focus to the next window - , ("M-k", windows W.focusUp) -- Move focus to the prev window - --, ("M-S-m", windows W.swapMaster) -- Swap the focused window and the master window - , ("M-S-j", windows W.swapDown) -- Swap focused window with next window - , ("M-S-k", windows W.swapUp) -- Swap focused window with prev window - , ("M-<Backspace>", promote) -- Moves focused window to master, others maintain order - , ("M1-S-<Tab>", rotSlavesDown) -- Rotate all windows except master and keep focus in place - , ("M1-C-<Tab>", rotAllDown) -- Rotate all the windows in the current stack - --, ("M-S-s", windows copyToAll) - , ("M-C-s", killAllOtherCopies) - - -- Layouts - , ("M-<Tab>", sendMessage NextLayout) -- Switch to next layout - , ("M-C-M1-<Up>", sendMessage Arrange) - , ("M-C-M1-<Down>", sendMessage DeArrange) - , ("M-<Space>", sendMessage (MT.Toggle NBFULL) >> sendMessage ToggleStruts) -- Toggles noborder/full - , ("M-S-<Space>", sendMessage ToggleStruts) -- Toggles struts - , ("M-S-n", sendMessage $ MT.Toggle NOBORDERS) -- Toggles noborder - , ("M-<KP_Multiply>", sendMessage (IncMasterN 1)) -- Increase number of clients in master pane - , ("M-<KP_Divide>", sendMessage (IncMasterN (-1))) -- Decrease number of clients in master pane - , ("M-S-<KP_Multiply>", increaseLimit) -- Increase number of windows - , ("M-S-<KP_Divide>", decreaseLimit) -- Decrease number of windows - - , ("M-h", sendMessage Shrink) -- Shrink horiz window width - , ("M-l", sendMessage Expand) -- Expand horiz window width - , ("M-C-j", sendMessage MirrorShrink) -- Shrink vert window width - , ("M-C-k", sendMessage MirrorExpand) -- Exoand vert window width - - -- Workspaces - , ("M-.", nextScreen) -- Switch focus to next monitor - , ("M-,", prevScreen) -- Switch focus to prev monitor - , ("M-S-<KP_Add>", shiftTo Next nonNSP >> moveTo Next nonNSP) -- Shifts focused window to next ws - , ("M-S-<KP_Subtract>", shiftTo Prev nonNSP >> moveTo Prev nonNSP) -- Shifts focused window to prev ws - - -- Scratchpads - , ("M-C-<Return>", namedScratchpadAction myScratchPads "terminal") - , ("M-C-c", namedScratchpadAction myScratchPads "mocp") - - -- Controls for mocp music player. - , ("M-u p", spawn "mocp --play") - , ("M-u l", spawn "mocp --next") - , ("M-u h", spawn "mocp --previous") - , ("M-u <Space>", spawn "mocp --toggle-pause") - - -- Emacs (CTRL-e followed by a key) - , ("C-e e", spawn "emacsclient -c -a ''") -- start emacs - , ("C-e b", spawn "emacsclient -c -a '' --eval '(ibuffer)'") -- list emacs buffers - , ("C-e d", spawn "emacsclient -c -a '' --eval '(dired nil)'") -- dired emacs file manager - , ("C-e m", spawn "emacsclient -c -a '' --eval '(mu4e)'") -- mu4e emacs email client - , ("C-e n", spawn "emacsclient -c -a '' --eval '(elfeed)'") -- elfeed emacs rss client - , ("C-e s", spawn "emacsclient -c -a '' --eval '(eshell)'") -- eshell within emacs - , ("C-e t", spawn "emacsclient -c -a '' --eval '(+vterm/here nil)'") -- eshell within emacs - -- emms is an emacs audio player. I set it to auto start playing in a specific directory. - , ("C-e a", spawn "emacsclient -c -a '' --eval '(emms)' --eval '(emms-play-directory-tree \"~/Music/Non-Classical/70s-80s/\")'") - - --- My Applications (Super+Alt+Key) - , ("M-M1-a", spawn (myTerminal ++ " -e ncpamixer")) - , ("M-M1-b", spawn "surf www.youtube.com/c/DistroTube/") - , ("M-M1-e", spawn (myTerminal ++ " -e neomutt")) - , ("M-M1-f", spawn (myTerminal ++ " -e sh ./.config/vifm/scripts/vifmrun")) - , ("M-M1-i", spawn (myTerminal ++ " -e irssi")) - , ("M-M1-j", spawn (myTerminal ++ " -e joplin")) - , ("M-M1-l", spawn (myTerminal ++ " -e lynx -cfg=~/.lynx/lynx.cfg -lss=~/.lynx/lynx.lss gopher://distro.tube")) - , ("M-M1-m", spawn (myTerminal ++ " -e mocp")) - , ("M-M1-n", spawn (myTerminal ++ " -e newsboat")) - , ("M-M1-p", spawn (myTerminal ++ " -e pianobar")) - , ("M-M1-r", spawn (myTerminal ++ " -e rtv")) - , ("M-M1-t", spawn (myTerminal ++ " -e toot curses")) - , ("M-M1-w", spawn (myTerminal ++ " -e wopr report.xml")) - , ("M-M1-y", spawn (myTerminal ++ " -e youtube-viewer")) - - -- Multimedia Keys - , ("<XF86AudioPlay>", spawn "cmus toggle") - , ("<XF86AudioPrev>", spawn "cmus prev") - , ("<XF86AudioNext>", spawn "cmus next") - -- , ("<XF86AudioMute>", spawn "amixer set Master toggle") -- Bug prevents it from toggling correctly in 12.04. - , ("<XF86AudioLowerVolume>", spawn "amixer set Master 5%- unmute") - , ("<XF86AudioRaiseVolume>", spawn "amixer set Master 5%+ unmute") - , ("<XF86HomePage>", spawn "firefox") - , ("<XF86Search>", safeSpawn "firefox" ["https://www.google.com/"]) - , ("<XF86Mail>", runOrRaise "geary" (resource =? "thunderbird")) - , ("<XF86Calculator>", runOrRaise "gcalctool" (resource =? "gcalctool")) - , ("<XF86Eject>", spawn "toggleeject") - , ("<Print>", spawn "scrotd 0") - ] - -- Appending search engine prompts to keybindings list. - -- Look at "search engines" section of this config for values for "k". - ++ [("M-s " ++ k, S.promptSearch dtXPConfig' f) | (k,f) <- searchList ] - ++ [("M-S-s " ++ k, S.selectSearch f) | (k,f) <- searchList ] - -- Appending some extra xprompts to keybindings list. - -- Look at "xprompt settings" section this of config for values for "k". - ++ [("M-p " ++ k, f dtXPConfig') | (k,f) <- promptList ] - ++ [("M-p " ++ k, f dtXPConfig' g) | (k,f,g) <- promptList' ] - -- The following lines are needed for named scratchpads. - where nonNSP = WSIs (return (\ws -> W.tag ws /= "nsp")) - nonEmptyNonNSP = WSIs (return (\ws -> isJust (W.stack ws) && W.tag ws /= "nsp")) - ------------------------------------------------------------------------- --- MAIN ------------------------------------------------------------------------- -main :: IO () -main = do - dbus <- D.connectSession - -- Request access to the DBus name - D.requestName dbus (D.busName_ "org.xmonad.Log") - [D.nameAllowReplacement, D.nameReplaceExisting, D.nameDoNotQueue] - -- The xmonad, ya know...what the window manager is named after. - xmonad $ ewmh $ docks $ defaults { logHook = dynamicLogWithPP (myLogHook dbus) } - --- Emit a DBus signal on log updates -dbusOutput :: D.Client -> String -> IO () -dbusOutput dbus str = do - let signal = (D.signal objectPath interfaceName memberName) { - D.signalBody = [D.toVariant $ UTF8.decodeString str] - } - D.emit dbus signal - where - objectPath = D.objectPath_ "/org/xmonad/Log" - interfaceName = D.interfaceName_ "org.xmonad.Log" - memberName = D.memberName_ "Update" - -defaults = def - { handleEventHook = serverModeEventHookCmd - <+> serverModeEventHook - <+> serverModeEventHookF "XMONAD_PRINT" (io . putStrLn) - <+> docksEventHook - , modMask = myModMask - , terminal = myTerminal - , workspaces = TS.toWorkspaces myWorkspaces - , layoutHook = showWName' myShowWNameTheme $ smartBorders $ myLayoutHook - , normalBorderColor = myNormColor - , focusedBorderColor = myFocusColor - , manageHook = myManageHook <+> manageHook def - , borderWidth = myBorderWidth - , startupHook = myStartupHook - } `additionalKeysP` myKeys diff --git a/.config/xmonad/xmonad-example-configs/xmonad-example-xmobar-clickable-workspaces.hs b/.config/xmonad/xmonad-example-configs/xmonad-example-xmobar-clickable-workspaces.hs deleted file mode 100644 index 439f099..0000000 --- a/.config/xmonad/xmonad-example-configs/xmonad-example-xmobar-clickable-workspaces.hs +++ /dev/null @@ -1,795 +0,0 @@ --- Xmonad is a dynamically tiling X11 window manager that is written and --- configured in Haskell. Official documentation: https://xmonad.org - --- This is the xmonad configuration of Derek Taylor (DistroTube) --- My YouTube: http://www.youtube.com/c/DistroTube --- My GitLab: http://www.gitlab.com/dwt1/ - --- This config is massively long. It is purposely bloated with a ton of --- examples of what you can do with xmonad. It is written more as a --- study guide rather than a config that you should download and use. - ------------------------------------------------------------------------- --- IMPORTS ------------------------------------------------------------------------- - -- Base -import XMonad -import System.IO (hPutStrLn) -import System.Exit (exitSuccess) -import qualified XMonad.StackSet as W - - -- Actions -import XMonad.Actions.CopyWindow (kill1, killAllOtherCopies) -import XMonad.Actions.CycleWS (moveTo, shiftTo, WSType(..), nextScreen, prevScreen) -import XMonad.Actions.GridSelect -import XMonad.Actions.MouseResize -import XMonad.Actions.Promote -import XMonad.Actions.RotSlaves (rotSlavesDown, rotAllDown) -import qualified XMonad.Actions.TreeSelect as TS -import XMonad.Actions.WindowGo (runOrRaise) -import XMonad.Actions.WithAll (sinkAll, killAll) -import qualified XMonad.Actions.Search as S - - -- Data -import Data.Char (isSpace) -import Data.Monoid -import Data.Maybe (isJust) -import Data.Tree -import qualified Data.Tuple.Extra as TE -import qualified Data.Map as M - - -- Hooks -import XMonad.Hooks.DynamicLog (dynamicLogWithPP, wrap, xmobarPP, xmobarColor, shorten, PP(..)) -import XMonad.Hooks.EwmhDesktops -- for some fullscreen events, also for xcomposite in obs. -import XMonad.Hooks.FadeInactive -import XMonad.Hooks.ManageDocks (avoidStruts, docksEventHook, manageDocks, ToggleStruts(..)) -import XMonad.Hooks.ManageHelpers (isFullscreen, doFullFloat) -import XMonad.Hooks.ServerMode -import XMonad.Hooks.SetWMName -import XMonad.Hooks.WorkspaceHistory - - -- Layouts -import XMonad.Layout.GridVariants (Grid(Grid)) -import XMonad.Layout.SimplestFloat -import XMonad.Layout.Spiral -import XMonad.Layout.ResizableTile -import XMonad.Layout.Tabbed -import XMonad.Layout.ThreeColumns - - -- Layouts modifiers -import XMonad.Layout.LayoutModifier -import XMonad.Layout.LimitWindows (limitWindows, increaseLimit, decreaseLimit) -import XMonad.Layout.Magnifier -import XMonad.Layout.MultiToggle (mkToggle, single, EOT(EOT), (??)) -import XMonad.Layout.MultiToggle.Instances (StdTransformers(NBFULL, MIRROR, NOBORDERS)) -import XMonad.Layout.NoBorders -import XMonad.Layout.Renamed (renamed, Rename(Replace)) -import XMonad.Layout.ShowWName -import XMonad.Layout.Spacing -import XMonad.Layout.WindowArranger (windowArrange, WindowArrangerMsg(..)) -import qualified XMonad.Layout.ToggleLayouts as T (toggleLayouts, ToggleLayout(Toggle)) -import qualified XMonad.Layout.MultiToggle as MT (Toggle(..)) - - -- Prompt -import XMonad.Prompt -import XMonad.Prompt.Input -import XMonad.Prompt.FuzzyMatch -import XMonad.Prompt.Man -import XMonad.Prompt.Pass -import XMonad.Prompt.Shell (shellPrompt) -import XMonad.Prompt.Ssh -import XMonad.Prompt.XMonad -import Control.Arrow (first) - - -- Utilities -import XMonad.Util.EZConfig (additionalKeysP) -import XMonad.Util.NamedScratchpad -import XMonad.Util.Run (runProcessWithInput, safeSpawn, spawnPipe) -import XMonad.Util.SpawnOnce - ------------------------------------------------------------------------- --- VARIABLES ------------------------------------------------------------------------- --- It's nice to assign values to stuff that you will use more than once --- in the config. Setting values for things like font, terminal and editor --- means you only have to change the value here to make changes globally. -myFont :: String -myFont = "xft:Mononoki Nerd Font:bold:size=9" - -myModMask :: KeyMask -myModMask = mod4Mask -- Sets modkey to super/windows key - -myTerminal :: String -myTerminal = "alacritty" -- Sets default terminal - -myBrowser :: String -myBrowser = myTerminal ++ " -e lynx " -- Sets lynx as browser for tree select --- myBrowser = "firefox " -- Sets firefox as browser for tree select - -myEditor :: String -myEditor = "emacsclient -c -a emacs " -- Sets emacs as editor for tree select --- myEditor = myTerminal ++ " -e vim " -- Sets vim as editor for tree select - -myBorderWidth :: Dimension -myBorderWidth = 2 -- Sets border width for windows - -myNormColor :: String -myNormColor = "#292d3e" -- Border color of normal windows - -myFocusColor :: String -myFocusColor = "#bbc5ff" -- Border color of focused windows - -altMask :: KeyMask -altMask = mod1Mask -- Setting this for use in xprompts - -windowCount :: X (Maybe String) -windowCount = gets $ Just . show . length . W.integrate' . W.stack . W.workspace . W.current . windowset - ------------------------------------------------------------------------- --- AUTOSTART ------------------------------------------------------------------------- -myStartupHook :: X () -myStartupHook = do - spawnOnce "nitrogen --restore &" - spawnOnce "picom &" - spawnOnce "nm-applet &" - spawnOnce "volumeicon &" - spawnOnce "trayer --edge top --align right --widthtype request --padding 6 --SetDockType true --SetPartialStrut true --expand true --monitor 1 --transparent true --alpha 0 --tint 0x292d3e --height 18 &" - spawnOnce "/usr/bin/emacs --daemon &" - -- spawnOnce "kak -d -s mysession &" - setWMName "LG3D" - ------------------------------------------------------------------------- --- GRID SELECT ------------------------------------------------------------------------- --- GridSelect displays items (programs, open windows, etc.) in a 2D grid --- and lets the user select from it with the cursor/hjkl keys or the mouse. -myColorizer :: Window -> Bool -> X (String, String) -myColorizer = colorRangeFromClassName - (0x29,0x2d,0x3e) -- lowest inactive bg - (0x29,0x2d,0x3e) -- highest inactive bg - (0xc7,0x92,0xea) -- active bg - (0xc0,0xa7,0x9a) -- inactive fg - (0x29,0x2d,0x3e) -- active fg - --- gridSelect menu layout -mygridConfig :: p -> GSConfig Window -mygridConfig colorizer = (buildDefaultGSConfig myColorizer) - { gs_cellheight = 40 - , gs_cellwidth = 200 - , gs_cellpadding = 6 - , gs_originFractX = 0.5 - , gs_originFractY = 0.5 - , gs_font = myFont - } - -spawnSelected' :: [(String, String)] -> X () -spawnSelected' lst = gridselect conf lst >>= flip whenJust spawn - where conf = def - { gs_cellheight = 40 - , gs_cellwidth = 200 - , gs_cellpadding = 6 - , gs_originFractX = 0.5 - , gs_originFractY = 0.5 - , gs_font = myFont - } - --- The lists below are actually 3-tuples for use with gridSelect and treeSelect. --- TreeSelect uses all three values in the 3-tuples but GridSelect only needs first --- two values in each list (see myAppGrid, myBookmarkGrid and myConfigGrid below). -myApplications :: [(String, String, String)] -myApplications = [ ("Audacity", "audacity", "Graphical cross-platform audio eidtor") - , ("Deadbeef", "deadbeef", "Lightweight GUI audio player") - , ("Emacs", "emacs", "Much more than a text editor") - , ("Firefox", "firefox", "The famous open source web browser") - , ("Geany", "geany", "A nice text editor") - , ("Geary", "geary", "Email client that is attractive") - , ("Gimp", "gimp", "Open source alternative to Photoshop") - , ("Kdenlive", "kdenlive", "A great open source video editor") - , ("LibreOffice Impress", "loimpress", "For making presentations") - , ("LibreOffice Writer", "lowriter", "A fully featured word processor") - , ("OBS", "obs", "Open broadcaster software") - , ("PCManFM", "pcmanfm", "Lightweight graphical file manager") - , ("Simple Terminal", "st", "Suckless simple terminal") - , ("Steam", "steam", "Proprietary gaming platform") - , ("Surf Browser", "surf suckless.org", "Suckless surf web browser") - , ("Xonotic", "xonotic-glx", "A fast-paced first person shooter") - ] - -myBookmarks :: [(String, String, String)] -myBookmarks = [ ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - ] - -myConfigs :: [(String, String, String)] -myConfigs = [ ("bashrc", myEditor ++ "~/.bashrc", "the bourne again shell") - , ("doom emacs config.el", myEditor ++ "~/.doom.d/config.el", "doom emacs config") - , ("doom emacs init.el", myEditor ++ "~/.doom.d/init.el", "doom emacs init") - , ("dwm", myEditor ++ "~/dwm-distrotube/config.h", "dwm config file") - , ("qtile", myEditor ++ "~/.config/qtile/config.py", "qtile config") - , ("xmonad.hs", myEditor ++ "~/.xmonad/xmonad.hs", "xmonad config") - , ("zshrc", myEditor ++ "~/.zshrc", "config for the z shell") - ] - --- Let's take myApplications, myBookmarks and myConfigs and take only --- the first two values from those 3-tuples (for GridSelect). -myAppGrid :: [(String, String)] -myAppGrid = [ (a,b) | (a,b,c) <- xs] - where xs = myApplications - -myBookmarkGrid :: [(String, String)] -myBookmarkGrid = [ (a,b) | (a,b,c) <- xs] - where xs = myBookmarks - -myConfigGrid :: [(String, String)] -myConfigGrid = [ (a,b) | (a,b,c) <- xs] - where xs = myConfigs - ------------------------------------------------------------------------- --- TREE SELECT ------------------------------------------------------------------------- --- TreeSelect displays your workspaces or actions in a Tree-like format. --- You can select desired workspace/action with the cursor or hjkl keys. - -treeselectAction :: TS.TSConfig (X ()) -> X () -treeselectAction a = TS.treeselectAction a - [ Node (TS.TSNode "applications" "a list of programs I use often" (return ())) - [Node (TS.TSNode (TE.fst3 $ myApplications !! n) - (TE.thd3 $ myApplications !! n) - (spawn $ TE.snd3 $ myApplications !! n) - ) [] | n <- [0..(length myApplications - 1)] - ] - , Node (TS.TSNode "bookmarks" "a list of web bookmarks" (return ())) - [Node (TS.TSNode(TE.fst3 $ myBookmarks !! n) - (TE.thd3 $ myBookmarks !! n) - (spawn $ TE.snd3 $ myBookmarks !! n) - ) [] | n <- [0..(length myBookmarks - 1)] - ] - , Node (TS.TSNode "config files" "config files that edit often" (return ())) - [Node (TS.TSNode (TE.fst3 $ myConfigs !! n) - (TE.thd3 $ myConfigs !! n) - (spawn $ TE.snd3 $ myConfigs !! n) - ) [] | n <- [0..(length myConfigs - 1)] - ] - ] - --- Configuration options for treeSelect -tsDefaultConfig :: TS.TSConfig a -tsDefaultConfig = TS.TSConfig { TS.ts_hidechildren = True - , TS.ts_background = 0xdd292d3e - , TS.ts_font = myFont - , TS.ts_node = (0xffd0d0d0, 0xff202331) - , TS.ts_nodealt = (0xffd0d0d0, 0xff292d3e) - , TS.ts_highlight = (0xffffffff, 0xff755999) - , TS.ts_extra = 0xffd0d0d0 - , TS.ts_node_width = 200 - , TS.ts_node_height = 20 - , TS.ts_originX = 0 - , TS.ts_originY = 0 - , TS.ts_indent = 80 - , TS.ts_navigate = myTreeNavigation - } - --- Keybindings for treeSelect menus. Use h-j-k-l to navigate. --- Use 'o' and 'i' to move forward/back in the workspace history. --- Single KEY's are for top-level nodes. SUPER+KEY are for the --- second-level nodes. SUPER+ALT+KEY are third-level nodes. -myTreeNavigation = M.fromList - [ ((0, xK_Escape), TS.cancel) - , ((0, xK_Return), TS.select) - , ((0, xK_space), TS.select) - , ((0, xK_Up), TS.movePrev) - , ((0, xK_Down), TS.moveNext) - , ((0, xK_Left), TS.moveParent) - , ((0, xK_Right), TS.moveChild) - , ((0, xK_k), TS.movePrev) - , ((0, xK_j), TS.moveNext) - , ((0, xK_h), TS.moveParent) - , ((0, xK_l), TS.moveChild) - , ((0, xK_o), TS.moveHistBack) - , ((0, xK_i), TS.moveHistForward) - ] - ------------------------------------------------------------------------- --- XPROMPT SETTINGS ------------------------------------------------------------------------- -dtXPConfig :: XPConfig -dtXPConfig = def - { font = myFont - , bgColor = "#292d3e" - , fgColor = "#d0d0d0" - , bgHLight = "#c792ea" - , fgHLight = "#000000" - , borderColor = "#535974" - , promptBorderWidth = 0 - , promptKeymap = dtXPKeymap - , position = Top --- , position = CenteredAt { xpCenterY = 0.3, xpWidth = 0.3 } - , height = 20 - , historySize = 256 - , historyFilter = id - , defaultText = [] - , autoComplete = Just 100000 -- set Just 100000 for .1 sec - , showCompletionOnTab = False - -- , searchPredicate = isPrefixOf - , searchPredicate = fuzzyMatch - , alwaysHighlight = True - , maxComplRows = Nothing -- set to Just 5 for 5 rows - } - --- The same config above minus the autocomplete feature which is annoying --- on certain Xprompts, like the search engine prompts. -dtXPConfig' :: XPConfig -dtXPConfig' = dtXPConfig - { autoComplete = Nothing - } - --- A list of all of the standard Xmonad prompts and a key press assigned to them. --- These are used in conjunction with keybinding I set later in the config. -promptList :: [(String, XPConfig -> X ())] -promptList = [ ("m", manPrompt) -- manpages prompt - , ("p", passPrompt) -- get passwords (requires 'pass') - , ("g", passGeneratePrompt) -- generate passwords (requires 'pass') - , ("r", passRemovePrompt) -- remove passwords (requires 'pass') - , ("s", sshPrompt) -- ssh prompt - , ("x", xmonadPrompt) -- xmonad prompt - ] - --- Same as the above list except this is for my custom prompts. -promptList' :: [(String, XPConfig -> String -> X (), String)] -promptList' = [ ("c", calcPrompt, "qalc") -- requires qalculate-gtk - ] - ------------------------------------------------------------------------- --- CUSTOM PROMPTS ------------------------------------------------------------------------- --- calcPrompt requires a cli calculator called qalcualte-gtk. --- You could use this as a template for other custom prompts that --- use command line programs that return a single line of output. -calcPrompt :: XPConfig -> String -> X () -calcPrompt c ans = - inputPrompt c (trim ans) ?+ \input -> - liftIO(runProcessWithInput "qalc" [input] "") >>= calcPrompt c - where - trim = f . f - where f = reverse . dropWhile isSpace - ------------------------------------------------------------------------- --- XPROMPT KEYMAP (emacs-like key bindings for xprompts) ------------------------------------------------------------------------- -dtXPKeymap :: M.Map (KeyMask,KeySym) (XP ()) -dtXPKeymap = M.fromList $ - map (first $ (,) controlMask) -- control + <key> - [ (xK_z, killBefore) -- kill line backwards - , (xK_k, killAfter) -- kill line forwards - , (xK_a, startOfLine) -- move to the beginning of the line - , (xK_e, endOfLine) -- move to the end of the line - , (xK_m, deleteString Next) -- delete a character foward - , (xK_b, moveCursor Prev) -- move cursor forward - , (xK_f, moveCursor Next) -- move cursor backward - , (xK_BackSpace, killWord Prev) -- kill the previous word - , (xK_y, pasteString) -- paste a string - , (xK_g, quit) -- quit out of prompt - , (xK_bracketleft, quit) - ] - ++ - map (first $ (,) altMask) -- meta key + <key> - [ (xK_BackSpace, killWord Prev) -- kill the prev word - , (xK_f, moveWord Next) -- move a word forward - , (xK_b, moveWord Prev) -- move a word backward - , (xK_d, killWord Next) -- kill the next word - , (xK_n, moveHistory W.focusUp') -- move up thru history - , (xK_p, moveHistory W.focusDown') -- move down thru history - ] - ++ - map (first $ (,) 0) -- <key> - [ (xK_Return, setSuccess True >> setDone True) - , (xK_KP_Enter, setSuccess True >> setDone True) - , (xK_BackSpace, deleteString Prev) - , (xK_Delete, deleteString Next) - , (xK_Left, moveCursor Prev) - , (xK_Right, moveCursor Next) - , (xK_Home, startOfLine) - , (xK_End, endOfLine) - , (xK_Down, moveHistory W.focusUp') - , (xK_Up, moveHistory W.focusDown') - , (xK_Escape, quit) - ] - ------------------------------------------------------------------------- --- SEARCH ENGINES ------------------------------------------------------------------------- --- Xmonad has several search engines available to use located in --- XMonad.Actions.Search. Additionally, you can add other search engines --- such as those listed below. -archwiki, ebay, news, reddit, urban :: S.SearchEngine - -archwiki = S.searchEngine "archwiki" "https://wiki.archlinux.org/index.php?search=" -ebay = S.searchEngine "ebay" "https://www.ebay.com/sch/i.html?_nkw=" -news = S.searchEngine "news" "https://news.google.com/search?q=" -reddit = S.searchEngine "reddit" "https://www.reddit.com/search/?q=" -urban = S.searchEngine "urban" "https://www.urbandictionary.com/define.php?term=" - --- This is the list of search engines that I want to use. Some are from --- XMonad.Actions.Search, and some are the ones that I added above. -searchList :: [(String, S.SearchEngine)] -searchList = [ ("a", archwiki) - , ("d", S.duckduckgo) - , ("e", ebay) - , ("g", S.google) - , ("h", S.hoogle) - , ("i", S.images) - , ("n", news) - , ("r", reddit) - , ("s", S.stackage) - , ("t", S.thesaurus) - , ("v", S.vocabulary) - , ("b", S.wayback) - , ("u", urban) - , ("w", S.wikipedia) - , ("y", S.youtube) - , ("z", S.amazon) - ] - ------------------------------------------------------------------------- --- WORKSPACES ------------------------------------------------------------------------- --- My workspaces are clickable meaning that the mouse can be used to switch --- workspaces. This requires xdotool. You need to use UnsafeStdInReader instead --- of simply StdInReader in xmobar config so you can pass actions to it. - -xmobarEscape :: String -> String -xmobarEscape = concatMap doubleLts - where - doubleLts '<' = "<<" - doubleLts x = [x] - -myWorkspaces :: [String] -myWorkspaces = clickable . map xmobarEscape - $ ["dev", "www", "sys", "doc", "vbox", "chat", "mus", "vid", "gfx"] - where - clickable l = [ "<action=xdotool key super+" ++ show n ++ ">" ++ ws ++ "</action>" | - (i,ws) <- zip [1..9] l, - let n = i ] - ------------------------------------------------------------------------- --- MANAGEHOOK ------------------------------------------------------------------------- --- Sets some rules for certain programs. Examples include forcing certain --- programs to always float, or to always appear on a certain workspace. --- Forcing programs to a certain workspace with a doShift requires xdotool --- if you are using clickable workspaces. You need the className or title --- of the program. Use xprop to get this info. - -myManageHook :: XMonad.Query (Data.Monoid.Endo WindowSet) -myManageHook = composeAll - -- using 'doShift ( myWorkspaces !! 7)' sends program to workspace 8! - -- I'm doing it this way because otherwise I would have to write out - -- the full name of my clickable workspaces, which would look like: - -- doShift "<action xdotool super+8>gfx</action>" - [ className =? "obs" --> doShift ( "video.obs" ) - , title =? "firefox" --> doShift ( "web.browser" ) - , title =? "qutebrowser" --> doShift ( "web.browser" ) - , className =? "mpv" --> doShift ( "video.movie player" ) - , className =? "vlc" --> doShift ( "video.movie player" ) - , className =? "Gimp" --> doShift ( "graphics.gimp") - , className =? "Gimp" --> doFloat - , title =? "Oracle VM VirtualBox Manager" --> doFloat - , className =? "VirtualBox Manager" --> doShift ( "dev.virtualization" ) - , (className =? "firefox" <&&> resource =? "Dialog") --> doFloat -- Float Firefox Dialog - ] <+> namedScratchpadManageHook myScratchPads - ------------------------------------------------------------------------- --- LOGHOOK ------------------------------------------------------------------------- --- Sets opacity for inactive (unfocused) windows. I prefer to not use --- this feature so I've set opacity to 1.0. If you want opacity, set --- this to a value of less than 1 (such as 0.9 for 90% opacity). -myLogHook :: X () -myLogHook = fadeInactiveLogHook fadeAmount - where fadeAmount = 1.0 - ------------------------------------------------------------------------- --- LAYOUTS ------------------------------------------------------------------------- --- Makes setting the spacingRaw simpler to write. The spacingRaw --- module adds a configurable amount of space around windows. -mySpacing :: Integer -> l a -> XMonad.Layout.LayoutModifier.ModifiedLayout Spacing l a -mySpacing i = spacingRaw False (Border i i i i) True (Border i i i i) True - --- Below is a variation of the above except no borders are applied --- if fewer than two windows. So a single window has no gaps. -mySpacing' :: Integer -> l a -> XMonad.Layout.LayoutModifier.ModifiedLayout Spacing l a -mySpacing' i = spacingRaw True (Border i i i i) True (Border i i i i) True - --- Defining a bunch of layouts, many that I don't use. -tall = renamed [Replace "tall"] - $ limitWindows 12 - $ mySpacing 8 - $ ResizableTall 1 (3/100) (1/2) [] -magnify = renamed [Replace "magnify"] - $ magnifier - $ limitWindows 12 - $ mySpacing 8 - $ ResizableTall 1 (3/100) (1/2) [] -monocle = renamed [Replace "monocle"] - $ limitWindows 20 Full -floats = renamed [Replace "floats"] - $ limitWindows 20 simplestFloat -grid = renamed [Replace "grid"] - $ limitWindows 12 - $ mySpacing 8 - $ mkToggle (single MIRROR) - $ Grid (16/10) -spirals = renamed [Replace "spirals"] - $ mySpacing' 8 - $ spiral (6/7) -threeCol = renamed [Replace "threeCol"] - $ limitWindows 7 - $ mySpacing' 4 - $ ThreeCol 1 (3/100) (1/2) -threeRow = renamed [Replace "threeRow"] - $ limitWindows 7 - $ mySpacing' 4 - -- Mirror takes a layout and rotates it by 90 degrees. - -- So we are applying Mirror to the ThreeCol layout. - $ Mirror - $ ThreeCol 1 (3/100) (1/2) -tabs = renamed [Replace "tabs"] - -- I cannot add spacing to this layout because it will - -- add spacing between window and tabs which looks bad. - $ tabbed shrinkText myTabConfig - where - myTabConfig = def { fontName = "xft:Mononoki Nerd Font:regular:pixelsize=11" - , activeColor = "#292d3e" - , inactiveColor = "#3e445e" - , activeBorderColor = "#292d3e" - , inactiveBorderColor = "#292d3e" - , activeTextColor = "#ffffff" - , inactiveTextColor = "#d0d0d0" - } - --- Theme for showWName which prints current workspace when you change workspaces. -myShowWNameTheme :: SWNConfig -myShowWNameTheme = def - { swn_font = "xft:Sans:bold:size=60" - , swn_fade = 1.0 - , swn_bgcolor = "#000000" - , swn_color = "#FFFFFF" - } - --- The layout hook -myLayoutHook = avoidStruts $ mouseResize $ windowArrange $ T.toggleLayouts floats $ - mkToggle (NBFULL ?? NOBORDERS ?? EOT) myDefaultLayout - where - -- I've commented out the layouts I don't use. - myDefaultLayout = tall - ||| magnify - ||| noBorders monocle - ||| floats - -- ||| grid - ||| noBorders tabs - -- ||| spirals - -- ||| threeCol - -- ||| threeRow - ------------------------------------------------------------------------- --- SCRATCHPADS ------------------------------------------------------------------------- --- Allows to have several floating scratchpads running different applications. --- Import Util.NamedScratchpad. Bind a key to namedScratchpadSpawnAction. -myScratchPads :: [NamedScratchpad] -myScratchPads = [ NS "terminal" spawnTerm findTerm manageTerm - , NS "mocp" spawnMocp findMocp manageMocp - ] - where - spawnTerm = myTerminal ++ " -n scratchpad" - findTerm = resource =? "scratchpad" - manageTerm = customFloating $ W.RationalRect l t w h - where - h = 0.9 - w = 0.9 - t = 0.95 -h - l = 0.95 -w - spawnMocp = myTerminal ++ " -n mocp 'mocp'" - findMocp = resource =? "mocp" - manageMocp = customFloating $ W.RationalRect l t w h - where - h = 0.9 - w = 0.9 - t = 0.95 -h - l = 0.95 -w - ------------------------------------------------------------------------- --- KEYBINDINGS ------------------------------------------------------------------------- --- I am using the Xmonad.Util.EZConfig module which allows keybindings --- to be written in simpler, emacs-like format. -myKeys :: [(String, X ())] -myKeys = - -- Xmonad - [ ("M-C-r", spawn "xmonad --recompile") -- Recompiles xmonad - , ("M-S-r", spawn "xmonad --restart") -- Restarts xmonad - , ("M-S-q", io exitSuccess) -- Quits xmonad - - -- Open my preferred terminal - , ("M-<Return>", spawn myTerminal) - - -- Run Prompt - , ("M-S-<Return>", shellPrompt dtXPConfig) -- Shell Prompt - - -- Windows - , ("M-S-c", kill1) -- Kill the currently focused client - , ("M-S-a", killAll) -- Kill all windows on current workspace - - -- Floating windows - , ("M-f", sendMessage (T.Toggle "floats")) -- Toggles my 'floats' layout - , ("M-<Delete>", withFocused $ windows . W.sink) -- Push floating window back to tile - , ("M-S-<Delete>", sinkAll) -- Push ALL floating windows to tile - - -- Grid Select (CTRL-g followed by a key) - , ("C-g g", spawnSelected' myAppGrid) -- grid select favorite apps - , ("C-g m", spawnSelected' myBookmarkGrid) -- grid select some bookmarks - , ("C-g c", spawnSelected' myConfigGrid) -- grid select useful config files - , ("C-g t", goToSelected $ mygridConfig myColorizer) -- goto selected window - , ("C-g b", bringSelected $ mygridConfig myColorizer) -- bring selected window - - -- Tree Select/ - -- tree select actions menu - , ("C-t a", treeselectAction tsDefaultConfig) - - -- Windows navigation - , ("M-m", windows W.focusMaster) -- Move focus to the master window - , ("M-j", windows W.focusDown) -- Move focus to the next window - , ("M-k", windows W.focusUp) -- Move focus to the prev window - --, ("M-S-m", windows W.swapMaster) -- Swap the focused window and the master window - , ("M-S-j", windows W.swapDown) -- Swap focused window with next window - , ("M-S-k", windows W.swapUp) -- Swap focused window with prev window - , ("M-<Backspace>", promote) -- Moves focused window to master, others maintain order - , ("M1-S-<Tab>", rotSlavesDown) -- Rotate all windows except master and keep focus in place - , ("M1-C-<Tab>", rotAllDown) -- Rotate all the windows in the current stack - --, ("M-S-s", windows copyToAll) - , ("M-C-s", killAllOtherCopies) - - -- Layouts - , ("M-<Tab>", sendMessage NextLayout) -- Switch to next layout - , ("M-C-M1-<Up>", sendMessage Arrange) - , ("M-C-M1-<Down>", sendMessage DeArrange) - , ("M-<Space>", sendMessage (MT.Toggle NBFULL) >> sendMessage ToggleStruts) -- Toggles noborder/full - , ("M-S-<Space>", sendMessage ToggleStruts) -- Toggles struts - , ("M-S-n", sendMessage $ MT.Toggle NOBORDERS) -- Toggles noborder - , ("M-<KP_Multiply>", sendMessage (IncMasterN 1)) -- Increase number of clients in master pane - , ("M-<KP_Divide>", sendMessage (IncMasterN (-1))) -- Decrease number of clients in master pane - , ("M-S-<KP_Multiply>", increaseLimit) -- Increase number of windows - , ("M-S-<KP_Divide>", decreaseLimit) -- Decrease number of windows - - , ("M-h", sendMessage Shrink) -- Shrink horiz window width - , ("M-l", sendMessage Expand) -- Expand horiz window width - , ("M-C-j", sendMessage MirrorShrink) -- Shrink vert window width - , ("M-C-k", sendMessage MirrorExpand) -- Exoand vert window width - - -- Workspaces - , ("M-.", nextScreen) -- Switch focus to next monitor - , ("M-,", prevScreen) -- Switch focus to prev monitor - , ("M-S-<KP_Add>", shiftTo Next nonNSP >> moveTo Next nonNSP) -- Shifts focused window to next ws - , ("M-S-<KP_Subtract>", shiftTo Prev nonNSP >> moveTo Prev nonNSP) -- Shifts focused window to prev ws - - -- Scratchpads - , ("M-C-<Return>", namedScratchpadAction myScratchPads "terminal") - , ("M-C-c", namedScratchpadAction myScratchPads "mocp") - - -- Controls for mocp music player. - , ("M-u p", spawn "mocp --play") - , ("M-u l", spawn "mocp --next") - , ("M-u h", spawn "mocp --previous") - , ("M-u <Space>", spawn "mocp --toggle-pause") - - -- Emacs (CTRL-e followed by a key) - , ("C-e e", spawn "emacsclient -c -a ''") -- start emacs - , ("C-e b", spawn "emacsclient -c -a '' --eval '(ibuffer)'") -- list emacs buffers - , ("C-e d", spawn "emacsclient -c -a '' --eval '(dired nil)'") -- dired emacs file manager - , ("C-e m", spawn "emacsclient -c -a '' --eval '(mu4e)'") -- mu4e emacs email client - , ("C-e n", spawn "emacsclient -c -a '' --eval '(elfeed)'") -- elfeed emacs rss client - , ("C-e s", spawn "emacsclient -c -a '' --eval '(eshell)'") -- eshell within emacs - , ("C-e t", spawn "emacsclient -c -a '' --eval '(+vterm/here nil)'") -- eshell within emacs - -- emms is an emacs audio player. I set it to auto start playing in a specific directory. - , ("C-e a", spawn "emacsclient -c -a '' --eval '(emms)' --eval '(emms-play-directory-tree \"~/Music/Non-Classical/70s-80s/\")'") - - --- My Applications (Super+Alt+Key) - , ("M-M1-a", spawn (myTerminal ++ " -e ncpamixer")) - , ("M-M1-b", spawn "surf www.youtube.com/c/DistroTube/") - , ("M-M1-e", spawn (myTerminal ++ " -e neomutt")) - , ("M-M1-f", spawn (myTerminal ++ " -e sh ./.config/vifm/scripts/vifmrun")) - , ("M-M1-i", spawn (myTerminal ++ " -e irssi")) - , ("M-M1-j", spawn (myTerminal ++ " -e joplin")) - , ("M-M1-l", spawn (myTerminal ++ " -e lynx -cfg=~/.lynx/lynx.cfg -lss=~/.lynx/lynx.lss gopher://distro.tube")) - , ("M-M1-m", spawn (myTerminal ++ " -e mocp")) - , ("M-M1-n", spawn (myTerminal ++ " -e newsboat")) - , ("M-M1-p", spawn (myTerminal ++ " -e pianobar")) - , ("M-M1-r", spawn (myTerminal ++ " -e rtv")) - , ("M-M1-t", spawn (myTerminal ++ " -e toot curses")) - , ("M-M1-w", spawn (myTerminal ++ " -e wopr report.xml")) - , ("M-M1-y", spawn (myTerminal ++ " -e youtube-viewer")) - - -- Multimedia Keys - , ("<XF86AudioPlay>", spawn "cmus toggle") - , ("<XF86AudioPrev>", spawn "cmus prev") - , ("<XF86AudioNext>", spawn "cmus next") - -- , ("<XF86AudioMute>", spawn "amixer set Master toggle") -- Bug prevents it from toggling correctly in 12.04. - , ("<XF86AudioLowerVolume>", spawn "amixer set Master 5%- unmute") - , ("<XF86AudioRaiseVolume>", spawn "amixer set Master 5%+ unmute") - , ("<XF86HomePage>", spawn "firefox") - , ("<XF86Search>", safeSpawn "firefox" ["https://www.google.com/"]) - , ("<XF86Mail>", runOrRaise "geary" (resource =? "thunderbird")) - , ("<XF86Calculator>", runOrRaise "gcalctool" (resource =? "gcalctool")) - , ("<XF86Eject>", spawn "toggleeject") - , ("<Print>", spawn "scrotd 0") - ] - -- Appending search engine prompts to keybindings list. - -- Look at "search engines" section of this config for values for "k". - ++ [("M-s " ++ k, S.promptSearch dtXPConfig' f) | (k,f) <- searchList ] - ++ [("M-S-s " ++ k, S.selectSearch f) | (k,f) <- searchList ] - -- Appending some extra xprompts to keybindings list. - -- Look at "xprompt settings" section this of config for values for "k". - ++ [("M-p " ++ k, f dtXPConfig') | (k,f) <- promptList ] - ++ [("M-p " ++ k, f dtXPConfig' g) | (k,f,g) <- promptList' ] - -- The following lines are needed for named scratchpads. - where nonNSP = WSIs (return (\ws -> W.tag ws /= "nsp")) - nonEmptyNonNSP = WSIs (return (\ws -> isJust (W.stack ws) && W.tag ws /= "nsp")) - ------------------------------------------------------------------------- --- MAIN ------------------------------------------------------------------------- -main :: IO () -main = do - -- Launching three instances of xmobar on their monitors. - xmproc0 <- spawnPipe "xmobar -x 0 ~/.config/xmobar/xmobarrc0" - xmproc1 <- spawnPipe "xmobar -x 1 ~/.config/xmobar/xmobarrc2" - xmproc2 <- spawnPipe "xmobar -x 2 ~/.config/xmobar/xmobarrc1" - -- the xmonad, ya know...what the WM is named after! - xmonad $ ewmh def - { manageHook = ( isFullscreen --> doFullFloat ) <+> myManageHook <+> manageDocks - -- Run xmonad commands from command line with "xmonadctl command". Commands include: - -- shrink, expand, next-layout, default-layout, restart-wm, xterm, kill, refresh, run, - -- focus-up, focus-down, swap-up, swap-down, swap-master, sink, quit-wm. You can run - -- "xmonadctl 0" to generate full list of commands written to ~/.xsession-errors. - , handleEventHook = serverModeEventHookCmd - <+> serverModeEventHook - <+> serverModeEventHookF "XMONAD_PRINT" (io . putStrLn) - <+> docksEventHook - , modMask = myModMask - , terminal = myTerminal - , startupHook = myStartupHook - , layoutHook = showWName' myShowWNameTheme myLayoutHook - , workspaces = myWorkspaces - , borderWidth = myBorderWidth - , normalBorderColor = myNormColor - , focusedBorderColor = myFocusColor - , logHook = workspaceHistoryHook <+> myLogHook <+> dynamicLogWithPP xmobarPP - { ppOutput = \x -> hPutStrLn xmproc0 x >> hPutStrLn xmproc1 x >> hPutStrLn xmproc2 x - , ppCurrent = xmobarColor "#c3e88d" "" . wrap "[" "]" -- Current workspace in xmobar - , ppVisible = xmobarColor "#c3e88d" "" -- Visible but not current workspace - , ppHidden = xmobarColor "#82AAFF" "" . wrap "*" "" -- Hidden workspaces in xmobar - , ppHiddenNoWindows = xmobarColor "#F07178" "" -- Hidden workspaces (no windows) - , ppTitle = xmobarColor "#d0d0d0" "" . shorten 60 -- Title of active window in xmobar - , ppSep = "<fc=#666666> | </fc>" -- Separators in xmobar - , ppUrgent = xmobarColor "#C45500" "" . wrap "!" "!" -- Urgent workspace - , ppExtras = [windowCount] -- # of windows current workspace - , ppOrder = \(ws:l:t:ex) -> [ws,l]++ex++[t] - } - } `additionalKeysP` myKeys diff --git a/.config/xmonad/xmonad-example-configs/xmonad-example-xmobar-non-clickable.hs b/.config/xmonad/xmonad-example-configs/xmonad-example-xmobar-non-clickable.hs deleted file mode 100644 index 917cd79..0000000 --- a/.config/xmonad/xmonad-example-configs/xmonad-example-xmobar-non-clickable.hs +++ /dev/null @@ -1,780 +0,0 @@ --- Xmonad is a dynamically tiling X11 window manager that is written and --- configured in Haskell. Official documentation: https://xmonad.org - --- This is the xmonad configuration of Derek Taylor (DistroTube) --- My YouTube: http://www.youtube.com/c/DistroTube --- My GitLab: http://www.gitlab.com/dwt1/ - --- This config is massively long. It is purposely bloated with a ton of --- examples of what you can do with xmonad. It is written more as a --- study guide rather than a config that you should download and use. - ------------------------------------------------------------------------- --- IMPORTS ------------------------------------------------------------------------- - -- Base -import XMonad -import System.IO (hPutStrLn) -import System.Exit (exitSuccess) -import qualified XMonad.StackSet as W - - -- Actions -import XMonad.Actions.CopyWindow (kill1, killAllOtherCopies) -import XMonad.Actions.CycleWS (moveTo, shiftTo, WSType(..), nextScreen, prevScreen) -import XMonad.Actions.GridSelect -import XMonad.Actions.MouseResize -import XMonad.Actions.Promote -import XMonad.Actions.RotSlaves (rotSlavesDown, rotAllDown) -import qualified XMonad.Actions.TreeSelect as TS -import XMonad.Actions.WindowGo (runOrRaise) -import XMonad.Actions.WithAll (sinkAll, killAll) -import qualified XMonad.Actions.Search as S - - -- Data -import Data.Char (isSpace) -import Data.Monoid -import Data.Maybe (isJust) -import Data.Tree -import qualified Data.Tuple.Extra as TE -import qualified Data.Map as M - - -- Hooks -import XMonad.Hooks.DynamicLog (dynamicLogWithPP, wrap, xmobarPP, xmobarColor, shorten, PP(..)) -import XMonad.Hooks.EwmhDesktops -- for some fullscreen events, also for xcomposite in obs. -import XMonad.Hooks.FadeInactive -import XMonad.Hooks.ManageDocks (avoidStruts, docksEventHook, manageDocks, ToggleStruts(..)) -import XMonad.Hooks.ManageHelpers (isFullscreen, doFullFloat) -import XMonad.Hooks.ServerMode -import XMonad.Hooks.SetWMName -import XMonad.Hooks.WorkspaceHistory - - -- Layouts -import XMonad.Layout.GridVariants (Grid(Grid)) -import XMonad.Layout.SimplestFloat -import XMonad.Layout.Spiral -import XMonad.Layout.ResizableTile -import XMonad.Layout.Tabbed -import XMonad.Layout.ThreeColumns - - -- Layouts modifiers -import XMonad.Layout.LayoutModifier -import XMonad.Layout.LimitWindows (limitWindows, increaseLimit, decreaseLimit) -import XMonad.Layout.Magnifier -import XMonad.Layout.MultiToggle (mkToggle, single, EOT(EOT), (??)) -import XMonad.Layout.MultiToggle.Instances (StdTransformers(NBFULL, MIRROR, NOBORDERS)) -import XMonad.Layout.NoBorders -import XMonad.Layout.Renamed (renamed, Rename(Replace)) -import XMonad.Layout.ShowWName -import XMonad.Layout.Spacing -import XMonad.Layout.WindowArranger (windowArrange, WindowArrangerMsg(..)) -import qualified XMonad.Layout.ToggleLayouts as T (toggleLayouts, ToggleLayout(Toggle)) -import qualified XMonad.Layout.MultiToggle as MT (Toggle(..)) - - -- Prompt -import XMonad.Prompt -import XMonad.Prompt.Input -import XMonad.Prompt.FuzzyMatch -import XMonad.Prompt.Man -import XMonad.Prompt.Pass -import XMonad.Prompt.Shell (shellPrompt) -import XMonad.Prompt.Ssh -import XMonad.Prompt.XMonad -import Control.Arrow (first) - - -- Utilities -import XMonad.Util.EZConfig (additionalKeysP) -import XMonad.Util.NamedScratchpad -import XMonad.Util.Run (runProcessWithInput, safeSpawn, spawnPipe) -import XMonad.Util.SpawnOnce - ------------------------------------------------------------------------- --- VARIABLES ------------------------------------------------------------------------- --- It's nice to assign values to stuff that you will use more than once --- in the config. Setting values for things like font, terminal and editor --- means you only have to change the value here to make changes globally. -myFont :: String -myFont = "xft:Mononoki Nerd Font:bold:size=9" - -myModMask :: KeyMask -myModMask = mod4Mask -- Sets modkey to super/windows key - -myTerminal :: String -myTerminal = "alacritty" -- Sets default terminal - -myBrowser :: String -myBrowser = myTerminal ++ " -e lynx " -- Sets lynx as browser for tree select --- myBrowser = "firefox " -- Sets firefox as browser for tree select - -myEditor :: String -myEditor = "emacsclient -c -a emacs " -- Sets emacs as editor for tree select --- myEditor = myTerminal ++ " -e vim " -- Sets vim as editor for tree select - -myBorderWidth :: Dimension -myBorderWidth = 2 -- Sets border width for windows - -myNormColor :: String -myNormColor = "#292d3e" -- Border color of normal windows - -myFocusColor :: String -myFocusColor = "#bbc5ff" -- Border color of focused windows - -altMask :: KeyMask -altMask = mod1Mask -- Setting this for use in xprompts - -windowCount :: X (Maybe String) -windowCount = gets $ Just . show . length . W.integrate' . W.stack . W.workspace . W.current . windowset - ------------------------------------------------------------------------- --- AUTOSTART ------------------------------------------------------------------------- -myStartupHook :: X () -myStartupHook = do - spawnOnce "nitrogen --restore &" - spawnOnce "picom &" - spawnOnce "nm-applet &" - spawnOnce "volumeicon &" - spawnOnce "trayer --edge top --align right --widthtype request --padding 6 --SetDockType true --SetPartialStrut true --expand true --monitor 1 --transparent true --alpha 0 --tint 0x292d3e --height 18 &" - spawnOnce "/usr/bin/emacs --daemon &" - -- spawnOnce "kak -d -s mysession &" - setWMName "LG3D" - ------------------------------------------------------------------------- --- GRID SELECT ------------------------------------------------------------------------- --- GridSelect displays items (programs, open windows, etc.) in a 2D grid --- and lets the user select from it with the cursor/hjkl keys or the mouse. -myColorizer :: Window -> Bool -> X (String, String) -myColorizer = colorRangeFromClassName - (0x29,0x2d,0x3e) -- lowest inactive bg - (0x29,0x2d,0x3e) -- highest inactive bg - (0xc7,0x92,0xea) -- active bg - (0xc0,0xa7,0x9a) -- inactive fg - (0x29,0x2d,0x3e) -- active fg - --- gridSelect menu layout -mygridConfig :: p -> GSConfig Window -mygridConfig colorizer = (buildDefaultGSConfig myColorizer) - { gs_cellheight = 40 - , gs_cellwidth = 200 - , gs_cellpadding = 6 - , gs_originFractX = 0.5 - , gs_originFractY = 0.5 - , gs_font = myFont - } - -spawnSelected' :: [(String, String)] -> X () -spawnSelected' lst = gridselect conf lst >>= flip whenJust spawn - where conf = def - { gs_cellheight = 40 - , gs_cellwidth = 200 - , gs_cellpadding = 6 - , gs_originFractX = 0.5 - , gs_originFractY = 0.5 - , gs_font = myFont - } - --- The lists below are actually 3-tuples for use with gridSelect and treeSelect. --- TreeSelect uses all three values in the 3-tuples but GridSelect only needs first --- two values in each list (see myAppGrid, myBookmarkGrid and myConfigGrid below). -myApplications :: [(String, String, String)] -myApplications = [ ("Audacity", "audacity", "Graphical cross-platform audio eidtor") - , ("Deadbeef", "deadbeef", "Lightweight GUI audio player") - , ("Emacs", "emacs", "Much more than a text editor") - , ("Firefox", "firefox", "The famous open source web browser") - , ("Geany", "geany", "A nice text editor") - , ("Geary", "geary", "Email client that is attractive") - , ("Gimp", "gimp", "Open source alternative to Photoshop") - , ("Kdenlive", "kdenlive", "A great open source video editor") - , ("LibreOffice Impress", "loimpress", "For making presentations") - , ("LibreOffice Writer", "lowriter", "A fully featured word processor") - , ("OBS", "obs", "Open broadcaster software") - , ("PCManFM", "pcmanfm", "Lightweight graphical file manager") - , ("Simple Terminal", "st", "Suckless simple terminal") - , ("Steam", "steam", "Proprietary gaming platform") - , ("Surf Browser", "surf suckless.org", "Suckless surf web browser") - , ("Xonotic", "xonotic-glx", "A fast-paced first person shooter") - ] - -myBookmarks :: [(String, String, String)] -myBookmarks = [ ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - ] - -myConfigs :: [(String, String, String)] -myConfigs = [ ("bashrc", myEditor ++ "~/.bashrc", "the bourne again shell") - , ("doom emacs config.el", myEditor ++ "~/.doom.d/config.el", "doom emacs config") - , ("doom emacs init.el", myEditor ++ "~/.doom.d/init.el", "doom emacs init") - , ("dwm", myEditor ++ "~/dwm-distrotube/config.h", "dwm config file") - , ("qtile", myEditor ++ "~/.config/qtile/config.py", "qtile config") - , ("xmonad.hs", myEditor ++ "~/.xmonad/xmonad.hs", "xmonad config") - , ("zshrc", myEditor ++ "~/.zshrc", "config for the z shell") - ] - --- Let's take myApplications, myBookmarks and myConfigs and take only --- the first two values from those 3-tuples (for GridSelect). -myAppGrid :: [(String, String)] -myAppGrid = [ (a,b) | (a,b,c) <- xs] - where xs = myApplications - -myBookmarkGrid :: [(String, String)] -myBookmarkGrid = [ (a,b) | (a,b,c) <- xs] - where xs = myBookmarks - -myConfigGrid :: [(String, String)] -myConfigGrid = [ (a,b) | (a,b,c) <- xs] - where xs = myConfigs - ------------------------------------------------------------------------- --- TREE SELECT ------------------------------------------------------------------------- --- TreeSelect displays your workspaces or actions in a Tree-like format. --- You can select desired workspace/action with the cursor or hjkl keys. - -treeselectAction :: TS.TSConfig (X ()) -> X () -treeselectAction a = TS.treeselectAction a - [ Node (TS.TSNode "applications" "a list of programs I use often" (return ())) - [Node (TS.TSNode (TE.fst3 $ myApplications !! n) - (TE.thd3 $ myApplications !! n) - (spawn $ TE.snd3 $ myApplications !! n) - ) [] | n <- [0..(length myApplications - 1)] - ] - , Node (TS.TSNode "bookmarks" "a list of web bookmarks" (return ())) - [Node (TS.TSNode(TE.fst3 $ myBookmarks !! n) - (TE.thd3 $ myBookmarks !! n) - (spawn $ TE.snd3 $ myBookmarks !! n) - ) [] | n <- [0..(length myBookmarks - 1)] - ] - , Node (TS.TSNode "config files" "config files that edit often" (return ())) - [Node (TS.TSNode (TE.fst3 $ myConfigs !! n) - (TE.thd3 $ myConfigs !! n) - (spawn $ TE.snd3 $ myConfigs !! n) - ) [] | n <- [0..(length myConfigs - 1)] - ] - ] - --- Configuration options for treeSelect -tsDefaultConfig :: TS.TSConfig a -tsDefaultConfig = TS.TSConfig { TS.ts_hidechildren = True - , TS.ts_background = 0xdd292d3e - , TS.ts_font = myFont - , TS.ts_node = (0xffd0d0d0, 0xff202331) - , TS.ts_nodealt = (0xffd0d0d0, 0xff292d3e) - , TS.ts_highlight = (0xffffffff, 0xff755999) - , TS.ts_extra = 0xffd0d0d0 - , TS.ts_node_width = 200 - , TS.ts_node_height = 20 - , TS.ts_originX = 0 - , TS.ts_originY = 0 - , TS.ts_indent = 80 - , TS.ts_navigate = myTreeNavigation - } - --- Keybindings for treeSelect menus. Use h-j-k-l to navigate. --- Use 'o' and 'i' to move forward/back in the workspace history. --- Single KEY's are for top-level nodes. SUPER+KEY are for the --- second-level nodes. SUPER+ALT+KEY are third-level nodes. -myTreeNavigation = M.fromList - [ ((0, xK_Escape), TS.cancel) - , ((0, xK_Return), TS.select) - , ((0, xK_space), TS.select) - , ((0, xK_Up), TS.movePrev) - , ((0, xK_Down), TS.moveNext) - , ((0, xK_Left), TS.moveParent) - , ((0, xK_Right), TS.moveChild) - , ((0, xK_k), TS.movePrev) - , ((0, xK_j), TS.moveNext) - , ((0, xK_h), TS.moveParent) - , ((0, xK_l), TS.moveChild) - , ((0, xK_o), TS.moveHistBack) - , ((0, xK_i), TS.moveHistForward) - ] - ------------------------------------------------------------------------- --- XPROMPT SETTINGS ------------------------------------------------------------------------- -dtXPConfig :: XPConfig -dtXPConfig = def - { font = myFont - , bgColor = "#292d3e" - , fgColor = "#d0d0d0" - , bgHLight = "#c792ea" - , fgHLight = "#000000" - , borderColor = "#535974" - , promptBorderWidth = 0 - , promptKeymap = dtXPKeymap - , position = Top --- , position = CenteredAt { xpCenterY = 0.3, xpWidth = 0.3 } - , height = 20 - , historySize = 256 - , historyFilter = id - , defaultText = [] - , autoComplete = Just 100000 -- set Just 100000 for .1 sec - , showCompletionOnTab = False - -- , searchPredicate = isPrefixOf - , searchPredicate = fuzzyMatch - , alwaysHighlight = True - , maxComplRows = Nothing -- set to Just 5 for 5 rows - } - --- The same config above minus the autocomplete feature which is annoying --- on certain Xprompts, like the search engine prompts. -dtXPConfig' :: XPConfig -dtXPConfig' = dtXPConfig - { autoComplete = Nothing - } - --- A list of all of the standard Xmonad prompts and a key press assigned to them. --- These are used in conjunction with keybinding I set later in the config. -promptList :: [(String, XPConfig -> X ())] -promptList = [ ("m", manPrompt) -- manpages prompt - , ("p", passPrompt) -- get passwords (requires 'pass') - , ("g", passGeneratePrompt) -- generate passwords (requires 'pass') - , ("r", passRemovePrompt) -- remove passwords (requires 'pass') - , ("s", sshPrompt) -- ssh prompt - , ("x", xmonadPrompt) -- xmonad prompt - ] - --- Same as the above list except this is for my custom prompts. -promptList' :: [(String, XPConfig -> String -> X (), String)] -promptList' = [ ("c", calcPrompt, "qalc") -- requires qalculate-gtk - ] - ------------------------------------------------------------------------- --- CUSTOM PROMPTS ------------------------------------------------------------------------- --- calcPrompt requires a cli calculator called qalcualte-gtk. --- You could use this as a template for other custom prompts that --- use command line programs that return a single line of output. -calcPrompt :: XPConfig -> String -> X () -calcPrompt c ans = - inputPrompt c (trim ans) ?+ \input -> - liftIO(runProcessWithInput "qalc" [input] "") >>= calcPrompt c - where - trim = f . f - where f = reverse . dropWhile isSpace - ------------------------------------------------------------------------- --- XPROMPT KEYMAP (emacs-like key bindings for xprompts) ------------------------------------------------------------------------- -dtXPKeymap :: M.Map (KeyMask,KeySym) (XP ()) -dtXPKeymap = M.fromList $ - map (first $ (,) controlMask) -- control + <key> - [ (xK_z, killBefore) -- kill line backwards - , (xK_k, killAfter) -- kill line forwards - , (xK_a, startOfLine) -- move to the beginning of the line - , (xK_e, endOfLine) -- move to the end of the line - , (xK_m, deleteString Next) -- delete a character foward - , (xK_b, moveCursor Prev) -- move cursor forward - , (xK_f, moveCursor Next) -- move cursor backward - , (xK_BackSpace, killWord Prev) -- kill the previous word - , (xK_y, pasteString) -- paste a string - , (xK_g, quit) -- quit out of prompt - , (xK_bracketleft, quit) - ] - ++ - map (first $ (,) altMask) -- meta key + <key> - [ (xK_BackSpace, killWord Prev) -- kill the prev word - , (xK_f, moveWord Next) -- move a word forward - , (xK_b, moveWord Prev) -- move a word backward - , (xK_d, killWord Next) -- kill the next word - , (xK_n, moveHistory W.focusUp') -- move up thru history - , (xK_p, moveHistory W.focusDown') -- move down thru history - ] - ++ - map (first $ (,) 0) -- <key> - [ (xK_Return, setSuccess True >> setDone True) - , (xK_KP_Enter, setSuccess True >> setDone True) - , (xK_BackSpace, deleteString Prev) - , (xK_Delete, deleteString Next) - , (xK_Left, moveCursor Prev) - , (xK_Right, moveCursor Next) - , (xK_Home, startOfLine) - , (xK_End, endOfLine) - , (xK_Down, moveHistory W.focusUp') - , (xK_Up, moveHistory W.focusDown') - , (xK_Escape, quit) - ] - ------------------------------------------------------------------------- --- SEARCH ENGINES ------------------------------------------------------------------------- --- Xmonad has several search engines available to use located in --- XMonad.Actions.Search. Additionally, you can add other search engines --- such as those listed below. -archwiki, ebay, news, reddit, urban :: S.SearchEngine - -archwiki = S.searchEngine "archwiki" "https://wiki.archlinux.org/index.php?search=" -ebay = S.searchEngine "ebay" "https://www.ebay.com/sch/i.html?_nkw=" -news = S.searchEngine "news" "https://news.google.com/search?q=" -reddit = S.searchEngine "reddit" "https://www.reddit.com/search/?q=" -urban = S.searchEngine "urban" "https://www.urbandictionary.com/define.php?term=" - --- This is the list of search engines that I want to use. Some are from --- XMonad.Actions.Search, and some are the ones that I added above. -searchList :: [(String, S.SearchEngine)] -searchList = [ ("a", archwiki) - , ("d", S.duckduckgo) - , ("e", ebay) - , ("g", S.google) - , ("h", S.hoogle) - , ("i", S.images) - , ("n", news) - , ("r", reddit) - , ("s", S.stackage) - , ("t", S.thesaurus) - , ("v", S.vocabulary) - , ("b", S.wayback) - , ("u", urban) - , ("w", S.wikipedia) - , ("y", S.youtube) - , ("z", S.amazon) - ] - ------------------------------------------------------------------------- --- WORKSPACES ------------------------------------------------------------------------- - -myWorkspaces :: [String] -myWorkspaces = ["dev", "www", "sys", "doc", "vbox", "chat", "mus", "vid", "gfx"] - ------------------------------------------------------------------------- --- MANAGEHOOK ------------------------------------------------------------------------- --- Sets some rules for certain programs. Examples include forcing certain --- programs to always float, or to always appear on a certain workspace. --- Forcing programs to a certain workspace with a doShift requires xdotool --- if you are using clickable workspaces. You need the className or title --- of the program. Use xprop to get this info. - -myManageHook :: XMonad.Query (Data.Monoid.Endo WindowSet) -myManageHook = composeAll - -- using 'doShift ( myWorkspaces !! 7)' sends program to workspace 8! - -- I'm doing it this way because otherwise I would have to write out - -- the full name of my clickable workspaces, which would look like: - -- doShift "<action xdotool super+8>gfx</action>" - [ className =? "obs" --> doShift ( myWorkspaces !! 7 ) - , title =? "firefox" --> doShift ( myWorkspaces !! 1 ) - , className =? "mpv" --> doShift ( myWorkspaces !! 7 ) - , className =? "vlc" --> doShift ( myWorkspaces !! 7 ) - , className =? "Gimp" --> doShift ( myWorkspaces !! 8 ) - , className =? "Gimp" --> doFloat - , title =? "Oracle VM VirtualBox Manager" --> doFloat - , className =? "VirtualBox Manager" --> doShift ( myWorkspaces !! 4 ) - , (className =? "firefox" <&&> resource =? "Dialog") --> doFloat -- Float Firefox Dialog - ] <+> namedScratchpadManageHook myScratchPads - ------------------------------------------------------------------------- --- LOGHOOK ------------------------------------------------------------------------- --- Sets opacity for inactive (unfocused) windows. I prefer to not use --- this feature so I've set opacity to 1.0. If you want opacity, set --- this to a value of less than 1 (such as 0.9 for 90% opacity). -myLogHook :: X () -myLogHook = fadeInactiveLogHook fadeAmount - where fadeAmount = 1.0 - ------------------------------------------------------------------------- --- LAYOUTS ------------------------------------------------------------------------- --- Makes setting the spacingRaw simpler to write. The spacingRaw --- module adds a configurable amount of space around windows. -mySpacing :: Integer -> l a -> XMonad.Layout.LayoutModifier.ModifiedLayout Spacing l a -mySpacing i = spacingRaw False (Border i i i i) True (Border i i i i) True - --- Below is a variation of the above except no borders are applied --- if fewer than two windows. So a single window has no gaps. -mySpacing' :: Integer -> l a -> XMonad.Layout.LayoutModifier.ModifiedLayout Spacing l a -mySpacing' i = spacingRaw True (Border i i i i) True (Border i i i i) True - --- Defining a bunch of layouts, many that I don't use. -tall = renamed [Replace "tall"] - $ limitWindows 12 - $ mySpacing 8 - $ ResizableTall 1 (3/100) (1/2) [] -magnify = renamed [Replace "magnify"] - $ magnifier - $ limitWindows 12 - $ mySpacing 8 - $ ResizableTall 1 (3/100) (1/2) [] -monocle = renamed [Replace "monocle"] - $ limitWindows 20 Full -floats = renamed [Replace "floats"] - $ limitWindows 20 simplestFloat -grid = renamed [Replace "grid"] - $ limitWindows 12 - $ mySpacing 8 - $ mkToggle (single MIRROR) - $ Grid (16/10) -spirals = renamed [Replace "spirals"] - $ mySpacing' 8 - $ spiral (6/7) -threeCol = renamed [Replace "threeCol"] - $ limitWindows 7 - $ mySpacing' 4 - $ ThreeCol 1 (3/100) (1/2) -threeRow = renamed [Replace "threeRow"] - $ limitWindows 7 - $ mySpacing' 4 - -- Mirror takes a layout and rotates it by 90 degrees. - -- So we are applying Mirror to the ThreeCol layout. - $ Mirror - $ ThreeCol 1 (3/100) (1/2) -tabs = renamed [Replace "tabs"] - -- I cannot add spacing to this layout because it will - -- add spacing between window and tabs which looks bad. - $ tabbed shrinkText myTabConfig - where - myTabConfig = def { fontName = "xft:Mononoki Nerd Font:regular:pixelsize=11" - , activeColor = "#292d3e" - , inactiveColor = "#3e445e" - , activeBorderColor = "#292d3e" - , inactiveBorderColor = "#292d3e" - , activeTextColor = "#ffffff" - , inactiveTextColor = "#d0d0d0" - } - --- Theme for showWName which prints current workspace when you change workspaces. -myShowWNameTheme :: SWNConfig -myShowWNameTheme = def - { swn_font = "xft:Sans:bold:size=60" - , swn_fade = 1.0 - , swn_bgcolor = "#000000" - , swn_color = "#FFFFFF" - } - --- The layout hook -myLayoutHook = avoidStruts $ mouseResize $ windowArrange $ T.toggleLayouts floats $ - mkToggle (NBFULL ?? NOBORDERS ?? EOT) myDefaultLayout - where - -- I've commented out the layouts I don't use. - myDefaultLayout = tall - ||| magnify - ||| noBorders monocle - ||| floats - -- ||| grid - ||| noBorders tabs - -- ||| spirals - -- ||| threeCol - -- ||| threeRow - ------------------------------------------------------------------------- --- SCRATCHPADS ------------------------------------------------------------------------- --- Allows to have several floating scratchpads running different applications. --- Import Util.NamedScratchpad. Bind a key to namedScratchpadSpawnAction. -myScratchPads :: [NamedScratchpad] -myScratchPads = [ NS "terminal" spawnTerm findTerm manageTerm - , NS "mocp" spawnMocp findMocp manageMocp - ] - where - spawnTerm = myTerminal ++ " -n scratchpad" - findTerm = resource =? "scratchpad" - manageTerm = customFloating $ W.RationalRect l t w h - where - h = 0.9 - w = 0.9 - t = 0.95 -h - l = 0.95 -w - spawnMocp = myTerminal ++ " -n mocp 'mocp'" - findMocp = resource =? "mocp" - manageMocp = customFloating $ W.RationalRect l t w h - where - h = 0.9 - w = 0.9 - t = 0.95 -h - l = 0.95 -w - ------------------------------------------------------------------------- --- KEYBINDINGS ------------------------------------------------------------------------- --- I am using the Xmonad.Util.EZConfig module which allows keybindings --- to be written in simpler, emacs-like format. -myKeys :: [(String, X ())] -myKeys = - -- Xmonad - [ ("M-C-r", spawn "xmonad --recompile") -- Recompiles xmonad - , ("M-S-r", spawn "xmonad --restart") -- Restarts xmonad - , ("M-S-q", io exitSuccess) -- Quits xmonad - - -- Open my preferred terminal - , ("M-<Return>", spawn myTerminal) - - -- Run Prompt - , ("M-S-<Return>", shellPrompt dtXPConfig) -- Shell Prompt - - -- Windows - , ("M-S-c", kill1) -- Kill the currently focused client - , ("M-S-a", killAll) -- Kill all windows on current workspace - - -- Floating windows - , ("M-f", sendMessage (T.Toggle "floats")) -- Toggles my 'floats' layout - , ("M-<Delete>", withFocused $ windows . W.sink) -- Push floating window back to tile - , ("M-S-<Delete>", sinkAll) -- Push ALL floating windows to tile - - -- Grid Select (CTRL-g followed by a key) - , ("C-g g", spawnSelected' myAppGrid) -- grid select favorite apps - , ("C-g m", spawnSelected' myBookmarkGrid) -- grid select some bookmarks - , ("C-g c", spawnSelected' myConfigGrid) -- grid select useful config files - , ("C-g t", goToSelected $ mygridConfig myColorizer) -- goto selected window - , ("C-g b", bringSelected $ mygridConfig myColorizer) -- bring selected window - - -- Tree Select/ - -- tree select actions menu - , ("C-t a", treeselectAction tsDefaultConfig) - - -- Windows navigation - , ("M-m", windows W.focusMaster) -- Move focus to the master window - , ("M-j", windows W.focusDown) -- Move focus to the next window - , ("M-k", windows W.focusUp) -- Move focus to the prev window - --, ("M-S-m", windows W.swapMaster) -- Swap the focused window and the master window - , ("M-S-j", windows W.swapDown) -- Swap focused window with next window - , ("M-S-k", windows W.swapUp) -- Swap focused window with prev window - , ("M-<Backspace>", promote) -- Moves focused window to master, others maintain order - , ("M1-S-<Tab>", rotSlavesDown) -- Rotate all windows except master and keep focus in place - , ("M1-C-<Tab>", rotAllDown) -- Rotate all the windows in the current stack - --, ("M-S-s", windows copyToAll) - , ("M-C-s", killAllOtherCopies) - - -- Layouts - , ("M-<Tab>", sendMessage NextLayout) -- Switch to next layout - , ("M-C-M1-<Up>", sendMessage Arrange) - , ("M-C-M1-<Down>", sendMessage DeArrange) - , ("M-<Space>", sendMessage (MT.Toggle NBFULL) >> sendMessage ToggleStruts) -- Toggles noborder/full - , ("M-S-<Space>", sendMessage ToggleStruts) -- Toggles struts - , ("M-S-n", sendMessage $ MT.Toggle NOBORDERS) -- Toggles noborder - , ("M-<KP_Multiply>", sendMessage (IncMasterN 1)) -- Increase number of clients in master pane - , ("M-<KP_Divide>", sendMessage (IncMasterN (-1))) -- Decrease number of clients in master pane - , ("M-S-<KP_Multiply>", increaseLimit) -- Increase number of windows - , ("M-S-<KP_Divide>", decreaseLimit) -- Decrease number of windows - - , ("M-h", sendMessage Shrink) -- Shrink horiz window width - , ("M-l", sendMessage Expand) -- Expand horiz window width - , ("M-C-j", sendMessage MirrorShrink) -- Shrink vert window width - , ("M-C-k", sendMessage MirrorExpand) -- Exoand vert window width - - -- Workspaces - , ("M-.", nextScreen) -- Switch focus to next monitor - , ("M-,", prevScreen) -- Switch focus to prev monitor - , ("M-S-<KP_Add>", shiftTo Next nonNSP >> moveTo Next nonNSP) -- Shifts focused window to next ws - , ("M-S-<KP_Subtract>", shiftTo Prev nonNSP >> moveTo Prev nonNSP) -- Shifts focused window to prev ws - - -- Scratchpads - , ("M-C-<Return>", namedScratchpadAction myScratchPads "terminal") - , ("M-C-c", namedScratchpadAction myScratchPads "mocp") - - -- Controls for mocp music player. - , ("M-u p", spawn "mocp --play") - , ("M-u l", spawn "mocp --next") - , ("M-u h", spawn "mocp --previous") - , ("M-u <Space>", spawn "mocp --toggle-pause") - - -- Emacs (CTRL-e followed by a key) - , ("C-e e", spawn "emacsclient -c -a ''") -- start emacs - , ("C-e b", spawn "emacsclient -c -a '' --eval '(ibuffer)'") -- list emacs buffers - , ("C-e d", spawn "emacsclient -c -a '' --eval '(dired nil)'") -- dired emacs file manager - , ("C-e m", spawn "emacsclient -c -a '' --eval '(mu4e)'") -- mu4e emacs email client - , ("C-e n", spawn "emacsclient -c -a '' --eval '(elfeed)'") -- elfeed emacs rss client - , ("C-e s", spawn "emacsclient -c -a '' --eval '(eshell)'") -- eshell within emacs - , ("C-e t", spawn "emacsclient -c -a '' --eval '(+vterm/here nil)'") -- eshell within emacs - -- emms is an emacs audio player. I set it to auto start playing in a specific directory. - , ("C-e a", spawn "emacsclient -c -a '' --eval '(emms)' --eval '(emms-play-directory-tree \"~/Music/Non-Classical/70s-80s/\")'") - - --- My Applications (Super+Alt+Key) - , ("M-M1-a", spawn (myTerminal ++ " -e ncpamixer")) - , ("M-M1-b", spawn "surf www.youtube.com/c/DistroTube/") - , ("M-M1-e", spawn (myTerminal ++ " -e neomutt")) - , ("M-M1-f", spawn (myTerminal ++ " -e sh ./.config/vifm/scripts/vifmrun")) - , ("M-M1-i", spawn (myTerminal ++ " -e irssi")) - , ("M-M1-j", spawn (myTerminal ++ " -e joplin")) - , ("M-M1-l", spawn (myTerminal ++ " -e lynx -cfg=~/.lynx/lynx.cfg -lss=~/.lynx/lynx.lss gopher://distro.tube")) - , ("M-M1-m", spawn (myTerminal ++ " -e mocp")) - , ("M-M1-n", spawn (myTerminal ++ " -e newsboat")) - , ("M-M1-p", spawn (myTerminal ++ " -e pianobar")) - , ("M-M1-r", spawn (myTerminal ++ " -e rtv")) - , ("M-M1-t", spawn (myTerminal ++ " -e toot curses")) - , ("M-M1-w", spawn (myTerminal ++ " -e wopr report.xml")) - , ("M-M1-y", spawn (myTerminal ++ " -e youtube-viewer")) - - -- Multimedia Keys - , ("<XF86AudioPlay>", spawn "cmus toggle") - , ("<XF86AudioPrev>", spawn "cmus prev") - , ("<XF86AudioNext>", spawn "cmus next") - -- , ("<XF86AudioMute>", spawn "amixer set Master toggle") -- Bug prevents it from toggling correctly in 12.04. - , ("<XF86AudioLowerVolume>", spawn "amixer set Master 5%- unmute") - , ("<XF86AudioRaiseVolume>", spawn "amixer set Master 5%+ unmute") - , ("<XF86HomePage>", spawn "firefox") - , ("<XF86Search>", safeSpawn "firefox" ["https://www.google.com/"]) - , ("<XF86Mail>", runOrRaise "geary" (resource =? "thunderbird")) - , ("<XF86Calculator>", runOrRaise "gcalctool" (resource =? "gcalctool")) - , ("<XF86Eject>", spawn "toggleeject") - , ("<Print>", spawn "scrotd 0") - ] - -- Appending search engine prompts to keybindings list. - -- Look at "search engines" section of this config for values for "k". - ++ [("M-s " ++ k, S.promptSearch dtXPConfig' f) | (k,f) <- searchList ] - ++ [("M-S-s " ++ k, S.selectSearch f) | (k,f) <- searchList ] - -- Appending some extra xprompts to keybindings list. - -- Look at "xprompt settings" section this of config for values for "k". - ++ [("M-p " ++ k, f dtXPConfig') | (k,f) <- promptList ] - ++ [("M-p " ++ k, f dtXPConfig' g) | (k,f,g) <- promptList' ] - -- The following lines are needed for named scratchpads. - where nonNSP = WSIs (return (\ws -> W.tag ws /= "nsp")) - nonEmptyNonNSP = WSIs (return (\ws -> isJust (W.stack ws) && W.tag ws /= "nsp")) - ------------------------------------------------------------------------- --- MAIN ------------------------------------------------------------------------- -main :: IO () -main = do - -- Launching three instances of xmobar on their monitors. - xmproc0 <- spawnPipe "xmobar -x 0 ~/.config/xmobar/xmobarrc0" - xmproc1 <- spawnPipe "xmobar -x 1 ~/.config/xmobar/xmobarrc2" - xmproc2 <- spawnPipe "xmobar -x 2 ~/.config/xmobar/xmobarrc1" - -- the xmonad, ya know...what the WM is named after! - xmonad $ ewmh def - { manageHook = ( isFullscreen --> doFullFloat ) <+> myManageHook <+> manageDocks - -- Run xmonad commands from command line with "xmonadctl command". Commands include: - -- shrink, expand, next-layout, default-layout, restart-wm, xterm, kill, refresh, run, - -- focus-up, focus-down, swap-up, swap-down, swap-master, sink, quit-wm. You can run - -- "xmonadctl 0" to generate full list of commands written to ~/.xsession-errors. - , handleEventHook = serverModeEventHookCmd - <+> serverModeEventHook - <+> serverModeEventHookF "XMONAD_PRINT" (io . putStrLn) - <+> docksEventHook - , modMask = myModMask - , terminal = myTerminal - , startupHook = myStartupHook - , layoutHook = showWName' myShowWNameTheme myLayoutHook - , workspaces = myWorkspaces - , borderWidth = myBorderWidth - , normalBorderColor = myNormColor - , focusedBorderColor = myFocusColor - , logHook = workspaceHistoryHook <+> myLogHook <+> dynamicLogWithPP xmobarPP - { ppOutput = \x -> hPutStrLn xmproc0 x >> hPutStrLn xmproc1 x >> hPutStrLn xmproc2 x - , ppCurrent = xmobarColor "#c3e88d" "" . wrap "[" "]" -- Current workspace in xmobar - , ppVisible = xmobarColor "#c3e88d" "" -- Visible but not current workspace - , ppHidden = xmobarColor "#82AAFF" "" . wrap "*" "" -- Hidden workspaces in xmobar - , ppHiddenNoWindows = xmobarColor "#F07178" "" -- Hidden workspaces (no windows) - , ppTitle = xmobarColor "#d0d0d0" "" . shorten 60 -- Title of active window in xmobar - , ppSep = "<fc=#666666> | </fc>" -- Separators in xmobar - , ppUrgent = xmobarColor "#C45500" "" . wrap "!" "!" -- Urgent workspace - , ppExtras = [windowCount] -- # of windows current workspace - , ppOrder = \(ws:l:t:ex) -> [ws,l]++ex++[t] - } - } `additionalKeysP` myKeys diff --git a/.config/xmonad/xmonad-example-configs/xmonad-example-xmobar-treeselect-workspaces.hs b/.config/xmonad/xmonad-example-configs/xmonad-example-xmobar-treeselect-workspaces.hs deleted file mode 100644 index 26dd83f..0000000 --- a/.config/xmonad/xmonad-example-configs/xmonad-example-xmobar-treeselect-workspaces.hs +++ /dev/null @@ -1,867 +0,0 @@ --- Xmonad is a dynamically tiling X11 window manager that is written and --- configured in Haskell. Official documentation: https://xmonad.org - --- This is the xmonad configuration of Derek Taylor (DistroTube) --- My YouTube: http://www.youtube.com/c/DistroTube --- My GitLab: http://www.gitlab.com/dwt1/ - --- This config is massively long. It is purposely bloated with a ton of --- examples of what you can do with xmonad. It is written more as a --- study guide rather than a config that you should download and use. - ------------------------------------------------------------------------- --- IMPORTS ------------------------------------------------------------------------- - -- Base -import XMonad -import System.IO (hPutStrLn) -import System.Exit (exitSuccess) -import qualified XMonad.StackSet as W - - -- Actions -import XMonad.Actions.CopyWindow (kill1, killAllOtherCopies) -import XMonad.Actions.CycleWS (moveTo, shiftTo, WSType(..), nextScreen, prevScreen) -import XMonad.Actions.GridSelect -import XMonad.Actions.MouseResize -import XMonad.Actions.Promote -import XMonad.Actions.RotSlaves (rotSlavesDown, rotAllDown) -import qualified XMonad.Actions.TreeSelect as TS -import XMonad.Actions.WindowGo (runOrRaise) -import XMonad.Actions.WithAll (sinkAll, killAll) -import qualified XMonad.Actions.Search as S - - -- Data -import Data.Char (isSpace) -import Data.Monoid -import Data.Maybe (isJust) -import Data.Tree -import qualified Data.Tuple.Extra as TE -import qualified Data.Map as M - - -- Hooks -import XMonad.Hooks.DynamicLog (dynamicLogWithPP, wrap, xmobarPP, xmobarColor, shorten, PP(..)) -import XMonad.Hooks.EwmhDesktops -- for some fullscreen events, also for xcomposite in obs. -import XMonad.Hooks.FadeInactive -import XMonad.Hooks.ManageDocks (avoidStruts, docksEventHook, manageDocks, ToggleStruts(..)) -import XMonad.Hooks.ManageHelpers (isFullscreen, doFullFloat) -import XMonad.Hooks.ServerMode -import XMonad.Hooks.SetWMName -import XMonad.Hooks.WorkspaceHistory - - -- Layouts -import XMonad.Layout.GridVariants (Grid(Grid)) -import XMonad.Layout.SimplestFloat -import XMonad.Layout.Spiral -import XMonad.Layout.ResizableTile -import XMonad.Layout.Tabbed -import XMonad.Layout.ThreeColumns - - -- Layouts modifiers -import XMonad.Layout.LayoutModifier -import XMonad.Layout.LimitWindows (limitWindows, increaseLimit, decreaseLimit) -import XMonad.Layout.Magnifier -import XMonad.Layout.MultiToggle (mkToggle, single, EOT(EOT), (??)) -import XMonad.Layout.MultiToggle.Instances (StdTransformers(NBFULL, MIRROR, NOBORDERS)) -import XMonad.Layout.NoBorders -import XMonad.Layout.Renamed (renamed, Rename(Replace)) -import XMonad.Layout.ShowWName -import XMonad.Layout.Spacing -import XMonad.Layout.WindowArranger (windowArrange, WindowArrangerMsg(..)) -import qualified XMonad.Layout.ToggleLayouts as T (toggleLayouts, ToggleLayout(Toggle)) -import qualified XMonad.Layout.MultiToggle as MT (Toggle(..)) - - -- Prompt -import XMonad.Prompt -import XMonad.Prompt.Input -import XMonad.Prompt.FuzzyMatch -import XMonad.Prompt.Man -import XMonad.Prompt.Pass -import XMonad.Prompt.Shell (shellPrompt) -import XMonad.Prompt.Ssh -import XMonad.Prompt.XMonad -import Control.Arrow (first) - - -- Utilities -import XMonad.Util.EZConfig (additionalKeysP) -import XMonad.Util.NamedScratchpad -import XMonad.Util.Run (runProcessWithInput, safeSpawn, spawnPipe) -import XMonad.Util.SpawnOnce - ------------------------------------------------------------------------- --- VARIABLES ------------------------------------------------------------------------- --- It's nice to assign values to stuff that you will use more than once --- in the config. Setting values for things like font, terminal and editor --- means you only have to change the value here to make changes globally. -myFont :: String -myFont = "xft:Mononoki Nerd Font:bold:size=9" - -myModMask :: KeyMask -myModMask = mod4Mask -- Sets modkey to super/windows key - -myTerminal :: String -myTerminal = "alacritty" -- Sets default terminal - -myBrowser :: String -myBrowser = myTerminal ++ " -e lynx " -- Sets lynx as browser for tree select --- myBrowser = "firefox " -- Sets firefox as browser for tree select - -myEditor :: String -myEditor = "emacsclient -c -a emacs " -- Sets emacs as editor for tree select --- myEditor = myTerminal ++ " -e vim " -- Sets vim as editor for tree select - -myBorderWidth :: Dimension -myBorderWidth = 2 -- Sets border width for windows - -myNormColor :: String -myNormColor = "#292d3e" -- Border color of normal windows - -myFocusColor :: String -myFocusColor = "#bbc5ff" -- Border color of focused windows - -altMask :: KeyMask -altMask = mod1Mask -- Setting this for use in xprompts - -windowCount :: X (Maybe String) -windowCount = gets $ Just . show . length . W.integrate' . W.stack . W.workspace . W.current . windowset - ------------------------------------------------------------------------- --- AUTOSTART ------------------------------------------------------------------------- -myStartupHook :: X () -myStartupHook = do - spawnOnce "nitrogen --restore &" - spawnOnce "picom &" - spawnOnce "nm-applet &" - spawnOnce "volumeicon &" - spawnOnce "trayer --edge top --align right --widthtype request --padding 6 --SetDockType true --SetPartialStrut true --expand true --monitor 1 --transparent true --alpha 0 --tint 0x292d3e --height 18 &" - spawnOnce "/usr/bin/emacs --daemon &" - -- spawnOnce "kak -d -s mysession &" - setWMName "LG3D" - ------------------------------------------------------------------------- --- GRID SELECT ------------------------------------------------------------------------- --- GridSelect displays items (programs, open windows, etc.) in a 2D grid --- and lets the user select from it with the cursor/hjkl keys or the mouse. -myColorizer :: Window -> Bool -> X (String, String) -myColorizer = colorRangeFromClassName - (0x29,0x2d,0x3e) -- lowest inactive bg - (0x29,0x2d,0x3e) -- highest inactive bg - (0xc7,0x92,0xea) -- active bg - (0xc0,0xa7,0x9a) -- inactive fg - (0x29,0x2d,0x3e) -- active fg - --- gridSelect menu layout -mygridConfig :: p -> GSConfig Window -mygridConfig colorizer = (buildDefaultGSConfig myColorizer) - { gs_cellheight = 40 - , gs_cellwidth = 200 - , gs_cellpadding = 6 - , gs_originFractX = 0.5 - , gs_originFractY = 0.5 - , gs_font = myFont - } - -spawnSelected' :: [(String, String)] -> X () -spawnSelected' lst = gridselect conf lst >>= flip whenJust spawn - where conf = def - { gs_cellheight = 40 - , gs_cellwidth = 200 - , gs_cellpadding = 6 - , gs_originFractX = 0.5 - , gs_originFractY = 0.5 - , gs_font = myFont - } - --- The lists below are actually 3-tuples for use with gridSelect and treeSelect. --- TreeSelect uses all three values in the 3-tuples but GridSelect only needs first --- two values in each list (see myAppGrid, myBookmarkGrid and myConfigGrid below). -myApplications :: [(String, String, String)] -myApplications = [ ("Audacity", "audacity", "Graphical cross-platform audio eidtor") - , ("Deadbeef", "deadbeef", "Lightweight GUI audio player") - , ("Emacs", "emacs", "Much more than a text editor") - , ("Firefox", "firefox", "The famous open source web browser") - , ("Geany", "geany", "A nice text editor") - , ("Geary", "geary", "Email client that is attractive") - , ("Gimp", "gimp", "Open source alternative to Photoshop") - , ("Kdenlive", "kdenlive", "A great open source video editor") - , ("LibreOffice Impress", "loimpress", "For making presentations") - , ("LibreOffice Writer", "lowriter", "A fully featured word processor") - , ("OBS", "obs", "Open broadcaster software") - , ("PCManFM", "pcmanfm", "Lightweight graphical file manager") - , ("Simple Terminal", "st", "Suckless simple terminal") - , ("Steam", "steam", "Proprietary gaming platform") - , ("Surf Browser", "surf suckless.org", "Suckless surf web browser") - , ("Xonotic", "xonotic-glx", "A fast-paced first person shooter") - ] - -myBookmarks :: [(String, String, String)] -myBookmarks = [ ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube") - ] - -myConfigs :: [(String, String, String)] -myConfigs = [ ("bashrc", myEditor ++ "~/.bashrc", "the bourne again shell") - , ("doom emacs config.el", myEditor ++ "~/.doom.d/config.el", "doom emacs config") - , ("doom emacs init.el", myEditor ++ "~/.doom.d/init.el", "doom emacs init") - , ("dwm", myEditor ++ "~/dwm-distrotube/config.h", "dwm config file") - , ("qtile", myEditor ++ "~/.config/qtile/config.py", "qtile config") - , ("xmonad.hs", myEditor ++ "~/.xmonad/xmonad.hs", "xmonad config") - , ("zshrc", myEditor ++ "~/.zshrc", "config for the z shell") - ] - --- Let's take myApplications, myBookmarks and myConfigs and take only --- the first two values from those 3-tuples (for GridSelect). -myAppGrid :: [(String, String)] -myAppGrid = [ (a,b) | (a,b,c) <- xs] - where xs = myApplications - -myBookmarkGrid :: [(String, String)] -myBookmarkGrid = [ (a,b) | (a,b,c) <- xs] - where xs = myBookmarks - -myConfigGrid :: [(String, String)] -myConfigGrid = [ (a,b) | (a,b,c) <- xs] - where xs = myConfigs - ------------------------------------------------------------------------- --- TREE SELECT ------------------------------------------------------------------------- --- TreeSelect displays your workspaces or actions in a Tree-like format. --- You can select desired workspace/action with the cursor or hjkl keys. - -treeselectAction :: TS.TSConfig (X ()) -> X () -treeselectAction a = TS.treeselectAction a - [ Node (TS.TSNode "applications" "a list of programs I use often" (return ())) - [Node (TS.TSNode (TE.fst3 $ myApplications !! n) - (TE.thd3 $ myApplications !! n) - (spawn $ TE.snd3 $ myApplications !! n) - ) [] | n <- [0..(length myApplications - 1)] - ] - , Node (TS.TSNode "bookmarks" "a list of web bookmarks" (return ())) - [Node (TS.TSNode(TE.fst3 $ myBookmarks !! n) - (TE.thd3 $ myBookmarks !! n) - (spawn $ TE.snd3 $ myBookmarks !! n) - ) [] | n <- [0..(length myBookmarks - 1)] - ] - , Node (TS.TSNode "config files" "config files that edit often" (return ())) - [Node (TS.TSNode (TE.fst3 $ myConfigs !! n) - (TE.thd3 $ myConfigs !! n) - (spawn $ TE.snd3 $ myConfigs !! n) - ) [] | n <- [0..(length myConfigs - 1)] - ] - ] - --- Configuration options for treeSelect -tsDefaultConfig :: TS.TSConfig a -tsDefaultConfig = TS.TSConfig { TS.ts_hidechildren = True - , TS.ts_background = 0xdd292d3e - , TS.ts_font = myFont - , TS.ts_node = (0xffd0d0d0, 0xff202331) - , TS.ts_nodealt = (0xffd0d0d0, 0xff292d3e) - , TS.ts_highlight = (0xffffffff, 0xff755999) - , TS.ts_extra = 0xffd0d0d0 - , TS.ts_node_width = 200 - , TS.ts_node_height = 20 - , TS.ts_originX = 0 - , TS.ts_originY = 0 - , TS.ts_indent = 80 - , TS.ts_navigate = myTreeNavigation - } - --- Keybindings for treeSelect menus. Use h-j-k-l to navigate. --- Use 'o' and 'i' to move forward/back in the workspace history. --- Single KEY's are for top-level nodes. SUPER+KEY are for the --- second-level nodes. SUPER+ALT+KEY are third-level nodes. -myTreeNavigation = M.fromList - [ ((0, xK_Escape), TS.cancel) - , ((0, xK_Return), TS.select) - , ((0, xK_space), TS.select) - , ((0, xK_Up), TS.movePrev) - , ((0, xK_Down), TS.moveNext) - , ((0, xK_Left), TS.moveParent) - , ((0, xK_Right), TS.moveChild) - , ((0, xK_k), TS.movePrev) - , ((0, xK_j), TS.moveNext) - , ((0, xK_h), TS.moveParent) - , ((0, xK_l), TS.moveChild) - , ((0, xK_o), TS.moveHistBack) - , ((0, xK_i), TS.moveHistForward) - , ((0, xK_d), TS.moveTo ["dev"]) - , ((0, xK_g), TS.moveTo ["graphics"]) - , ((0, xK_m), TS.moveTo ["music"]) - , ((0, xK_v), TS.moveTo ["video"]) - , ((0, xK_w), TS.moveTo ["web"]) - , ((mod4Mask, xK_b), TS.moveTo ["web", "browser"]) - , ((mod4Mask, xK_c), TS.moveTo ["web", "chat"]) - , ((mod4Mask, xK_m), TS.moveTo ["web", "email"]) - , ((mod4Mask, xK_r), TS.moveTo ["web", "rss"]) - , ((mod4Mask, xK_w), TS.moveTo ["web", "web conference"]) - , ((mod4Mask, xK_d), TS.moveTo ["dev", "docs"]) - , ((mod4Mask, xK_e), TS.moveTo ["dev", "emacs"]) - , ((mod4Mask, xK_f), TS.moveTo ["dev", "files"]) - , ((mod4Mask, xK_p), TS.moveTo ["dev", "programming"]) - , ((mod4Mask, xK_t), TS.moveTo ["dev", "terminal"]) - , ((mod4Mask, xK_z), TS.moveTo ["dev", "virtualization"]) - , ((mod4Mask, xK_g), TS.moveTo ["graphics", "gimp"]) - , ((mod4Mask, xK_i), TS.moveTo ["graphics", "image viewer"]) - , ((mod4Mask, xK_a), TS.moveTo ["music", "audio editor"]) - , ((mod4Mask, xK_u), TS.moveTo ["music", "music player"]) - , ((mod4Mask, xK_o), TS.moveTo ["video", "obs"]) - , ((mod4Mask, xK_v), TS.moveTo ["video", "video player"]) - , ((mod4Mask, xK_k), TS.moveTo ["video", "kdenlive"]) - , ((mod4Mask .|. altMask, xK_h), TS.moveTo ["dev", "programming", "haskell"]) - , ((mod4Mask .|. altMask, xK_p), TS.moveTo ["dev", "programming", "python"]) - , ((mod4Mask .|. altMask, xK_s), TS.moveTo ["dev", "programming", "shell"]) - ] - ------------------------------------------------------------------------- --- XPROMPT SETTINGS ------------------------------------------------------------------------- -dtXPConfig :: XPConfig -dtXPConfig = def - { font = myFont - , bgColor = "#292d3e" - , fgColor = "#d0d0d0" - , bgHLight = "#c792ea" - , fgHLight = "#000000" - , borderColor = "#535974" - , promptBorderWidth = 0 - , promptKeymap = dtXPKeymap - , position = Top --- , position = CenteredAt { xpCenterY = 0.3, xpWidth = 0.3 } - , height = 20 - , historySize = 256 - , historyFilter = id - , defaultText = [] - , autoComplete = Just 100000 -- set Just 100000 for .1 sec - , showCompletionOnTab = False - -- , searchPredicate = isPrefixOf - , searchPredicate = fuzzyMatch - , alwaysHighlight = True - , maxComplRows = Nothing -- set to Just 5 for 5 rows - } - --- The same config above minus the autocomplete feature which is annoying --- on certain Xprompts, like the search engine prompts. -dtXPConfig' :: XPConfig -dtXPConfig' = dtXPConfig - { autoComplete = Nothing - } - --- A list of all of the standard Xmonad prompts and a key press assigned to them. --- These are used in conjunction with keybinding I set later in the config. -promptList :: [(String, XPConfig -> X ())] -promptList = [ ("m", manPrompt) -- manpages prompt - , ("p", passPrompt) -- get passwords (requires 'pass') - , ("g", passGeneratePrompt) -- generate passwords (requires 'pass') - , ("r", passRemovePrompt) -- remove passwords (requires 'pass') - , ("s", sshPrompt) -- ssh prompt - , ("x", xmonadPrompt) -- xmonad prompt - ] - --- Same as the above list except this is for my custom prompts. -promptList' :: [(String, XPConfig -> String -> X (), String)] -promptList' = [ ("c", calcPrompt, "qalc") -- requires qalculate-gtk - ] - ------------------------------------------------------------------------- --- CUSTOM PROMPTS ------------------------------------------------------------------------- --- calcPrompt requires a cli calculator called qalcualte-gtk. --- You could use this as a template for other custom prompts that --- use command line programs that return a single line of output. -calcPrompt :: XPConfig -> String -> X () -calcPrompt c ans = - inputPrompt c (trim ans) ?+ \input -> - liftIO(runProcessWithInput "qalc" [input] "") >>= calcPrompt c - where - trim = f . f - where f = reverse . dropWhile isSpace - ------------------------------------------------------------------------- --- XPROMPT KEYMAP (emacs-like key bindings for xprompts) ------------------------------------------------------------------------- -dtXPKeymap :: M.Map (KeyMask,KeySym) (XP ()) -dtXPKeymap = M.fromList $ - map (first $ (,) controlMask) -- control + <key> - [ (xK_z, killBefore) -- kill line backwards - , (xK_k, killAfter) -- kill line forwards - , (xK_a, startOfLine) -- move to the beginning of the line - , (xK_e, endOfLine) -- move to the end of the line - , (xK_m, deleteString Next) -- delete a character foward - , (xK_b, moveCursor Prev) -- move cursor forward - , (xK_f, moveCursor Next) -- move cursor backward - , (xK_BackSpace, killWord Prev) -- kill the previous word - , (xK_y, pasteString) -- paste a string - , (xK_g, quit) -- quit out of prompt - , (xK_bracketleft, quit) - ] - ++ - map (first $ (,) altMask) -- meta key + <key> - [ (xK_BackSpace, killWord Prev) -- kill the prev word - , (xK_f, moveWord Next) -- move a word forward - , (xK_b, moveWord Prev) -- move a word backward - , (xK_d, killWord Next) -- kill the next word - , (xK_n, moveHistory W.focusUp') -- move up thru history - , (xK_p, moveHistory W.focusDown') -- move down thru history - ] - ++ - map (first $ (,) 0) -- <key> - [ (xK_Return, setSuccess True >> setDone True) - , (xK_KP_Enter, setSuccess True >> setDone True) - , (xK_BackSpace, deleteString Prev) - , (xK_Delete, deleteString Next) - , (xK_Left, moveCursor Prev) - , (xK_Right, moveCursor Next) - , (xK_Home, startOfLine) - , (xK_End, endOfLine) - , (xK_Down, moveHistory W.focusUp') - , (xK_Up, moveHistory W.focusDown') - , (xK_Escape, quit) - ] - ------------------------------------------------------------------------- --- SEARCH ENGINES ------------------------------------------------------------------------- --- Xmonad has several search engines available to use located in --- XMonad.Actions.Search. Additionally, you can add other search engines --- such as those listed below. -archwiki, ebay, news, reddit, urban :: S.SearchEngine - -archwiki = S.searchEngine "archwiki" "https://wiki.archlinux.org/index.php?search=" -ebay = S.searchEngine "ebay" "https://www.ebay.com/sch/i.html?_nkw=" -news = S.searchEngine "news" "https://news.google.com/search?q=" -reddit = S.searchEngine "reddit" "https://www.reddit.com/search/?q=" -urban = S.searchEngine "urban" "https://www.urbandictionary.com/define.php?term=" - --- This is the list of search engines that I want to use. Some are from --- XMonad.Actions.Search, and some are the ones that I added above. -searchList :: [(String, S.SearchEngine)] -searchList = [ ("a", archwiki) - , ("d", S.duckduckgo) - , ("e", ebay) - , ("g", S.google) - , ("h", S.hoogle) - , ("i", S.images) - , ("n", news) - , ("r", reddit) - , ("s", S.stackage) - , ("t", S.thesaurus) - , ("v", S.vocabulary) - , ("b", S.wayback) - , ("u", urban) - , ("w", S.wikipedia) - , ("y", S.youtube) - , ("z", S.amazon) - ] - - ------------------------------------------------------------------------- --- WORKSPACES ------------------------------------------------------------------------- --- My workspaces are clickable meaning that the mouse can be used to switch --- workspaces. This requires xdotool. You need to use UnsafeStdInReader instead --- of simply StdInReader in xmobar config so you can pass actions to it. - -{- Commented out clickable xmobar workspaces to use TreeSelect workspaces. - -xmobarEscape :: String -> String -xmobarEscape = concatMap doubleLts - where - doubleLts '<' = "<<" - doubleLts x = [x] - -myWorkspaces :: [String] -myWorkspaces = clickable . map xmobarEscape - $ ["dev", "www", "sys", "doc", "vbox", "chat", "mus", "vid", "gfx"] - where - clickable l = [ "<action=xdotool key super+" ++ show n ++ ">" ++ ws ++ "</action>" | - (i,ws) <- zip [1..9] l, - let n = i ] - -End of comment -} - --- TreeSelect workspaces -myWorkspaces :: Forest String -myWorkspaces = [ Node "dev" - [ Node "terminal" [] - , Node "emacs" [] - , Node "docs" [] - , Node "files" [] - , Node "programming" - [ Node "haskell" [] - , Node "python" [] - , Node "shell" [] - ] - , Node "virtualization" [] - ] - , Node "web" - [ Node "browser" [] - , Node "chat" [] - , Node "email" [] - , Node "rss" [] - , Node "web conference" [] - ] - , Node "graphics" - [ Node "gimp" [] - , Node "image viewer" [] - ] - , Node "music" - [ Node "audio editor" [] - , Node "music player" [] - ] - , Node "video" - [ Node "obs" [] - , Node "kdenlive" [] - , Node "video player" [] - ] - ] - ------------------------------------------------------------------------- --- MANAGEHOOK ------------------------------------------------------------------------- --- Sets some rules for certain programs. Examples include forcing certain --- programs to always float, or to always appear on a certain workspace. --- Forcing programs to a certain workspace with a doShift requires xdotool --- if you are using clickable workspaces. You need the className or title --- of the program. Use xprop to get this info. - -myManageHook :: XMonad.Query (Data.Monoid.Endo WindowSet) -myManageHook = composeAll - -- using 'doShift ( myWorkspaces !! 7)' sends program to workspace 8! - -- I'm doing it this way because otherwise I would have to write out - -- the full name of my clickable workspaces, which would look like: - -- doShift "<action xdotool super+8>gfx</action>" - [ className =? "obs" --> doShift ( "video.obs" ) - , title =? "firefox" --> doShift ( "web.browser" ) - , title =? "qutebrowser" --> doShift ( "web.browser" ) - , className =? "mpv" --> doShift ( "video.movie player" ) - , className =? "vlc" --> doShift ( "video.movie player" ) - , className =? "Gimp" --> doShift ( "graphics.gimp") - , className =? "Gimp" --> doFloat - , title =? "Oracle VM VirtualBox Manager" --> doFloat - , className =? "VirtualBox Manager" --> doShift ( "dev.virtualization" ) - , (className =? "firefox" <&&> resource =? "Dialog") --> doFloat -- Float Firefox Dialog - ] <+> namedScratchpadManageHook myScratchPads - ------------------------------------------------------------------------- --- LOGHOOK ------------------------------------------------------------------------- --- Sets opacity for inactive (unfocused) windows. I prefer to not use --- this feature so I've set opacity to 1.0. If you want opacity, set --- this to a value of less than 1 (such as 0.9 for 90% opacity). -myLogHook :: X () -myLogHook = fadeInactiveLogHook fadeAmount - where fadeAmount = 1.0 - ------------------------------------------------------------------------- --- LAYOUTS ------------------------------------------------------------------------- --- Makes setting the spacingRaw simpler to write. The spacingRaw --- module adds a configurable amount of space around windows. -mySpacing :: Integer -> l a -> XMonad.Layout.LayoutModifier.ModifiedLayout Spacing l a -mySpacing i = spacingRaw False (Border i i i i) True (Border i i i i) True - --- Below is a variation of the above except no borders are applied --- if fewer than two windows. So a single window has no gaps. -mySpacing' :: Integer -> l a -> XMonad.Layout.LayoutModifier.ModifiedLayout Spacing l a -mySpacing' i = spacingRaw True (Border i i i i) True (Border i i i i) True - --- Defining a bunch of layouts, many that I don't use. -tall = renamed [Replace "tall"] - $ limitWindows 12 - $ mySpacing 8 - $ ResizableTall 1 (3/100) (1/2) [] -magnify = renamed [Replace "magnify"] - $ magnifier - $ limitWindows 12 - $ mySpacing 8 - $ ResizableTall 1 (3/100) (1/2) [] -monocle = renamed [Replace "monocle"] - $ limitWindows 20 Full -floats = renamed [Replace "floats"] - $ limitWindows 20 simplestFloat -grid = renamed [Replace "grid"] - $ limitWindows 12 - $ mySpacing 8 - $ mkToggle (single MIRROR) - $ Grid (16/10) -spirals = renamed [Replace "spirals"] - $ mySpacing' 8 - $ spiral (6/7) -threeCol = renamed [Replace "threeCol"] - $ limitWindows 7 - $ mySpacing' 4 - $ ThreeCol 1 (3/100) (1/2) -threeRow = renamed [Replace "threeRow"] - $ limitWindows 7 - $ mySpacing' 4 - -- Mirror takes a layout and rotates it by 90 degrees. - -- So we are applying Mirror to the ThreeCol layout. - $ Mirror - $ ThreeCol 1 (3/100) (1/2) -tabs = renamed [Replace "tabs"] - -- I cannot add spacing to this layout because it will - -- add spacing between window and tabs which looks bad. - $ tabbed shrinkText myTabConfig - where - myTabConfig = def { fontName = "xft:Mononoki Nerd Font:regular:pixelsize=11" - , activeColor = "#292d3e" - , inactiveColor = "#3e445e" - , activeBorderColor = "#292d3e" - , inactiveBorderColor = "#292d3e" - , activeTextColor = "#ffffff" - , inactiveTextColor = "#d0d0d0" - } - --- Theme for showWName which prints current workspace when you change workspaces. -myShowWNameTheme :: SWNConfig -myShowWNameTheme = def - { swn_font = "xft:Sans:bold:size=60" - , swn_fade = 1.0 - , swn_bgcolor = "#000000" - , swn_color = "#FFFFFF" - } - --- The layout hook -myLayoutHook = avoidStruts $ mouseResize $ windowArrange $ T.toggleLayouts floats $ - mkToggle (NBFULL ?? NOBORDERS ?? EOT) myDefaultLayout - where - -- I've commented out the layouts I don't use. - myDefaultLayout = tall - ||| magnify - ||| noBorders monocle - ||| floats - -- ||| grid - ||| noBorders tabs - -- ||| spirals - -- ||| threeCol - -- ||| threeRow - ------------------------------------------------------------------------- --- SCRATCHPADS ------------------------------------------------------------------------- --- Allows to have several floating scratchpads running different applications. --- Import Util.NamedScratchpad. Bind a key to namedScratchpadSpawnAction. -myScratchPads :: [NamedScratchpad] -myScratchPads = [ NS "terminal" spawnTerm findTerm manageTerm - , NS "mocp" spawnMocp findMocp manageMocp - ] - where - spawnTerm = myTerminal ++ " -n scratchpad" - findTerm = resource =? "scratchpad" - manageTerm = customFloating $ W.RationalRect l t w h - where - h = 0.9 - w = 0.9 - t = 0.95 -h - l = 0.95 -w - spawnMocp = myTerminal ++ " -n mocp 'mocp'" - findMocp = resource =? "mocp" - manageMocp = customFloating $ W.RationalRect l t w h - where - h = 0.9 - w = 0.9 - t = 0.95 -h - l = 0.95 -w - ------------------------------------------------------------------------- --- KEYBINDINGS ------------------------------------------------------------------------- --- I am using the Xmonad.Util.EZConfig module which allows keybindings --- to be written in simpler, emacs-like format. -myKeys :: [(String, X ())] -myKeys = - -- Xmonad - [ ("M-C-r", spawn "xmonad --recompile") -- Recompiles xmonad - , ("M-S-r", spawn "xmonad --restart") -- Restarts xmonad - , ("M-S-q", io exitSuccess) -- Quits xmonad - - -- Open my preferred terminal - , ("M-<Return>", spawn myTerminal) - - -- Run Prompt - , ("M-S-<Return>", shellPrompt dtXPConfig) -- Shell Prompt - - -- Windows - , ("M-S-c", kill1) -- Kill the currently focused client - , ("M-S-a", killAll) -- Kill all windows on current workspace - - -- Floating windows - , ("M-f", sendMessage (T.Toggle "floats")) -- Toggles my 'floats' layout - , ("M-<Delete>", withFocused $ windows . W.sink) -- Push floating window back to tile - , ("M-S-<Delete>", sinkAll) -- Push ALL floating windows to tile - - -- Grid Select (CTRL-g followed by a key) - , ("C-g g", spawnSelected' myAppGrid) -- grid select favorite apps - , ("C-g m", spawnSelected' myBookmarkGrid) -- grid select some bookmarks - , ("C-g c", spawnSelected' myConfigGrid) -- grid select useful config files - , ("C-g t", goToSelected $ mygridConfig myColorizer) -- goto selected window - , ("C-g b", bringSelected $ mygridConfig myColorizer) -- bring selected window - - -- Tree Select/ - -- tree select actions menu - , ("C-t a", treeselectAction tsDefaultConfig) - -- tree select workspaces menu - , ("C-t t", TS.treeselectWorkspace tsDefaultConfig myWorkspaces W.greedyView) - -- tree select choose workspace to send window - , ("C-t g", TS.treeselectWorkspace tsDefaultConfig myWorkspaces W.shift) - - -- Windows navigation - , ("M-m", windows W.focusMaster) -- Move focus to the master window - , ("M-j", windows W.focusDown) -- Move focus to the next window - , ("M-k", windows W.focusUp) -- Move focus to the prev window - --, ("M-S-m", windows W.swapMaster) -- Swap the focused window and the master window - , ("M-S-j", windows W.swapDown) -- Swap focused window with next window - , ("M-S-k", windows W.swapUp) -- Swap focused window with prev window - , ("M-<Backspace>", promote) -- Moves focused window to master, others maintain order - , ("M1-S-<Tab>", rotSlavesDown) -- Rotate all windows except master and keep focus in place - , ("M1-C-<Tab>", rotAllDown) -- Rotate all the windows in the current stack - --, ("M-S-s", windows copyToAll) - , ("M-C-s", killAllOtherCopies) - - -- Layouts - , ("M-<Tab>", sendMessage NextLayout) -- Switch to next layout - , ("M-C-M1-<Up>", sendMessage Arrange) - , ("M-C-M1-<Down>", sendMessage DeArrange) - , ("M-<Space>", sendMessage (MT.Toggle NBFULL) >> sendMessage ToggleStruts) -- Toggles noborder/full - , ("M-S-<Space>", sendMessage ToggleStruts) -- Toggles struts - , ("M-S-n", sendMessage $ MT.Toggle NOBORDERS) -- Toggles noborder - , ("M-<KP_Multiply>", sendMessage (IncMasterN 1)) -- Increase number of clients in master pane - , ("M-<KP_Divide>", sendMessage (IncMasterN (-1))) -- Decrease number of clients in master pane - , ("M-S-<KP_Multiply>", increaseLimit) -- Increase number of windows - , ("M-S-<KP_Divide>", decreaseLimit) -- Decrease number of windows - - , ("M-h", sendMessage Shrink) -- Shrink horiz window width - , ("M-l", sendMessage Expand) -- Expand horiz window width - , ("M-C-j", sendMessage MirrorShrink) -- Shrink vert window width - , ("M-C-k", sendMessage MirrorExpand) -- Exoand vert window width - - -- Workspaces - , ("M-.", nextScreen) -- Switch focus to next monitor - , ("M-,", prevScreen) -- Switch focus to prev monitor - , ("M-S-<KP_Add>", shiftTo Next nonNSP >> moveTo Next nonNSP) -- Shifts focused window to next ws - , ("M-S-<KP_Subtract>", shiftTo Prev nonNSP >> moveTo Prev nonNSP) -- Shifts focused window to prev ws - - -- Scratchpads - , ("M-C-<Return>", namedScratchpadAction myScratchPads "terminal") - , ("M-C-c", namedScratchpadAction myScratchPads "mocp") - - -- Controls for mocp music player. - , ("M-u p", spawn "mocp --play") - , ("M-u l", spawn "mocp --next") - , ("M-u h", spawn "mocp --previous") - , ("M-u <Space>", spawn "mocp --toggle-pause") - - -- Emacs (CTRL-e followed by a key) - , ("C-e e", spawn "emacsclient -c -a ''") -- start emacs - , ("C-e b", spawn "emacsclient -c -a '' --eval '(ibuffer)'") -- list emacs buffers - , ("C-e d", spawn "emacsclient -c -a '' --eval '(dired nil)'") -- dired emacs file manager - , ("C-e m", spawn "emacsclient -c -a '' --eval '(mu4e)'") -- mu4e emacs email client - , ("C-e n", spawn "emacsclient -c -a '' --eval '(elfeed)'") -- elfeed emacs rss client - , ("C-e s", spawn "emacsclient -c -a '' --eval '(eshell)'") -- eshell within emacs - , ("C-e t", spawn "emacsclient -c -a '' --eval '(+vterm/here nil)'") -- eshell within emacs - -- emms is an emacs audio player. I set it to auto start playing in a specific directory. - , ("C-e a", spawn "emacsclient -c -a '' --eval '(emms)' --eval '(emms-play-directory-tree \"~/Music/Non-Classical/70s-80s/\")'") - - --- My Applications (Super+Alt+Key) - , ("M-M1-a", spawn (myTerminal ++ " -e ncpamixer")) - , ("M-M1-b", spawn "surf www.youtube.com/c/DistroTube/") - , ("M-M1-e", spawn (myTerminal ++ " -e neomutt")) - , ("M-M1-f", spawn (myTerminal ++ " -e sh ./.config/vifm/scripts/vifmrun")) - , ("M-M1-i", spawn (myTerminal ++ " -e irssi")) - , ("M-M1-j", spawn (myTerminal ++ " -e joplin")) - , ("M-M1-l", spawn (myTerminal ++ " -e lynx -cfg=~/.lynx/lynx.cfg -lss=~/.lynx/lynx.lss gopher://distro.tube")) - , ("M-M1-m", spawn (myTerminal ++ " -e mocp")) - , ("M-M1-n", spawn (myTerminal ++ " -e newsboat")) - , ("M-M1-p", spawn (myTerminal ++ " -e pianobar")) - , ("M-M1-r", spawn (myTerminal ++ " -e rtv")) - , ("M-M1-t", spawn (myTerminal ++ " -e toot curses")) - , ("M-M1-w", spawn (myTerminal ++ " -e wopr report.xml")) - , ("M-M1-y", spawn (myTerminal ++ " -e youtube-viewer")) - - -- Multimedia Keys - , ("<XF86AudioPlay>", spawn "cmus toggle") - , ("<XF86AudioPrev>", spawn "cmus prev") - , ("<XF86AudioNext>", spawn "cmus next") - -- , ("<XF86AudioMute>", spawn "amixer set Master toggle") -- Bug prevents it from toggling correctly in 12.04. - , ("<XF86AudioLowerVolume>", spawn "amixer set Master 5%- unmute") - , ("<XF86AudioRaiseVolume>", spawn "amixer set Master 5%+ unmute") - , ("<XF86HomePage>", spawn "firefox") - , ("<XF86Search>", safeSpawn "firefox" ["https://www.google.com/"]) - , ("<XF86Mail>", runOrRaise "geary" (resource =? "thunderbird")) - , ("<XF86Calculator>", runOrRaise "gcalctool" (resource =? "gcalctool")) - , ("<XF86Eject>", spawn "toggleeject") - , ("<Print>", spawn "scrotd 0") - ] - -- Appending search engine prompts to keybindings list. - -- Look at "search engines" section of this config for values for "k". - ++ [("M-s " ++ k, S.promptSearch dtXPConfig' f) | (k,f) <- searchList ] - ++ [("M-S-s " ++ k, S.selectSearch f) | (k,f) <- searchList ] - -- Appending some extra xprompts to keybindings list. - -- Look at "xprompt settings" section this of config for values for "k". - ++ [("M-p " ++ k, f dtXPConfig') | (k,f) <- promptList ] - ++ [("M-p " ++ k, f dtXPConfig' g) | (k,f,g) <- promptList' ] - -- The following lines are needed for named scratchpads. - where nonNSP = WSIs (return (\ws -> W.tag ws /= "nsp")) - nonEmptyNonNSP = WSIs (return (\ws -> isJust (W.stack ws) && W.tag ws /= "nsp")) - ------------------------------------------------------------------------- --- MAIN ------------------------------------------------------------------------- -main :: IO () -main = do - -- Launching three instances of xmobar on their monitors. - xmproc0 <- spawnPipe "xmobar -x 0 ~/.config/xmobar/xmobarrc0" - xmproc1 <- spawnPipe "xmobar -x 1 ~/.config/xmobar/xmobarrc2" - xmproc2 <- spawnPipe "xmobar -x 2 ~/.config/xmobar/xmobarrc1" - -- the xmonad, ya know...what the WM is named after! - xmonad $ ewmh def - { manageHook = ( isFullscreen --> doFullFloat ) <+> myManageHook <+> manageDocks - -- Run xmonad commands from command line with "xmonadctl command". Commands include: - -- shrink, expand, next-layout, default-layout, restart-wm, xterm, kill, refresh, run, - -- focus-up, focus-down, swap-up, swap-down, swap-master, sink, quit-wm. You can run - -- "xmonadctl 0" to generate full list of commands written to ~/.xsession-errors. - , handleEventHook = serverModeEventHookCmd - <+> serverModeEventHook - <+> serverModeEventHookF "XMONAD_PRINT" (io . putStrLn) - <+> docksEventHook - , modMask = myModMask - , terminal = myTerminal - , startupHook = myStartupHook - , layoutHook = showWName' myShowWNameTheme myLayoutHook - , workspaces = TS.toWorkspaces myWorkspaces - , borderWidth = myBorderWidth - , normalBorderColor = myNormColor - , focusedBorderColor = myFocusColor - , logHook = workspaceHistoryHook <+> myLogHook <+> dynamicLogWithPP xmobarPP - { ppOutput = \x -> hPutStrLn xmproc0 x >> hPutStrLn xmproc1 x >> hPutStrLn xmproc2 x - , ppCurrent = xmobarColor "#c3e88d" "" . wrap "[" "]" -- Current workspace in xmobar - , ppVisible = xmobarColor "#c3e88d" "" -- Visible but not current workspace - , ppHidden = xmobarColor "#82AAFF" "" . wrap "*" "" -- Hidden workspaces in xmobar - -- , ppHiddenNoWindows = xmobarColor "#F07178" "" -- Hidden workspaces (no windows) - , ppHiddenNoWindows= \( _ ) -> "" -- Only shows visible workspaces. Useful for TreeSelect. - , ppTitle = xmobarColor "#d0d0d0" "" . shorten 60 -- Title of active window in xmobar - , ppSep = "<fc=#666666> | </fc>" -- Separators in xmobar - , ppUrgent = xmobarColor "#C45500" "" . wrap "!" "!" -- Urgent workspace - , ppExtras = [windowCount] -- # of windows current workspace - , ppOrder = \(ws:l:t:ex) -> [ws,l]++ex++[t] - } - } `additionalKeysP` myKeys |