colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[Linux] Remove Turtle dependency from rofi_select_input.hs

Browse Source
This commit is contained in:
Ivan Malison 2017-03-31 16:06:19 -07:00
parent 634ff93858
commit 00ebdf6d36
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
dotfiles/lib/bin/rofi_select_input.hs
View File

@ -1,23 +1,25 @@
#!/usr/bin/env runhaskell #!/usr/bin/env runhaskell
{-# LANGUAGE OverloadedStrings, AllowAmbiguousTypes #-} {-# LANGUAGE OverloadedStrings, AllowAmbiguousTypes #-}
import Control.Monad
import Data.List import Data.List
import Data.List.Split import Data.List.Split
import Data.Maybe import Data.Maybe
import Data.Text (unpack) import Data.Text (unpack)
import Text.Regex import System.Process
import Text.Printf import Text.Printf
import Turtle hiding (printf, find) import Text.Regex
import System.Exit
main :: IO () main :: IO ()
main = do main = do
out <- unpack <$> getSinkText out <- getSinkText
let sinkInfos = splitOn "\nSink" out let sinkInfos = splitOn "\nSink" out
matches = catMaybes $ matchRegex sinkRegex <$> sinkInfos matches = catMaybes $ matchRegex sinkRegex <$> sinkInfos
entries = map buildEntry matches entries = map buildEntry matches
(exitCode, selection) <- shellStrict "rofi -dmenu -i -kb-custom-1 'Alt-o'" (exitCode, selection, _) <- readCreateProcessWithExitCode (shell "rofi -dmenu -i -kb-custom-1 'Alt-o'") $
(select $ map fromString entries) intercalate "\n" entries
let selectedSink = head $ splitOn " " $ unpack selection let selectedSink = head $ splitOn " " selection
unMuteSelected = setMuteAction "0" selectedSink unMuteSelected = setMuteAction "0" selectedSink
selectedIsMuted = fromMaybe True $ selectedIsMuted = fromMaybe True $
isMuted . (!! 1) <$> find ((== selectedSink) . head) matches isMuted . (!! 1) <$> find ((== selectedSink) . head) matches
@ -32,12 +34,14 @@ main = do
mapM_ (setMuteAction "1" . head) matches mapM_ (setMuteAction "1" . head) matches
void unMuteSelected void unMuteSelected
ExitFailure _ -> return () ExitFailure _ -> return ()
where getSinkText = snd <$> shellStrict "pactl list sink-inputs" empty where getSinkText = do
(_, txt, _) <- readCreateProcessWithExitCode (shell "pactl list sink-inputs") ""
return txt
sinkRegex = mkRegexWithOpts "Input .([0-9]*).*?Mute: ([^\n]*).*?application.name =([^\n]*)" False True sinkRegex = mkRegexWithOpts "Input .([0-9]*).*?Mute: ([^\n]*).*?application.name =([^\n]*)" False True
buildEntry (num:status:name:_) = buildEntry (num:status:name:_) =
printf "%s - %s%s" num (trim $ noQuotes name) (muteString status) printf "%s - %s%s" num (trim $ noQuotes name) (muteString status)
buildEntry _ = "" buildEntry _ = ""
setMuteAction status sink = shell (fromString $ setMuteCommand status sink) empty setMuteAction status sink = callCommand $ setMuteCommand status sink
setMuteCommand status sink = "pactl set-sink-input-mute " ++ sink ++ " " ++ status setMuteCommand status sink = "pactl set-sink-input-mute " ++ sink ++ " " ++ status
trim = dropWhileEnd (== ' ') . dropWhile (== ' ') trim = dropWhileEnd (== ' ') . dropWhile (== ' ')
isMuted = (== "yes") isMuted = (== "yes")