; ~/.sawfishrc
; Sawfish window manager configuration file

; Start from default settings
(require 'sawmill-defaults)

; Use Sawfish Services to run commands on clipboard content
(require 'services)

; Use GTK services-menu for Services
(require 'friedel.services-menu)

; Use Merlin features, including the window list when cycling
(require 'merlin.ugliness)

(defun clean-word-for-query (str)
  ""
  (services-clean-url-query-escaping (string2-trim 
				      (string2-replace str "," "")))
)

(services-add "Google" 
; eg search for "Debian WLAN support"
	   "browser \"http://www.google.com/search?q=#\"" 
           services-clean-url-query-escaping)
(services-add "I'm Feeling _Lucky"
; eg get to best hit for "xchat"
           "browser \"http://www.google.com/search?q=#&sa=I%27m+Feeling+Lucky\"" 
           services-clean-url-query-escaping) 
(services-add "View URL" 
; eg see "http://slashdot.org/article.pl?sid=02/08/01/129228&mode=thread&tid=172"
	"browser \"#\""
        services-clean-url)
(services-add "Download URL"
; eg download "http://iki.fi/Tuukka/cshrc"
	"cd ~/dl && wget \"#\" || xmessage \"Error downloading #\""
	services-clean-url)
(services-add "Stream URL in _XMMS"
; eg stream "http://personal.inet.fi/musiikki/laurisoini/lauri_soini-morby_pt1.mp3"
	"xmms \"#\""
	services-clean-url)
(services-add "Stream URL in _MPlayer"
; eg stream "http://starwreck.peliportti.net/wmv/SW6_teaser2_mpeg1.mpg"
	"gmplayer \"#\""
	services-clean-url)
(services-add "Stream URL in _RealPlayer"
; eg stream "http://bass.live.sonera.com/meta/live/assembly2002/rm128k.ram"
	"realplay \"#\""
	services-clean-url)
(services-add "Webster's"
; eg get translation for "ubiquitous"
	"browser \"http://www.m-w.com/cgi-bin/dictionary?#\""
	clean-word-for-query)
(services-add "Pronounce"
; eg play sample for "ubiquitous"
	"pronounce \"#\""
	clean-word-for-query)
(services-add "NetMOT"
; eg get translations for "mämmi" (right to use needed)
	"browser \"http://mot.kielikone.fi/mot/jyu/netmot.exe?UI=figr&qfind=#\""
	clean-word-for-query)
(services-add "Everything 2"
; eg get write-ups for "flute"
	"browser \"http://www.everything2.com/?node=#\""
	services-clean-url-query-escaping)
(services-add "host -a"
; eg get DNS info on "fishy.it.jyu.fi"
	"x-terminal-emulator -title \"host -a #\" -e sh -c \"host -a \\\"#\\\"; read\""
	string2-trim)