| 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%\207" [require org cl-lib org-link-set-parameters "eww" :follow eww :store org-eww-store-link] 6) | |
| 16 | #@43 Store a link to the url of an EWW buffer. | |
| 17 | (defalias 'org-eww-store-link #[0 "\305=\2054 \306\307\310\311 \312W\203 \n\202 \302 \313\314\315!\316 \312W\203) \2062 \n\2022 \317\f\320\"\2062 \302 &\207" [major-mode emacs-major-version eww-current-url eww-current-title eww-data eww-mode org-store-link-props :type "eww" :link 25 :url url-view-url t :description plist-get :title] 11 (#$ . 569)]) | |
| 18 | #@88 Move to the start of next link if exists. | |
| 19 | Otherwise point is not moved. Return point. | |
| 20 | (defalias 'org-eww-goto-next-url-property-change #[0 "\300`\301\"\206 `b\207" [next-single-property-change shr-url] 3 (#$ . 973)]) | |
| 21 | #@49 Non-nil if there is a next url property change. | |
| 22 | (defalias 'org-eww-has-further-url-property-change-p #[0 "\212`\300 )=?\207" [org-eww-goto-next-url-property-change] 2 (#$ . 1198)]) | |
| 23 | #@71 Return the url below point if there is an url; otherwise, return nil. | |
| 24 | (defalias 'org-eww-url-below-point #[0 "\300`\301\"\207" [get-text-property shr-url] 3 (#$ . 1385)]) | |
| 25 | #@383 Copy current buffer content or active region with `org-mode' style links. | |
| 26 | This will encode `link-title' and `link-location' with | |
| 27 | `org-make-link-string' and insert the transformed text into the | |
| 28 | kill ring, so that it can be yanked into an Org mode buffer with | |
| 29 | links working correctly. | |
| 30 | ||
| 31 | Further lines starting with a star get quoted with a comma to | |
| 32 | keep the structure of the Org file. | |
| 33 | (defalias 'org-eww-copy-for-org-mode #[0 "\300 ed\301\211\211\211\211\203 \302 \262\303 \262\304\305!\203 \305 \210\306\307!\210\212b\210\211\204\204 \310 \203\204 `\262\311 \204< \312 \210\311 \204H \313\314\315\301\211$\210`X\203{ `W\203\\ `{P\262\311 \262`\312 {\262\316!\203t \317\"\202u P\262\202( b\210\320\262\202( `W\203\223 `{P\262\321\322\323\324#!\210\306\325!)\207" [org-region-active-p nil region-beginning region-end fboundp deactivate-mark message "Transforming links..." org-eww-has-further-url-property-change-p org-eww-url-below-point org-eww-goto-next-url-property-change cl--assertion-failed (org-eww-url-below-point) "program logic error: point must have an url below but it hasn't" org-string-nw-p org-make-link-string t org-kill-new replace-regexp-in-string "^\\*" ",*" "Transforming links...done, use C-y to insert text into Org mode file"] 13 (#$ . 1563) nil]) | |
| 34 | (defalias 'org-eww-extend-eww-keymap #[0 "\301\302\303#\210\301\304\303#\207" [eww-mode-map define-key "\367" org-eww-copy-for-org-mode ""] 4]) | |
| 35 | (byte-code "\301\300!\203 \302!\203 \303 \210\304\305\303\"\210\306\307!\207" [eww-mode-map boundp keymapp org-eww-extend-eww-keymap add-hook eww-mode-hook provide org-eww] 3) | |
