;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312&\207" [require doc-view ol org-link-set-parameters "docview" :follow org-docview-open :export org-docview-export :store org-docview-store-link] 8) #@69 Export a docview link from Org files. (fn LINK DESCRIPTION FORMAT) (defalias 'org-docview-export #[771 "\300\301\"\203\302\303\"\202\206;\205I\304!\262\305=\203,\306\307#\202I\310=\203:\306\311#\202I\312=\203H\306\313#\202I\207" [string-match "\\(.+\\)::.+" match-string 1 expand-file-name html format "%s" latex "\\href{%s}{%s}" ascii "%s (%s)"] 9 (#$ . 627)]) #@15 (fn LINK _) (defalias 'org-docview-open #[514 "\300\301\"\210\302\303\"\304\224\205\305\302\304\"!\306\303\"\210\211\205 \307!\207" [string-match "\\(.*?\\)\\(?:::\\([0-9]+\\)\\)?$" match-string 1 2 string-to-number org-open-file doc-view-goto-page] 7 (#$ . 1046)]) #@35 Store a link to a docview buffer. (defalias 'org-docview-store-link #[0 "\302=\205 \303\304!\305\306\307!R\310\311\312\313\314&\266\203\207" [major-mode buffer-file-name doc-view-mode image-mode-window-get page "docview:" "::" number-to-string org-link-store-props :type "docview" :link :description] 10 (#$ . 1328)]) #@130 Use the existing file name completion for file. Links to get the file name, then ask the user for the page number and append it. (defalias 'org-docview-complete-link #[0 "\300\301\302\303 #\304\305\306\307\"Q\207" [replace-regexp-in-string "^file:" "docview:" org-link-complete-file "::" read-from-minibuffer "Page:" "1"] 5 (#$ . 1662)]) (provide 'ol-docview)