(defun wrap-fn (fn hook)
           (let ((wrapped-fn (gensym)))
             (setf (symbol-function wrapped-fn)
                   #'(lambda (x)
                       (progn
                         (funcall fn)
                         (stumpwm:remove-hook hook wrapped-fn))))
             wrapped-fn))