dot/emacs: Turn on Magit extensions based on Git config.

[profile] / dot / xinitrc

diff --git a/dot/xinitrc b/dot/xinitrc
index 4f69187..210a76d 100755 (executable)
--- a/dot/xinitrc
+++ b/dot/xinitrc
@@ -99,7 +99,10 @@ initialize () {
   run init xset m 2 1
 
   ## Key mappings.
-  xmodmap -e 'keysym BackSpace = BackSpace BackSpace'
+  xmodmap $HOME/.xmodmap
+  if [ -r $HOME/.xmodmap-local ]; then
+    xmodmap $HOME/.xmodmap-local
+  fi
 }
 
 ###--------------------------------------------------------------------------
@@ -151,8 +154,22 @@ start-window-manager () {
 start-clients-local () { :; }
 
 start-clients () {
+
   ## Gnome session.
-  case $vnc in no) run bginit gnome-session ;; esac
+  case "$vnc,$(xfce4-session --version 2>&1),$(gnome-session --version 2>&1)"
+  in
+    no,xfce4-session*)
+      run bginit xfce4-session
+      ;;
+    no,*,gnome-session\ 2.3[2-9].* | \
+    no,*,gnome-session\ 2.4[0-9].* | \
+    no,*,gnome-session\ 2.[1-9][0-9][0-9]*)
+      run bginit gnome-session --session mdw
+      ;;
+    no,*,gnome-session*)
+      run bginit gnome-session
+      ;;
+  esac
 
   ## Local clients.
   start-clients-local
@@ -335,17 +352,27 @@ session-running-p () {
     >/dev/null 2>&1
 }
 
+dbus-service-running-p () {
+  dbus-send >/dev/null 2>&1 --session --print-reply \
+    --dest=org.freedesktop.DBus / \
+    org.freedesktop.DBus.GetNameOwner string:$1
+}
+
 kill-gnome-session () {
-  if session-running-p; then
-    info "killing Gnome session manager"
-    dbus-send --session \
-      --dest=org.gnome.SessionManager /org/gnome/SessionManager \
-      org.gnome.SessionManager.Logout uint32:2
-    for i in 1 2 3 4 5; do
-      sleep 1
-      if ! session-running-p; then break; fi
-    done
-  fi
+  win=nil
+  while read service object logout; do
+    if dbus-service-running-p $service; then win=t; break; fi
+  done <<EOF
+org.xfce.SessionManager /org/xfce/SessionManager org.xfce.Session.Manager.Shutdown uint32:1 boolean:false
+org.gnome.SessionManager /org/gnome/SessionManager org.gnome.SessionManager.Logout uint32:2
+EOF
+  case $win in nil) return ;; esac
+  info "killing session manager"
+  dbus-send --session --dest=$service $object $logout
+  for i in 1 2 3 4 5; do
+    sleep 1
+    if ! dbus-service-running-p $service; then break; fi
+  done
 }
 
 ###--------------------------------------------------------------------------