emacs org-mode导出odt文件,但使用PDF查看器打开

时间:2018-06-30 22:08:23

标签: emacs org-mode odt okular

出于某种原因,组织模式可以正确导出到ODT文件,但使用默认的PDF查看器(okular)而不是libreoffice打开它。我尝试了在类似的post中提到的所有解决方案,但没有任何运气。作为参考,我将复制以下init文件的相关部分。我的emacs是27.0.50,组织模式是9.1.13。

;; Enable export in ODT format
(eval-after-load "org" '(require 'ox-odt nil t)) ; enable odt backend
;; Open ODT files with libre office
(defun my-org-export-to-odt-and-open ()
  (interactive)
  (org-open-file (org-odt-export-to-odt)))

以及我的自定义设置变量中

 '(org-file-apps
   '((auto-mode . emacs)
     ("\\.mm\\'" . default)
     ("\\.x?html?\\'" . default)
     ("\\.odt\\'" . "libreoffice %s") 
     ("\\.pdf\\'" . "okular %s")))

在此先感谢您的帮助。

这是org-file-apps的输出值

Value:
((auto-mode . emacs)
 ("\\.mm\\'" . default)
 ("\\.x?html?\\'" . default)
 ("\\.odt\\'" . "libreoffice %s")
 ("\\.pdf\\'" . "okular %s"))
Original value was 
((auto-mode . emacs)
 ("\\.mm\\'" . default)
 ("\\.x?html?\\'" . default)
 ("\\.pdf\\'" . default))

这是edebug在org-open-file上的一个输出,当我尝试导出NOTES.org文件时。

Debugger entered--returning value: nil
  string-match("\\$\\(?:\\(?1:[[:alnum:]_]+\\)\\|{\\(?1:[^{}]+\\)}\\|\\$\\)" "/home/andre/org/NOTES.odt" 0)
