Allow xdg-settings to set the default OS handler for url protocols.

scripts/xdg-settings.in

 #!/bin/sh
 #---------------------------------------------
 #   xdg-settings
 #
 #   Utility script to get various settings from the desktop environment.
 #
 #   Refer to the usage() function below for usage.
 #
 #   Copyright 2009, Google Inc.
 #
@@ skipping 120 matching lines @@
     mkdir -p "${XDG_DATA_HOME:-$HOME/.local/share}/applications"
     xdg-mime default "$1" "$MIME" || return
     if [ x"`get_browser_mime`" != x"$1" ]; then
         # Put back the original value
         xdg-mime default "$orig" "$MIME"
         exit_failure_operation_failed
     fi
 }
 
 # }}} MIME utilities
+# {{{ KDE utilities
+
+# Reads the KDE configuration setting, compensating for a bug in some versions of kreadconfig.
+read_kde_config()
+{
+    configfile="$1"
+    configsection="$2"
+    configkey="$3"
+    browser="`kreadconfig --file $configfile --group $configsection --key $configkey`"
+    if [ x"$browser" != x ]; then

[Mike Mammarella, 2011/07/20 00:58:11]

Might be good to rename browser to something more generic. Watch out that
variables are global for the whole script, so avoid colliding with other
variables.

[benwells, 2011/07/20 04:33:42]

Done.

+        echo "$browser"
+    else
+        # kreadconfig in KDE 4 may not notice Key[$*]=... localized settings, so
+        # check by hand if it didn't find anything (oddly kwriteconfig works
+        # fine though).
+        kdeglobals_dir=`kde${KDE_SESSION_VERSION}-config --path config  | cut -d ':' -f 1`

[Mike Mammarella, 2011/07/20 00:58:11]

Same with kdeglobals_dir and kdeglobals.

[benwells, 2011/07/20 04:33:42]

Done.

+        kdeglobals="$kdeglobals_dir/$configfile"
+        [ ! -f "$kdeglobals" ] && return
+        # This will only take the first value if there is more than one.
+        grep "^$configkey"'\[$[^]=]*\]=' "$kdeglobals" | head -n 1 | cut -d= -f 2-
+    fi
+}
+
+# }}} KDE utilities
 # {{{ KDE
 
 # Resolves the KDE browser setting to a binary: if prefixed with !, simply removes it;
 # otherwise, uses desktop_file_to_binary to get the binary out of the desktop file.
 resolve_kde_browser()
 {
     [ -z "$browser" ] && return
     case "$browser" in
       !*)
         echo "${browser#!}"
@@ skipping 13 matching lines @@
       !*)
         desktop="`binary_to_desktop_file "${browser#!}"`"
         basename "$desktop"
         ;;
       *)
         echo "$browser"
         ;;
     esac
 }
 
-# Reads the KDE browser setting, compensating for a bug in some versions of kreadconfig.
 read_kde_browser()
 {
-    browser="`kreadconfig --file kdeglobals --group General --key BrowserApplication`"
-    if [ x"$browser" != x ]; then
-        echo "$browser"
-    else
-        # kreadconfig in KDE 4 may not notice Key[$*]=... localized settings, so
-        # check by hand if it didn't find anything (oddly kwriteconfig works
-        # fine though).
-        kdeglobals_dir=`kde${KDE_SESSION_VERSION}-config --path config  | cut -d ':' -f 1`
-        kdeglobals="$kdeglobals_dir/kdeglobals"
-        [ ! -f "$kdeglobals" ] && return
-        # This will only take the first value if there is more than one.
-        grep '^BrowserApplication\[$[^]=]*\]=' "$kdeglobals" | head -n 1 | cut -d= -f 2-
-    fi
+    read_kde_config kdeglobals General BrowserApplication
 }
 
 get_browser_kde()
 {
     browser="`read_kde_browser`"
     if [ x"$browser" = x ]; then
         # No explicit default browser; KDE will use the MIME type text/html.
         get_browser_mime
     else
         resolve_kde_browser_desktop
@@ skipping 235 matching lines @@
         mv "$temp" "$helpers_rc"
     else
         rm -f "$temp"
         return 1
     fi
 }
 
 # }}} xfce
 # }}} default browser
 
