summaryrefslogtreecommitdiffhomepage
path: root/src
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2018-11-25 07:42:54 +0000
committerjao <jao@gnu.org>2018-11-25 07:42:54 +0000
commite0d6da82de8d0d1cef98896164c6016b84e47068 (patch)
tree737bf4a58bcb39ed1bb500632f11c54f9a22f192 /src
parent426c931d5b0ebc6d53396c34ec38eb342be501c3 (diff)
downloadxmobar-e0d6da82de8d0d1cef98896164c6016b84e47068.tar.gz
xmobar-e0d6da82de8d0d1cef98896164c6016b84e47068.tar.bz2
Run.EventLoop
Diffstat (limited to 'src')
-rw-r--r--src/lib/Xmobar.hs2
-rw-r--r--src/lib/Xmobar/Config.hs3
-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)