Fix missing awful

[etc/awesome.git] / helpers.lua

diff --git a/helpers.lua b/helpers.lua
index dbee617121e5fb661cb4f01cf264cc84ea0fa6c7..4ece329a6dc886f4e106ceb2711d1589a0a99334 100644 (file)
--- a/helpers.lua
+++ b/helpers.lua
@@ -10,8 +10,10 @@ local debug  = require("debug")
 
 local capi   = { timer = timer }
 local io     = { open  = io.open,
 
 local capi   = { timer = timer }
 local io     = { open  = io.open,

-                 lines = io.lines }
+                 lines = io.lines,
+                 popen = io.popen }

 local rawget = rawget
 local rawget = rawget

+local table  = { sort   = table.sort }

 
 -- Lain helper functions for internal use
 -- lain.helpers
 
 -- Lain helper functions for internal use
 -- lain.helpers


@@ -86,6 +88,18 @@ end
 
 -- }}}
 
 
 -- }}}
 

+-- {{{ Pipe operations
+
+-- read the full output of a pipe (command)
+function helpers.read_pipe(cmd)
+   local f = assert(io.popen(cmd))
+   local output = f:read("*all")
+   f:close()
+   return output
+end
+
+-- }}}
+

 -- {{{ A map utility
 
 helpers.map_table = {}
 -- {{{ A map utility
 
 helpers.map_table = {}


@@ -100,4 +114,23 @@ end
 
 -- }}}
 
 
 -- }}}
 

+--{{{ Iterate over table of records sorted by keys
+function helpers.spairs(t)
+    -- collect the keys
+    local keys = {}
+    for k in pairs(t) do keys[#keys+1] = k end
+
+    table.sort(keys)
+
+    -- return the iterator function
+    local i = 0
+    return function()
+        i = i + 1
+        if keys[i] then
+            return keys[i], t[keys[i]]
+        end
+    end
+end
+--}}}
+

 return helpers
 return helpers