rohithreddy
11/16/2018 - 4:03 AM
taffybar.hs
{-# LANGUAGE PackageImports #-}
{-# LANGUAGE OverloadedStrings #-}
module Main where
import Control.Exception.Base
import Control.Monad
import Control.Monad.IO.Class
import Control.Monad.Trans.Class
import Control.Monad.Trans.Reader
import qualified Data.ByteString.Char8 as BS
import Data.List
import Data.List.Split
import qualified Data.Map as M
import Data.Maybe
--import qualified GitHub.Auth as Auth
import StatusNotifier.Tray
import System.Directory
import System.Environment
import System.FilePath.Posix
import System.IO
import System.Log.Handler.Simple
import System.Log.Logger
import System.Process
import System.Taffybar
import System.Taffybar.Auth
import System.Taffybar.Context (appendHook)
import System.Taffybar.DBus
import System.Taffybar.DBus.Toggle
--import System.Taffybar.TaffyPager
import System.Taffybar.Hooks
import System.Taffybar.Information.CPU
import System.Taffybar.Information.EWMHDesktopInfo
import System.Taffybar.Information.Memory
import System.Taffybar.Information.X11DesktopInfo
import System.Taffybar.SimpleConfig
import System.Taffybar.Util
import System.Taffybar.Widget
import System.Taffybar.Widget.Generic.PollingGraph
import System.Taffybar.Widget.Generic.PollingLabel
import System.Taffybar.Widget.Util
import System.Taffybar.Widget.Workspaces
import System.Taffybar.Widget.Volume
import System.Taffybar.Widget.XDGMenu.MenuWidget
import Text.Printf
import Text.Read hiding (lift)
mkRGBA (r, g, b, a) = (r/256, g/256, b/256, a/256)
blue = mkRGBA (42, 99, 140, 256)
yellow1 = mkRGBA (242, 163, 54, 256)
yellow2 = mkRGBA (254, 204, 83, 256)
yellow3 = mkRGBA (227, 134, 18, 256)
red = mkRGBA (210, 77, 37, 256)
myGraphConfig =
defaultGraphConfig
{ graphPadding = 0
, graphBorderWidth = 0
, graphWidth = 75
, graphBackgroundColor = (0.0, 0.0, 0.0, 0.0)
}
netCfg = myGraphConfig
{ graphDataColors = [yellow1, yellow2]
, graphLabel = Just "net"
}
memCfg = myGraphConfig
{ graphDataColors = [(0.129, 0.588, 0.953, 1)]
, graphLabel = Just "mem"
}
cpuCfg = myGraphConfig
{ graphDataColors = [(0, 1, 0, 1), (1, 0, 1, 0.5)]
, graphLabel = Just "cpu"
}
memCallback :: IO [Double]
memCallback = do
mi <- parseMeminfo
return [memoryUsedRatio mi]
cpuCallback = do
(_, systemLoad, totalLoad) <- cpuLoad
return [totalLoad, systemLoad]
getFullWorkspaceNames :: X11Property [(WorkspaceIdx, String)]
getFullWorkspaceNames = go <$> readAsListOfString Nothing "_NET_DESKTOP_FULL_NAMES"
where go = zip [WSIdx i | i <- [0..]]
workspaceNamesLabelSetter workspace =
fromMaybe "" . lookup (workspaceIdx workspace) <$>
liftX11Def [] getFullWorkspaceNames
enableLogger logger level = do
logger <- getLogger logger
saveGlobalLogger $ setLevel level logger
logDebug = do
logger <- getLogger "System.Taffybar.Widget.Generic.AutoSizeImage"
saveGlobalLogger $ setLevel DEBUG logger
logger2 <- getLogger "StatusNotifier.Tray"
saveGlobalLogger $ setLevel DEBUG logger2
workspacesLogger <- getLogger "System.Taffybar.Widget.Workspaces"
saveGlobalLogger $ setLevel WARNING workspacesLogger
-- github = do
-- Right (token, _) <- passGet "github-token"
-- githubNotificationsNew $ defaultGithubConfig $ Auth.OAuth $ BS.pack token
main = do
homeDirectory <- getHomeDirectory
-- logDebug
-- logM "What" WARNING "Why"
-- enableLogger "System.Taffybar.Widget.Util" DEBUG
-- enableLogger "System.Taffybar.Information.XDG.DesktopEntry" DEBUG
-- enableLogger "System.Taffybar.WindowIcon" DEBUG
let resourcesDirectory = homeDirectory </> ".lib" </> "resources"
inResourcesDirectory file = resourcesDirectory </> file
highContrastDirectory =
"/" </> "usr" </> "share" </> "icons" </> "HighContrast" </> "256x256"
inHighContrastDirectory file = highContrastDirectory </> file
getIconFileName w@WindowData {windowTitle = title, windowClass = klass}
-- | "URxvt" `isInfixOf` klass = Just "urxvt.png"
-- | "Termite" `isInfixOf` klass = Just "urxvt.png"
-- | "Kodi" `isInfixOf` klass = Just "kodi.png"
| "@gmail.com" `isInfixOf` title &&
"chrome" `isInfixOf` klass && "Gmail" `isInfixOf` title =
Just "gmail.png"
| otherwise = Nothing
myIcons = scaledWindowIconPixbufGetter $
unscaledDefaultGetWindowIconPixbuf <|||>
(\size _ -> lift $ loadPixbufByName size "application-default-icon")
cpu = pollingGraphNew cpuCfg 0.5 cpuCallback
mem = pollingGraphNew memCfg 1 memCallback
layout = layoutNew defaultLayoutConfig
-- pager = taffyPagerNew defaultPagerConfig
windows = windowsNew defaultWindowsConfig
menu = menuWidgetNew $ Just "GNOME-"
notifySystemD = void $ runCommandFromPath ["systemd-notify", "--ready"]
myWorkspacesConfig =
defaultWorkspacesConfig
{ underlineHeight = 3
, underlinePadding = 1
, minIcons = 0
, maxIcons = Nothing
, getWindowIconPixbuf = myIcons
, windowIconSize = 20
, widgetGap = 0
, showWorkspaceFn = showEmpty
, updateRateLimitMicroseconds = 100000
, urgentWorkspaceState = True
, labelSetter = workspaceNamesLabelSetter
}
workspaces = workspacesNew myWorkspacesConfig
myPagerConfig :: PagerConfig
myPagerConfig = defaultPagerConfig { activeWorkspace =
colorize "yellow" "" . wrap " [" "] " . escape
, hiddenWorkspace = wrap " " " " . escape
}
baseConfig =
defaultSimpleTaffyConfig
{ startWidgets =
workspaces : map (>>= buildContentsBox) [windows, menu ,layout]
, endWidgets =
map
(>>= buildContentsBox)
[ textBatteryNew "$percentage$%"
, batteryIconNew
, textClockNew Nothing "%a %b %_d %r" 1
, sniTrayNew
-- , github
, cpu
, mem
, networkGraphNew netCfg Nothing
, volumeControlNew
-- , networkMonitorNew defaultNetFormat Nothing >>= setMinWidth 200
-- , fsMonitorNew 60 ["/dev/sdd2"]
, mpris2New
]
, barPosition = Right
, barPadding = 0
, barHeight = 24
}
simpleTaffyConfig = baseConfig
-- { endWidgets = []
-- , startWidgets = [flip widgetSetClass "Workspaces" =<< workspaces]
-- }
startTaffybar $
appendHook notifySystemD $
appendHook (void $ getHost False) $
withBatteryRefresh $
withLogServer $
withToggleServer $
toTaffyConfig simpleTaffyConfig
-- Local Variables:
-- flycheck-ghc-args: ("-Wno-missing-signatures")
-- End:
import XMonad
import XMonad.Config.Desktop
import qualified XMonad.StackSet as W
import qualified Data.Map as M
import Data.Monoid
import XMonad.Actions.CycleWS
import XMonad.Actions.FlexibleResize as Flex
import XMonad.Actions.Search
import XMonad.Actions.UpdatePointer
import XMonad.Actions.WindowGo
import XMonad.Actions.GridSelect
import qualified XMonad.Actions.Submap as SM
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.EwmhDesktops (ewmh,fullscreenEventHook)
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageHelpers
import XMonad.Hooks.SetWMName
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.UrgencyHook
import XMonad.Hooks.ScreenCorners
import XMonad.Layout.LayoutHints
import XMonad.Layout.IM
import XMonad.Layout.NoBorders
import XMonad.Layout.ResizableTile
import XMonad.Layout.Tabbed
import XMonad.Layout.ToggleLayouts
import XMonad.Layout.WindowArranger
import XMonad.Layout.Mosaic
import XMonad.Layout.Circle
import XMonad.Layout.Grid
import XMonad.Layout.SimpleFloat
import XMonad.Layout.Spiral
import XMonad.Layout.Tabbed
import XMonad.Layout.ThreeColumns
import XMonad.Layout.Named -- custom layout names
import XMonad.Prompt
import XMonad.Prompt.Layout
import XMonad.Prompt.Input
import XMonad.Prompt.RunOrRaise
import XMonad.Prompt.Shell
import XMonad.Prompt.Window
import XMonad.Util.Run
import XMonad.Util.Font
import XMonad.Util.Themes
import XMonad.Util.Scratchpad
import XMonad.Util.WorkspaceCompare
import XMonad.Util.EZConfig
import Graphics.X11.ExtraTypes.XF86
import System.Taffybar.Support.PagerHints (pagerHints)
import System.Environment
import System.Cmd
import System.IO
import System.Exit
import Control.Concurrent
myKeys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
-- terminals
[ ((modMask, xK_Return), spawn $ XMonad.terminal conf)
, ((modMask .|. shiftMask, xK_Return), spawn "tilix")
-- launcher
, ((modMask .|. shiftMask, xK_p), spawn "gmrun")
-- file manager
--, ((modMask, xK_Up ), runOrRaise "nautilus ~" (className =? "Nautilus"))
--, ((modMask .|. shiftMask, xK_Up ), spawn "nautilus ~")
, ((modMask, xK_Up ), spawn "nautilus ~")
-- shell/window prompts
, ((modMask, xK_F2 ), runOrRaisePrompt mySP)
-- Volume keys
, ((0, 0x1008ff11), spawn "amixer -q set Master 5%-")
, ((0, 0x1008ff13), spawn "amixer -q set Master 5%+")
, ((0, 0x1008ff12), spawn "amixer -q set Master toggle")
-- browser
, ((modMask, xK_f ), runOrRaise
"firefox" (className =? "Firefox"))
-- browser
, ((modMask, xK_c ), runOrRaise
"google-chrome-stable"(className =? "Chrome"))
-- print screen
, ((0, xK_Print ), unsafeSpawn "scrot -e 'mv $f ~/Pictures'")
-- cycle through workspaces
, ((modMask, xK_Right ), moveTo Next (WSIs (return $ not . (=="SP") . W.tag)))
, ((modMask, xK_Left ), moveTo Prev (WSIs (return $ not . (=="SP") . W.tag)))
-- move windows through workspaces
, ((modMask .|. shiftMask, xK_Right ), shiftTo Next (WSIs (return $ not . (=="SP") . W.tag)))
, ((modMask .|. shiftMask, xK_Left ), shiftTo Prev (WSIs (return $ not . (=="SP") . W.tag)))
, ((modMask .|. controlMask, xK_Right), shiftTo Next EmptyWS)
, ((modMask .|. controlMask, xK_Left), shiftTo Prev EmptyWS)
-- Rotate through layouts
, ((modMask, xK_space ), sendMessage NextLayout)
-- Move focus to the next/previous window
, ((modMask, xK_j ), windows W.focusDown)
, ((modMask, xK_Tab ), windows W.focusDown)
, ((mod1Mask, xK_Tab ), windows W.focusDown)
, ((modMask, xK_k ), windows W.focusUp)
, ((modMask .|. shiftMask, xK_Tab ), windows W.focusUp)
, ((mod1Mask .|. shiftMask, xK_Tab ), windows W.focusUp)
-- Swap the focused window with next/prev window
, ((modMask .|. shiftMask, xK_j ), windows W.swapDown)
, ((modMask .|. shiftMask, xK_k ), windows W.swapUp)
-- Shrink/Expand the master area
, ((modMask, xK_h ), sendMessage Shrink)
, ((modMask, xK_l ), sendMessage Expand)
, ((modMask .|. shiftMask, xK_h ), sendMessage MirrorShrink)
, ((modMask .|. shiftMask, xK_l ), sendMessage MirrorExpand)
-- Swap the focused window and the master window
, ((modMask, xK_semicolon), windows W.swapMaster)
-- Increment/Deincrement the number of windows in the master area
, ((modMask, xK_comma ), sendMessage (IncMasterN 1))
, ((modMask, xK_period), sendMessage (IncMasterN (-1)))
-- Resize viewed windows to the correct size
, ((modMask, xK_n ), refresh)
-- Reset layout of current workspace
, ((modMask .|. shiftMask, xK_n ), setLayout $ XMonad.layoutHook conf)
-- Mosaic
, ((modMask , xK_a ), sendMessage Taller)
, ((modMask , xK_z ), sendMessage Wider)
, ((modMask .|. controlMask, xK_n ), sendMessage Reset)
--Grid Select
, ((modMask , xK_g ), goToSelected $ gsconfig1 )
-- toggle focused window fullscreen
, ((modMask, xK_m ), sendMessage (Toggle "Full"))
-- Push window back into tiling
, ((modMask, xK_t ), withFocused $ windows . W.sink)
--, ((modMask .|. shiftMask, xK_s ), sendMessage Arrange)
-- toggle the status bar gap
, ((modMask, xK_b ), sendMessage ToggleStruts)
-- close focused window
, ((modMask .|. shiftMask, xK_c ), kill)
-- Restart xmonad
, ((modMask , xK_q ),
broadcastMessage ReleaseResources >> restart "xmonad" True)
-- Logout of xmonad
, ((modMask .|. shiftMask , xK_q ),sequence_ [io (exitWith ExitSuccess), spawn "gnome-session-quit --force"])
]
++
-- mod-[1..9], Switch to workspace N
-- mod-shift-[1..9], Move client to workspace N
[ ((m .|. modMask, k), windows $ f i)
| (i, k) <- zip (XMonad.workspaces conf) [xK_1 .. xK_9]
, (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)] ]
++
-- mod-{w,e,r}, Switch to physical/Xinerama screens 1, 2, or 3
-- mod-shift-{w,e,r}, Move client to screen 1, 2, or 3
[((m .|. modMask, key), screenWorkspace sc >>= flip whenJust (windows . f))
| (key, sc) <- zip [xK_w, xK_e, xK_r] [0..]
, (f, m) <- [(W.view, 0), (W.shift, shiftMask)] ]
myMouseBindings (XConfig {XMonad.modMask = modMask}) = M.fromList $
-- mod-button1, Set the window to floating mode and move by dragging
[ ((modMask, button1), (\w -> focus w >> mouseMoveWindow w))
-- mod-button2, Raise the window to the top of the stack
, ((modMask, button2), (\w -> focus w >> windows W.swapMaster))
-- mod-button3, Set the window to floating mode and resize by dragging
, ((modMask, button3), (\w -> focus w >> Flex.mouseResizeWindow w)) ]
-- Tags/Workspaces
-- clickable workspaces via dzen/xdotool
myWorkspaces :: [String]
myWorkspaces = clickable . (map dzenEscape) $ ["1","2","3","4","5","6","7","8","9"]
where clickable l = [ "^ca(1,xdotool key super+" ++ show (n) ++ ")" ++ ws ++ "^ca()" |
(i,ws) <- zip [1..] l,
let n = i ]
-- shell prompt theme
mySP = defaultXPConfig
{ bgColor = "black"
, fgColor = "white"
, bgHLight = "gray"
, fgHLight = "black"
, borderColor = "orange"
, promptBorderWidth = 1
, position = Bottom
, height = 20
--, autoComplete = Just 1000
, historySize = 1000 }
-- layouts
myLayout = toggleLayouts (noBorders Full) $ tiled ||| Circle ||| simpleFloat ||| Grid ||| layoutHints (tabbed shrinkText myTab) ||| mosaic 2 [3,2] ||| spiral (6/7) ||| ThreeColMid nmaster (delta) (ratio)
where
tiled = ResizableTall nmaster delta ratio []
nmaster = 1
delta = 3/100
ratio = 1/2
-- special windows
myManageHook = composeAll
[ className =? "MPlayer" --> doFloat
, className =? "Gimp" --> doFloat
, className =? "Pidgin" --> doFloat
, className =? "Empathy" --> doFloat
, title =? "glxgears" --> doFloat
, title =? "inferno" --> doFloat
, title =? "Contact List" --> doFloat
, className =? "Empathy" --> doFloat
, className =? "Gnome-panel" --> doIgnore
, className =? "XVkbd" --> doIgnore
, className =? "Cellwriter" --> doIgnore
, className =? "Gtkdialog" --> doFloat
, resource =? "desktop_window" --> doIgnore
, isFullscreen --> doFullFloat
-- x y w h
, scratchpadManageHook $ W.RationalRect 0 0 1 0.42
, manageDocks ] <+> manageHook defaultConfig
-- Grid Select Section
--gsconfig2 colorizer = (buildDefaultGSConfig colorizer) { gs_cellheight = 60 ,gs_cellwidth = 250, gs_font = "xft:Droid Sans:pixelsize=20",gs_cellpadding = 5 }
gsconfig1 = defaultGSConfig { gs_cellheight = 60 ,gs_cellwidth = 250, gs_font = "xft:Noto Sans:pixelsize=20",gs_cellpadding = 5 }
-- | A green monochrome colorizer based on window classimport XMonad.Layout.IM
myColorizer = colorRangeFromClassName
(0x57,0xFF,0x1F) -- lowest inactive bg
(0x24,0x57,0xFF) -- highest inactive bg
(0x52,0x37,0xA4) -- active bg
black -- inactive fg
white -- active fg
where black = minBound
white = maxBound
appFontXft :: String
appFontXft = "xft:Noto Sans:pixelsize=11"
--appFontXft = concat [ "xft:"
--,"Sans:"
--,"pixelsize=11:"
--,"weight=regular:"
--,"width=semicondensed:"
--,"dpi=96:hinting=true:"
--,"hintstyle=hintslight:"
--,"antialias=true:"
--,"rgba=rgb:"
--,"lcdfilter=lcdlight"]
-- Color of current window title in xmobar.--#FFB6B0
xmobarTitleColor = "red"
-- Color of current workspace in xmobar.
xmobarCurrentWorkspaceColor = "red"
-- decoration theme
myDeco = defaultTheme
{ activeColor = "orange"
, inactiveColor = "#222222"
, urgentColor = "yellow"
-- , activeBorderColor = "orange"
, activeBorderColor = "blue"
, inactiveBorderColor = "#222222"
, urgentBorderColor = "yellow"
, activeTextColor = "orange"
, inactiveTextColor = "#222222"
, urgentTextColor = "yellow"
, decoHeight = 10 }
myEventHook e = do
screenCornerEventHook e
myStartupHook = do
spawn "/usr/lib/gnome-settings-daemon/gsd-xsettings"
-- spawn "/usr/libexec/notification-daemon"
-- spawn "thermald --no-daemon --dbus-enable"
spawn "/usr/libexec/gnome-fallback-mount-helper"
-- spawn "/usr/local/bin/tomate"
spawn "/usr/bin/gnome-sound-applet"
-- spawn "whenjobs --daemon-start"
spawn "/usr/bin/nm-applet"
spawn "/usr/bin/synapse"
spawn "/usr/bin/start-pulseaudio-x11"
spawn "/usr/bin/gsettings-data-convert"
spawn "/usr/bin/xdg-user-dirs-gtk-update"
spawn "/usr/bin/trayer --edge top --align right --SetDockType true --SetPartialStrut true --expand true --width 230 --widthtype pixel --transparent true --height 22"
spawn "/usr/bin/compton"
spawn "/usr/bin/gnome-keyring-daemon --start --components=gpg,pkcs11,secrets,ssh"
spawn "feh --bg-scale /home/rohith/Pictures/Photos@home/100D5100/DSC_1637.JPG"
spawn "/usr/bin/kdeconnect-indicator"
spawn "/usr/lib/notification-daemon/notification-daemon"
-- spawn "/usr/bin/tasque"
-- spawn "/bin/bash /root/scriptz/synclient.sh"
-- spawn "/usr/bin/zim"
-- spawn "/usr/local/bin/artha"
-- tab theme
myTab = defaultTheme
{ activeColor = "black"
, inactiveColor = "black"
, urgentColor = "yellow"
, activeBorderColor = "orange"
, inactiveBorderColor = "#222222"
, urgentBorderColor = "black"
, activeTextColor = "orange"
, inactiveTextColor = "#222222"
, urgentTextColor = "yellow" }
--myLogHook = ewmhDesktopsLogHookCustom scratchpadFilterOutWorkspace >> updatePointer Nearest
myLogHook h = dynamicLogWithPP $ myDzenPP { ppOutput = hPutStrLn h }
myDzenStatus = "dzen2 -w '930' -ta 'l'" ++ myDzenStyle
myDzenConky = "conky -c ~/.xmonad/conkyrc | dzen2 -x '930' -w '760' -ta 'r'" ++ myDzenStyle
myDzenStyle = " -h '22' -fg '#777777' -bg '#222222' -fn 'Noto Sans:size=11'"
--myStartMenu = "/home/roh/.xmonad/start /home/roh/.xmonad/start_apps"
myDzenPP = dzenPP
{ ppCurrent = dzenColor "#3399ff" "" . wrap " " " "
, ppHidden = dzenColor "#dddddd" "" . wrap " " " "
, ppHiddenNoWindows = dzenColor "#777777" "" . wrap " " " "
, ppUrgent = dzenColor "#ff0000" "" . pad . dzenStrip
, ppSep = " "
, ppLayout = dzenColor "orange" "#303030" . wrap "^ca(1,xdotool key super+space)· " " ·^ca()"
, ppTitle = dzenColor "orange" ""
. wrap "^ca(1,xdotool key super+k)^ca(2,xdotool key super+shift+c)"
" ^ca()^ca()" . dzenEscape
}
main = do
status <- spawnPipe myDzenStatus -- xmonad status on the left
conky <- spawnPipe myDzenConky -- conky stats on the right
-- dzenStartMenu <- spawnPipe myStartMenu
env <- getEnvironment
case lookup "DESKTOP_AUTOSTART_ID" env of
Just id -> do
forkIO $ (>> return ()) $ rawSystem "dbus-send" ["--session","--print-reply=string","--dest=org.gnome.SessionManager","/org/gnome/SessionManager","org.gnome.SessionManager.RegisterClient","string:xmonad","string:"++id]
return ()
Nothing -> return ()
xmonad $ withUrgencyHook NoUrgencyHook $ pagerHints $ ewmh $ desktopConfig {
terminal = "gnome-terminal"
, borderWidth = 1
, normalBorderColor = "black"
, focusedBorderColor = "orange"
, focusFollowsMouse = True
, modMask = mod4Mask
, keys = myKeys
, mouseBindings = myMouseBindings
, workspaces = myWorkspaces
, startupHook = myStartupHook
, layoutHook = smartBorders $avoidStruts $ myLayout
, manageHook = manageDocks <+> myManageHook
<+> manageHook defaultConfig
, handleEventHook = myEventHook <+> fullscreenEventHook <+> handleEventHook desktopConfig
, logHook = myLogHook status
}