From 50134d5b5c4baabdfb35c0aeb8bf53d29f009c4d Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Wed, 21 Nov 2018 23:51:41 +0000
Subject: All sources moved inside src

---
 src/Xmobar/Plugins/Monitors/Mem.hs | 96 --------------------------------------
 1 file changed, 96 deletions(-)
 delete mode 100644 src/Xmobar/Plugins/Monitors/Mem.hs

(limited to 'src/Xmobar/Plugins/Monitors/Mem.hs')

diff --git a/src/Xmobar/Plugins/Monitors/Mem.hs b/src/Xmobar/Plugins/Monitors/Mem.hs
deleted file mode 100644
index d69921b..0000000
--- a/src/Xmobar/Plugins/Monitors/Mem.hs
+++ /dev/null
@@ -1,96 +0,0 @@
------------------------------------------------------------------------------
--- |
--- Module      :  Plugins.Monitors.Mem
--- Copyright   :  (c) Andrea Rossato
--- License     :  BSD-style (see LICENSE)
---
--- Maintainer  :  Jose A. Ortega Ruiz <jao@gnu.org>
--- Stability   :  unstable
--- Portability :  unportable
---
--- A memory monitor for Xmobar
---
------------------------------------------------------------------------------
-
-module Xmobar.Plugins.Monitors.Mem (memConfig, runMem, totalMem, usedMem) where
-
-import Xmobar.Plugins.Monitors.Common
-import qualified Data.Map as M
-import System.Console.GetOpt
-
-data MemOpts = MemOpts
-  { usedIconPattern :: Maybe IconPattern
-  , freeIconPattern :: Maybe IconPattern
-  , availableIconPattern :: Maybe IconPattern
-  }
-
-defaultOpts :: MemOpts
-defaultOpts = MemOpts
-  { usedIconPattern = Nothing
-  , freeIconPattern = Nothing
-  , availableIconPattern = Nothing
-  }
-
-options :: [OptDescr (MemOpts -> MemOpts)]
-options =
-  [ Option "" ["used-icon-pattern"] (ReqArg (\x o ->
-     o { usedIconPattern = Just $ parseIconPattern x }) "") ""
-  , Option "" ["free-icon-pattern"] (ReqArg (\x o ->
-     o { freeIconPattern = Just $ parseIconPattern x }) "") ""
-  , Option "" ["available-icon-pattern"] (ReqArg (\x o ->
-     o { availableIconPattern = Just $ parseIconPattern x }) "") ""
-  ]
-
-parseOpts :: [String] -> IO MemOpts
-parseOpts argv =
-  case getOpt Permute options argv of
-    (o, _, []) -> return $ foldr id defaultOpts o
-    (_, _, errs) -> ioError . userError $ concat errs
-
-memConfig :: IO MConfig
-memConfig = mkMConfig
-       "Mem: <usedratio>% (<cache>M)" -- template
-       ["usedbar", "usedvbar", "usedipat", "freebar", "freevbar", "freeipat",
-        "availablebar", "availablevbar", "availableipat",
-        "usedratio", "freeratio", "availableratio",
-        "total", "free", "buffer", "cache", "available", "used"] -- available replacements
-
-fileMEM :: IO String
-fileMEM = readFile "/proc/meminfo"
-
-parseMEM :: IO [Float]
-parseMEM =
-    do file <- fileMEM
-       let content = map words $ take 8 $ lines file
-           info = M.fromList $ map (\line -> (head line, (read $ line !! 1 :: Float) / 1024)) content
-           [total, free, buffer, cache] = map (info M.!) ["MemTotal:", "MemFree:", "Buffers:", "Cached:"]
-           available = M.findWithDefault (free + buffer + cache) "MemAvailable:" info
-           used = total - available
-           usedratio = used / total
-           freeratio = free / total
-           availableratio = available / total
-       return [usedratio, freeratio, availableratio, total, free, buffer, cache, available, used]
-
-totalMem :: IO Float
-totalMem = fmap ((*1024) . (!!1)) parseMEM
-
-usedMem :: IO Float
-usedMem = fmap ((*1024) . (!!6)) parseMEM
-
-formatMem :: MemOpts -> [Float] -> Monitor [String]
-formatMem opts (r:fr:ar:xs) =
-    do let f = showDigits 0
-           mon i x = [showPercentBar (100 * x) x, showVerticalBar (100 * x) x, showIconPattern i x]
-       sequence $ mon (usedIconPattern opts) r
-           ++ mon (freeIconPattern opts) fr
-           ++ mon (availableIconPattern opts) ar
-           ++ map showPercentWithColors [r, fr, ar]
-           ++ map (showWithColors f) xs
-formatMem _ _ = replicate 10 `fmap` getConfigValue naString
-
-runMem :: [String] -> Monitor String
-runMem argv =
-    do m <- io parseMEM
-       opts <- io $ parseOpts argv
-       l <- formatMem opts m
-       parseTemplate l
-- 
cgit v1.2.3