diff options
| author | jao <jao@gnu.org> | 2018-11-25 07:42:54 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2018-11-25 07:42:54 +0000 |
| commit | e0d6da82de8d0d1cef98896164c6016b84e47068 (patch) | |
| tree | 737bf4a58bcb39ed1bb500632f11c54f9a22f192 /src | |
| parent | 426c931d5b0ebc6d53396c34ec38eb342be501c3 (diff) | |
| download | xmobar-e0d6da82de8d0d1cef98896164c6016b84e47068.tar.gz xmobar-e0d6da82de8d0d1cef98896164c6016b84e47068.tar.bz2 | |
Run.EventLoop
Diffstat (limited to 'src')
| -rw-r--r-- | src/lib/Xmobar.hs | 2 | ||||
| -rw-r--r-- | src/lib/Xmobar/Config.hs | 3 | ||||
| -rw-r--r-- | src/lib/Xmobar/Run/EventLoop.hs (renamed from src/lib/Xmobar/X11/EventLoop.hs) | 2 |
3 files changed, 4 insertions, 3 deletions
diff --git a/src/lib/Xmobar.hs b/src/lib/Xmobar.hs index f125a72..b4543f6 100644 --- a/src/lib/Xmobar.hs +++ b/src/lib/Xmobar.hs @@ -47,9 +47,9 @@ import Control.Exception (bracket) import Xmobar.Config import Xmobar.Run.Runnable import Xmobar.Run.Template +import Xmobar.Run.EventLoop (startLoop, startCommand) import Xmobar.System.Signal (setupSignalHandler, withDeferSignals) import Xmobar.X11.Types -import Xmobar.X11.EventLoop (startLoop, startCommand) import Xmobar.X11.XUtil import Xmobar.X11.Window import Xmobar.Plugins.BufferedPipeReader diff --git a/src/lib/Xmobar/Config.hs b/src/lib/Xmobar/Config.hs index c38bd6f..a07af9e 100644 --- a/src/lib/Xmobar/Config.hs +++ b/src/lib/Xmobar/Config.hs @@ -48,7 +48,8 @@ data Config = , border :: Border -- ^ NoBorder TopB BottomB or FullB , borderColor :: String -- ^ Border color , borderWidth :: Int -- ^ Border width - , alpha :: Int -- ^ Transparency from 0 (transparent) to 255 (opaque) + , alpha :: Int -- ^ Transparency from 0 (transparent) + -- to 255 (opaque) , hideOnStart :: Bool -- ^ Hide (Unmap) the window on -- initialization , allDesktops :: Bool -- ^ Tell the WM to map to all desktops diff --git a/src/lib/Xmobar/X11/EventLoop.hs b/src/lib/Xmobar/Run/EventLoop.hs index f97c56b..a4385d1 100644 --- a/src/lib/Xmobar/X11/EventLoop.hs +++ b/src/lib/Xmobar/Run/EventLoop.hs @@ -17,7 +17,7 @@ ------------------------------------------------------------------------------ -module Xmobar.X11.EventLoop (startLoop, startCommand) where +module Xmobar.Run.EventLoop (startLoop, startCommand) where import Prelude hiding (lookup) import Graphics.X11.Xlib hiding (textExtents, textWidth) |