;; ---------------------------------------------------
(require 'workspace-grid)
(require 'edge-flip)

;; ---------------------------------------------------
(require 'sawfish.wm.ext.window-snooper)
(rplacd (cdr window-ops-menu)
	`(("Snoop" window-snooper)
	,@(cddr window-ops-menu)))

;; ---------------------------------------------------
;;(require 'workspace-persistant-focus)

;; ---------------------------------------------------
;; missing place-window?
;;(require 'corner-placement)

;; ---------------------------------------------------
;; this will automatically asign IDs to windows and alter their title
;; then you can use Alt-Super-<ID> to focus it
;;(require 'windows-addressable-by-ids)

;; ---------------------------------------------------
;; sawfish-lars, and I am not ready for it yet
;;(require 'tile)

;; ---------------------------------------------------
;; I have thsi bound to Super-S
(require 'services)
(services-add "Google"  
           "galeon 'http://www.google.com/search?q=#'"
           services-clean-url-query-escaping) 
(services-add "Google: Linux"   
           "galeon 'http://www.google.com/linux?q=#'"
           services-clean-url-query-escaping)  
(services-add "Galeon" "galeon '#'"  
           services-clean-url) 
(services-add "Dictionary" "xterm -T 'dict: #' -e dict #") 
(services-add "Unix man" "xterm -T 'man: #' -e sh -c 'man #; read'") 
(services-add "w3m" "xterm -T '[w3m: #' -e sh -c 'w3m \'#\''")
(services-add "print URL with w3m" "w3m -dump '#' | a2ps -2")

;; ---------------------------------------------------
;; bookmark windows, Super-M marks, Super-' returns, Super-; last, Super-l list
(require 'bookmark)

(setq auto-bookmark-list 
   '(( "Galeon$" . g )
     ( "Mozilla {Build ID: [0-9]+}$" . z)
     ( "^Terminal$" . t )
))


;; ---------------------------------------------------
;; merlin stuff
(require 'merlin.ugliness)