Clean old files

src/XMonad/Config.hs

@@ -1,36 +0,0 @@
-{-# Language RecordWildCards #-}
-{-# Language DeriveGeneric #-}
-{-# Language OverloadedStrings #-}
-module Config where
-
-import Dhall
-
-data Applications = Applications { urxvt :: Text
-                                 , prompt :: Text
-                                 , browser :: Text
-                                 , launcher :: Text -- xdg-open
-                                 , screenshot :: Text
-                                 }
-                  deriving (Show, Generic)
-data TopicRule = TopicRule { topicName :: Text
-                           , topicHome :: Maybe Text
-                           , topicAction :: Maybe Text }
-               deriving (Show, Generic)
-data ExtraConfig = ExtraConfig { applications :: Applications
-                               , topics :: [TopicRule]}
-                 deriving (Show, Generic)
-
-defaultExtraConfig :: ExtraConfig
-defaultExtraConfig =
-    let applications = Applications{..}
-        urxvt = "urxvt"
-        prompt = "xmobar"
-        browser = "qutebrowser"
-        launcher = "xdg-open"
-        screenshot = "scrot ~/screenSel.png"
-        topics = []
-    in ExtraConfig{..}
-
-instance Interpret ExtraConfig
-instance Interpret TopicRule
-instance Interpret Applications

src/XMonad/Customizations.hs

@@ -1,21 +0,0 @@
-{-# Language FlexibleContexts #-}
-module Customizations (customizations) where
-
-import Configurable
-import XMonad
-import XMonad.Util.EZConfig (additionalKeys)
-
-import Customizations.Types
-import qualified Customizations.Topics as Topics
-
-import Control.Lens
-
-customizations :: LayoutClass l Window => XConfig l -> XConfig l
-customizations start = xconfig $ configure (mconcat [topics, Topics.customize, initial])
-  where
-    initial = EndoM $ \_ -> pure (Customize start def)
-    topics :: LayoutClass l Window => Configurable (Customize l)
-    topics = EndoM $ \super -> do
-      _self <- ask
-      pure (over _xconfig _ super)
-

src/XMonad/Projects.hs

@@ -1 +0,0 @@
-module Projects where

src/XMonad/RestartFile.hs

@@ -1,47 +0,0 @@
-module RestartFile (restartFile, resumeArgsFromFile, getArgs, withArgs) where
-
-import XMonad.Core
-import XMonad.Operations
-import qualified XMonad.StackSet as W
-import Graphics.X11.Xlib.Event
-import Control.Monad.Reader (asks)
-import Control.Monad.State (gets)
-import Data.Maybe
-import Data.List (intercalate)
-import qualified Data.Map.Strict as M
-import System.Environment (getArgs, withArgs)
-import Control.Monad
-import Control.Exception
-import System.Posix.Process (executeFile)
-
-stateFile = "xmonadargs.txt"
-
-restartFile :: String -> Bool -> X ()
-restartFile prog resume = do
-    io $ appendFile "/home/masse/xmonad.log" $ "trying to restart"
-    broadcastMessage ReleaseResources
-    io . flush =<< asks display
-    let wsData = show . W.mapLayout show . windowset
-        maybeShow (t, Right (PersistentExtension ext)) = Just (t, show ext)
-        maybeShow (t, Left str) = Just (t, str)
-        maybeShow _ = Nothing
-        extState = return . show . mapMaybe maybeShow . M.toList . extensibleState
-    args <- if resume then return ["--resume"] else return []
-    when resume $ do
-      argsstr <- gets (\s ->  intercalate "\n" ("--resume":wsData s:extState s))
-      catchIO $ writeFile stateFile argsstr
-      return ()
-    catchIO (executeFile prog True args Nothing)
-
-catchAny :: IO a -> (SomeException -> IO a) -> IO a
-catchAny = Control.Exception.catch
-
-resumeArgsFromFile :: IO [String]
-resumeArgsFromFile = do
-  let readLines = liftM lines . readFile $ stateFile
-  args <- getArgs
-  if ["--resume"] == args then
-    catchAny readLines $ \e -> do
-      appendFile "/home/masse/xmonad.log" $ "got error" ++ show e
-      return args
-  else return args

src/XMonad/Screen.hs

@@ -1,38 +0,0 @@
-module Screen (screenWidth, nextScreen, prevScreen) where
-
-import Graphics.X11.Xinerama (xineramaQueryScreens, XineramaScreenInfo(..))
-import Graphics.X11.Xlib (openDisplay, closeDisplay)
-import qualified XMonad.Actions.CycleWS as CycleWS
-import XMonad (X())
-import Control.Monad.Trans (liftIO)
-
-screenWidth :: Int -> IO Int
-screenWidth idx = do
-  dsp <- openDisplay "" -- I don't know what the string does :/
-  info <- xineramaQueryScreens dsp
-  case info of
-       Nothing -> return 0
-       Just [] -> return 0
-       Just screens -> if idx >= 0 && idx < length screens
-                          then (return . fromIntegral . xsi_width) (screens !! idx)
-                          else return 0
-
-swapScreenDir :: IO Bool
-swapScreenDir = do
-  dsp <- openDisplay ""
-  info <- xineramaQueryScreens dsp
-  closeDisplay dsp
-  case info of
-       Nothing -> return False
-       Just [] -> return False
-       Just (s:_) -> return (xsi_width s > 0)
-
-nextScreen :: X ()
-nextScreen = do
-  swap <- liftIO $ swapScreenDir -- Not too fond of querying the x each time we swap screens, but oh well
-  if swap then CycleWS.prevScreen else CycleWS.nextScreen
-
-prevScreen :: X ()
-prevScreen = do
-  swap <- liftIO $ swapScreenDir -- Not too fond of querying the x each time we swap screens, but oh well
-  if swap then CycleWS.nextScreen else CycleWS.prevScreen

src/XMonad/TreeSelectUtils.hs

@@ -1,20 +0,0 @@
-module TreeSelectUtils where
-
-import XMonad.Actions.TreeSelect
-import Data.Tree
-import Data.List (sort, groupBy)
-import Data.Function (on)
-import qualified XMonad.StackSet as W
-import XMonad.Core
-import Control.Monad.State
-
--- fromWorkspace :: [String] -> Forest String
-fromWorkspace = map go . group . sort
-    where
-        group = groupBy ((==) `on` (takeWhile (/= '.')))
-        go (root:xs) = Node root [Node x [] | x <- xs]
-
-treeselectWorkspaces' conf f = withWindowSet $ \w -> do
-    let ws = map W.tag . W.hidden $ w
-    treeselectWorkspace conf (fromWorkspace ws) f
-