+# {{{ default url scheme handler
+
+exit_unimplemented_default_handler()
+{
+    exit_failure_operation_impossible "default-url-scheme-handler not implemented for $DE"
+}
+
+# {{{ KDE
+
+# Recent versions of KDE support default scheme handler applications using the mime type

[Mike Mammarella, 2011/07/20 00:58:11]

I might try to format this comment to fit in 80 characters. I'm not super
partial to the limit and since this is third_party code I don't force the code
to fit when it makes it ugly, but the comment should be easy to change.

[benwells, 2011/07/20 04:33:42]

Done.

+# of x-scheme-handler/scheme. Older versions will not support this but do have support
+# for setting a default mail handler. There is also a system in KDE where .protocol files
+# can be used, however this is not supported by this script.
+# When reading a scheme handler we will use the default mail handler for the mailto scheme,
+# otherwise we will use the mime type x-scheme-handler/scheme.
+
+get_url_scheme_handler_kde()
+{
+    if [ "$1" = "mailto" ]; then
+        handler="`read_kde_config emaildefaults PROFILE_Default EmailClient | first_word`"
+        echo "handler is $handler"
+        if [ x"$handler" != x ]; then
+            binary_to_desktop_file "$handler"
+        else
+            get_browser_mime "x-scheme-handler/$1"
+        fi
+    else 
+        get_browser_mime "x-scheme-handler/$1"
+    fi
+}
+
+check_url_scheme_handler_kde()
+{
+    check="`desktop_file_to_binary "$2"`"
+    if [ -z "$check" ]; then
+        echo no
+        exit_success
+    fi
+    if [ x"$1" = "mailto" ]; then
+        binary="`read_kde_config emaildefaults PROFILE_Default EmailClient`"
+        if [ x"$binary" != x"$check" ]; then
+            echo no
+            exit_success
+        fi
+    fi
+    handler="`get_browser_mime x-scheme-handler/$1`"
+    binary="`desktop_file_to_binary "$handler"`"
+    if [ x"$binary" != x"$check" ]; then
+        echo no
+        exit_success
+    fi
+    echo yes
+    exit_success
+}
+
+set_url_scheme_handler_kde()
+{
+    set_browser_mime "$2" "x-scheme-handler/$1" || return
+    if [ "$1" = "mailto" ]; then
+        binary="`desktop_file_to_binary "$2"`"
+        kwriteconfig --file emaildefaults --group PROFILE_Default --key EmailClient "$binary"
+    fi
+}
+
+# }}} KDE
+# {{{ GNOME
+
+get_url_scheme_handler_gnome()
+{
+    binary="`gconftool-2 --get /desktop/gnome/url-handlers/$1/command | first_word`"
+    if [ x"$binary" != x"" ]; then
+        # gconftool gives the binary (maybe with %s etc. afterward),
+        # but we want the desktop file name, not the binary. So, we
+        # have to find the desktop file to which it corresponds.
+        desktop="`binary_to_desktop_file "$binary"`"
+        basename "$desktop"
+    fi
+}
+
+check_url_scheme_handler_gnome()
+{
+    check="`desktop_file_to_binary "$2"`"
+    if [ -z "$check" ]; then
+        echo no
+        exit_success
+    fi
+    binary="`gconftool-2 --get /desktop/gnome/url-handlers/$1/command | first_word`"
+    if [ x"$binary" != x"$check" ]; then
+        echo no
+        exit_success
+    fi
+    echo yes
+    exit_success
+}
+
+set_url_scheme_handler_gnome()
+{
+    binary="`desktop_file_to_binary "$2"`"
+    [ "$binary" ] || exit_failure_file_missing
+
+    gconftool-2 --type string --set /desktop/gnome/url-handlers/$1/command "$binary %s"
+    gconftool-2 --type bool --set /desktop/gnome/url-handlers/$1/needs_terminal false
+    gconftool-2 --type bool --set /desktop/gnome/url-handlers/$1/enabled true
+}
+
+# }}} GNOME
+# {{{ GNOME 3.x
+
+get_url_scheme_handler_gnome3()
+{
+    get_browser_mime "x-scheme-handler/$1"
+}
+
+check_url_scheme_handler_gnome3()
+{
+    desktop="$2"
+    check="`desktop_file_to_binary "$2"`"
+    if [ -z "$check" ]; then
+        echo no
+        exit_success
+    fi
+    browser="`get_browser_mime "x-scheme-handler/$1"`"
+    if [ x"$browser" != x"$desktop" ]; then
+        echo no
+        exit_success
+    fi
+    echo yes
+    exit_success
+}
+
+set_url_scheme_handler_gnome3()
+{
+    binary="`desktop_file_to_binary "$2"`"
+    [ "$binary" ] || exit_failure_file_missing
+    set_browser_mime "$2" || return
+
+    # Set the default browser.
+    set_browser_mime "$2" "x-scheme-handler/$1" || return
+}
+
+# }}} GNOME 3.x
+# {{{ xfce
+
+get_url_scheme_handler_xfce()
+{
+    exit_unimplemented_default_handler "$1"
+}
+
+check_url_scheme_handler_xfce()
+{
+    exit_unimplemented_default_handler "$1"
+}
+
+set_url_scheme_handler_xfce()
+{
+    exit_unimplemented_default_handler "$1"
+}
+
+# }}} xfce
+# }}} default protocol handler
+
 dispatch_specific()
 {
     # The PROP comments in this function are used to generate the output of
     # the --list option. The formatting is important. Make sure to line up the
     # property descriptions with spaces so that it will look nice.
     if [ x"$op" = x"get" ]; then
         case "$parm" in
           default-web-browser) # PROP:           Default web browser
             get_browser_$DE
             ;;
 
