From d534721312c23a464124bfd46cdd0bec658a7c5e Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Sat, 28 Apr 2018 01:57:49 -0700
Subject: [PATCH] [linux] 80chars

---
 dotfiles/lib/bin/rofi_select_input.hs | 29 +++++++++++++++++----------
 1 file changed, 18 insertions(+), 11 deletions(-)

diff --git a/dotfiles/lib/bin/rofi_select_input.hs b/dotfiles/lib/bin/rofi_select_input.hs
index 3736a1b9..add9def6 100755
--- a/dotfiles/lib/bin/rofi_select_input.hs
+++ b/dotfiles/lib/bin/rofi_select_input.hs
@@ -5,7 +5,6 @@ import Control.Monad
 import Data.List
 import Data.List.Split
 import Data.Maybe
-import Data.Text (unpack)
 import System.Process
 import Text.Printf
 import Text.Regex
@@ -17,12 +16,13 @@ main = do
   let sinkInfos = splitOn "\nSink" out
       matches = catMaybes $ matchRegex sinkRegex <$> sinkInfos
       entries = map buildEntry matches
-  (exitCode, selection, _) <- readCreateProcessWithExitCode (shell "rofi -dmenu -i -kb-custom-1 'Alt-o'") $
-                           intercalate "\n" entries
+  (exitCode, selection, _) <-
+    readCreateProcessWithExitCode
+    (shell "rofi -dmenu -i -kb-custom-1 'Alt-o'") $ intercalate "\n" entries
   let selectedSink = head $ splitOn " " selection
       unMuteSelected = setMuteAction "0" selectedSink
-      selectedIsMuted = fromMaybe True $
-                        isMuted . (!! 1) <$> find ((== selectedSink) . head) matches
+      selectedIsMuted =
+        maybe True (isMuted . (!! 1)) $ find ((== selectedSink) . head) matches
       setAll state = mapM_ (setMuteAction state . head) matches
   case exitCode of
     ExitSuccess ->
@@ -32,18 +32,25 @@ main = do
         setAll "1"
         void unMuteSelected
     ExitFailure _ -> setAll "0"
-    where getSinkText = do
-                  (_, txt, _) <- readCreateProcessWithExitCode (shell "pactl list sink-inputs") ""
-                  return txt
-          sinkRegex = mkRegexWithOpts "Input .([0-9]*).*?Mute: ([^\n]*).*?application.name =([^\n]*)" False True
+    where getSinkText =
+            do
+              (_, txt, _) <- readCreateProcessWithExitCode
+                             (shell "pactl list sink-inputs") ""
+              return txt
+          sinkRegex =
+            mkRegexWithOpts
+            "Input .([0-9]*).*?Mute: ([^\n]*).*?application.name =([^\n]*)"
+            False True
           buildEntry (num:status:name:_) =
             printf "%s - %s%s" num (trim $ noQuotes name) (muteString status)
           buildEntry _ = ""
           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 (== ' ')
           isMuted = (== "yes")
-          muteString status = if isMuted status then  " (Muted)" else "" :: String
+          muteString status =
+            if isMuted status then  " (Muted)" else "" :: String
           noQuotes = filter (not . (`elem` ("\"" :: String)))
           toSetString True = "0"
           toSetString False = "1"