From b99a8a6833a1b38882b463fd72784cd6d6f91d9e Mon Sep 17 00:00:00 2001
From: Michal Zielonka <michal.zielonka.8001@gmail.com>
Date: Thu, 7 Oct 2021 23:25:09 +0200
Subject: try to reorganize modules per os

We should make better split os specify code for FreeBSD and Linux.
Idea comes from @liskin.
---
 src/Xmobar/Plugins/Monitors/Swap/FreeBSD.hs | 41 +++++++++++++++++++++++++++++
 src/Xmobar/Plugins/Monitors/Swap/Linux.hs   | 35 ++++++++++++++++++++++++
 2 files changed, 76 insertions(+)
 create mode 100644 src/Xmobar/Plugins/Monitors/Swap/FreeBSD.hs
 create mode 100644 src/Xmobar/Plugins/Monitors/Swap/Linux.hs

(limited to 'src/Xmobar/Plugins/Monitors/Swap')

diff --git a/src/Xmobar/Plugins/Monitors/Swap/FreeBSD.hs b/src/Xmobar/Plugins/Monitors/Swap/FreeBSD.hs
new file mode 100644
index 0000000..0e0c03d
--- /dev/null
+++ b/src/Xmobar/Plugins/Monitors/Swap/FreeBSD.hs
@@ -0,0 +1,41 @@
+-----------------------------------------------------------------------------
+-- |
+-- Module      :  Plugins.Monitors.Swap.FreeBSD
+-- Copyright   :  (c) Andrea Rossato
+-- License     :  BSD-style (see LICENSE)
+--
+-- Maintainer  :  Jose A. Ortega Ruiz <jao@gnu.org>
+-- Stability   :  unstable
+-- Portability :  unportable
+--
+-- A  swap usage monitor for Xmobar
+--
+-----------------------------------------------------------------------------
+
+module Xmobar.Plugins.Monitors.Swap.FreeBSD (parseMEM) where
+
+import System.BSD.Sysctl (sysctlReadUInt, sysctlReadULong)
+
+isEnabled :: IO Bool
+isEnabled = do
+  enabled <- sysctlReadUInt "vm.swap_enabled"
+  return $ enabled == 1
+
+parseMEM' :: Bool -> IO [Float]
+parseMEM' False = return []
+parseMEM' True = do
+  swapIn <- sysctlReadUInt "vm.stats.vm.v_swapin"
+  swapTotal <- sysctlReadULong "vm.swap_total"
+  let tot = toInteger swapTotal
+      free = tot - toInteger swapIn
+
+  return $ res (fromInteger tot) (fromInteger free)
+  where
+    res :: Float -> Float -> [Float]
+    res _ 0 = []
+    res tot free = [(tot - free) / tot, tot, tot - free, free]
+
+parseMEM :: IO [Float]
+parseMEM = do
+  enabled <- isEnabled
+  parseMEM' enabled
diff --git a/src/Xmobar/Plugins/Monitors/Swap/Linux.hs b/src/Xmobar/Plugins/Monitors/Swap/Linux.hs
new file mode 100644
index 0000000..0af0f5d
--- /dev/null
+++ b/src/Xmobar/Plugins/Monitors/Swap/Linux.hs
@@ -0,0 +1,35 @@
+-----------------------------------------------------------------------------
+-- |
+-- Module      :  Plugins.Monitors.Swap.Linux
+-- Copyright   :  (c) Andrea Rossato
+-- License     :  BSD-style (see LICENSE)
+--
+-- Maintainer  :  Jose A. Ortega Ruiz <jao@gnu.org>
+-- Stability   :  unstable
+-- Portability :  unportable
+--
+-- A  swap usage monitor for Xmobar
+--
+-----------------------------------------------------------------------------
+
+module Xmobar.Plugins.Monitors.Swap.Linux (parseMEM) where
+
+import qualified Data.ByteString.Lazy.Char8 as B
+
+fileMEM :: IO B.ByteString
+fileMEM = B.readFile "/proc/meminfo"
+
+parseMEM :: IO [Float]
+parseMEM =
+    do file <- fileMEM
+       let li i l
+               | l /= [] = head l !! i
+               | otherwise = B.empty
+           fs s l
+               | null l    = False
+               | otherwise = head l == B.pack s
+           get_data s = flip (/) 1024 . read . B.unpack . li 1 . filter (fs s)
+           st   = map B.words . B.lines $ file
+           tot  = get_data "SwapTotal:" st
+           free = get_data "SwapFree:" st
+       return [(tot - free) / tot, tot, tot - free, free]
-- 
cgit v1.2.3