diff -r 000000000000 -r 98e4b0c9fcac modes.lua
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/modes.lua	Wed Sep 01 03:53:30 2010 +0100
@@ -0,0 +1,162 @@
+-------------------------------
+-- luakit mode configuration --
+-------------------------------
+
+-- Table of modes and their callback hooks
+modes = {}
+
+-- Currently active mode hooks
+local current
+
+-- Update a modes hook table with new hooks
+function new_mode(mode, hooks)
+    modes[mode] = lousy.util.table.join(modes[mode] or {}, hooks)
+end
+
+-- Attach window & input bar signals for mode hooks
+window.init_funcs.modes_setup = function (w)
+    -- Calls the `enter` and `leave` mode hooks.
+    w.win:add_signal("mode-changed", function (_, mode)
+        -- Call the last modes `leave` hook.
+        if current and current.leave then
+            current.leave(w)
+        end
+
+        -- Update window binds
+        w:update_binds(mode)
+
+        -- Get new modes functions
+        current = modes[mode]
+        if not current then
+            error("changed to un-handled mode: " .. mode)
+        end
+
+        -- Call new modes `enter` hook.
+        if current.enter then current.enter(w) end
+    end)
+
+    -- Calls the `changed` hook on input widget changed.
+    w.ibar.input:add_signal("changed", function()
+        local text = w.ibar.input.text
+        if current and current.changed then
+            current.changed(w, text)
+        end
+    end)
+
+    -- Calls the `activate` hook on input widget activate.
+    w.ibar.input:add_signal("activate", function()
+        local text = w.ibar.input.text
+        if current and current.activate then
+            current.activate(w, text)
+        end
+    end)
+end
+
+-- Add mode related window methods
+for name, func in pairs({
+    set_mode = function (w, name) lousy.mode.set(w.win, name)  end,
+    get_mode = function (w)       return lousy.mode.get(w.win) end,
+    is_mode  = function (w, name) return name == w:get_mode()  end,
+}) do window.methods[name] = func end
+
+-- Setup normal mode
+new_mode("normal", {
+    enter = function (w)
+        local i, p = w.ibar.input, w.ibar.prompt
+        i:hide()
+        p:hide()
+    end,
+})
+
+-- Setup insert mode
+new_mode("insert", {
+    enter = function (w)
+        local i, p = w.ibar.input, w.ibar.prompt
+        i:hide()
+        i.text = ""
+        p.text = "-- INSERT --"
+        p:show()
+    end,
+})
+
+-- Setup command mode
+new_mode("command", {
+    enter = function (w)
+        local i, p = w.ibar.input, w.ibar.prompt
+        p:hide()
+        i.text = ":"
+        i:show()
+        i:focus()
+        i:set_position(-1)
+    end,
+    changed = function (w, text)
+        -- Auto-exit command mode if user backspaces ":" in the input bar.
+        if not string.match(text, "^:") then w:set_mode() end
+    end,
+    activate = function (w, text)
+        w:cmd_hist_add(text)
+        w:match_cmd(string.sub(text, 2))
+        w:set_mode()
+    end,
+})
+
+-- Setup search mode
+new_mode("search", {
+    enter = function (w)
+        -- Clear old search state
+        w.search_state = {}
+        local i, p = w.ibar.input, w.ibar.prompt
+        p:hide()
+        p.text = ""
+        i.text = "/"
+        i:show()
+    end,
+    leave = function (w)
+        -- Check if search was aborted and return to original position
+        local s = w.search_state
+        if s.marker then
+            w:get_current():set_scroll_vert(s.marker)
+            s.marker = nil
+        end
+    end,
+    changed = function (w, text)
+        -- Check that the first character is '/' or '?' and update search
+        if string.match(text, "^[\?\/]") then
+            w:search(string.sub(text, 2), (string.sub(text, 1, 1) == "/"))
+        else
+            w:clear_search()
+            w:set_mode()
+        end
+    end,
+    activate = function (w, text)
+        w.search_state.marker = nil
+        w:srch_hist_add(text)
+        w:set_mode()
+        -- Ghost the search term in the prompt
+        local p = w.ibar.prompt
+        p.text = lousy.util.escape(text)
+        p:show()
+    end,
+})
+
+-- Setup follow mode
+new_mode("follow", {
+    enter = function (w)
+        local i, p = w.ibar.input, w.ibar.prompt
+        w:eval_js_from_file(lousy.util.find_data("scripts/follow.js"))
+        w:eval_js("clear(); show_hints();")
+        p.text = "Follow:"
+        p:show()
+        i.text = ""
+        i:show()
+        i:focus()
+        i:set_position(-1)
+    end,
+    leave = function (w)
+        if w.eval_js then w:eval_js("clear();") end
+    end,
+    changed = function (w, text)
+        local ret = w:eval_js(string.format("update(%q);", text))
+        w:emit_form_root_active_signal(ret)
+    end,
+})