blob: 0dcfd04c9b6caea7e3666adabc0b5ad52ff0de91 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
{-# 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
|
