Public Git Hosting - wmiirc-lua.git/blob

1 #!/usr/bin/env lua

2 --

4 --

5 -- Some stuff below will eventually go to a separate file, and configuration

6 -- will remain here similar to the split between the wmii+ruby wmiirc and

7 -- wmiirc-config. For now I just want to get the feel of how things will

8 -- work in lua.

9 --

10 -- git://www.jukie.net/wmiirc-lua.git/

12 require "posix"

14 print ('-----------------------')

16 -- this is us

local wmiirc = os.getenv("HOME") .. "/.wmii-3.5/wmiirc"

19 -- debug

20 function my_log (str)

        io.stderr:write (str .. "\n")

22 end

24 -- load wmii.lua

25 my_log("wmii: loading wmii.lua")

package.path = package.path .. ";" .. os.getenv("HOME") .. "/.wmii-3.5/?.lua"

27 require "wmii"

29 my_log("wmii: wmii.lua loaded")

31 -- stop any other instance of wmiirc

wmii.write ("/event", "Start wmiirc")

34 -- this is the base configuration

35 local config = {

36 xterm = 'x-terminal-emulator'

37 }

38 my_log("wmii: setting confg")

39 local wconfig = {

40 view = 1,

41 border = 1,

42 font = '-windows-proggytiny-medium-r-normal--10-80-96-96-c-60-iso8859-1',

43 focuscolors = '#FFFFaa #007700 #88ff88',

44 normcolors = '#888888 #222222 #333333',

45 grabmod = 'Mod1'

46 }

47 wmii.configure (wconfig)

49 my_log("wmii: config set")

wmii.write ("/colrules", "/.*/ -> 58+42")

wmii.write ("/tagrules", "/XMMS.*/ -> ~\n"

53 .. "/MPlayer.*/ -> ~\n"

54 .. "/.*/ -> sel\n"

                      .. "/.*/ -> 1\n")

58 -- ------------------------------------------------------------------------

59 -- action handlers

61 local action_handlers = {

62 quit = function ()

                wmii.write ("/ctl", "quit")

64 end,

        exec = function (act, args)

67 local what = args or wmiirc

                wmii.write ("/ctl", "exec " .. what)

69 end,

71 wmiirc = function ()

                posix.exec ("lua", wmiirc)

73 end,

75 rehash = function ()

76 -- TODO: consider storing list of executables around, and

77 -- this will then reinitialize that list

78 my_log (" TODO: rehash")

79 end,

81 status = function ()

82 -- TODO: this should eventually update something on the /rbar

83 my_log (" TODO: status")

84 end

85 }

87 -- ------------------------------------------------------------------------

88 -- key handlers

90 local key_handlers = {

        ["*"] = function (key)

                my_log ("*: " .. key)

93 end,

95 -- execution and actions

        ["Mod1-Return"] = function (key)

                my_log ("    executing: " .. config.xterm)

                os.execute (config.xterm .. " &")

99 end,

        ["Mod1-a"] = function (key)

                local text = wmii.menu (action_handlers)

102 if text then

103 local act = text

104 local args = nil

                        local si = text:find("%s")

106 if si then

                                act,args = string.match(text .. " ", "(%w+)%s(.+)")

108 end

109 if act then

110 local fn = action_handlers[act]

111 if fn then

112 fn (act,args)

113 end

114 end

115 end

116 end,

        ["Mod1-p"] = function (key)

                local prog = wmii.progmenu()

119 if prog then

                        my_log ("    executing: " .. prog)

                        os.execute (prog .. " &")

122 end

123 end,

        ["Mod1-Shift-c"] = function (key)

                wmii.write ("/client/sel/ctl", "kill")

126 end,

127

128 -- HJKL active selection

        ["Mod1-h"] = function (key)

                wmii.write ("/tag/sel/ctl", "select left")

131 end,

        ["Mod1-l"] = function (key)

                wmii.write ("/tag/sel/ctl", "select right")

134 end,

        ["Mod1-j"] = function (key)

                wmii.write ("/tag/sel/ctl", "select down")

137 end,

        ["Mod1-k"] = function (key)

                wmii.write ("/tag/sel/ctl", "select up")

140 end,

141

142 -- HJKL movement

        ["Mod1-Shift-h"] = function (key)

                wmii.write ("/tag/sel/ctl", "send sel left")

145 end,

        ["Mod1-Shift-l"] = function (key)

                wmii.write ("/tag/sel/ctl", "send sel right")

148 end,

        ["Mod1-Shift-j"] = function (key)

                wmii.write ("/tag/sel/ctl", "send sel down")

151 end,

        ["Mod1-Shift-k"] = function (key)

                wmii.write ("/tag/sel/ctl", "send sel up")

154 end,

155

156 -- floating vs tiled

        ["Mod1-space"] = function (key)

                wmii.write ("/tag/sel/ctl", "select toggle")

159 end,

        ["Mod1-Shift-space"] = function (key)

                wmii.write ("/tag/sel/ctl", "send sel toggle")

162 end,

163

164 -- work spaces

        ["Mod4-#"] = function (key, num)

                wmii.write ("/ctl", "view " .. tostring(num))

167 end,

        ["Mod4-Shift-#"] = function (key, num)

                wmii.write ("/client/sel/tags", tostring(num))

170 end,

171

172

173 -- switching views and retagging

        ["Mod1-t"] = function (key)

                local tag = wmii.tagmenu()

176 if tag then

                        wmii.write ("/ctl", "view " .. tag)

178 end

179

180 end,

        ["Mod1-Shift-t"] = function (key)

                local tag = wmii.tagmenu()

183 if tag then

                        local cli = wmii.read ("/client/sel/ctl")

                        wmii.write ("/client/" .. cli .. "/tags", tag)

186 end

187 end,

        ["Mod1-Control-t"] = function (key)

                my_log ("    TODO: Mod1-Control-t: " .. key)

190 end,

191

192 -- column modes

        ["Mod1-d"] = function (key)

                wmii.write("/tag/sel/ctl", "colmode sel default")

195 end,

        ["Mod1-s"] = function (key)

                wmii.write("/tag/sel/ctl", "colmode sel stack")

198 end,

        ["Mod1-m"] = function (key)

                wmii.write("/tag/sel/ctl", "colmode sel max")

201 end

202 }