* substitute-env-vars("/home/andre/org/NOTES.odt" t)
* substitute-env-in-file-name("/home/andre/org/NOTES.odt")
* substitute-in-file-name("/home/andre/org/NOTES.odt")
* #f(compiled-function (path &optional in-emacs line search) "Open the file at PATH.\nFirst, this expands any special file name abbreviations.  Then the\nconfiguration variable `org-file-apps' is checked if it contains an\nentry for this file type, and if yes, the corresponding command is launched.\n\nIf no application is found, Emacs simply visits the file.\n\nWith optional prefix argument IN-EMACS, Emacs will visit the file.\nWith a double \\[universal-argument] \\[universal-argument] prefix arg, Org tries to avoid opening in Emacs\nand to use an external application to visit the file.\n\nOptional LINE specifies a line to go to, optional SEARCH a string\nto search for.  If LINE or SEARCH is given, the file will be\nopened in Emacs, unless an entry from org-file-apps that makes\nuse of groups in a regexp matches.\n\nIf you want to change the way frames are used when following a\nlink, please customize `org-link-frame-setup'.\n\nIf the file does not exist, an error is thrown." #<bytecode 0x1524219>)("NOTES.odt" system)
* apply(#f(compiled-function (path &optional in-emacs line search) "Open the file at PATH.\nFirst, this expands any special file name abbreviations.  Then the\nconfiguration variable `org-file-apps' is checked if it contains an\nentry for this file type, and if yes, the corresponding command is launched.\n\nIf no application is found, Emacs simply visits the file.\n\nWith optional prefix argument IN-EMACS, Emacs will visit the file.\nWith a double \\[universal-argument] \\[universal-argument] prefix arg, Org tries to avoid opening in Emacs\nand to use an external application to visit the file.\n\nOptional LINE specifies a line to go to, optional SEARCH a string\nto search for.  If LINE or SEARCH is given, the file will be\nopened in Emacs, unless an entry from org-file-apps that makes\nuse of groups in a regexp matches.\n\nIf you want to change the way frames are used when following a\nlink, please customize `org-link-frame-setup'.\n\nIf the file does not exist, an error is thrown." #<bytecode 0x1524219>) ("NOTES.odt" system))
* org-open-file("NOTES.odt" system)
  (if a (org-odt-export-to-odt t s v) (org-open-file (org-odt-export-to-odt nil s v) 'system))
  (lambda (a s v b) (if a (org-odt-export-to-odt t s v) (org-open-file (org-odt-export-to-odt nil s v) 'system)))(nil t nil nil)
  org-export-dispatch(nil)
  funcall-interactively(org-export-dispatch nil)
  call-interactively(org-export-dispatch nil nil)
  command-execute(org-export-dispatch)

我一直往前走,直到如下所示。看起来文件是否匹配为\\.mm\\

Debugger entered--returning value: (10578 10582)
  match-data()
* regexp-opt-depth("\\.mm\\'")
* org-file-apps-entry-match-against-dlink-p(("\\.mm\\'" . default))
* cl-remove(nil ((auto-mode . emacs) ("\\.mm\\'" . default) ("\\.x?html?\\'" . default) ("\\.odt\\'" . "libreoffice %s") ("\\.pdf\\'" . "okular %s") (remote . emacs) (system . mailcap) (t . mailcap)) :if org-file-apps-entry-match-against-dlink-p)
* apply(cl-remove nil ((auto-mode . emacs) ("\\.mm\\'" . default) ("\\.x?html?\\'" . default) ("\\.odt\\'" . "libreoffice %s") ("\\.pdf\\'" . "okular %s") (remote . emacs) (system . mailcap) (t . mailcap)) :if org-file-apps-entry-match-against-dlink-p nil)
* cl-remove-if(org-file-apps-entry-match-against-dlink-p ((auto-mode . emacs) ("\\.mm\\'" . default) ("\\.x?html?\\'" . default) ("\\.odt\\'" . "libreoffice %s") ("\\.pdf\\'" . "okular %s") (remote . emacs) (system . mailcap) (t . mailcap)))
* #f(compiled-function (path &optional in-emacs line search) "Open the file at PATH.\nFirst, this expands any special file name abbreviations.  Then the\nconfiguration variable `org-file-apps' is checked if it contains an\nentry for this file type, and if yes, the corresponding command is launched.\n\nIf no application is found, Emacs simply visits the file.\n\nWith optional prefix argument IN-EMACS, Emacs will visit the file.\nWith a double \\[universal-argument] \\[universal-argument] prefix arg, Org tries to avoid opening in Emacs\nand to use an external application to visit the file.\n\nOptional LINE specifies a line to go to, optional SEARCH a string\nto search for.  If LINE or SEARCH is given, the file will be\nopened in Emacs, unless an entry from org-file-apps that makes\nuse of groups in a regexp matches.\n\nIf you want to change the way frames are used when following a\nlink, please customize `org-link-frame-setup'.\n\nIf the file does not exist, an error is thrown." #<bytecode 0x1524219>)("NOTES.odt" system)
* apply(#f(compiled-function (path &optional in-emacs line search) "Open the file at PATH.\nFirst, this expands any special file name abbreviations.  Then the\nconfiguration variable `org-file-apps' is checked if it contains an\nentry for this file type, and if yes, the corresponding command is launched.\n\nIf no application is found, Emacs simply visits the file.\n\nWith optional prefix argument IN-EMACS, Emacs will visit the file.\nWith a double \\[universal-argument] \\[universal-argument] prefix arg, Org tries to avoid opening in Emacs\nand to use an external application to visit the file.\n\nOptional LINE specifies a line to go to, optional SEARCH a string\nto search for.  If LINE or SEARCH is given, the file will be\nopened in Emacs, unless an entry from org-file-apps that makes\nuse of groups in a regexp matches.\n\nIf you want to change the way frames are used when following a\nlink, please customize `org-link-frame-setup'.\n\nIf the file does not exist, an error is thrown." #<bytecode 0x1524219>) ("NOTES.odt" system))
* org-open-file("NOTES.odt" system)
  (if a (org-odt-export-to-odt t s v) (org-open-file (org-odt-export-to-odt nil s v) 'system))
  (lambda (a s v b) (if a (org-odt-export-to-odt t s v) (org-open-file (org-odt-export-to-odt nil s v) 'system)))(nil t nil nil)
  org-export-dispatch(nil)
  funcall-interactively(org-export-dispatch nil)
  call-interactively(org-export-dispatch nil nil)
  command-execute(org-export-dispatch)

实际上,我一直在前进,并且与org-file-apps中可用的任何选项都不匹配。

1 个答案:

答案 0 :(得分:0)

经过大量的挖掘,我发现以下这些帖子:post1 post2 从中出现了以下解决方案:

;; Enable export in ODT format
(setcdr (assq 'system org-file-apps-defaults-gnu ) "xdg-open %s")
(setq process-connection-type nil)

没有在org-file-apps上配置的任何内容。