Allow urlOpenCommand to be multiple words.

docs/sample-config.ini

@@ -214,7 +214,7 @@
 # The command to use to open attachments and URLs found in chat
 # messages.
 #
-# Matterhorn invokes this command with the URL as a command
+# Matterhorn invokes this command with the URL appended as the last command
 # argument. Matterhorn assumes the command will perform the opening
 # asynchronously, i.e., Matterhorn assumes the command will return
 # immediately after invoking a background process to open the URL. This
@@ -232,6 +232,8 @@
 # urlOpenCommand = open
 # A typical value for this on Linux is:
 # urlOpenCommand = xdg-open
+# A more complex alternative:
+# urlOpenCommand = qutebrowser --backend webengine --no-err-windows -l critical
 
 # This setting indicates whether the URL-opening command is interactive
 # in the terminal. Set this to True if your urlOpenCommand is a terminal

src/Matterhorn/State/Common.hs

@@ -188,7 +188,9 @@ openWithOpener getTarget = do
             mhError $ ConfigOptionMissing "urlOpenCommand"
         Just urlOpenCommand -> do
             targetResult <- getTarget
-
+            let cmdWords = T.words urlOpenCommand
+                (cmds, args) = splitAt 1 (T.unpack <$> cmdWords)
+                cmd = if null cmds then "$BROWSER" else head cmds
             case targetResult of
                 Left e -> do
                     mhError e
@@ -202,8 +204,9 @@ openWithOpener getTarget = do
                         False -> do
                             outputChan <- use (csResources.crSubprocessLog)
                             doAsyncWith Preempt $ do
-                                runLoggedCommand outputChan (T.unpack urlOpenCommand)
-                                                 [target] Nothing Nothing
+                                runLoggedCommand outputChan cmd
+                                                 (args <> [target])
+                                                 Nothing Nothing
                                 return Nothing
                         True -> do
                             -- If there isn't a new message cutoff
@@ -230,7 +233,7 @@ openWithOpener getTarget = do
                             -- handle management of messages delivered while
                             -- suspended.
                             mhSuspendAndResume $ \st -> do
-                                result <- runInteractiveCommand (T.unpack urlOpenCommand) [target]
+                                result <- runInteractiveCommand cmd (args <> [target])
 
                                 let waitForKeypress = do
                                         putStrLn "Press any key to return to Matterhorn."