+          default-url-scheme-handler) # PROP:    Default handler for url scheme

[Mike Mammarella, 2011/07/20 00:58:11]

Optional: URL

[benwells, 2011/07/20 04:33:42]

Done.

+            get_url_scheme_handler_$DE "$1"
+            ;;
+
           *)
             exit_failure_syntax
             ;;
         esac
     elif [ x"$op" = x"check" ]; then
         case "$parm" in
           default-web-browser)
             check_desktop_filename "$1"
             check_browser_$DE "$1"
             ;;
 
+          default-*-handler)

[Mike Mammarella, 2011/07/20 00:58:11]

Do you mean default-url-scheme-handler here?

[benwells, 2011/07/20 04:33:42]

Done.

+            check_desktop_filename "$2"
+            check_url_scheme_handler_$DE "$1" "$2"
+            ;;
+
           *)
             exit_failure_syntax
             ;;
         esac
     else # set
-        [ $# -eq 1 ] || exit_failure_syntax "unexpected/missing argument"
         case "$parm" in
           default-web-browser)
+            [ $# -eq 1 ] || exit_failure_syntax "unexpected/missing argument"
             check_desktop_filename "$1"
             set_browser_$DE "$1"
             ;;
 
+          default-*-handler)

[Mike Mammarella, 2011/07/20 00:58:11]

Same.

[benwells, 2011/07/20 04:33:42]

Done.

+            [ $# -eq 2 ] || exit_failure_syntax "unexpected/missing argument"
+            check_desktop_filename "$2"
+            set_url_scheme_handler_$DE "$1" "$2"
+            ;;
+
           *)
             exit_failure_syntax
             ;;
         esac
     fi
 
     if [ $? -eq 0 ]; then
         exit_success
     else
         exit_failure_operation_failed
@@ skipping 66 matching lines @@
     ;;
 
     generic)
     dispatch_generic "$@"
     ;;
 
     *)
     exit_failure_operation_impossible "unknown desktop environment"
     ;;
 esac