| commit | author | age | ||
| 76bbd0 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312&\207" [require org doc-view org-link-set-parameters "docview" :follow org-docview-open :export org-docview-export :store org-docview-store-link] 8) | |
| 16 | #@69 Export a docview link from Org files. | |
| 17 | ||
| 18 | (fn LINK DESCRIPTION FORMAT) | |
| 19 | (defalias 'org-docview-export #[771 "\300\301\"\203 \302\303\"\202 \206 ;\205? \304\305!!\262\306\267\202> \307\310#\202? \307\311#\202? \307\312#\202? \207" [string-match "\\(.+\\)::.+" match-string 1 org-link-escape expand-file-name #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (html 38 latex 46 ascii 54)) format "<a href=\"%s\">%s</a>" "\\href{%s}{%s}" "%s (%s)"] 9 (#$ . 628)]) | |
| 20 | #@13 | |
| 21 | ||
| 22 | (fn LINK) | |
| 23 | (defalias 'org-docview-open #[257 "\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] 6 (#$ . 1144)]) | |
| 24 | #@35 Store a link to a docview buffer. | |
| 25 | (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-store-link-props :type "docview" :link :description] 10 (#$ . 1424)]) | |
| 26 | #@130 Use the existing file name completion for file. | |
| 27 | Links to get the file name, then ask the user for the page number | |
| 28 | and append it. | |
| 29 | (defalias 'org-docview-complete-link #[0 "\300\301\302\303 #\304\305\306\307\"Q\207" [replace-regexp-in-string "^file:" "docview:" org-file-complete-link "::" read-from-minibuffer "Page:" "1"] 5 (#$ . 1758)]) | |
| 30 | (provide 'org-docview) | |
