Haskell function `openBrowser` 打开 Gimp 而不是我的浏览器。 然而，Nautilus 双击打开浏览器

Question

我对https://hackage.haskell.org/package/svg-builder中的第一个示例进行了以下 2 个小改动：

1. 额外进口：

import Data.Text
import qualified Data.Text.Lazy.IO as TLIO
import Web.Browser(openBrowser)

2. 将 svg 数据写入文件，然后使用该文件打开浏览器的新main ：

main = do
  TLIO.writeFile "test.svg" $ renderText $ svg contents
  openBrowser "test.svg" >>= print

openBrowser来自https://hackage.haskell.org/package/open-browser

当我运行这个程序时，我的 Debian (11.6) 打开Gimp程序而不是浏览器。 当我双击 Nautilus 中的书面文件时，浏览器将打开。

我必须在哪里调整什么，以便 Haskell 程序也能打开浏览器？

Answer 1

查看您正在使用的浏览器库的代码（在撰写本文时）：

openBrowserLinux :: String -> IO Bool
openBrowserLinux url = exitCodeToBool `fmap` rawSystem executable argv
    where (executable, argv) = ("sh", ["-c", "xdg-open \"$0\" 2>&1 > /dev/null", url])
          exitCodeToBool ExitSuccess     = True
          exitCodeToBool (ExitFailure _) = False

根据xdg-open的手册页，它正在调用xdg-open ：

xdg-open 在用户的首选应用程序中打开一个文件或 URL。 如果提供了 URL，则 URL 将在用户首选的 web 浏览器中打开。 如果提供了文件，该文件将在该类型文件的首选应用程序中打开。 xdg-open 支持文件、ftp、http 和 https URL。

要在您的系统上运行此功能，您需要将处理svg文件的默认程序更新为您的首选浏览器。

---

使它正常工作可能是一项更大的任务，因为问题似乎与库本身的实现有关。 您可能想向库的维护者提出它，或者考虑寻找另一个库。

Answer 2

在阅读了xdg-mime 命令后，我做了：

xdg-mime default firefox-esr.desktop image/svg+xml 

这暂时解决了这个问题。