summaryrefslogtreecommitdiffhomepage
path: root/src/lib/Xmobar
diff options
context:
space:
mode:
Diffstat (limited to 'src/lib/Xmobar')
-rw-r--r--src/lib/Xmobar/Config.hs52
-rw-r--r--src/lib/Xmobar/Plugins/BufferedPipeReader.hs2
-rw-r--r--src/lib/Xmobar/Plugins/CommandReader.hs2
-rw-r--r--src/lib/Xmobar/Plugins/Date.hs2
-rw-r--r--src/lib/Xmobar/Plugins/DateZone.hs2
-rw-r--r--src/lib/Xmobar/Plugins/EWMH.hs2
-rw-r--r--src/lib/Xmobar/Plugins/Kbd.hs2
-rw-r--r--src/lib/Xmobar/Plugins/Locks.hs2
-rw-r--r--src/lib/Xmobar/Plugins/MBox.hs2
-rw-r--r--src/lib/Xmobar/Plugins/Mail.hs2
-rw-r--r--src/lib/Xmobar/Plugins/MarqueePipeReader.hs2
-rw-r--r--src/lib/Xmobar/Plugins/Monitors.hs2
-rw-r--r--src/lib/Xmobar/Plugins/PipeReader.hs2
-rw-r--r--src/lib/Xmobar/Plugins/StdinReader.hs2
-rw-r--r--src/lib/Xmobar/Plugins/XMonadLog.hs2
-rw-r--r--src/lib/Xmobar/Run/Commands.hs (renamed from src/lib/Xmobar/Commands.hs)2
-rw-r--r--src/lib/Xmobar/Run/Runnable.hs (renamed from src/lib/Xmobar/Runnable.hs)6
-rw-r--r--src/lib/Xmobar/Run/Runnable.hs-boot (renamed from src/lib/Xmobar/Runnable.hs-boot)4
-rw-r--r--src/lib/Xmobar/Run/Template.hs (renamed from src/lib/Xmobar/Template.hs)6
-rw-r--r--src/lib/Xmobar/Run/Types.hs65
-rw-r--r--src/lib/Xmobar/X11/EventLoop.hs4
21 files changed, 94 insertions, 73 deletions
diff --git a/src/lib/Xmobar/Config.hs b/src/lib/Xmobar/Config.hs
index 364ce17..c38bd6f 100644
--- a/src/lib/Xmobar/Config.hs
+++ b/src/lib/Xmobar/Config.hs
@@ -1,5 +1,3 @@
-{-# LANGUAGE TypeOperators, CPP #-}
-
-----------------------------------------------------------------------------
-- |
-- Module : Xmobar.Config
@@ -20,36 +18,17 @@ module Xmobar.Config
Config (..)
, XPosition (..), Align (..), Border(..)
, defaultConfig
- , runnableTypes
, getXdgConfigFile
) where
-import System.Environment
-import System.Directory (getHomeDirectory)
-import System.FilePath ((</>))
-
-import Xmobar.Commands
-import {-# SOURCE #-} Xmobar.Runnable
-import Xmobar.Plugins.Monitors
import Xmobar.Plugins.Date
-import Xmobar.Plugins.PipeReader
-import Xmobar.Plugins.BufferedPipeReader
-import Xmobar.Plugins.MarqueePipeReader
-import Xmobar.Plugins.CommandReader
import Xmobar.Plugins.StdinReader
-import Xmobar.Plugins.XMonadLog
-import Xmobar.Plugins.EWMH
-import Xmobar.Plugins.Kbd
-import Xmobar.Plugins.Locks
-#ifdef INOTIFY
-import Xmobar.Plugins.Mail
-import Xmobar.Plugins.MBox
-#endif
+import System.Environment
+import System.Directory (getHomeDirectory)
+import System.FilePath ((</>))
-#ifdef DATEZONE
-import Xmobar.Plugins.DateZone
-#endif
+import Xmobar.Run.Runnable (Runnable(..))
-- $config
-- Configuration data type and default configuration
@@ -150,29 +129,6 @@ defaultConfig =
"<fc=#00FF00>%uname%</fc> * <fc=#FF0000>%theDate%</fc>"
}
-
--- | An alias for tuple types that is more convenient for long lists.
-type a :*: b = (a, b)
-infixr :*:
-
--- | This is the list of types that can be hidden inside
--- 'Runnable.Runnable', the existential type that stores all commands
--- to be executed by Xmobar. It is used by 'Runnable.readRunnable' in
--- the 'Runnable.Runnable' Read instance. To install a plugin just add
--- the plugin's type to the list of types (separated by ':*:') appearing in
--- this function's type signature.
-runnableTypes :: Command :*: Monitors :*: Date :*: PipeReader :*:
- BufferedPipeReader :*: CommandReader :*: StdinReader :*:
- XMonadLog :*: EWMH :*: Kbd :*: Locks :*:
-#ifdef INOTIFY
- Mail :*: MBox :*:
-#endif
-#ifdef DATEZONE
- DateZone :*:
-#endif
- MarqueePipeReader :*: ()
-runnableTypes = undefined
-
xdgConfigDir :: IO String
xdgConfigDir = do env <- getEnvironment
case lookup "XDG_CONFIG_HOME" env of
diff --git a/src/lib/Xmobar/Plugins/BufferedPipeReader.hs b/src/lib/Xmobar/Plugins/BufferedPipeReader.hs
index 0b55cf7..65ecea2 100644
--- a/src/lib/Xmobar/Plugins/BufferedPipeReader.hs
+++ b/src/lib/Xmobar/Plugins/BufferedPipeReader.hs
@@ -20,8 +20,8 @@ import Control.Concurrent.STM
import System.IO
import System.IO.Unsafe(unsafePerformIO)
-import Xmobar.Commands
import Xmobar.Utils(hGetLineSafe)
+import Xmobar.Run.Commands
import Xmobar.System.Signal
import Xmobar.System.Environment
diff --git a/src/lib/Xmobar/Plugins/CommandReader.hs b/src/lib/Xmobar/Plugins/CommandReader.hs
index 4c71c96..69c8e0c 100644
--- a/src/lib/Xmobar/Plugins/CommandReader.hs
+++ b/src/lib/Xmobar/Plugins/CommandReader.hs
@@ -16,7 +16,7 @@
module Xmobar.Plugins.CommandReader(CommandReader(..)) where
import System.IO
-import Xmobar.Commands
+import Xmobar.Run.Commands
import Xmobar.Utils (hGetLineSafe)
import System.Process(runInteractiveCommand, getProcessExitCode)
diff --git a/src/lib/Xmobar/Plugins/Date.hs b/src/lib/Xmobar/Plugins/Date.hs
index fd7acae..62a4ee7 100644
--- a/src/lib/Xmobar/Plugins/Date.hs
+++ b/src/lib/Xmobar/Plugins/Date.hs
@@ -19,7 +19,7 @@
module Xmobar.Plugins.Date (Date(..)) where
-import Xmobar.Commands
+import Xmobar.Run.Commands
#if ! MIN_VERSION_time(1,5,0)
import System.Locale
diff --git a/src/lib/Xmobar/Plugins/DateZone.hs b/src/lib/Xmobar/Plugins/DateZone.hs
index f3207c8..7215713 100644
--- a/src/lib/Xmobar/Plugins/DateZone.hs
+++ b/src/lib/Xmobar/Plugins/DateZone.hs
@@ -22,7 +22,7 @@
module Xmobar.Plugins.DateZone (DateZone(..)) where
-import Xmobar.Commands
+import Xmobar.Run.Commands
import Xmobar.Utils(tenthSeconds)
#ifdef DATEZONE
diff --git a/src/lib/Xmobar/Plugins/EWMH.hs b/src/lib/Xmobar/Plugins/EWMH.hs
index ab5dc32..4a443d6 100644
--- a/src/lib/Xmobar/Plugins/EWMH.hs
+++ b/src/lib/Xmobar/Plugins/EWMH.hs
@@ -22,7 +22,7 @@ import Control.Monad.State
import Control.Monad.Reader
import Graphics.X11 hiding (Modifier, Color)
import Graphics.X11.Xlib.Extras
-import Xmobar.Commands
+import Xmobar.Run.Commands
#ifdef UTF8
#undef UTF8
import Codec.Binary.UTF8.String as UTF8
diff --git a/src/lib/Xmobar/Plugins/Kbd.hs b/src/lib/Xmobar/Plugins/Kbd.hs
index f8ad971..f4dad36 100644
--- a/src/lib/Xmobar/Plugins/Kbd.hs
+++ b/src/lib/Xmobar/Plugins/Kbd.hs
@@ -20,7 +20,7 @@ import Control.Monad (forever)
import Graphics.X11.Xlib
import Graphics.X11.Xlib.Extras
-import Xmobar.Commands
+import Xmobar.Run.Commands
import Xmobar.Utils (nextEvent')
import Xmobar.System.Kbd
diff --git a/src/lib/Xmobar/Plugins/Locks.hs b/src/lib/Xmobar/Plugins/Locks.hs
index 1f73f1f..19bce20 100644
--- a/src/lib/Xmobar/Plugins/Locks.hs
+++ b/src/lib/Xmobar/Plugins/Locks.hs
@@ -19,7 +19,7 @@ import Data.List
import Data.Bits
import Control.Monad
import Graphics.X11.Xlib.Extras
-import Xmobar.Commands
+import Xmobar.Run.Commands
import Xmobar.System.Kbd
import Xmobar.Utils (nextEvent')
diff --git a/src/lib/Xmobar/Plugins/MBox.hs b/src/lib/Xmobar/Plugins/MBox.hs
index ba50207..4bd0ebd 100644
--- a/src/lib/Xmobar/Plugins/MBox.hs
+++ b/src/lib/Xmobar/Plugins/MBox.hs
@@ -16,7 +16,7 @@
module Xmobar.Plugins.MBox (MBox(..)) where
import Prelude
-import Xmobar.Commands
+import Xmobar.Run.Commands
#ifdef INOTIFY
import Xmobar.Utils (changeLoop, expandHome)
diff --git a/src/lib/Xmobar/Plugins/Mail.hs b/src/lib/Xmobar/Plugins/Mail.hs
index aa28b98..d59e70d 100644
--- a/src/lib/Xmobar/Plugins/Mail.hs
+++ b/src/lib/Xmobar/Plugins/Mail.hs
@@ -15,7 +15,7 @@
module Xmobar.Plugins.Mail(Mail(..)) where
-import Xmobar.Commands
+import Xmobar.Run.Commands
#ifdef INOTIFY
import Xmobar.Utils (expandHome, changeLoop)
diff --git a/src/lib/Xmobar/Plugins/MarqueePipeReader.hs b/src/lib/Xmobar/Plugins/MarqueePipeReader.hs
index 3cce008..a48e81c 100644
--- a/src/lib/Xmobar/Plugins/MarqueePipeReader.hs
+++ b/src/lib/Xmobar/Plugins/MarqueePipeReader.hs
@@ -17,7 +17,7 @@ module Xmobar.Plugins.MarqueePipeReader where
import System.IO (openFile, IOMode(ReadWriteMode), Handle)
import Xmobar.System.Environment
import Xmobar.Utils(tenthSeconds, hGetLineSafe)
-import Xmobar.Commands(Exec(alias, start))
+import Xmobar.Run.Commands(Exec(alias, start))
import System.Posix.Files (getFileStatus, isNamedPipe)
import Control.Concurrent(forkIO, threadDelay)
import Control.Concurrent.STM (TChan, atomically, writeTChan, tryReadTChan, newTChan)
diff --git a/src/lib/Xmobar/Plugins/Monitors.hs b/src/lib/Xmobar/Plugins/Monitors.hs
index b263bd8..fe909d8 100644
--- a/src/lib/Xmobar/Plugins/Monitors.hs
+++ b/src/lib/Xmobar/Plugins/Monitors.hs
@@ -17,7 +17,7 @@
module Xmobar.Plugins.Monitors where
-import Xmobar.Commands
+import Xmobar.Run.Commands
import Xmobar.Plugins.Monitors.Common (runM, runMD)
#ifdef WEATHER
diff --git a/src/lib/Xmobar/Plugins/PipeReader.hs b/src/lib/Xmobar/Plugins/PipeReader.hs
index d04f747..f18b9cb 100644
--- a/src/lib/Xmobar/Plugins/PipeReader.hs
+++ b/src/lib/Xmobar/Plugins/PipeReader.hs
@@ -15,8 +15,8 @@
module Xmobar.Plugins.PipeReader(PipeReader(..)) where
import System.IO
-import Xmobar.Commands(Exec(..))
import Xmobar.Utils(hGetLineSafe)
+import Xmobar.Run.Commands(Exec(..))
import Xmobar.System.Environment(expandEnv)
import System.Posix.Files
import Control.Concurrent(threadDelay)
diff --git a/src/lib/Xmobar/Plugins/StdinReader.hs b/src/lib/Xmobar/Plugins/StdinReader.hs
index ff96b2b..bed7f5c 100644
--- a/src/lib/Xmobar/Plugins/StdinReader.hs
+++ b/src/lib/Xmobar/Plugins/StdinReader.hs
@@ -23,9 +23,9 @@ import System.Posix.Process
import System.Exit
import System.IO
import Control.Exception (SomeException(..), handle)
-import Xmobar.Commands
import Xmobar.Actions (stripActions)
import Xmobar.Utils (hGetLineSafe)
+import Xmobar.Run.Commands
data StdinReader = StdinReader | UnsafeStdinReader
deriving (Read, Show)
diff --git a/src/lib/Xmobar/Plugins/XMonadLog.hs b/src/lib/Xmobar/Plugins/XMonadLog.hs
index 908d2a4..a4f17bb 100644
--- a/src/lib/Xmobar/Plugins/XMonadLog.hs
+++ b/src/lib/Xmobar/Plugins/XMonadLog.hs
@@ -20,7 +20,7 @@ module Xmobar.Plugins.XMonadLog (XMonadLog(..)) where
import Control.Monad
import Graphics.X11
import Graphics.X11.Xlib.Extras
-import Xmobar.Commands
+import Xmobar.Run.Commands
#ifdef UTF8
#undef UTF8
import Codec.Binary.UTF8.String as UTF8
diff --git a/src/lib/Xmobar/Commands.hs b/src/lib/Xmobar/Run/Commands.hs
index 5917bb8..198edee 100644
--- a/src/lib/Xmobar/Commands.hs
+++ b/src/lib/Xmobar/Run/Commands.hs
@@ -17,7 +17,7 @@
--
-----------------------------------------------------------------------------
-module Xmobar.Commands (Command (..), Exec (..)) where
+module Xmobar.Run.Commands (Command (..), Exec (..)) where
import Prelude
import Control.Exception (handle, SomeException(..))
diff --git a/src/lib/Xmobar/Runnable.hs b/src/lib/Xmobar/Run/Runnable.hs
index 164f661..962166e 100644
--- a/src/lib/Xmobar/Runnable.hs
+++ b/src/lib/Xmobar/Run/Runnable.hs
@@ -19,12 +19,12 @@
--
-----------------------------------------------------------------------------
-module Xmobar.Runnable where
+module Xmobar.Run.Runnable where
import Control.Monad
import Text.Read
-import Xmobar.Config (runnableTypes)
-import Xmobar.Commands
+import Xmobar.Run.Types (runnableTypes)
+import Xmobar.Run.Commands
data Runnable = forall r . (Exec r, Read r, Show r) => Run r
diff --git a/src/lib/Xmobar/Runnable.hs-boot b/src/lib/Xmobar/Run/Runnable.hs-boot
index 0f67322..f272d81 100644
--- a/src/lib/Xmobar/Runnable.hs-boot
+++ b/src/lib/Xmobar/Run/Runnable.hs-boot
@@ -1,6 +1,6 @@
{-# LANGUAGE ExistentialQuantification #-}
-module Xmobar.Runnable where
-import Xmobar.Commands
+module Xmobar.Run.Runnable where
+import Xmobar.Run.Commands
data Runnable = forall r . (Exec r,Read r,Show r) => Run r
diff --git a/src/lib/Xmobar/Template.hs b/src/lib/Xmobar/Run/Template.hs
index bd4852a..5bada89 100644
--- a/src/lib/Xmobar/Template.hs
+++ b/src/lib/Xmobar/Run/Template.hs
@@ -15,14 +15,14 @@
------------------------------------------------------------------------------
-module Xmobar.Template(parseCommands) where
+module Xmobar.Run.Template(parseCommands) where
import qualified Data.Map as Map
import Text.ParserCombinators.Parsec
-import Xmobar.Commands
+import Xmobar.Run.Commands
+import Xmobar.Run.Runnable
import Xmobar.Config
-import Xmobar.Runnable
-- | Parses the output template string
templateStringParser :: Config -> Parser (String,String,String)
diff --git a/src/lib/Xmobar/Run/Types.hs b/src/lib/Xmobar/Run/Types.hs
new file mode 100644
index 0000000..4fb526a
--- /dev/null
+++ b/src/lib/Xmobar/Run/Types.hs
@@ -0,0 +1,65 @@
+{-# LANGUAGE TypeOperators, CPP #-}
+------------------------------------------------------------------------------
+-- |
+-- Module: Xmobar.Run.Types
+-- Copyright: (c) 2018 Jose Antonio Ortega Ruiz
+-- License: BSD3-style (see LICENSE)
+--
+-- Maintainer: jao@gnu.org
+-- Stability: unstable
+-- Portability: portable
+-- Created: Sun Nov 25, 2018 07:17
+--
+--
+-- An enumeration of all runnable types
+--
+------------------------------------------------------------------------------
+
+
+module Xmobar.Run.Types(runnableTypes) where
+
+import Xmobar.Run.Commands
+
+import {-# SOURCE #-} Xmobar.Run.Runnable()
+import Xmobar.Plugins.Monitors
+import Xmobar.Plugins.Date
+import Xmobar.Plugins.PipeReader
+import Xmobar.Plugins.BufferedPipeReader
+import Xmobar.Plugins.MarqueePipeReader
+import Xmobar.Plugins.CommandReader
+import Xmobar.Plugins.StdinReader
+import Xmobar.Plugins.XMonadLog
+import Xmobar.Plugins.EWMH
+import Xmobar.Plugins.Kbd
+import Xmobar.Plugins.Locks
+
+#ifdef INOTIFY
+import Xmobar.Plugins.Mail
+import Xmobar.Plugins.MBox
+#endif
+
+#ifdef DATEZONE
+import Xmobar.Plugins.DateZone
+#endif
+
+-- | An alias for tuple types that is more convenient for long lists.
+type a :*: b = (a, b)
+infixr :*:
+
+-- | This is the list of types that can be hidden inside
+-- 'Runnable.Runnable', the existential type that stores all commands
+-- to be executed by Xmobar. It is used by 'Runnable.readRunnable' in
+-- the 'Runnable.Runnable' Read instance. To install a plugin just add
+-- the plugin's type to the list of types (separated by ':*:') appearing in
+-- this function's type signature.
+runnableTypes :: Command :*: Monitors :*: Date :*: PipeReader :*:
+ BufferedPipeReader :*: CommandReader :*: StdinReader :*:
+ XMonadLog :*: EWMH :*: Kbd :*: Locks :*:
+#ifdef INOTIFY
+ Mail :*: MBox :*:
+#endif
+#ifdef DATEZONE
+ DateZone :*:
+#endif
+ MarqueePipeReader :*: ()
+runnableTypes = undefined
diff --git a/src/lib/Xmobar/X11/EventLoop.hs b/src/lib/Xmobar/X11/EventLoop.hs
index cc08acd..f97c56b 100644
--- a/src/lib/Xmobar/X11/EventLoop.hs
+++ b/src/lib/Xmobar/X11/EventLoop.hs
@@ -37,11 +37,11 @@ import Data.Map hiding (foldr, map, filter)
import Data.Maybe (fromJust, isJust)
import Xmobar.Config
-import Xmobar.Commands
import Xmobar.Actions
-import Xmobar.Runnable
import Xmobar.Utils
import Xmobar.System.Signal
+import Xmobar.Run.Commands
+import Xmobar.Run.Runnable
import Xmobar.X11.Parsers
import Xmobar.X11.Window
import Xmobar.X11.XUtil