mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-21 e75a20334813452c6912c090d70a0de2c805f94d
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)