client: add Globally Active Input Model (GAIM)

with small fixes, changes:
- client_focus handles case when c==NULL
- don't focus on already focused client

- added window_takefocus function, that sends WM_TAKE_FOCUS client
  message. It is needed by GAIM and Locally Active Input Model.
- moved invocation of lua focus hook from client_focus to
  client_focus_hook function.

- client_focus has one additional paremeter, sendmessage.
  It is used in FocusIn event handler, to disable sending SetInputFocus
  and WM_TAKE_FOCUS messages ( to avoid infinite loop )

Signed-off-by: Mariusz Ceier <mceier@gmail.com>
Signed-off-by: Julien Danjou <julien@danjou.info>

client.c

@@ -110,6 +110,28 @@ window_hasproto(xcb_window_t win, xcb_atom_t atom)
     return ret;
 }
 
+/** Send WM_TAKE_FOCUS client message to window
+ * \param win destination window
+ */
+static void
+window_takefocus(xcb_window_t win)
+{
+    xcb_client_message_event_t ev;
+
+    /* Initialize all of event's fields first */
+    p_clear(&ev, 1);
+
+    ev.response_type = XCB_CLIENT_MESSAGE;
+    ev.window = win;
+    ev.format = 32;
+    ev.data.data32[1] = XCB_CURRENT_TIME;
+    ev.type = WM_PROTOCOLS;
+    ev.data.data32[0] = WM_TAKE_FOCUS;
+
+    xcb_send_event(globalconf.connection, false, win,
+                   XCB_EVENT_MASK_NO_EVENT, (char *) &ev);
+}
+
 /** Change the clients urgency flag.
  * \param c The client
  * \param urgent The new flag state
@@ -272,23 +294,53 @@ client_ban(client_t *c)
         client_unfocus(c);
 }
 
+/** Call focus hook.
+ * \param c Client being focused.
+ */
+static void
+client_focus_hook(client_t *c)
+{
+    /* execute hook */
+    if(globalconf.hooks.focus != LUA_REFNIL)
+    {
+        luaA_client_userdata_new(globalconf.L, c);
+        luaA_dofunction(globalconf.L, globalconf.hooks.focus, 1, 0);
+    }
+}
+
 /** Give focus to client, or to first client if client is NULL.
  * \param c The client or NULL.
- * \return True if a window (even root) has received focus, false otherwise.
+ * \param sendmessage true, if we should send message.
  */
 void
-client_focus(client_t *c)
+client_focus(client_t *c, bool sendmessage)
 {
+    /* Handle c == NULL case */
+    if(!c)
+    {
+        if(sendmessage)
+            c = globalconf.clients;
+
+        if(!c)
+            return;
+    }
+
     if(!client_maybevisible(c, c->screen))
         return;
 
-    /* Input Model: No Input */
+    /* Does client window support WM_TAKE_FOCUS protocol ? */
-    if (!window_hasproto(c->win, WM_TAKE_FOCUS) && c->nofocus)
+    bool takefocus = window_hasproto(c->win, WM_TAKE_FOCUS);
+
+    /* Disallow setting focus on client with No Input Model */
+    if(sendmessage && !takefocus && c->nofocus)
         return;
 
     /* Save current focused client */
     client_t *focused_before = globalconf.screen_focus->client_focus;
 
+    if(c == focused_before)
+        return;
+
     /* stop hiding c */
     c->ishidden = false;
     client_setminimized(c, false);
@@ -299,14 +351,17 @@ client_focus(client_t *c)
     globalconf.screen_focus = &globalconf.screens[c->phys_screen];
     globalconf.screen_focus->client_focus = c;
 
-    /* Input Models: Passive, Locally Active */
+    if(sendmessage)
-    xcb_set_input_focus(globalconf.connection, XCB_INPUT_FOCUS_POINTER_ROOT,
+    {
-                        c->win, XCB_CURRENT_TIME);
+        if(!c->nofocus)
+            /* Input models: Passive, Locally Active */
+            xcb_set_input_focus(globalconf.connection, XCB_INPUT_FOCUS_POINTER_ROOT,
+                                c->win, XCB_CURRENT_TIME);
 
-    /* TODO: Currently we don't handle correctly globally active input model
+        if(takefocus)
-     * One fix I know of, is we should handle FocusIn and FocusOut events for windows,
+            /* Input models: No Input, Globally Active */
-     * and use WM_TAKE_FOCUS client message.
+            window_takefocus(c->win);
-     */
+    }
 
     /* Some layouts use focused client differently, so call them back.
      * And anyway, we have maybe unhidden */
@@ -318,20 +373,16 @@ client_focus(client_t *c)
      * What we need to do is call unfocus hook, to
      * inform lua script, about this event.
      */
-    if(focused_before && c != focused_before)
+    if(focused_before)
         client_unfocus_hook(focused_before);
 
-    /* execute hook */
+    client_focus_hook(c);
-    if(globalconf.hooks.focus != LUA_REFNIL)
-    {
-        luaA_client_userdata_new(globalconf.L, globalconf.screen_focus->client_focus);
-        luaA_dofunction(globalconf.L, globalconf.hooks.focus, 1, 0);
-    }
 
     /* according to EWMH, we have to remove the urgent state from a client */
     client_seturgent(c, false);
 
     ewmh_update_net_active_window(c->phys_screen);
+
 }
 
 /** Stack a window below.
@@ -506,6 +557,7 @@ client_manage(xcb_window_t w, xcb_get_geometry_reply_t *wgeom, int phys_screen,
             | XCB_EVENT_MASK_PROPERTY_CHANGE
             | XCB_EVENT_MASK_ENTER_WINDOW
             | XCB_EVENT_MASK_LEAVE_WINDOW
+            | XCB_EVENT_MASK_FOCUS_CHANGE
     };
 
 
@@ -1405,7 +1457,10 @@ luaA_client_redraw(lua_State *L)
        performed on the window where the pointer is currently on
        because after the unmapping/mapping, the focus is lost */
     if(globalconf.screen_focus->client_focus == *c)
-        client_focus(*c);
+    {
+        client_unfocus(*c);
+        client_focus(*c, true);
+    }
 
     return 0;
 }
@@ -2162,7 +2217,7 @@ luaA_client_module_newindex(lua_State *L)
     {
       case A_TK_FOCUS:
         c = luaA_checkudata(L, 3, "client");
-        client_focus(*c);
+        client_focus(*c, true);
         break;
       default:
         break;

client.h

@@ -67,7 +67,7 @@ void client_setmaxvert(client_t *, bool);
 void client_setminimized(client_t *, bool);
 void client_setborder(client_t *, int);
 void client_seturgent(client_t *, bool);
-void client_focus(client_t *);
+void client_focus(client_t *, bool);
 
 int luaA_client_newindex(lua_State *);
 

ewmh.c

@@ -429,7 +429,7 @@ ewmh_process_client_message(xcb_client_message_event_t *ev)
     else if(ev->type == _NET_ACTIVE_WINDOW)
     {
         if((c = client_getbywin(ev->window)))
-            client_focus(c);
+            client_focus(c, true);
     }
 
     return 0;