Re: [Sawfish] single-window-mode approach

[Christopher Roy Bratusek <nano@xxxxxxxxxxxxx>]

Sorry for quick self-reply, but this versions exists single-window-mode if the 
single-window-mode-window is closed.

Chris

### code ###

(defvar single-window-mode nil)
(defvar single-window-mode-window nil)
(defvar single-window-mode-workspace nil)

(define (toggle-single-window-mode w)
  (let ((iconify-group-mode 'none)
	(raise-windows-on-uniconify nil))

    (if single-window-mode
	(setq single-window-mode nil)
      (setq single-window-mode t))

    (define (fun x)
      (if single-window-mode
	  (progn
	    (setq single-window-mode-window w)
	    (setq single-window-mode-workspace current-workspace)
	    (when (windows-share-workspace-p w x)
	      (if (or (window-get x 'ignore)
		      (window-get x 'avoid))
		  (lower-window x)
		(iconify-window x))))
	(setq single-window-mode-window nil)
	(setq single-window-mode-workspace nil)
	(when (windows-share-workspace-p w x)
	  (if (or (window-get x 'ignore)
		  (window-get x 'avoid))
	      (raise-window x)
	    (uniconify-window x)))))

    (map-other-window-groups
      (lambda (x)
	(fun x)) w)))

(define (single-window-mode-after-add-window w)
  (when single-window-mode
    (let ((group (windows-in-group single-window-mode-window)))
      (when (and (not (memq w group))
 		 (windows-share-workspace-p single-window-mode-window w))
	(if (or (window-get w 'ignore)
	        (window-get w 'avoid))
	    (lower-window w)
	  (iconify-window w))))))

(define (single-window-mode-destroy-notify w)
  (when (and single-window-mode
             (eq w single-window-mode-window))
    (setq single-window-mode nil)
    (setq single-window-mode-window nil)
    (unless (eq current-workspace single-window-mode-workspace)
      (select-workspace single-window-mode-workspace))
    (setq single-window-mode-workspace nil)
    (map-windows (lambda (x)
		    (when (window-on-current-workspace-p x)
		      (if (or (window-get x 'ignore)
			      (window-get x 'avoid))
			  (raise-window x)
			(uniconify-window x)))))))

(add-hook 'after-add-window-hook single-window-mode-after-add-window t)
(add-hook 'destroy-notify-hook single-window-mode-destroy-notify t)

### end ###

---
--
Sawfish ML