diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Xmobar.hs | 2 | ||||
| -rw-r--r-- | src/Xmobar/Plugins/ArchUpdates.hs | 36 | ||||
| -rw-r--r-- | src/Xmobar/Run/Types.hs | 4 |
3 files changed, 2 insertions, 40 deletions
diff --git a/src/Xmobar.hs b/src/Xmobar.hs index a6f86eb..5a31d80 100644 --- a/src/Xmobar.hs +++ b/src/Xmobar.hs @@ -26,7 +26,6 @@ module Xmobar (xmobar , module Xmobar.Config.Types , module Xmobar.Config.Parse , module Xmobar.Plugins.Accordion - , module Xmobar.Plugins.ArchUpdates , module Xmobar.Plugins.BufferedPipeReader , module Xmobar.Plugins.CommandReader , module Xmobar.Plugins.Date @@ -56,7 +55,6 @@ import Xmobar.Run.Exec import Xmobar.Config.Types import Xmobar.Config.Parse import Xmobar.Plugins.Accordion -import Xmobar.Plugins.ArchUpdates import Xmobar.Plugins.Command import Xmobar.Plugins.BufferedPipeReader import Xmobar.Plugins.CommandReader diff --git a/src/Xmobar/Plugins/ArchUpdates.hs b/src/Xmobar/Plugins/ArchUpdates.hs deleted file mode 100644 index 0dcfd04..0000000 --- a/src/Xmobar/Plugins/ArchUpdates.hs +++ /dev/null @@ -1,36 +0,0 @@ -{-# LANGUAGE CPP #-} - ------------------------------------------------------------------------------ - ------------------------------------------------------------------------------ - -{- | -Module : Plugins.Monitors.ArchUpdates -Copyright : (c) 2024 Enrico Maria De Angelis -License : BSD-style (see LICENSE) - -Maintainer : Enrico Maria De Angelis <enricomaria.dean6elis@gmail.com> -Stability : unstable -Portability : unportable - -An ArchLinux updates availablility plugin for Xmobar --} -module Xmobar.Plugins.ArchUpdates (ArchUpdates (..)) where - -import Xmobar.Plugins.Command (Rate) -import Xmobar.Plugins.PacmanUpdates (PacmanUpdates (PacmanUpdates)) -import Xmobar.Run.Exec - -data ArchUpdates = ArchUpdates (String, String, String) Rate - deriving (Read, Show) - -intoPacmanUpdates :: ArchUpdates -> PacmanUpdates -intoPacmanUpdates (ArchUpdates (z, o, m) r) = - PacmanUpdates (z <> deprecation, o, m, "pacman: Unknown cause of failure.") r - where - deprecation = " <fc=#ff0000>(<action=`xdg-open https://codeberg.org/xmobar/xmobar/pulls/723`>deprecated plugin, click here</action>)</fc>" - -instance Exec ArchUpdates where - alias = const "arch" - rate = rate . intoPacmanUpdates - run = run . intoPacmanUpdates diff --git a/src/Xmobar/Run/Types.hs b/src/Xmobar/Run/Types.hs index bb573c8..6b51b2d 100644 --- a/src/Xmobar/Run/Types.hs +++ b/src/Xmobar/Run/Types.hs @@ -19,7 +19,7 @@ module Xmobar.Run.Types(runnableTypes) where import {-# SOURCE #-} Xmobar.Run.Runnable() -import Xmobar.Plugins.ArchUpdates +import Xmobar.Plugins.PacmanUpdates import Xmobar.Plugins.Command import Xmobar.Plugins.Monitors import Xmobar.Plugins.Date @@ -60,7 +60,7 @@ infixr :*: runnableTypes :: Command :*: Monitors :*: Date :*: PipeReader :*: BufferedPipeReader :*: CommandReader :*: StdinReader :*: XMonadLog :*: EWMH :*: Kbd :*: Locks :*: NotmuchMail :*: - ArchUpdates :*: + PacmanUpdates :*: #ifdef INOTIFY Mail :*: MBox :*: #endif |
