;;; home-ws.jl --- Jump to "home" workspace when other workspaces become empty. ;; Copyright 1999 by Dave Pearson ;; $Revision: 1.1 $ ;; home-ws.jl is free software distributed under the terms of the GNU ;; General Public Licence, version 2. For details see the file COPYING. ;;; Commentary: ;; ;; home-ws.jl is a very simple sawmill package that makes sawmill ;; automaticly switch to your "home" workspace when the last window in your ;; current workspace is removed. ;; ;; To enable this feature simply drop this file into your `load-path' and ;; add this: ;; ;; (require 'home-ws) ;; ;; to your ~/.sawmillrc file. ;;; Code: ;; Customise options. (defgroup home-ws "Home workspace") (defcustom home-ws-workspace 0 "Location of your home workspace" :group home-ws :type number :range (0 . nil)) ;; Main code. (defun home-ws-handler () "`destroy-notify-hook' handler." (when (zerop (length (workspace-windows current-workspace))) (select-workspace-from-first home-ws-workspace))) (unless (in-hook-p 'destroy-notify-hook home-ws-handler) (add-hook 'destroy-notify-hook home-ws-handler)) (provide 'home-ws) ;;; home-ws.jl ends here