Rename Internal to Rahm.Desktop

1 files changed, 0 insertions, 45 deletions

diff --git a/src/Internal/DMenu.hs b/src/Internal/DMenu.hs
deleted file mode 100644
index 0d22b55..0000000
--- a/src/Internal/DMenu.hs
+++ /dev/null
@@ -1,45 +0,0 @@
-module Internal.DMenu where
-
-import XMonad.Util.Dmenu
-import XMonad
-import Control.Monad
-import Data.Map (Map)
-import qualified Data.Map as Map
-import XMonad.Util.Run
-import Data.List (intercalate)
-import Text.Printf (printf)
-
-data Colors =
-  Colors {
-    fg :: String,
-    bg :: String
-  }  | DefaultColors
-
-menuCommand :: [String]
-menuCommand = ["rofi", "-monitor", "-4", "-dmenu", "-sort", "-levenshtein-sort"]
-
-menuCommandString :: String
-menuCommandString = unwords menuCommand
-
-runDMenu :: X ()
-runDMenu = void $
-  safeSpawn
-    "rofi"
-    ["-monitor", "-4", "-display-run", "Execute", "-show", "run"]
-
-runDMenuPrompt :: String -> Maybe String -> [String] -> X String
-runDMenuPrompt prompt color select =
-  let realColor = maybe [] (\c -> ["-sb", c, "-nf", c]) color
-       in
-    runProcessWithInput "/home/rahm/.local/bin/dmenu_debug.sh" ([
-      "-p", prompt,
-      "-l", "12",
-      "-dim", "0.4" ]  ++ realColor) (intercalate "\n" select)
-
-
-runDMenuPromptWithMap :: String -> Maybe String -> Map String a -> X (Maybe a)
-runDMenuPromptWithMap prompt color map = do
-  let realColor = maybe [] (
-          \c -> ["-theme-str", printf "* {theme-color: %s;}" c]) color
-  menuMapArgs (head menuCommand)
-    (tail menuCommand ++ ["-p", prompt] ++ realColor) map