| 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\302\303\304\305\306\307\310\311&\207" [require org org-link-set-parameters "info" :follow org-info-open :export org-info-export :store org-info-store-link] 8) | |
| 16 | #@40 Store a link to an Info file and node. | |
| 17 | (defalias 'org-info-store-link #[0 "\303=\205& \304\305 !\306\nR\305 !\306\nQ\307\310\311\312 \313\n\314 \315\n&\n\210\266\202\207" [major-mode Info-current-file Info-current-node Info-mode "info:" file-name-nondirectory "#" org-store-link-props :type "info" :file :node :link :desc] 13 (#$ . 594)]) | |
| 18 | #@65 Follow an Info file and node link specified by PATH. | |
| 19 | ||
| 20 | (fn PATH) | |
| 21 | (defalias 'org-info-open #[257 "\300!\207" [org-info-follow-link] 3 (#$ . 943)]) | |
| 22 | #@65 Follow an Info file and node link specified by NAME. | |
| 23 | ||
| 24 | (fn NAME) | |
| 25 | (defalias 'org-info-follow-link #[257 "\300\301\"\204 \300\302\"\203> \303\304\"\303\305\"\206 \306\307\310!\210\3111* \312\"0\202= \210\312\306\"\210\3131; \314!0\202= \210\211\207\315\316\"\207" [string-match "\\(.*\\)[#:]:?\\(.*\\)" "\\(.*\\)" match-string 1 2 "Top" require info (user-error) Info-find-node (user-error) Info-index user-error "Could not open: %s"] 6 (#$ . 1095)]) | |
| 26 | #@103 List of emacs documents available. | |
| 27 | Taken from <https://www.gnu.org/software/emacs/manual/html_mono/.> | |
| 28 | (defconst org-info-emacs-documents '("ada-mode" "auth" "autotype" "bovine" "calc" "ccmode" "cl" "dbus" "dired-x" "ebrowse" "ede" "ediff" "edt" "efaq-w32" "efaq" "eieio" "eintr" "elisp" "emacs-gnutls" "emacs-mime" "emacs" "epa" "erc" "ert" "eshell" "eudc" "eww" "flymake" "forms" "gnus" "htmlfontify" "idlwave" "ido" "info" "mairix-el" "message" "mh-e" "newsticker" "nxml-mode" "octave-mode" "org" "pcl-cvs" "pgg" "rcirc" "reftex" "remember" "sasl" "sc" "semantic" "ses" "sieve" "smtpmail" "speedbar" "srecode" "todo-mode" "tramp" "url" "vip" "viper" "widget" "wisent" "woman") (#$ . 1561)) | |
| 29 | #@153 Alist of documents generated from Texinfo source. | |
| 30 | When converting info links to HTML, links to any one of these manuals are | |
| 31 | converted to use these URL. | |
| 32 | (defconst org-info-other-documents '(("libc" . "https://www.gnu.org/software/libc/manual/html_mono/libc.html") ("make" . "https://www.gnu.org/software/make/manual/make.html")) (#$ . 2260)) | |
| 33 | #@357 Return URL or HTML file associated to Info FILENAME. | |
| 34 | If FILENAME refers to an official GNU document, return a URL pointing to | |
| 35 | the official page for that document, e.g., use "gnu.org" for all Emacs | |
| 36 | related documents. Otherwise, append ".html" extension to FILENAME. | |
| 37 | See `org-info-emacs-documents' and `org-info-other-documents' for details. | |
| 38 | ||
| 39 | (fn FILENAME) | |
| 40 | (defalias 'org-info-map-html-url #[257 "\211\235\203 \302\303\"\207\304 \"A\206 \211\305P\207" [org-info-emacs-documents org-info-other-documents format "https://www.gnu.org/software/emacs/manual/html_mono/%s.html" assoc ".html"] 4 (#$ . 2608)]) | |
| 41 | #@54 Expand Info NODE to HTML cross reference. | |
| 42 | ||
| 43 | (fn NODE) | |
| 44 | (defalias 'org-info--expand-node-name #[257 "\301\302\303\304\301\203 \305\202 \306\307\301\310\307##\266\202#\211\307\230\203$ \307\202; \311\304\312\313#)\266\203\203: \314P\202; \211\207" [inhibit-changing-match-data replace-regexp-in-string "\\([ \n ]+\\)\\|\\([^a-zA-Z0-9]\\)" #[257 "\300\225\203 \301\207\302\303\304!\"\207" [1 "-" format "_%04x" string-to-char] 5 "\n\n(fn M)"] nil "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" "\\`[0-9]" t string-match "g_t"] 13 (#$ . 3221)]) | |
| 45 | #@112 Export an info link. | |
| 46 | See `org-link-parameters' for details about PATH, DESC and FORMAT. | |
| 47 | ||
| 48 | (fn PATH DESC FORMAT) | |
| 49 | (defalias 'org-info-export #[771 "\300\301\"\211@A@\206 \302\303\267\2027 \304\305\306!\307!\206\" $\2028 \206+ \310\304\311$\262\2028 \312\207" [split-string "[#:]:?" "Top" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (html 19 texinfo 38)) format "<a href=\"%s#%s\">%s</a>" org-info-map-html-url org-info--expand-node-name "" "@ref{%s,%s,,%s,}" nil] 12 (#$ . 3786)]) | |
| 50 | (provide 'org-info) | |
