Re: Sawfish + xdg-open

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)
+  (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"))
+(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.


[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]