tec/emacs-config
tec
/
emacs-config
1
0
Fork 0
Code Issues 4 Pull Requests Releases Activity

Org add capability to view output files externally

This commit is contained in:
TEC 2020-07-17 18:11:31 +08:00
parent 0a9f2aa90b
commit b702523770
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
config.org
View File

@ -2897,8 +2897,8 @@ functionality as in LaTeX. Let's try viewing possible output files with this.
:desc "View exported file" "v" #'org-view-output-file)
(defun org-view-output-file (&optional org-file-path)
(interactive)
"Visit buffer open on the first output file (if any) found, using `org-view-output-file-extensions'"
(interactive)
(let* ((org-file-path (or org-file-path (buffer-file-name) ""))
(dir (file-name-directory org-file-path))
(basename (file-name-base org-file-path))
@ -2909,12 +2909,16 @@ functionality as in LaTeX. Let's try viewing possible output files with this.
(concat dir basename "." ext))
(setq output-file (concat dir basename "." ext)))))
(if output-file
(pop-to-buffer (or (find-buffer-visiting output-file)
(find-file-noselect output-file)))
(if (member (file-name-extension output-file) org-view-external-file-extensions)
(browse-url-xdg-open output-file)
(pop-to-buffer (or (find-buffer-visiting output-file)
(find-file-noselect output-file))))
(message "No exported file found")))))
(defvar org-view-output-file-extensions '("pdf" "md" "rst" "txt" "tex")
(defvar org-view-output-file-extensions '("pdf" "md" "rst" "txt" "tex" "html")
"Search for output files with these extensions, in order, viewing the first that matches")
(defvar org-view-external-file-extensions '("html")
"File formats that should be opened externally.")
#+END_SRC
**** Super agenda
#+BEGIN_SRC emacs-lisp