xmobar -> test own Modules 7

home/programs/xmonad/src/xmobar/Plugins/Utils.hs

@@ -0,0 +1,43 @@
+------------------------------------------------------------------------------
+-- |
+-- Module: Plugins.Utils
+-- Copyright: (c) 2010 Jose Antonio Ortega Ruiz
+-- License: BSD3-style (see LICENSE)
+--
+-- Maintainer: Jose A Ortega Ruiz <jao@gnu.org>
+-- Stability: unstable
+-- Portability: unportable
+-- Created: Sat Dec 11, 2010 20:55
+--
+--
+-- Miscellaneous utility functions
+--
+------------------------------------------------------------------------------
+
+
+module Plugins.Utils (expandHome, changeLoop, safeHead) where
+
+import Control.Monad
+import Control.Concurrent.STM
+
+import System.Environment
+import System.FilePath
+
+
+expandHome :: FilePath -> IO FilePath
+expandHome ('~':'/':path) = fmap (</> path) (getEnv "HOME")
+expandHome p              = return p
+
+changeLoop :: Eq a => STM a -> (a -> IO ()) -> IO ()
+changeLoop s f = atomically s >>= go
+ where
+    go old = do
+        f old
+        go =<< atomically (do
+            new <- s
+            guard (new /= old)
+            return new)
+
+safeHead :: [a] -> Maybe a
+safeHead    [] = Nothing
+safeHead (x:_) = Just x

home/programs/xmonad/src/xmobar/xmobar-custom.cabal

@@ -23,10 +23,10 @@ name:               xmobar-custom
 version:            0.1.0.0
 
 -- The package author(s).
-author:             4Lost
+author:             einfischy
 
 -- An email address to which users can send suggestions, bug reports, and patches.
-maintainer:         elias.schroeter@e.email
+maintainer:         accounts.codeberg@kstn.in
 
 -- A copyright notice.
 -- copyright:
@@ -42,18 +42,13 @@ executable xmobar
     -- .hs or .lhs file containing the Main module.
     main-is:          xmobar.hs
 
-    other-modules:    Commands,
-                      ColorCache,
-                      Signal,
-                      XUtil,
-                      Plugins,
-                      Plugins.Audio
+    other-modules: XUtil, Plugins.Utils
+
     -- Other library packages from which modules are imported.
     build-depends:    base ^>=4.17.2.1,
-                      xmobar ^>=0.47.1,
-                      process ^>=1.6.18.0,
-                      mtl,
-                      X11 >= 1.6.1
+                      X11 >= 1.6.1,
+                      xmobar ^>=0.47.1
+
     -- Directories containing source files.
     hs-source-dirs:   .