Schwarztee/alkaa
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

feat: add calculator and direct web search

Browse Source
This commit is contained in:
Max Hohlfeld 2023-05-17 15:33:02 +02:00
parent 80c8527ce3
commit b3345f64fe
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
roles/xmonad/files/xmonad_t460p.hs
View File

@ -42,6 +42,8 @@ import Text.Regex.Posix
import XMonad.Util.WorkspaceCompare ( getSortByIndex, filterOutWs ) import XMonad.Util.WorkspaceCompare ( getSortByIndex, filterOutWs )
import Data.Maybe (fromMaybe) import Data.Maybe (fromMaybe)
import qualified XMonad.Actions.Search as S
import qualified XMonad.Prompt as P
-- colours -- colours
white :: String = "#dcdccc" white :: String = "#dcdccc"
@ -67,6 +69,7 @@ myScratchpads =
, NS "vimwiki" "alacritty -t vimwiki -e vwwrapper" (title =? "vimwiki") (customFloating $ W.RationalRect (1/6) (1/6) (2/3) (2/3)) , NS "vimwiki" "alacritty -t vimwiki -e vwwrapper" (title =? "vimwiki") (customFloating $ W.RationalRect (1/6) (1/6) (2/3) (2/3))
, NS "pavucontrol" "pavucontrol" (title =? "Lautstärkeregler") (customFloating $ W.RationalRect (1/6) (1/6) (2/3) (2/3)) , NS "pavucontrol" "pavucontrol" (title =? "Lautstärkeregler") (customFloating $ W.RationalRect (1/6) (1/6) (2/3) (2/3))
, NS "cmus" "alacritty -t 'cmus' -e cmus" (title =? "cmus") (customFloating $ W.RationalRect (1/6) (1/6) (2/3) (2/3)) , NS "cmus" "alacritty -t 'cmus' -e cmus" (title =? "cmus") (customFloating $ W.RationalRect (1/6) (1/6) (2/3) (2/3))
, NS "qalculate" "qalculate-gtk" (title =? "Qalculate!") (customFloating $ W.RationalRect (3/6) (1/6) (1/6) (1/6))
] ]
-- Topic Space -- Topic Space
@ -137,6 +140,20 @@ topicPrompt = def
, sorter = fuzzySort , sorter = fuzzySort
} }
searx :: S.SearchEngine
searx = S.searchEngine "searx" "https://search.tfld.de/search?q="
wiktionary :: S.SearchEngine
wiktionary = S.searchEngine "wiktionary" "https://wiktionary.org/w/index.php?search="
searchList :: [(String, S.SearchEngine)]
searchList = [ ("o", S.openstreetmap)
, ("h", S.hackage)
, ("w", S.wikipedia)
, ("y", S.youtube)
, ("s", searx)
, ("t", wiktionary)
]
-- custom keybinds -- custom keybinds
myAdditionalKeys :: [(String, X ())] myAdditionalKeys :: [(String, X ())]
@ -165,6 +182,7 @@ myAdditionalKeys =
, ("M-s v", namedScratchpadAction myScratchpads "vimwiki") , ("M-s v", namedScratchpadAction myScratchpads "vimwiki")
, ("M-s a", namedScratchpadAction myScratchpads "pavucontrol") , ("M-s a", namedScratchpadAction myScratchpads "pavucontrol")
, ("M-s c", namedScratchpadAction myScratchpads "cmus") , ("M-s c", namedScratchpadAction myScratchpads "cmus")
, ("M-s q", namedScratchpadAction myScratchpads "qalculate")
-- open terminal -- open terminal
, ("M-S-<Return>", spawnShell) , ("M-S-<Return>", spawnShell)
@ -198,6 +216,10 @@ myAdditionalKeys =
| (i, k) <- zip (topicNames topicItems) (map show [1 .. 5 :: Int]) | (i, k) <- zip (topicNames topicItems) (map show [1 .. 5 :: Int])
, (f, m) <- [(switchTopic myTopicConfig, ""), (windows . W.shift, "S-")] , (f, m) <- [(switchTopic myTopicConfig, ""), (windows . W.shift, "S-")]
] ]
-- Search commands
++ [("M-d " ++ k, S.promptSearch topicPrompt f) | (k,f) <- searchList ]
++ [("M-S-d " ++ k, S.selectSearch f) | (k,f) <- searchList ]
-- Layouts -- Layouts
mySpacing :: Integer -> l a -> XMonad.Layout.LayoutModifier.ModifiedLayout Spacing l a mySpacing :: Integer -> l a -> XMonad.Layout.LayoutModifier.ModifiedLayout Spacing l a