(move-window-to (input-focus) (- (floor (/ (screen-width) 2)) (floor (/ (car (window-dimensions (input-focus))) 2))) (- (floor (/ (screen-height) 2))  (floor (/ (cdr (window-dimensions (input-focus))) 2))))