Import of vicious source tree.v1.0.0

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

1 files changed, 45 insertions, 0 deletions

diff --git a/mbox.lua b/mbox.lua
new file mode 100644
index 0000000..fae3355
--- /dev/null
+++ b/mbox.lua
@@ -0,0 +1,45 @@
+----------------------------------------------------------
+-- Licensed under the GNU General Public License version 2
+--  * Copyright (C) 2009 Adrian C. <anrxc_sysphere_org>
+----------------------------------------------------------
+
+-- {{{ Grab environment
+local io = { open = io.open }
+local string = { gfind = string.gfind }
+local helpers = require("vicious.helpers")
+-- }}}
+
+
+-- Mbox: provides the subject of last e-mail in a mbox file
+module("vicious.mbox")
+
+
+-- {{{ Mailbox widget type
+function worker(format, mbox)
+    local f = io.open(mbox)
+    -- mbox could be huge, get a 15kb chunk from EOF
+    --  * attachments could be much bigger than this
+    f:seek("end", -15360)
+
+    -- Get data
+    local text = f:read("*all")
+    f:close()
+
+    -- Find subject lines
+    for match in string.gfind(text, "Subject: ([^\n]*)") do
+        subject = match
+    end
+
+    if subject then
+        -- Spam sanitize only the last subject
+        subject = helpers.escape(subject)
+
+        -- Don't abuse the wibox, truncate
+        if subject:len() > 22 then
+            subject = subject:sub(1, 19) .. "..."
+        end
+
+        return {subject}
+    end
+end
+-- }}}