wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

[taffybar] Get all interfaces automatically

Browse Source
This commit is contained in:
Ivan Malison 2017-03-30 11:36:27 -07:00
parent 66f2800b54
commit a5e55df922
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
dotfiles/config/taffybar/taffybar.hs
View File

@ -2,6 +2,7 @@ import qualified Control.Concurrent.MVar as MV
import Control.Exception.Base import Control.Exception.Base
import Control.Monad import Control.Monad
import Data.List import Data.List
import Data.List.Split
import qualified Data.Map as M import qualified Data.Map as M
import Data.Maybe import Data.Maybe
import qualified Graphics.UI.Gtk as Gtk import qualified Graphics.UI.Gtk as Gtk
@ -10,8 +11,10 @@ import qualified Graphics.UI.Gtk.Layout.Table as T
import System.Directory import System.Directory
import System.Environment import System.Environment
import System.FilePath.Posix import System.FilePath.Posix
import System.IO
import System.Information.CPU import System.Information.CPU
import System.Information.Memory import System.Information.Memory
import System.Process
import System.Taffybar import System.Taffybar
import System.Taffybar.LayoutSwitcher import System.Taffybar.LayoutSwitcher
import System.Taffybar.MPRIS2 import System.Taffybar.MPRIS2
@ -74,9 +77,14 @@ movableWidget builder =
return $ Gtk.toWidget hbox return $ Gtk.toWidget hbox
return moveWidget return moveWidget
getInterfaces = do
(_, output, _) <- readCreateProcessWithExitCode (shell "list_interfaces.sh") ""
return $ splitOn "\n" output
main = do main = do
monEither <- monEither <-
(try $ getEnv "TAFFYBAR_MONITOR") :: IO (Either SomeException String) (try $ getEnv "TAFFYBAR_MONITOR") :: IO (Either SomeException String)
interfaceNames <- getInterfaces
homeDirectory <- getHomeDirectory homeDirectory <- getHomeDirectory
let resourcesDirectory file = let resourcesDirectory file =
homeDirectory </> ".lib" </> "resources" </> file homeDirectory </> ".lib" </> "resources" </> file
@ -131,7 +139,7 @@ main = do
, innerPadding = 5 , innerPadding = 5
, outerPadding = 5 , outerPadding = 5
} }
netMonitor = netMonitorMultiNew 1.5 ["enp0s31f6"] netMonitor = netMonitorMultiNew 1.5 interfaceNames
pagerConfig = defaultPagerConfig {useImages = True} pagerConfig = defaultPagerConfig {useImages = True}
pager = taffyPagerNew pagerConfig pager = taffyPagerNew pagerConfig
makeUnderline = underlineWidget hudConfig makeUnderline = underlineWidget hudConfig