(in-package :stumpwm)

(defun in-frame-tagged-p (w name) 
  (find name (frame-tags (window-frame w)) :test 'equalp))
(defun to-tagged-frame (w name)
  (let*
    ((frame (find-if (lambda (x) (find name (frame-tags x) :Test 'equalp))
		     (group-frames (current-group (current-screen))))))
    (when frame (pull-window w frame))))