203

204 -- ------------------------------------------------------------------------

205 -- update the /keys wmii file with the list of all handlers

206

207 do

208 local t = {}

209 local x, y

        for x,y in pairs(key_handlers) do

                if x:find("%w") then

                        local i = x:find("#")

213 if i then

214 local j

                                for j=0,9 do

216 t[#t + 1]

                                                = x:sub(1,i-1) .. j

218 end

219 else

220 t[#t + 1]

221 = tostring(x)

222 end

223 end

224 end

        local all_keys = table.concat(t, "\n")

        my_log ("setting /keys to...\n" .. all_keys .. "\n");

        wmii.write ("/keys", all_keys)

228 end

229

230

231 -- ------------------------------------------------------------------------

232 -- event handlers

233

234 local ev_handlers = {

        ["*"] = function (ev, arg)

                my_log ("ev: " .. ev .. " - " .. arg)

237 end,

238

239 -- exit if another wmiirc started up

        Start = function (ev, arg)

241 if arg == "wmiirc" then

                        posix.exit (0)

243 end

244 end,

245

246 -- tag management

        CreateTag = function (ev, arg)

                wmii.create ("/lbar/" .. arg, 

                        wconfig.normcolors .. " " .. arg)

250 end,

        DestroyTag = function (ev, arg)

                wmii.remove ("/lbar/" .. arg)

253 end,

254

        FocusTag = function (ev, arg)

                my_log ("FocusTag: " .. arg)

                wmii.create ("/lbar/" .. arg, 

                        wconfig.focuscolors .. " " .. arg)

                wmii.write ("/lbar/" .. arg, 

                        wconfig.focuscolors .. " " .. arg)

261 end,

        UnfocusTag = function (ev, arg)

                my_log ("UnfocusTag: " .. arg)

                wmii.create ("/lbar/" .. arg, 

                        wconfig.normcolors .. " " .. arg)

                wmii.write ("/lbar/" .. arg, 

                        wconfig.normcolors .. " " .. arg)

268 end,

269

270 -- key event handling

        Key = function (ev, arg)

                my_log ("Key: " .. arg)

273 local num = nil

274 -- can we find an exact match?

275 local fn = key_handlers[arg]

276 if not fn then

                        local key = arg:gsub("-%d+", "-#")

278 -- can we find a match with a # wild card for the number

279 fn = key_handlers[key]

280 if fn then

281 -- convert the trailing number to a number

                                num = tonumber(arg:match("-(%d+)"))

283 else

284 -- everything else failed, try default match

285 fn = key_handlers["*"]

286 end

287 end

288 if fn then

289 fn (arg, num)

290 end

291 end,

292

293 -- mouse handling

        ClientMouseDown = function (ev, arg)

                my_log ("ClientMouseDown: " .. arg)

296 end,

        LeftBarClick = function (ev, arg)

                my_log ("LeftBarClick: " .. arg)

299 -- wmiir xwrite /ctl view "$@"

300 end,

301

302 -- urgent tag?

        UrgentTag = function (ev, arg)

                my_log ("UrgentTag: " .. arg)

305 -- wmiir xwrite "/lbar/$@" "*$@"

306 end,

        NotUrgentTag = function (ev, arg)

                my_log ("NotUrgentTag: " .. arg)

309 -- wmiir xwrite "/lbar/$@" "$@"

310 end

311

312 }

313

314 -- ------------------------------------------------------------------------

315 -- reading events

316 my_log("wmii: starting event loop")

317 local ev, arg

for ev, arg in wmii.ievents() do

319

        local fn = ev_handlers[ev] or ev_handlers["*"]

321 if fn then

322 fn (ev, arg)

323 end

324 end

325 my_log("wmii: event loop exited")