lass: migrate away

1 files changed, 0 insertions, 236 deletions

diff --git a/lass/2configs/xmonad.nix b/lass/2configs/xmonad.nix
deleted file mode 100644
index 749e7cd1..00000000
--- a/lass/2configs/xmonad.nix
+++ /dev/null
@@ -1,236 +0,0 @@
-{ config, lib, pkgs, ... }:
-
-{
-  services.xserver.windowManager.xmonad = {
-    enable = true;
-    extraPackages = hs: [
-      hs.extra
-      hs.xmonad-contrib
-    ];
-    config = /* haskell */ ''
-{-# LANGUAGE LambdaCase #-}
-
-
-module Main where
-import XMonad
-
-import qualified XMonad.StackSet as W
-import Control.Monad.Extra (whenJustM)
-import Data.List (isInfixOf)
-import Data.Monoid (Endo)
-import System.Environment (getArgs, lookupEnv)
-import System.Exit (exitFailure)
-import System.IO (hPutStrLn, stderr)
-import System.Posix.Process (executeFile)
-import Data.Ratio
-
-import XMonad.Actions.Commands (defaultCommands, runCommand)
-import XMonad.Actions.CopyWindow (copy, copyToAll, kill1)
-import XMonad.Actions.CycleWS (toggleWS)
-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)
-import XMonad.Hooks.EwmhDesktops (ewmh)
-import XMonad.Hooks.FloatNext (floatNext)
-import XMonad.Hooks.FloatNext (floatNextHook)
-import XMonad.Hooks.ManageDocks (avoidStruts, ToggleStruts(ToggleStruts))
-import XMonad.Hooks.ManageHelpers (doCenterFloat, doRectFloat, (-?>))
-import XMonad.Hooks.Place (placeHook, smart)
-import XMonad.Hooks.UrgencyHook (focusUrgent)
-import XMonad.Hooks.UrgencyHook (withUrgencyHook, UrgencyHook(..))
-import XMonad.Layout.BoringWindows (boringWindows, focusDown, focusUp)
-import XMonad.Layout.FixedColumn (FixedColumn(..))
-import XMonad.Layout.Grid (Grid(..))
-import XMonad.Layout.Minimize (minimize)
-import XMonad.Layout.NoBorders (smartBorders, noBorders)
-import XMonad.Layout.MouseResizableTile (mouseResizableTile)
-import XMonad.Layout.SimplestFloat (simplestFloat)
-import XMonad.Layout.StateFull
-import XMonad.ManageHook (composeAll)
-import XMonad.Prompt (autoComplete, font, height, searchPredicate, XPConfig)
-import XMonad.Prompt.Window (windowPromptGoto, windowPromptBringCopy)
-import XMonad.Util.EZConfig (additionalKeysP)
-import XMonad.Util.NamedWindows (getName)
-import XMonad.Util.Run (safeSpawn)
-import XMonad.Util.Ungrab (unGrab)
-import XMonad.Util.Paste (sendKey)
-
-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]
-
-myTerm :: FilePath
-myTerm = "/run/current-system/sw/bin/alacritty"
-
-myFont :: String
-myFont = "${config.lass.fonts.regular}"
-
-main :: IO ()
-main = do
-    xmonad $ ewmh
-        $ withUrgencyHook LibNotifyUrgencyHook
-        $ def
-            { terminal           = myTerm
-            , modMask            = mod4Mask
-            , layoutHook         = myLayoutHook
-            , manageHook         = floatHooks
-            , startupHook =
-                whenJustM (liftIO (lookupEnv "XMONAD_STARTUP_HOOK"))
-                          (\path -> forkFile path [] Nothing)
-            , normalBorderColor  = "#1c1c1c"
-            , focusedBorderColor = "#ff0000"
-            , workspaces         = [ "dashboard", "sys", "wp" ]
-            } `additionalKeysP` myKeyMap
-
-myLayoutHook = defLayout
-  where
-    defLayout = smartBorders $
-      minimize .
-      boringWindows $
-      (
-        noBorders StateFull |||
-        (avoidStruts $ Mirror (Tall 1 (3/100) (1/2))) |||
-        FixedColumn 2 80 80 1 |||
-        Tall 1 (3/100) (1/2) |||
-        simplestFloat |||
-        mouseResizableTile |||
-        Grid
-      )
-
-floatHooks = composeAll
-   [ className =? "Pinentry" --> doCenterFloat
-   , className =? "Pager" --> doCenterFloat
-   , title =? "pager" --> doCenterFloat
-   , title =? "fzfmenu" --> doCenterFloat
-   , title =? "glxgears" --> doCenterFloat
-   , resource =? "Dialog" --> doFloat
-   , title =? "Upload to Imgur" -->
-       doRectFloat (W.RationalRect 0 0 (1 % 8) (1 % 8))
-   , placeHook (smart (1,0))
-   , floatNextHook
-   ]
-
-myKeyMap :: [([Char], X ())]
-myKeyMap =
-    [ ("M4-p", forkFile "${pkgs.pass}/bin/passmenu" [ "--type" ] Nothing)
-    , ("M4-S-p", forkFile "${pkgs.otpmenu}/bin/otpmenu" [] Nothing)
-    , ("M4-z", forkFile "${pkgs.unimenu}/bin/unimenu" [] Nothing)
-
-    , ("M4-S-q", restart "xmonad" True)
-
-    , ("<XF86AudioMute>", spawn "${pkgs.pulseaudio.out}/bin/pactl -- set-sink-mute @DEFAULT_SINK@ toggle")
-    , ("<XF86AudioRaiseVolume>", spawn "${pkgs.pulseaudio.out}/bin/pactl -- set-sink-volume @DEFAULT_SINK@ +4%")
-    , ("<XF86AudioLowerVolume>", spawn "${pkgs.pulseaudio.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")
-    , ("M4-C-k", spawn "${pkgs.xorg.xkill}/bin/xkill")
-
-    , ("M4-<Tab>", focusDown)
-    , ("M4-S-<Tab>", focusUp)
-    , ("M4-j", focusDown)
-    , ("M4-k", focusUp)
-
-    , ("M4-a", focusUrgent)
-    , ("M4-S-r", renameWorkspace    myXPConfig)
-    , ("M4-S-a", addWorkspacePrompt myXPConfig)
-    , ("M4-S-<Backspace>", removeEmptyWorkspace)
-    , ("M4-S-c", kill1)
-    , ("M4-<Esc>", toggleWS)
-    , ("M4-S-<Enter>", spawn myTerm)
-    , ("M4-x", floatNext True >> spawn myTerm)
-    , ("M4-c", spawn "/run/current-system/sw/bin/emacsclient -c")
-    -- , ("M4-c", unGrab)
-    , ("M4-f", floatNext True)
-    , ("M4-b", spawn "/run/current-system/sw/bin/klem")
-
-    , ("M4-c", defaultCommands >>= runCommand)
-    -- , ("M4-v", spawn "${pkgs.pager}/bin/pager view")
-    -- , ("M4-S-v", spawn "${pkgs.pager}/bin/pager shift")
-    , ("M4-v", withWorkspace autoXPConfig (windows . W.greedyView))
-    , ("M4-S-v", withWorkspace autoXPConfig (windows . W.shift))
-    , ("M4-C-v", withWorkspace autoXPConfig (windows . copy))
-
-    , ("M4-m", withFocused minimizeWindow)
-    , ("M4-S-m", withLastMinimized maximizeWindow)
-
-    , ("M4-q", windowPromptGoto infixAutoXPConfig)
-    , ("M4-C-q", windowPromptBringCopy infixAutoXPConfig)
-
-    , ("M4-S-q", return ())
-
-    , ("M4-d", floatNext True >> spawn "${pkgs.writers.writeDash "clipmenu" ''
-      PATH=${lib.makeBinPath [
-        pkgs.coreutils
-        pkgs.gawk
-        pkgs.dmenu
-      ]}
-      ${pkgs.clipmenu}/bin/clipmenu
-    ''}")
-
-    , ("M4-<Insert>", spawn "${pkgs.writers.writeDash "paste" ''
-      ${pkgs.coreutils}/bin/sleep 0.4
-      ${pkgs.xclip}/bin/xclip -o | ${pkgs.xdotool}/bin/xdotool type -f -
-    ''}")
-
-    , ("M4-<F1>", spawn "/run/current-system/sw/bin/gamepad_mouse_toggle")
-    , ("M4-<F2>", windows copyToAll)
-    , ("M4-<F4>", spawn "${pkgs.nm-dmenu}/bin/nm-dmenu")
-    , ("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")
-
-    , ("M4-<F9>", spawn "${pkgs.redshift}/bin/redshift -O 4000 -g 0.9:0.8:0.8")
-    , ("M4-<F10>", spawn "${pkgs.redshift}/bin/redshift -x")
-
-    , ("M4-<F11>", spawn "${config.lass.screenlock.command}")
-
-    , ("M4-u", spawn "${pkgs.xcalib}/bin/xcalib -invert -alter")
-    , ("M4-y", spawn "/run/current-system/sw/bin/switch-theme toggle")
-
-    ${lib.optionalString (builtins.hasAttr "warpd" pkgs) '', ("M4-s", spawn "${pkgs.warpd}/bin/warpd --hint")''}
-    , ("M4-i", spawn "/run/current-system/sw/bin/screenshot")
-
-    --, ("M4-w", screenWorkspace 0 >>= (windows . W.greedyView))
-    --, ("M4-e", screenWorkspace 1 >>= (windows . W.greedyView))
-    --, ("M4-r", screenWorkspace 2 >>= (windows . W.greedyView))
-    ]
-
-forkFile :: FilePath -> [String] -> Maybe [(String, String)] -> X ()
-forkFile path args env =
-    xfork (executeFile path True args env) >> return ()
-
-myXPConfig :: XPConfig
-myXPConfig = def
-    { font = myFont
-    , height = 40
-    }
-
-autoXPConfig :: XPConfig
-autoXPConfig = myXPConfig
-    { autoComplete = Just 5000
-    }
-
-infixAutoXPConfig :: XPConfig
-infixAutoXPConfig = autoXPConfig
-    { searchPredicate = isInfixOf
-    }
-
-gridConfig :: GSConfig WorkspaceId
-gridConfig = def
-    { gs_cellwidth = 100
-    , gs_cellheight = 30
-    , gs_cellpadding = 2
-    , gs_navigate = navNSearch
-    , gs_font = myFont
-    }
-
-    '';
-  };
-}