From 98e26ee0436822b00d4a6e707d86cf33d24bc00f Mon Sep 17 00:00:00 2001
From: "Adrian C. (anrxc)" <anrxc@sysphere.org>
Date: Wed, 29 Jul 2009 17:59:32 +0200
Subject: Import of vicious source tree.

Vicious is a modular widget library for 'awesome' window manager,
derived from the 'Wicked' widget library.

Summary of changes:
  * Original wicked code modularized
  * Widgets ported from Wicked:
    - CPU, MEM, FS, NET, Date, Uptime, MPD
      * CPU widget rewritten, uses pattern matching
      * MEM widget rewritten, uses pattern matching
        - Swap widget merged with MEM widget type
      * FS widget rewritten, uses pattern matching
        - Also fixed padding in the process
      * NET widget rewritten, uses pattern matching
      * MPD widget rewritten, a bit more versatile
      * Removed deprecated helper functions
  * Widgets written for Vicious:
    - Thermal, Battery, Mbox, OrgMode, Volume, Entropy,
      Disk I/O, System Load, Wireless, Pacman, Maildir
---
 helpers.lua | 115 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 115 insertions(+)
 create mode 100644 helpers.lua

(limited to 'helpers.lua')

diff --git a/helpers.lua b/helpers.lua
new file mode 100644
index 0000000..d2bfc9f
--- /dev/null
+++ b/helpers.lua
@@ -0,0 +1,115 @@
+----------------------------------------------------------
+-- Licensed under the GNU General Public License version 2
+--  * Copyright (C) 2009 Adrian C. <anrxc_sysphere_org>
+----------------------------------------------------------
+
+-- {{{ Grab environment
+local pairs = pairs
+local tonumber = tonumber
+local tostring = tostring
+local table = { insert = table.insert }
+local math = {
+    pow = math.pow,
+    floor = math.floor
+}
+local string = {
+    sub = string.sub,
+    gsub = string.gsub,
+    find = string.find
+}
+-- }}}
+
+
+-- Helpers: provides helper functions for vicious widgets
+module("vicious.helpers")
+
+
+-- {{{ Helper functions
+-- {{{ Format a string with args
+function format(format, args)
+    -- TODO: Find a more efficient way to do this
+
+    -- Format a string
+    for var, val in pairs(args) do
+        format = string.gsub(format, "$"..var, val)
+    end
+
+    -- Return formatted string
+    return format
+end
+-- }}}
+
+-- {{{ Padd a number to a minimum amount of digits
+function padd(number, padding)
+    s = tostring(number)
+
+    if padding == nil then
+        return s
+    end
+
+    for i=1, padding do
+        if math.floor(number/math.pow(10,(i-1))) == 0 then
+            s = "0"..s
+        end
+    end
+
+    if number == 0 then
+        s = s:sub(2)
+    end
+
+    return s
+end
+-- }}}
+
+-- {{{ Convert amount of bytes to string
+function bytes_to_string(bytes, sec, padding)
+    if bytes == nil or tonumber(bytes) == nil then
+        return ""
+    end
+
+    bytes = tonumber(bytes)
+
+    local signs = {}
+    signs[1] = "  b"
+    signs[2] = "KiB"
+    signs[3] = "MiB"
+    signs[4] = "GiB"
+    signs[5] = "TiB"
+
+    sign = 1
+
+    while bytes/1024 > 1 and signs[sign+1] ~= nil do
+        bytes = bytes/1024
+        sign = sign+1
+    end
+
+    bytes = bytes*10
+    bytes = math.floor(bytes)/10
+
+    if padding then
+        bytes = padd(bytes*10, padding+1)
+        bytes = bytes:sub(1, bytes:len()-1).."."..bytes:sub(bytes:len())
+    end
+
+    if sec then
+        return tostring(bytes)..signs[sign].."ps"
+    else
+        return tostring(bytes)..signs[sign]
+    end
+end
+-- }}}
+
+--{{{ Escape a string
+function escape(text)
+    if text then
+        text = text:gsub("&", "&amp;")
+        text = text:gsub("<", "&lt;")
+        text = text:gsub(">", "&gt;")
+        text = text:gsub("'", "&apos;")
+        text = text:gsub("\"", "&quot;")
+    end
+
+    return text
+end
+-- }}}
+-- }}}
-- 
cgit v1.2.3