Permalink
Browse files

Added luakit configs.

  • Loading branch information...
1 parent 8c14bc4 commit 8e8d482db354670031623e3957a4bc427953b163 Benjamin Kober committed Feb 12, 2012
Showing with 900 additions and 0 deletions.
  1. +385 −0 luakit/binds.lua
  2. +116 −0 luakit/globals.lua
  3. +399 −0 luakit/webview.lua
View
@@ -0,0 +1,385 @@
+-----------------
+-- Keybindings --
+-----------------
+
+-- Binding aliases
+local key, buf, but = lousy.bind.key, lousy.bind.buf, lousy.bind.but
+local cmd, any = lousy.bind.cmd, lousy.bind.any
+
+-- Util aliases
+local match, join = string.match, lousy.util.table.join
+local strip, split = lousy.util.string.strip, lousy.util.string.split
+
+-- Globals or defaults that are used in binds
+local scroll_step = globals.scroll_step or 20
+local more, less = "+"..scroll_step.."px", "-"..scroll_step.."px"
+local zoom_step = globals.zoom_step or 0.1
+
+-- Add binds to a mode
+function add_binds(mode, binds, before)
+ assert(binds and type(binds) == "table", "invalid binds table type: " .. type(binds))
+ mode = type(mode) ~= "table" and {mode} or mode
+ for _, m in ipairs(mode) do
+ local mdata = get_mode(m)
+ if mdata and before then
+ mdata.binds = join(binds, mdata.binds or {})
+ elseif mdata then
+ mdata.binds = mdata.binds or {}
+ for _, b in ipairs(binds) do table.insert(mdata.binds, b) end
+ else
+ new_mode(m, { binds = binds })
+ end
+ end
+end
+
+-- Add commands to command mode
+function add_cmds(cmds, before)
+ add_binds("command", cmds, before)
+end
+
+-- Adds the default menu widget bindings to a mode
+menu_binds = {
+ -- Navigate items
+ key({}, "j", function (w) w.menu:move_down() end),
+ key({}, "k", function (w) w.menu:move_up() end),
+ key({}, "Down", function (w) w.menu:move_down() end),
+ key({}, "Up", function (w) w.menu:move_up() end),
+ key({}, "Tab", function (w) w.menu:move_down() end),
+ key({"Shift"}, "Tab", function (w) w.menu:move_up() end),
+}
+
+-- Add binds to special mode "all" which adds its binds to all modes.
+add_binds("all", {
+ key({}, "Escape", function (w) w:set_mode() end),
+ key({"Control"}, "[", function (w) w:set_mode() end),
+
+ -- Mouse bindings
+ but({}, 8, function (w) w:back() end),
+ but({}, 9, function (w) w:forward() end),
+
+ -- Open link in new tab or navigate to selection
+ but({}, 2, function (w, m)
+ -- Ignore button 2 clicks in form fields
+ if not m.context.editable then
+ -- Open hovered uri in new tab
+ local uri = w.view.hovered_uri
+ if uri then
+ w:new_tab(uri, false)
+ else -- Open selection in current tab
+ uri = luakit.selection.primary
+ if uri then w:navigate(w:search_open(uri)) end
+ end
+ end
+ end),
+
+ -- Open link in new tab when Ctrl-clicked.
+ but({"Control"}, 1, function (w, m)
+ local uri = w.view.hovered_uri
+ if uri then
+ w:new_tab(uri, false)
+ end
+ end),
+
+ -- Zoom binds
+ but({"Control"}, 4, function (w, m) w:zoom_in() end),
+ but({"Control"}, 5, function (w, m) w:zoom_out() end),
+
+ -- Horizontal mouse scroll binds
+ but({"Shift"}, 4, function (w, m) w:scroll{ x = less } end),
+ but({"Shift"}, 5, function (w, m) w:scroll{ x = more } end),
+})
+
+add_binds("normal", {
+ -- Autoparse the `[count]` before a binding and re-call the hit function
+ -- with the count removed and added to the opts table.
+ any(function (w, m)
+ local count, buf
+ if m.buffer then
+ count = string.match(m.buffer, "^(%d+)")
+ end
+ if count then
+ buf = string.sub(m.buffer, #count + 1, (m.updated_buf and -2) or -1)
+ local opts = join(m, {count = tonumber(count)})
+ opts.buffer = (#buf > 0 and buf) or nil
+ if lousy.bind.hit(w, m.binds, m.mods, m.key, opts) then
+ return true
+ end
+ end
+ return false
+ end),
+
+ key({}, "i", function (w) w:set_mode("insert") end),
+ key({}, ":", function (w) w:set_mode("command") end),
+
+ -- Scrolling
+ key({}, "j", function (w) w:scroll{ y = more } end),
+ key({}, "k", function (w) w:scroll{ y = less } end),
+ key({}, "h", function (w) w:scroll{ x = less } end),
+ key({}, "l", function (w) w:scroll{ x = more } end),
+ key({}, "^", function (w) w:scroll{ x = "0%" } end),
+ key({}, "$", function (w) w:scroll{ x = "100%" } end),
+ key({"Control"}, "d", function (w) w:scroll{ y = "+0.5p" } end),
+ key({"Control"}, "u", function (w) w:scroll{ y = "-0.5p" } end),
+ key({"Control"}, "f", function (w) w:scroll{ y = "+1.0p" } end),
+ key({"Control"}, "b", function (w) w:scroll{ y = "-1.0p" } end),
+ key({}, "space", function (w) w:scroll{ y = "+1.0p" } end),
+ key({"Shift"}, "space", function (w) w:scroll{ y = "-1.0p" } end),
+ key({}, "BackSpace", function (w) w:scroll{ y = "-1.0p" } end),
+
+ -- Specific scroll
+ buf("^gg$", function (w, b, m) w:scroll{ y = m.count.."%" } end, {count = 0}),
+ buf("^G$", function (w, b, m) w:scroll{ y = m.count.."%" } end, {count = 100}),
+
+ -- Traditional scrolling commands
+ key({}, "Down", function (w) w:scroll{ y = more } end),
+ key({}, "Up", function (w) w:scroll{ y = less } end),
+ key({}, "Left", function (w) w:scroll{ x = less } end),
+ key({}, "Right", function (w) w:scroll{ x = more } end),
+ key({}, "Page_Down", function (w) w:scroll{ y = "+1.0p" } end),
+ key({}, "Page_Up", function (w) w:scroll{ y = "-1.0p" } end),
+ key({}, "Home", function (w) w:scroll{ y = "0%" } end),
+ key({}, "End", function (w) w:scroll{ y = "100%" } end),
+ key({}, "$", function (w) w:scroll{ x = "100%" } end),
+ key({}, "0", function (w, m)
+ if not m.count then w:scroll{ y = "0%" } else return false end
+ end),
+
+ -- Zooming
+ key({}, "+", function (w, m) w:zoom_in(zoom_step * m.count) end, {count=1}),
+ key({}, "-", function (w, m) w:zoom_out(zoom_step * m.count) end, {count=1}),
+ key({}, "=", function (w, m) w:zoom_set() end),
+ buf("^z[iI]$", function (w, b, m) w:zoom_in(zoom_step * m.count, b == "zI") end, {count=1}),
+ buf("^z[oO]$", function (w, b, m) w:zoom_out(zoom_step * m.count, b == "zO") end, {count=1}),
+ -- Zoom reset or specific zoom ([count]zZ for full content zoom)
+ buf("^z[zZ]$", function (w, b, m) w:zoom_set(m.count/100, b == "zZ") end, {count=100}),
+
+ -- Fullscreen
+ key({}, "F11", function (w)
+ w.win.fullscreen = not w.win.fullscreen
+ end),
+
+ -- Clipboard
+ --key({}, "p", function (w)
+ -- local uri = luakit.selection.primary
+ -- if uri then w:navigate(w:search_open(uri)) else w:error("Empty selection.") end
+ -- end),
+ key({}, "P", function (w, m)
+ local uri = luakit.selection.primary
+ if not uri then w:error("Empty selection.") return end
+ for i = 1, m.count do w:new_tab(w:search_open(uri)) end
+ end, {count = 1}),
+
+ -- Yanking
+ buf("^yy$", function (w)
+ local uri = string.gsub(w.view.uri or "", " ", "%%20")
+ luakit.selection.primary = uri
+ luakit.selection.clipboard = uri
+ w:notify("Yanked uri: " .. uri)
+ end),
+
+ buf("^yt$", function (w)
+ local title = w.view.title
+ luakit.selection.primary = title
+ luakit.selection.clipboard = uri
+ w:notify("Yanked title: " .. title)
+ end),
+
+ -- Commands
+ key({"Control"}, "a", function (w) w:navigate(w:inc_uri(1)) end),
+ key({"Control"}, "x", function (w) w:navigate(w:inc_uri(-1)) end),
+ buf("^o$", function (w, c) w:enter_cmd(":open ") end),
+ buf("^t$", function (w, c) w:enter_cmd(":tabopen ") end),
+ buf("^w$", function (w, c) w:enter_cmd(":winopen ") end),
+ buf("^O$", function (w, c) w:enter_cmd(":open " .. (w.view.uri or "")) end),
+ buf("^T$", function (w, c) w:enter_cmd(":tabopen " .. (w.view.uri or "")) end),
+ buf("^W$", function (w, c) w:enter_cmd(":winopen " .. (w.view.uri or "")) end),
+ buf("^\\g$", function (w, c) w:enter_cmd(":open google ") end),
+ buf("^\\d$", function (w, c) w:enter_cmd(":open duckduckgo ") end),
+ buf("^\\w$", function (w, c) w:enter_cmd(":open wikipedia ") end),
+ -- Privoxyfilterung der Seite anzeigen
+ buf("^p$", function (w, c)
+ w:enter_cmd(":tabopen http://config.privoxy.org/show-url-info?url=" .. (w.view.uri or "")) end),
+
+ -- History
+ key({}, "H", function (w, m) w:back(m.count) end),
+ key({}, "L", function (w, m) w:forward(m.count) end),
+ key({}, "b", function (w, m) w:back(m.count) end),
+ key({}, "XF86Back", function (w, m) w:back(m.count) end),
+ key({}, "XF86Forward", function (w, m) w:forward(m.count) end),
+ key({"Control"}, "o", function (w, m) w:back(m.count) end),
+ key({"Control"}, "i", function (w, m) w:forward(m.count) end),
+
+ -- Tab
+ key({"Control"}, "Page_Up", function (w) w:prev_tab() end),
+ key({"Control"}, "Page_Down", function (w) w:next_tab() end),
+ key({"Control"}, "Tab", function (w) w:next_tab() end),
+ key({"Shift","Control"}, "Tab", function (w) w:prev_tab() end),
+ buf("^gT$", function (w, b, m) w:prev_tab(m.count) end, {count=1}),
+ buf("^gt$", function (w, b, m) if not w:goto_tab(m.count) then w:next_tab() end end, {count=0}),
+
+ key({"Control"}, "t", function (w) w:new_tab(globals.homepage) end),
+ key({"Control"}, "w", function (w) w:close_tab() end),
+ key({}, "d", function (w, m)
+ -- close Window if we are on the last Tab
+ if w.tabs:count() <= 1 then
+ return w:close_win()
+ end
+ for i=1,m.count do
+ w:close_tab()
+ end
+ end, {count=1}),
+
+ key({}, "<", function (w, m) w.tabs:reorder(w.view, w.tabs:current() - m.count) end, {count=1}),
+ key({}, ">", function (w, m) w.tabs:reorder(w.view, (w.tabs:current() + m.count) % w.tabs:count()) end, {count=1}),
+ key({"Mod1"}, "Page_Up", function (w, m) w.tabs:reorder(w.view, w.tabs:current() - m.count) end, {count=1}),
+ key({"Mod1"}, "Page_Down", function (w, m) w.tabs:reorder(w.view, (w.tabs:current() + m.count) % w.tabs:count()) end, {count=1}),
+
+ buf("^gH$", function (w, b, m) for i=1,m.count do w:new_tab(globals.homepage) end end, {count=1}),
+ buf("^gh$", function (w) w:navigate(globals.homepage) end),
+
+ -- Open tab from current tab history
+ buf("^gy$", function (w) w:new_tab(w.view.history or "") end),
+
+ key({}, "r", function (w) w:reload() end),
+ key({}, "R", function (w) w:reload(true) end),
+ key({"Control"}, "c", function (w) w:stop() end),
+
+ -- Config reloading
+ key({"Control", "Shift"}, "R", function (w) w:restart() end),
+
+ -- Window
+ buf("^ZZ$", function (w) w:save_session() w:close_win() end),
+ buf("^ZQ$", function (w) w:close_win() end),
+ buf("^D$", function (w) w:close_win() end),
+ buf("^Q$", function (w) w:close_win() end),
+
+ -- Enter passthrough mode
+ key({"Control"}, "z", function (w) w:set_mode("passthrough") end),
+})
+
+add_binds("insert", {
+ key({"Control"}, "z", function (w) w:set_mode("passthrough") end),
+ key({"Control"}, "e", function (w)
+ local editor = "urxvt -e vim -c 'set spell'"
+ local dir = "/tmp/luakit/"
+ local time = os.time()
+ local file = dir .. time
+ local marker = "luakit_extedit_" .. time
+ local function editor_callback(exit_reason, exit_status)
+ local f = assert(io.open(file, "r"))
+ s = f:read("*all")
+ f:close()
+ -- Strip the string
+ s = s:gsub("^%s*(.-)%s*$", "%1")
+ -- Escape it but remove the quotes
+ s = string.format("%q", s):sub(2, -2)
+ -- lua escaped newlines (slash+newline) into js newlines (slash+n)
+ s = s:gsub("\\\n", "\\n")
+ w:eval_js(string.format([=[
+ var e = document.getElementsByClassName('%s');
+ if(1 == e.length && e[0].disabled){
+ e[0].focus();
+ e[0].value = "%s";
+ e[0].disabled = false;
+ e[0].className = e[0].className.replace(/\b %s\b/,'');
+ }
+ ]=], marker, s, marker))
+ end
+
+ local s = w:eval_js(string.format([=[
+ var e = document.activeElement;
+ if(e && (e.tagName && 'TEXTAREA' == e.tagName || e.type && 'text' == e.type)){
+ var s = e.value;
+ e.className += " %s";
+ e.disabled = true;
+ e.value = '%s';
+ s;
+ }else 'false';
+ ]=], marker, file))
+ if "false" ~= s then
+ luakit.spawn_sync(string.format("mkdir -p %s", dir))
+ local f = assert(io.open(file, "w"))
+ f:write(s)
+ f:flush()
+ f:close()
+ luakit.spawn(string.format("%s %q", editor, file), editor_callback)
+ end
+ end),
+})
+
+add_binds({"command", "search"}, {
+ key({"Shift"}, "Insert", function (w) w:insert_cmd(luakit.selection.primary) end),
+ key({"Control"}, "w", function (w) w:del_word() end),
+ key({"Control"}, "u", function (w) w:del_line() end),
+ key({"Control"}, "a", function (w) w:beg_line() end),
+ key({"Control"}, "e", function (w) w:end_line() end),
+ key({"Control"}, "f", function (w) w:forward_char() end),
+ key({"Control"}, "b", function (w) w:backward_char() end),
+ key({"Mod1"}, "f", function (w) w:forward_word() end),
+ key({"Mod1"}, "b", function (w) w:backward_word() end),
+})
+
+-- Switching tabs with Mod1+{1,2,3,...}
+mod1binds = {}
+for i=1,10 do
+ table.insert(mod1binds,
+ key({"Mod1"}, tostring(i % 10), function (w) w.tabs:switch(i) end))
+end
+add_binds("normal", mod1binds)
+
+-- Command bindings which are matched in the "command" mode from text
+-- entered into the input bar.
+add_cmds({
+ -- Detect bangs (I.e. ":command! <args>")
+ buf("^%S+!", function (w, cmd, opts)
+ local cmd, args = string.match(cmd, "^(%S+)!+(.*)")
+ if cmd then
+ opts = join(opts, { bang = true })
+ return lousy.bind.match_cmd(w, opts.binds, cmd .. args, opts)
+ end
+ end),
+
+ -- cmd({command, alias1, ...}, function (w, arg, opts) .. end, opts),
+ -- cmd("co[mmand]", function (w, arg, opts) .. end, opts),
+ cmd("c[lose]", function (w) w:close_tab() end),
+ cmd("print", function (w) w:eval_js("print()", "rc.lua") end),
+ cmd("reload", function (w) w:reload() end),
+ cmd("restart", function (w) w:restart() end),
+ cmd("write", function (w) w:save_session() end),
+ cmd("noh[lsearch]", function (w) w:clear_search() end),
+
+ cmd("back", function (w, a) w:back(tonumber(a) or 1) end),
+ cmd("f[orward]", function (w, a) w:forward(tonumber(a) or 1) end),
+ cmd("inc[rease]", function (w, a) w:navigate(w:inc_uri(tonumber(a) or 1)) end),
+ cmd("o[pen]", function (w, a) w:navigate(w:search_open(a)) end),
+ cmd("t[abopen]", function (w, a) w:new_tab(w:search_open(a)) end),
+ cmd("w[inopen]", function (w, a) window.new{w:search_open(a)} end),
+ cmd({"javascript", "js"}, function (w, a) w:eval_js(a, "javascript") end),
+
+ cmd("q[uit]", function (w, a, o) w:close_win(o.bang) end),
+ cmd({"viewsource", "vs" }, function (w, a, o) w:toggle_source(not o.bang and true or nil) end),
+ cmd({"writequit", "wq"}, function (w, a, o) w:save_session() w:close_win(o.bang) end),
+
+ cmd("lua", function (w, a)
+ if a then
+ local ret = assert(loadstring("return function(w) return "..a.." end"))()(w)
+ if ret then print(ret) end
+ else
+ w:set_mode("lua")
+ end
+ end),
+
+ cmd("dump", function (w, a)
+ local fname = string.gsub(w.win.title, '[^%w%.%-]', '_')..'.html' -- sanitize filename
+ local file = a or luakit.save_file("Save file", w.win, xdg.download_dir or '.', fname)
+ if file then
+ local fd = assert(io.open(file, "w"), "failed to open: " .. file)
+ local html = assert(w:eval_js("document.documentElement.outerHTML", "dump"), "Unable to get HTML")
+ assert(fd:write(html), "unable to save html")
+ io.close(fd)
+ w:notify("Dumped HTML to: " .. file)
+ end
+ end),
+})
+
+-- vim: et:sw=4:ts=8:sts=4:tw=80
Oops, something went wrong.

0 comments on commit 8e8d482

Please sign in to comment.