Re: Sawfish + xdg-open

[Christopher Roy Bratusek <zanghar freenet de>]

Ouch! Previous patch for sawfish didn't work, the following one does:

diff --git a/lisp/sawfish/wm.jl b/lisp/sawfish/wm.jl
index fb7c47b..c127ad0 100644
--- a/lisp/sawfish/wm.jl
+++ b/lisp/sawfish/wm.jl
@@ -34,6 +34,21 @@
 ;; set $DISPLAY so that any subprocesses inherit it
 (setenv "DISPLAY" display-name)
 
+(unless batch-mode
+
+(require 'sawfish.wm.misc)
+
+;; GNOME
+(if (getenv "GNOME_DESKTOP_SESSION_ID")
+  (set-x-text-property 'root 'WINDOW_MANAGER (vector "sawfish-gnome"))
+
+;; KDE
+(if (getenv "KDE_SESSION_VERSION")
+  (set-x-text-property 'root 'WINDOW_MANAGER (vector "sawfish-kde"))
+
+;; STANDALONE
+(set-x-text-property 'root 'WINDOW_MANAGER (vector "sawfish")))))
+
 ;; load i18n support when necessary
 
 (unless batch-mode

I guess it should not be a problem to commit it.

How do I use eq properly here:

(if (eq (get-x-text-property 'root 'WINDOW_MANAGER) 'sawfish) (<whatever>))

I thought that should work.

Chris