Unix: ask GNOME for user's preferred browser, use firefox otherwise

git-svn-id: https://freearc.svn.sourceforge.net/svnroot/freearc@659 3a4f7f31-9599-433d-91b1-573e8b61252c
abandonware · Oct 5, 2009 · 342c750 · 342c750
1 parent 1407862
commit 342c750
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/FileManager.hs b/FileManager.hs
@@ -734,6 +734,7 @@ myGUI run args = do
   let openWebsite url  =  runFile url "." False
 #else
   let openWebsite url  =  do browser <- runProgram "gconftool-2 --get '/desktop/gnome/url-handlers/http/command'"
+                             browser <- return$ if "%s" `isInfixOf` browser  then browser  else "firefox \"%s\""
                              System.Process.runCommand (browser.$ replaceAll "%s" url)
                              return ()
 #endif