stockholm/lass/5pkgs/custom/xmonad-lass/default.nix

218 lines
8.1 KiB
Nix
Raw Normal View History

2017-09-19 09:45:33 +00:00
{ config, pkgs, ... }:
2020-04-18 12:59:35 +00:00
pkgs.writers.writeHaskellBin "xmonad" {
libraries = with pkgs.haskellPackages; [
extra
xmonad-stockholm
];
} /* haskell */ ''
2015-11-13 00:07:54 +00:00
{-# LANGUAGE LambdaCase #-}
module Main where
2016-04-25 13:25:47 +00:00
import XMonad
2015-11-13 00:07:54 +00:00
2016-04-25 13:25:47 +00:00
import qualified XMonad.StackSet as W
2017-12-03 22:18:22 +00:00
import Control.Monad.Extra (whenJustM)
2016-04-25 13:25:47 +00:00
import Data.List (isInfixOf)
2018-02-13 16:38:19 +00:00
import Data.Monoid (Endo)
2017-12-03 22:18:22 +00:00
import System.Environment (getArgs, lookupEnv)
2018-11-29 20:24:31 +00:00
import System.Exit (exitFailure)
import System.IO (hPutStrLn, stderr)
import System.Posix.Process (executeFile)
2018-12-24 14:50:39 +00:00
import XMonad.Actions.CopyWindow (copy, copyToAll, kill1)
2015-11-13 00:07:54 +00:00
import XMonad.Actions.CycleWS (toggleWS)
2016-04-25 13:25:47 +00:00
import XMonad.Actions.DynamicWorkspaces ( addWorkspacePrompt, renameWorkspace, removeEmptyWorkspace)
import XMonad.Actions.DynamicWorkspaces (withWorkspace)
import XMonad.Actions.GridSelect (GSConfig(..), gridselectWorkspace, navNSearch)
import XMonad.Actions.Minimize (minimizeWindow, maximizeWindow, withLastMinimized)
2017-12-13 17:31:55 +00:00
import XMonad.Hooks.EwmhDesktops (ewmh)
2016-04-25 13:25:47 +00:00
import XMonad.Hooks.FloatNext (floatNext)
import XMonad.Hooks.FloatNext (floatNextHook)
import XMonad.Hooks.ManageDocks (avoidStruts, ToggleStruts(ToggleStruts))
2018-11-30 04:23:53 +00:00
import XMonad.Hooks.ManageHelpers (composeOne, doCenterFloat, (-?>))
2016-04-25 13:25:47 +00:00
import XMonad.Hooks.UrgencyHook (focusUrgent)
2018-02-13 16:37:48 +00:00
import XMonad.Hooks.UrgencyHook (withUrgencyHook, UrgencyHook(..))
2015-11-13 00:07:54 +00:00
import XMonad.Layout.FixedColumn (FixedColumn(..))
import XMonad.Layout.Minimize (minimize)
2016-04-25 15:24:54 +00:00
import XMonad.Layout.NoBorders (smartBorders)
import XMonad.Layout.MouseResizableTile (mouseResizableTile)
2017-12-13 17:32:38 +00:00
import XMonad.Layout.SimplestFloat (simplestFloat)
2017-09-19 09:45:33 +00:00
import XMonad.Prompt (autoComplete, font, searchPredicate, XPConfig)
2016-04-25 13:25:47 +00:00
import XMonad.Prompt.Window (windowPromptGoto, windowPromptBringCopy)
2015-11-13 00:07:54 +00:00
import XMonad.Util.EZConfig (additionalKeysP)
2018-02-13 16:37:48 +00:00
import XMonad.Util.NamedWindows (getName)
import XMonad.Util.Run (safeSpawn)
2015-11-13 00:07:54 +00:00
2018-11-29 20:24:31 +00:00
import XMonad.Stockholm.Shutdown (newShutdownEventHandler, shutdown)
2018-06-27 21:52:06 +00:00
import XMonad.Stockholm.Pager (defaultWindowColors, pager, MatchMethod(MatchPrefix), PagerConfig(..))
2018-02-13 16:37:48 +00:00
data LibNotifyUrgencyHook = LibNotifyUrgencyHook deriving (Read, Show)
instance UrgencyHook LibNotifyUrgencyHook where
urgencyHook LibNotifyUrgencyHook w = do
name <- getName w
Just idx <- fmap (W.findTag w) $ gets windowset
safeSpawn "${pkgs.libnotify}/bin/notify-send" [show name, "workspace " ++ idx]
2017-10-09 11:25:28 +00:00
myTerm :: FilePath
2020-04-21 15:17:42 +00:00
myTerm = "${pkgs.rxvt_unicode-with-plugins}/bin/urxvtc"
2015-11-13 00:07:54 +00:00
myFont :: String
2018-08-14 14:27:01 +00:00
myFont = "-*-clean-*-*-*-*-*-*-*-*-*-*-iso10646-1"
2015-11-13 00:07:54 +00:00
main :: IO ()
main = getArgs >>= \case
2018-11-29 20:24:31 +00:00
[] -> main'
["--shutdown"] -> shutdown
args -> hPutStrLn stderr ("bad arguments: " <> show args) >> exitFailure
2015-11-13 00:07:54 +00:00
2017-12-03 22:18:22 +00:00
main' :: IO ()
main' = do
2018-11-29 20:24:31 +00:00
handleShutdownEvent <- newShutdownEventHandler
2018-12-16 08:38:40 +00:00
launch $ ewmh
2018-02-13 16:37:48 +00:00
$ withUrgencyHook LibNotifyUrgencyHook
$ def
2017-10-09 11:25:28 +00:00
{ terminal = myTerm
2017-10-05 14:17:12 +00:00
, modMask = mod4Mask
, layoutHook = smartBorders $ myLayoutHook
2018-11-30 04:23:53 +00:00
, manageHook = floatHooks <+> floatNextHook
2017-12-03 22:18:22 +00:00
, startupHook =
whenJustM (liftIO (lookupEnv "XMONAD_STARTUP_HOOK"))
(\path -> forkFile path [] Nothing)
2015-11-13 00:07:54 +00:00
, normalBorderColor = "#1c1c1c"
2017-12-03 22:18:22 +00:00
, focusedBorderColor = "#ff0000"
2017-10-05 14:17:12 +00:00
, handleEventHook = handleShutdownEvent
, workspaces = [ "dashboard", "sys", "wp" ]
2015-11-13 00:07:54 +00:00
} `additionalKeysP` myKeyMap
myLayoutHook = defLayout
where
defLayout = minimize $ ((avoidStruts $ Mirror (Tall 1 (3/100) (1/2))) ||| Full ||| FixedColumn 2 80 80 1 ||| Tall 1 (3/100) (1/2) ||| simplestFloat ||| mouseResizableTile)
2015-11-13 00:07:54 +00:00
2018-02-13 16:38:19 +00:00
floatHooks :: Query (Endo WindowSet)
2018-11-30 04:23:53 +00:00
floatHooks = composeOne
[ className =? "Pinentry" -?> doCenterFloat
, title =? "fzfmenu" -?> doCenterFloat
, title =? "glxgears" -?> doCenterFloat
, resource =? "Dialog" -?> doFloat
]
2017-12-31 01:48:02 +00:00
2016-04-25 13:25:47 +00:00
myKeyMap :: [([Char], X ())]
2015-11-13 00:07:54 +00:00
myKeyMap =
2017-10-19 16:42:09 +00:00
[ ("M4-<F11>", spawn "${config.lass.screenlock.command}")
, ("M4-C-p", spawn "${pkgs.scrot}/bin/scrot ~/public_html/scrot.png")
2016-06-30 15:24:50 +00:00
, ("M4-p", spawn "${pkgs.pass}/bin/passmenu --type")
2019-10-14 13:48:58 +00:00
, ("M4-S-p", spawn "${pkgs.otpmenu}/bin/otpmenu")
2017-08-21 10:49:29 +00:00
, ("M4-o", spawn "${pkgs.brain}/bin/brainmenu --type")
2017-09-19 09:46:29 +00:00
, ("M4-i", spawn "${pkgs.dpass}/bin/dpassmenu --type")
2018-12-02 04:47:20 +00:00
, ("M4-z", spawn "${pkgs.emot-menu}/bin/emoticons")
2017-12-13 17:37:13 +00:00
, ("<XF86AudioMute>", spawn "${pkgs.pulseaudioLight.out}/bin/pactl -- set-sink-mute @DEFAULT_SINK@ toggle")
, ("<XF86AudioRaiseVolume>", spawn "${pkgs.pulseaudioLight.out}/bin/pactl -- set-sink-volume @DEFAULT_SINK@ +4%")
, ("<XF86AudioLowerVolume>", spawn "${pkgs.pulseaudioLight.out}/bin/pactl -- set-sink-volume @DEFAULT_SINK@ -4%")
, ("<XF86MonBrightnessDown>", spawn "${pkgs.acpilight}/bin/xbacklight -time 0 -dec 1")
, ("<XF86MonBrightnessUp>", spawn "${pkgs.acpilight}/bin/xbacklight -time 0 -inc 1")
2016-04-25 13:25:47 +00:00
, ("<XF86Launch1>", gridselectWorkspace gridConfig W.view)
2016-11-10 21:34:59 +00:00
, ("M4-C-k", spawn "${pkgs.xorg.xkill}/bin/xkill")
2015-11-13 00:07:54 +00:00
, ("M4-a", focusUrgent)
2017-09-19 09:45:33 +00:00
, ("M4-S-r", renameWorkspace myXPConfig)
, ("M4-S-a", addWorkspacePrompt myXPConfig)
2015-11-13 00:07:54 +00:00
, ("M4-S-<Backspace>", removeEmptyWorkspace)
, ("M4-S-c", kill1)
, ("M4-<Esc>", toggleWS)
2017-10-09 11:25:28 +00:00
, ("M4-S-<Enter>", spawn myTerm)
, ("M4-x", floatNext True >> spawn myTerm)
2017-09-20 16:16:56 +00:00
, ("M4-c", floatNext True >> spawn "${pkgs.termite}/bin/termite")
2015-11-13 00:07:54 +00:00
, ("M4-f", floatNext True)
2020-07-04 04:51:08 +00:00
, ("M4-b", spawn "/run/current-system/sw/bin/klem")
2015-11-13 00:07:54 +00:00
2019-04-07 17:30:03 +00:00
, ("M4-v", gets windowset >>= allWorkspaceNames >>= pager pagerConfig (windows . W.greedyView) )
2018-06-27 21:52:06 +00:00
, ("M4-S-v", gets windowset >>= allWorkspaceNames >>= pager pagerConfig (windows . W.shift) )
2016-04-25 13:25:47 +00:00
, ("M4-C-v", withWorkspace autoXPConfig (windows . copy))
2015-11-13 00:07:54 +00:00
2016-04-25 14:31:08 +00:00
, ("M4-m", withFocused minimizeWindow)
, ("M4-S-m", withLastMinimized maximizeWindow)
2016-04-25 14:31:08 +00:00
2016-04-25 13:25:47 +00:00
, ("M4-q", windowPromptGoto infixAutoXPConfig)
, ("M4-C-q", windowPromptBringCopy infixAutoXPConfig)
2015-11-13 00:07:54 +00:00
, ("M4-S-q", return ())
2017-01-10 15:18:00 +00:00
2017-10-05 03:03:10 +00:00
, ("M4-d", floatNext True >> spawn "${pkgs.copyq}/bin/copyq show")
2018-12-24 14:50:39 +00:00
, ("M4-<F2>", windows copyToAll)
2020-04-18 12:59:17 +00:00
, ("M4-<F4>", spawn "${pkgs.nm-dmenu}/bin/nm-dmenu")
2018-04-05 15:39:20 +00:00
, ("M4-<Insert>", spawn "${pkgs.writeDash "paste" ''
${pkgs.coreutils}/bin/sleep 0.1
${pkgs.xclip}/bin/xclip -o | ${pkgs.xdotool}/bin/xdotool type -f -
''}")
2018-03-03 14:07:00 +00:00
, ("M4-<F5>", spawn "${pkgs.acpilight}/bin/xbacklight -set 1")
, ("M4-<F6>", spawn "${pkgs.acpilight}/bin/xbacklight -set 10")
, ("M4-<F7>", spawn "${pkgs.acpilight}/bin/xbacklight -set 33")
, ("M4-<F8>", spawn "${pkgs.acpilight}/bin/xbacklight -set 100")
2017-10-18 17:52:00 +00:00
2018-11-30 04:24:22 +00:00
, ("M4-<F9>", spawn "${pkgs.redshift}/bin/redshift -O 4000 -g 0.9:0.8:0.8")
, ("M4-<F10>", spawn "${pkgs.redshift}/bin/redshift -x")
2019-10-14 13:49:53 +00:00
, ("M4-u", spawn "${pkgs.xcalib}/bin/xcalib -invert -alter")
2018-03-03 14:07:00 +00:00
2018-07-28 17:16:23 +00:00
, ("M4-s", spawn "${pkgs.knav}/bin/knav")
2020-07-04 04:51:08 +00:00
, ("M4-i", spawn "/run/current-system/sw/bin/screenshot")
2018-07-28 17:16:23 +00:00
2018-03-03 14:07:00 +00:00
--, ("M4-w", screenWorkspace 0 >>= (windows . W.greedyView))
--, ("M4-e", screenWorkspace 1 >>= (windows . W.greedyView))
--, ("M4-r", screenWorkspace 2 >>= (windows . W.greedyView))
2015-11-13 00:07:54 +00:00
]
forkFile :: FilePath -> [String] -> Maybe [(String, String)] -> X ()
forkFile path args env =
xfork (executeFile path False args env) >> return ()
2017-09-19 09:45:33 +00:00
myXPConfig :: XPConfig
myXPConfig = def
{ font = myFont
}
2016-04-25 13:25:47 +00:00
autoXPConfig :: XPConfig
2017-09-19 09:45:33 +00:00
autoXPConfig = myXPConfig
2015-11-13 00:07:54 +00:00
{ autoComplete = Just 5000
}
2016-04-25 13:25:47 +00:00
infixAutoXPConfig :: XPConfig
infixAutoXPConfig = autoXPConfig
{ searchPredicate = isInfixOf
2015-11-13 00:07:54 +00:00
}
2018-06-27 21:52:06 +00:00
pagerConfig :: PagerConfig
pagerConfig = def
{ pc_font = myFont
, pc_cellwidth = 64
, pc_matchmethod = MatchPrefix
, pc_windowColors = windowColors
}
where
windowColors _ _ _ True _ = ("#ef4242","#ff2323")
windowColors wsf m c u wf = do
let y = defaultWindowColors wsf m c u wf
if m == False && wf == True
then ("#402020", snd y)
else y
2016-04-25 13:25:47 +00:00
gridConfig :: GSConfig WorkspaceId
gridConfig = def
{ gs_cellwidth = 100
, gs_cellheight = 30
2016-04-25 13:25:47 +00:00
, gs_cellpadding = 2
2015-11-13 00:07:54 +00:00
, gs_navigate = navNSearch
2016-04-25 13:25:47 +00:00
, gs_font = myFont
2015-11-13 00:07:54 +00:00
}
2018-06-27 21:52:06 +00:00
allWorkspaceNames :: W.StackSet i l a sid sd -> X [i]
allWorkspaceNames ws =
2019-04-07 17:30:03 +00:00
return $ map W.tag (W.hidden ws ++ (map W.workspace $ W.visible ws)) ++ [W.tag $ W.workspace $ W.current ws]
2020-04-18 12:59:35 +00:00
''