Listen for :FOCUS-IN events and update the focus accordingly.

Might just fix #149. I'm not sure if there are other things that should be accounted for properly than just `(setf (screen-focus))`, however.