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

Chizi123
2018-11-21 7074318d7ab58aca124f590c42fd820e8eb258a5
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\"\202uP\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)