wmii.lua

   1 --
   2 -- Copyrigh (c) 2007, Bart Trojanowski <bart@jukie.net>
   3 --
   4 -- Simple wmiir like interface.
   5 --
   6 -- The current intent is to wrap around the wmiir executable.
   7 -- This is just a proof of concept, and eventually this will
   8 -- be rewritten in C to use libixp.
   9 --
  10 local base = _G
  11 local io = require("io")
  12 local os = require("os")
  13
  14 module("wmii")
  15
  16 -- TODO I would like to be able to return an interator
  17 function ls (dir, fmt)
  18         local tmpfile = os.tmpname()
  19         local fmt = fmt or ""
  20
  21         os.execute ("wmiir ls " .. fmt .. " " .. dir .. " > " .. tmpfile)
  22
  23         local fh = io.open (tmpfile, "rb")
  24         os.remove (tmpfile)
  25
  26         local data = fh:read("*a")      -- read everything
  27
  28         io.close (fh)
  29
  30         return data
  31 end
  32
  33 -- TODO I would like to return a line iterator
  34 function read (file)
  35         local tmpfile = os.tmpname()
  36
  37         os.execute ("wmiir read " .. file .. " > " .. tmpfile)
  38
  39         local fh = io.open (tmpfile, "rb")
  40         os.remove (tmpfile)
  41
  42         return function ()
  43                 local line = fh:read("*l")      -- read a line
  44                 if not line then
  45                         io.write ("-- closing " .. file .. "\n")
  46                         io.close (fh)
  47                 end
  48                 return line
  49         end
  50 end
  51
  52 -- write a value to a wmii virtual file system
  53 function write (file, value)
  54         os.execute ("echo -n '" .. value .. "' | wmiir write " .. file)
  55 end
  56