ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/net/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/net/shr.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(string-lessp emacs-version "23")
(error "`%s' was compiled for Emacs 23 or later" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\312\313\314&\210\315\316\317\320\311\321\313\306\322\323& \210\315\324\307\325\311\321\313\306\322\326& \210\315\327\330\331\311\312\313\306\322\332& \210\315\333\307\334\313\306\322\335&\210\315\336\337\340\313\306\322\341&\210\315\342\337\343\313\306\322\341&\210\315\344\345\346\313\306\322\341&\210\315\347\307\350\311\312\322\351\313\306& \210\315\352\353\354\311\355\322\356\313\306& \210\315\357\360\361\311\355\313\306\322\362& \210\315\363\330\364\311\355\313\306\322\332& \207" [require browse-url subr-x dom seq custom-declare-group shr nil "Simple HTML Renderer" :version "25.1" :group web custom-declare-variable shr-max-image-proportion 0.9 "How big pictures displayed are in relation to the window they're in.\nA value of 0.7 means that they are allowed to take up 70% of the\nwidth and height of the window. If they are larger than this,\nand Emacs supports it, then the images will be rescaled down to\nfit these criteria." "24.1" :type float shr-blocked-images "Images that have URLs matching this regexp will be blocked." (choice (const nil) regexp) shr-use-fonts t "If non-nil, use proportional fonts for text." boolean shr-table-horizontal-line "Character used to draw horizontal table lines.\nIf nil, don't draw horizontal table lines." (choice (const nil) character) shr-table-vertical-line 32 "Character used to draw vertical table lines." character shr-table-corner "Character used to draw table corners." shr-hr-line 45 "Character used to draw hr lines." shr-width "Frame width to use for rendering.\nMay either be an integer specifying a fixed width in characters,\nor nil, meaning that the full width of the window should be\nused." (choice (integer :tag "Fixed width in characters") (const :tag "Use the width of the window" nil)) shr-bullet "* " "Bullet used for unordered lists.\nAlternative suggestions are:\n- \" \"\n- \" \"" "24.4" string shr-external-browser 'browse-url-default-browser "Function used to launch an external browser." function shr-image-animate "Non nil means that images that can be animated will be."] 10)
#@157 If bound, this should be a function that will return the content.
This is used for cid: URLs, and the function is called with the
cid: URL as the argument.
(defvar shr-content-function nil (#$ . 2563))
#@46 Function called to put image and alt string.
(defvar shr-put-image-function 'shr-put-image (#$ . 2771))
(byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\207" [custom-declare-face shr-strike-through ((t (:strike-through t))) "Font for <s> elements." :group shr shr-link ((t (:inherit link))) "Font for link elements."] 6)
#@37 If non-nil, inhibit loading images.
(defvar shr-inhibit-images nil (#$ . 3116))
(defvar shr-folding-mode nil)
(defvar shr-start nil)
(defvar shr-indentation 0)
(defvar shr-internal-width nil)
(defvar shr-list-mode nil)
(defvar shr-content-cache nil)
(defvar shr-kinsoku-shorten nil)
(defvar shr-table-depth 0)
(defvar shr-stylesheet nil)
(defvar shr-base nil)
(defvar shr-depth 0)
(defvar shr-warning nil)
(defvar shr-ignore-cache nil)
(defvar shr-external-rendering-functions nil)
(defvar shr-target-id nil)
(defvar shr-table-separator-length 1)
(defvar shr-table-separator-pixel-width 0)
(defvar shr-table-id nil)
(defvar shr-current-font nil)
(defvar shr-internal-bullet nil)
(defvar shr-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\324#\210\302\326\320#\210\302\327\330#\210\302\331\320#\210)\207" [map make-sparse-keymap define-key "a" shr-show-alt-text "i" shr-browse-image "z" shr-zoom-image [9] shr-next-link [134217737] shr-previous-link [follow-link] mouse-face [mouse-2] shr-browse-url "I" shr-insert-image "w" shr-copy-url "u" "v" "o" shr-save-contents "
"] 4))
#@51 Display the HTML rendering of the current buffer.
(defalias 'shr-render-buffer #[(buffer) "\301\302!\204\n \303\304!\210\305\306!\210\307 \210\310rq\210\302ed\")!\210eb\207" [buffer fboundp libxml-parse-html-region error "This function requires Emacs to be compiled with libxml2" pop-to-buffer "*html*" erase-buffer shr-insert-document] 4 (#$ . 4349) (list (current-buffer))])
#@65 Display the HTML rendering of the region between BEGIN and END.
(defalias 'shr-render-region #[(begin end &optional buffer) "\304\305!\204\n \306\307!\210r\206 pq\210\305 \n\" \n|\210 b\210\310 !*\207" [buffer begin end dom fboundp libxml-parse-html-region error "This function requires Emacs to be compiled with libxml2" shr-insert-document] 3 (#$ . 4733) "r"])
#@75 Return non-nil if we know at least one of the fringes has non-zero width.
(defalias 'shr--have-one-fringe-p #[nil "\302\303!\205Y \304\305\203 \306\202 \307 \310=\203 \311\202 \312\313 !\206% \314\315\316 !\"*\314U?\206Y \310\305\203= \306\202> \307 \310=\203H \311\202I \312\313 !\206P \314\315\316 !\"*\314U?\207" [real side fboundp fringe-columns right nil / ceiling left car cadr window-fringes 0 float frame-char-width] 4 (#$ . 5105)])
#@139 Render the parsed document DOM into the current buffer.
DOM should be a parse tree as generated by
`libxml-parse-html-region' or similar.
(defalias 'shr-insert-document #[(dom) "\306`\306\211\307\211\306\310\311! \310 !B\n\203# \204 \n\202 \n\312 _\206X \204= \313\314 \315\n\2048 \316 \2048 \307\2029 \315#\202X \313\314\306\317\"\312 \320_\n\204V \316 \204V \312 \320_\202W \307#\306 \321\306\307\"\210\322 !\210\323 `\"\210\324 `\"\210\205\213 \325\326\".\n\207" [shr-content-cache shr-bullet shr-width shr-use-fonts bidi-display-reordering shr-internal-width nil 0 shr-string-pixel-width "-" frame-char-width - window-body-width 1 shr--have-one-fringe-p t 2 set-window-hscroll shr-descend shr-fill-lines shr-remove-trailing-whitespace message "%s" shr-internal-bullet shr-table-separator-pixel-width shr-warning shr-table-id shr-depth shr-base shr-start start dom] 13 (#$ . 5563)])
(defalias 'shr-remove-trailing-whitespace #[(start end) "\305 \214 \n}\210 b\210m?\205C \306\210\307i!V\203= \310`!\306\211 \203< \f@\311 \312\"\2035 \313 \312\306#\210\fA\211\204% *\314y\210\202 *\207" [width start end overlay --dolist-tail-- window-width nil shr-previous-newline-padding-width overlays-at overlay-get before-string overlay-put 1] 5])
#@289 Copy the URL under point to the kill ring.
If IMAGE-URL (the prefix) is non-nil, or there is no link under
point, but there is an image under point then copy the URL of the
image under point instead.
If called twice, then try to fetch the URL and see whether it
redirects somewhere else.
(defalias 'shr-copy-url #[(&optional image-url) "\303`\304\"\206 \303`\305\"\211\204 \306\307!\202@ @\232\203& \310\311\312\313$\202@ \314\315!r\nq\210\316\216\317!c\210\320ed\"\210\306\321\322 \"+)\207" [url kill-ring #1=#:temp-buffer get-text-property shr-url image-url message "No URL under point" url-retrieve #[(a) ":\2057 @\302=\2057 \303\304!r q\210\305\216A@c\210eb\210\306\307\310\311#\203, \312\313\311\211#\210\314\315\316 \"\210\317ed\"+\207" [a #2=#:temp-buffer :redirect generate-new-buffer #3=" *temp*" #[nil "\301!\205 \302!\207" [#2# buffer-name kill-buffer] 2] re-search-forward ".utm_.*" nil t replace-match "" message "Copied %s" buffer-string copy-region-as-kill] 4] nil t generate-new-buffer #3# #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] url-encode-url copy-region-as-kill "Copied %s" buffer-string] 6 (#$ . 6845) "P"])
#@24 Skip to the next link.
(defalias 'shr-next-link #[nil "\303`\304\"`\305m\204 \303`\304\"\n\232\203 \306u\210\202 m\2041 \303`\304\"\2031 \307\310\303`\311\"\"\202S m\204@ \312`d\304\305$\211\204I b\210\307\313!\202S b\210\307\310\303`\311\"\"+\207" [skip start current get-text-property shr-url nil 1 message "%s" help-echo text-property-not-all "No next link"] 5 (#$ . 8018) nil])
#@28 Skip to the previous link.
(defalias 'shr-previous-link #[nil "`\302o\204 \303`\304\"\203 \305u\210\202 o\204( \303`\304\"\211\204( \305u\210\202 \2045 \306\307!\210 b\202P o\204F \303`\304\"\203F \305u\210\2025 \310u\210\306\311\303`\304\"\"*\207" [found start nil get-text-property help-echo -1 message "No previous link" 1 "%s"] 5 (#$ . 8415) nil])
#@45 Show the ALT text of the image under point.
(defalias 'shr-show-alt-text #[nil "\301`\302\"\211\204 \303\304!\202 \303\305\306!\")\207" [text get-text-property shr-alt message "No image under point" "%s" shr-fill-text] 5 (#$ . 8781) nil])
#@146 Browse the image under point.
If COPY-URL (the prefix if called interactively) is non-nil, copy
the URL of the image to the kill buffer instead.
(defalias 'shr-browse-image #[(&optional copy-url) "\303`\304\"\211\204 \305\306!\2025 \203- \307\310!r\nq\210\311\216c\210\312ed\"\210\305\313\"+\2025 \305\314\"\210\315!)\207" [url copy-url #1=#:temp-buffer get-text-property image-url message "No image under point" generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] copy-region-as-kill "Copied %s" "Browsing %s..." browse-url] 4 (#$ . 9031) "P"])
#@47 Insert the image under point into the buffer.
(defalias 'shr-insert-image #[nil "\301`\302\"\211\204 \303\304!\202 \303\305\"\210\306\307p`S\310 E\311\211%)\207" [url get-text-property image-url message "No image under point" "Inserting %s..." url-retrieve shr-image-fetched point-marker t] 7 (#$ . 9633) nil])
#@116 Toggle the image size.
The size will be rotated between the default size, the original
size, and full-buffer size.
(defalias 'shr-zoom-image #[nil "\304`\305\"\304`\306\"\307\211\204 \310\311!\202 \304`\305\"\203# \312u\210\202 \313u\210`\304`\305\"\2035 \313u\210\202( \312u\210\314 `\315\307$\210` Z\316V\203L `S|\210)\310\317\n\"\210\320\n\321p`S\322 \301 \323=\204e \204i \324\202z \324=\203s \325\202z \325=\205z \323BCF\326$+\207" [buffer-read-only size url start get-text-property image-url image-size nil message "No image under point" -1 1 put-text-property display 2 "Inserting %s..." url-retrieve shr-image-fetched point-marker default original full t] 10 (#$ . 9956) nil])
(defalias 'shr-generic #[(dom) "\211@:\203 @AA\202 AA)\304\211\2055 @\211;\203) \305\n!\210\202- \306\n!\210 A\211\204 \304*\207" [dom node sub --dolist-tail-- nil shr-insert shr-descend] 3])
(put 'shr-generic 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'shr-descend #[(dom) "\211@:\203 @@\202 @)\n\236A\206/ \306\307\310\211@:\203( @@\202* @)!P \"\311\211@:\203? @A@\202B A@)\236A\f
T`
\312\245V\203a \313\211 \202 \203{ \314\315 \"\203x \316 !\f\244\202{ \317 \320\f\236A\321\232?\205 \322 !\203\224 !\210\202\325 \211\211@:\203\245 @AA\202\250 AA)\317 \211 !\205\323 !@\211 ;\203\304 \323 !\210\202\311 \324 !\210!A\211!\204\262 \317+\210\203\n\325\211@:\203\352 @A@\202\355 A@)\236A\232\203\n `U\203 \326c\210\327 \211T\330$\210 \205 \331 `\332\f\236A\333\f\236A$-\207" [dom node shr-external-rendering-functions obarray shr-stylesheet shr-depth intern "shr-tag-" symbol-name style 15 "Too deeply nested to render properly; consider increasing `max-specpdl-size'" string-match "color\\|display\\|border-collapse" shr-parse-style nil display "none" fboundp shr-insert shr-descend id "*" put-text-property shr-target-id shr-colorize-region color background-color start function max-specpdl-size shr-warning sub --dolist-tail--] 7])
(defalias 'shr-fill-text #[(text) "G\306U\203 \207\307\310!r q\210\311\216\306\312\313\314\312\315\"\316 \317_\n\204. \320 \204. \316 \317_\202/ \306# \321!\210\322 .\207" [text #1=#:temp-buffer shr-width shr-internal-width shr-start shr-indentation 0 generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] nil - window-body-width t frame-char-width 2 shr--have-one-fringe-p shr-insert buffer-string] 7])
#@63 Return non-nil if a line can be broken before and after CHAR.
(defalias 'shr-char-breakable-p #[(char) " H\207" [fill-find-break-point-function-table char] 2 (#$ . 12434)])
(function-put 'shr-char-breakable-p 'compiler-macro 'shr-char-breakable-p--inliner)
(defalias 'shr-char-breakable-p--inliner #[(inline--form char) "\3012 \302\303E0\207" [char inline--just-use aref fill-find-break-point-function-table] 3])
#@63 Return non-nil if no space is required before and after CHAR.
(defalias 'shr-char-nospace-p #[(char) " H\207" [fill-nospace-between-words-table char] 2 (#$ . 12856)])
(function-put 'shr-char-nospace-p 'compiler-macro 'shr-char-nospace-p--inliner)
(defalias 'shr-char-nospace-p--inliner #[(inline--form char) "\3012 \302\303E0\207" [char inline--just-use aref fill-nospace-between-words-table] 3])
#@56 Return non-nil if a line ought not to begin with CHAR.
(defalias 'shr-char-kinsoku-bol-p #[(char) "\301=?\205\f \302!\303H\207" [char 39 char-category-set 62] 2 (#$ . 13262)])
(function-put 'shr-char-kinsoku-bol-p 'compiler-macro 'shr-char-kinsoku-bol-p--inliner)
(defalias 'shr-char-kinsoku-bol-p--inliner #[(inline--form char) "\30326 \304 !\203 \202 \305\306!\307\310\311\312ED\313\314D\315EE =\203- \n\2024 \316 DC\n\"+0\207" [char #1=#:exp #2=#:body inline--just-use macroexp-copyable-p make-symbol "char" and not eq 39 aref char-category-set 62 macroexp-let*] 5])
#@54 Return non-nil if a line ought not to end with CHAR.
(defalias 'shr-char-kinsoku-eol-p #[(char) "\301!\302H\207" [char char-category-set 60] 2 (#$ . 13851)])
(function-put 'shr-char-kinsoku-eol-p 'compiler-macro 'shr-char-kinsoku-eol-p--inliner)
(defalias 'shr-char-kinsoku-eol-p--inliner #[(inline--form char) "\3012 \302\303D\304E0\207" [char inline--just-use aref char-category-set 60] 3])
(byte-code "\301\302\303\304#\211\305=?\205 \306!\307H)\204 \310\311\312\313#\210\312\207" [#:char make-char japanese-jisx0208 33 35 39 char-category-set 62 load "kinsoku" nil t] 5)
(defalias 'shr-pixel-column #[nil "\204 i\207\302p!\204$ \303 \304\216\305\306\211\"\210\307\306p\"\210\310\306\311 `#@*\207\310\306\311 `#@\207" [shr-use-fonts #1=#:wconfig get-buffer-window current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] set-window-dedicated-p nil set-window-buffer window-text-pixel-size line-beginning-position] 4])
(defalias 'shr-pixel-region #[nil "\300 \212\301 b\210\300 )Z\207" [shr-pixel-column mark] 2])
(defalias 'shr-string-pixel-width #[(string) "\204 G\207\303\304!r\nq\210\305\216 c\210\306 +\207" [shr-use-fonts string #1=#:temp-buffer generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] shr-pixel-column] 2])
(defalias 'shr-insert #[(text) "n\204 \306`S\307\"\203 \310c\210\311=\2037 `\nc\210\214 `}\210eb\210\312\313\314\315#\2033 \316\317\315\211#\210\202\" db*\207`\320\321\n\"\203O n\204O `Sf\322=\204O \323c\210`n \nc\210\214 `}\210 b\210\324\325!\203j \316\317\315\211#\210\326\325\314\315#\203{ \316\323\315\211#\210\202j eb\210\312\313\314\315#\203\217 \316\317\315\211#\210\202~ db\210) `U?\205\261 \f\203\242 \327 !\210
\205\261 \330 `\331\206\260 \332$+\207" [shr-folding-mode start text font-start bolp shr-use-fonts get-text-property image-url "\n" none search-forward "" nil t replace-match "" string-match "\\`[ \n
]" 32 " " looking-at "[ \n
]+" re-search-forward shr-mark-fill put-text-property face variable-pitch shr-current-font] 5])
(defalias 'shr-fill-lines #[(start end) "\303X?\2052 \214 \n}\210 b\210\304`\305\"\203 \306 \210\307 \305\"\211\203/ b\210n\203 \306 \210\202 db)\207" [shr-internal-width start end 0 get-text-property shr-indentation shr-fill-line next-single-property-change] 3])
(defalias 'shr-vertical-motion #[(column) "\204 \302 !\207l\204 \303u\210\304 \305 \245\306B!\210l?\205 \303u\207" [shr-use-fonts column move-to-column 1 vertical-motion frame-char-width 0] 3])
(defalias 'shr-fill-line #[nil "\306`\302\"\306`\307\"\310\311``T\302\310$\210\306`\304\"` \312 \210\f\203+ \311 `\304\313\f!$\210*` \2063 \n\314
!\210\315\316!\203C `\317 |\210l?\205\234 \320\321 !\203U `U\203c \322 \210\323\310w\210\324\323\317 \325#\210h\326U\203m \327\330!\210\306`\304\"` \331c\210\312 \210\f\203\207 \311 `\304\313\f!$\210*`\314
!\210\315\316!\203C `\317 |\210\202C +\207" [start continuation shr-indentation background-start face shr-internal-width get-text-property shr-continuation-indentation nil put-text-property shr-indent shr-face-background shr-vertical-motion looking-at " $" line-end-position shr-find-fill-point line-beginning-position beginning-of-line " " search-forward move 32 delete-char -1 "\n"] 6])
(defalias 'shr-find-fill-point #[(start) "``\306` X\211\204d h\307=\204d g\307=\204d \fhH\204d \fgH\204d h\211 \310=?\2054 \311
!\312H)\203R \fgH\203R g\211 \310=?\205N \311!\312H)\203d \311g!\313H\204d n\204d \314u\210\202 \203\226 \306 \nb\210\204\222 \203\222 \315\316\317 \320#\211\204x \203\222 \321\224\204\222 \322\224b\210)\202\226l\204\226\204\244 \204\357 h\322\323\307E>\204\317 \311h!\313H\204\311 g\211 \310=?\205\305 \311!\312H)\203\317 \314u\210\202\244 ` X\211\203\215\321u\210` X\203\352 `\311g!\313H\204\327 \nb\202\212\311h!\313H\203G\324 \314u\210 S\211 \322V\203-h\322\323\307E>\204-\311h!\313H\204\372 g\211 \310=?\205)\311 !\312H)\204\372 )` X\211\203\215\325\326!\203B\321\225b\202\212\321u\202\212g\211 \310=?\205W\311 !\312H)\203\215\324 \321u\210 S\211 \322Y\205\211g\211 \310=?\205|\311 !\312H)\205\211\fgH\205\211\202^)\204\226g\307=\203\226\321u\210+?\207" [failed end bp start fill-find-break-point-function-table #1=#:char nil 32 39 char-category-set 62 60 -1 re-search-forward "\\(\\c>\\)\\| \\|\\c<\\|\\c|" line-end-position move 1 0 10 4 looking-at "\\(\\c<+\\)\\c<" #2=#:char found shr-kinsoku-shorten shr-width #3=#:char count #4=#:char #5=#:char #6=#:char] 5])
(defalias 'shr-parse-base #[(url) "\305\306\"\203
\307\211\224O\310!\311!\211\307H\n>\204$ \312\313\300 D\"\210 \314H \307H\n>\2047 \312\313\300 D\"\210 \211 \314\315I\210)\305\316 \"\203K \317\320 \" G\307U\204` \211GSH\321=\204` \322P\323 ! \307H\n>\204s \312\313\300 D\"\210 \320HF*\207" [url parsed cl-struct-url-tags local #1=#:v string-match "#.*" 0 shr-expand-url url-generic-parse-url signal wrong-type-argument 6 "" "\\`\\(.*/\\)[^/]+\\'" match-string 1 47 "/" url-recreate-url] 7])
(autoload 'url-expand-file-name "url-expand")
(defalias 'shr-expand-url #[(url &optional base) "\203\n \303!\202 \nG\304U\203 \305\n\203& \306\307\n\"\203& \n\304\225\305O\n\2035 \2035 \306\310\n\"\203= \n\206w \3118\207\n\304H\312=\203` \nG\313V\203[ \n\313H\312=\203[ \3148\315\nQ\207@\nP\207\n\304H\316=\203n \3118\nP\207\317\n@A@P\"\207" [base shr-base url shr-parse-base 0 nil string-match "\\`\\s-+" "\\`[a-z]*:" 3 47 1 2 ":" 35 url-expand-file-name] 4])
(defalias 'shr-ensure-newline #[nil "o?\205\" \301\302 \303\"i\304U\206 \205 `\302 ZU?\205! \305c)\207" [prefix get-text-property line-beginning-position shr-prefix-length 0 "\n"] 3])
(defalias 'shr-ensure-paragraph #[nil "o?\205` \301\302 \303\"n\203 \212\304y\210\305\306!)\206_ \203' `\302 ZU\206_ \212\307 \210\305\306!\205D \301`\310\"?\205D \311`\310\312\313 $\313 U?)\203P \314\224\314\225|\202_ l\203] n\203] \315c\202_ \316c)\207" [prefix get-text-property line-beginning-position shr-prefix-length -1 looking-at " *$" beginning-of-line face next-single-property-change nil line-end-position 0 "\n" "\n\n"] 5])
(defalias 'shr-indent #[nil "\302V\205 \204 \303\304\"\202 \305\306\307\310\311CE#c\207" [shr-indentation shr-use-fonts 0 make-string 32 propertize " " display space :width] 6])
(defalias 'shr-fontize-dom #[(dom &rest types) "` \211\211@:\203 \n@AA\202 \nAA)\306\211 \2059 \f@\211;\203- \307 !\210\2021 \310 !\210\fA\211\204 \306+\210
\306 \n\211 \205W \f@\n\311`\n#\210\fA\211\204D \306+\207" [start dom node sub --dolist-tail-- types nil shr-insert shr-descend shr-add-font type] 5])
(defalias 'shr-add-font #[(start end type) "\212b\210` W\205/ n\203 \303\304w\210\305`\306 ^\n\307$\210\306 W\203) \310y\210\202 b\210\202 )\207" [start end type " " nil add-face-text-property line-end-position t 1] 5])
#@40 Browse the URL under the mouse cursor.
(defalias 'shr-mouse-browse-url #[(ev) "\301!\210\302 \207" [ev mouse-set-point shr-browse-url] 2 (#$ . 20750) "e"])
#@87 Browse the URL under point.
If EXTERNAL, browse the URL using `shr-external-browser'.
(defalias 'shr-browse-url #[(&optional external mouse-event) "\304!\210\305`\306\"\211\204 \307\310!\202- \311\312 \"\203 \313 !\202- \n\203* !\202- \314 !)\207" [mouse-event url external shr-external-browser mouse-set-point get-text-property shr-url message "No link under point" string-match "^mailto:" browse-url-mail browse-url] 4 (#$ . 20913) (list current-prefix-arg last-nonmenu-event)])
#@39 Save the contents from URL in a file.
(defalias 'shr-save-contents #[(directory) "\302`\303\"\211\204 \304\305!\202 \306\307!\310 D\311\312%)\207" [url directory get-text-property shr-url message "No link under point" url-retrieve shr-encode-url shr-store-contents nil t] 7 (#$ . 21406) "DSave contents of URL to directory: "])
(defalias 'shr-store-contents #[(status url directory) "\303\304\"?\205\" \305\306\307\310#\204 \305\311\307\310#\205\" \312`d\313\314 !\n\"#\207" [status url directory plist-get :error search-forward "\n\n" nil t "
\n
\n" write-region expand-file-name file-name-nondirectory] 6])
(defalias 'shr-image-fetched #[(status buffer start end &optional flags) "p\306 !\203t \307\n\310\"\204t \311!\210\312\313\314\315#\204# \312\316\314\315#\203t \317 r q\210\212\f
{\320\f!\315 \f
|\210\fb\210 #\210\203r \211A\242\211A\242 \211 \321>\204n \322\f`$\210*\202H .\323!)\207" [image-buffer buffer status data start end buffer-name plist-get :error url-store-in-cache search-forward "\n\n" nil t "
\n
\n" shr-parse-image-data text-properties-at (display image-size) put-text-property kill-buffer inhibit-read-only properties alt shr-put-image-function flags value type] 6])
#@50 Return an image from the data: URI content DATA.
(defalias 'shr-image-from-data #[(data) "\303\304\"\205* \305\306\"\307\305\310\"!\303\311\n\"\203( \3121% \313 !0\202' \210\314 *\207" [data payload param string-match "\\(\\([^/;,]+\\(/[^;,]+\\)?\\)\\(;[^;,]+\\)*\\)?,\\(.*\\)" match-string 4 url-unhex-string 5 "^.*\\(;[ ]*base64\\)$" (error) base64-decode-string nil] 5 (#$ . 22643)])
#@183 Insert image SPEC with a string ALT. Return image.
SPEC is either an image data blob, or a list where the first
element is the data blob and the second element is the content-type.
(defalias 'shr-put-image #[(spec alt &optional flags) "\306 \203\327 \301\236A\n:\203 \n@\202 \n\n:\205 \nA@ ` \307=\2034 \310 \311\312\313\314\315\f&\202i \f\316=\203D \310 \317\312\313\314%\202i \320=\203[ \3211V \322 \f\"0\202i \210\311\202i \3231g \322 \f\"0\202i \210\311\211 $\203\323 i\324V\203\203 \325$\312\"@\326V\203\203 \327c\210 \307=\203\232 \330$%\206\222 \331\311\332\333%\210\202\245 \334$%\206\243 \331\"\210\335
`\325 $\210&\203\323 \336\337!\203\277 \337$!A\202\311 \336\340!\203\323 \340$!\203\323 \341$\311\342#\210$-\207%\206\335 \343c\207" [flags size spec data content-type start display-graphic-p original create-image nil t :ascent 100 :format image/svg+xml svg full (error) shr-rescale-image (error) 0 image-size 400 "\n" insert-sliced-image "*" 20 1 insert-image put-text-property fboundp image-multi-frame-p image-animated-p image-animate 60 "" image alt shr-image-animate] 9 (#$ . 23044)])
#@54 Rescale DATA, if too big, to fit the current buffer.
(defalias 'shr-rescale-image #[(data &optional content-type) "\304\305!\203\f \306p!\204 \307\310\311\312\313%\207\314\306p!!\307\315\311\312\313\316\317\n\320 8 @Z_!\321\317\n\322 8 A@Z_!\323 & )\207" [data edges shr-max-image-proportion content-type fboundp imagemagick-types get-buffer-window create-image nil t :ascent 100 window-inside-pixel-edges imagemagick :max-width truncate 2 :max-height 3 :format] 13 (#$ . 24173)])
(byte-code "\300\301\302\"\210\300\303\304\"\207" [autoload mm-disable-multibyte "mm-util" browse-url-mail "browse-url"] 3)
#@58 Get image data for URL.
Return a string with image data.
(defalias 'shr-get-image-data #[(url) "\302\303!rq\210\304\216\305 \210\3061 \307\310\311 !!!\210\3120\202# \210\313\2028 \2058 \314\315\313\312#\2046 \314\316\313\312#\2058 \317 +\207" [#1=#:temp-buffer url generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] mm-disable-multibyte (error) url-cache-extract url-cache-create-filename shr-encode-url t nil search-forward "\n\n" "
\n
\n" shr-parse-image-data] 4 (#$ . 24788)])
(defalias 'shr-parse-image-data #[nil "`d{\212\214e`}\210\303\304!\211\205 \305\306\307\310# \"+\311=\203) \312\313`d\"!\n*D\207" [content-type obarray data mail-fetch-field "content-type" intern replace-regexp-in-string ";.*" "" image/svg+xml shr-dom-to-xml libxml-parse-xml-region] 7])
#@243 Return a function to display an image.
CONTENT-FUNCTION is a function to retrieve an image for a cid url that
is an argument. The function to be returned takes three arguments URL,
START, and END. Note that START and END should be markers.
(defalias 'shr-image-displayer #[(content-function) "\301\302\303\304\305\306\205 \307\310\311\312BBDC\313BB\314BBBEE\207" [content-function lambda (url start end) when url if (string-match "\\`cid:" url) let image funcall ((substring url (match-end 0))) ((when image (goto-char start) (funcall shr-put-image-function image (buffer-substring start end)) (delete-region (point) end))) ((url-retrieve url 'shr-image-fetched (list (current-buffer) start end) t t))] 11 (#$ . 25617)])
(defalias 'shr-heading #[(dom &rest types) "\302 \210\303\304 #\210\302 \207" [dom types shr-ensure-paragraph apply shr-fontize-dom] 4])
(defalias 'shr-urlify #[(start url &optional title) "\305`\306#\210\307`\310 \311\3121 \313\314 !\315\316#0\202 \210\202\" \206# \2030 \317\320\n #\2021 \n)\321\316\322\323\324\f\257\n#\207" [start url iri title shr-map shr-add-font shr-link add-text-properties shr-url help-echo (error) decode-coding-string url-unhex-string utf-8 t format "%s (%s)" follow-link mouse-face highlight keymap] 13])
#@13 Encode URL.
(defalias 'shr-encode-url #[(url) "\301\302\"\207" [url browse-url-url-encode-chars "[)$ ]"] 3 (#$ . 26891)])
(byte-code "\300\301\302\"\210\300\303\302\"\207" [autoload shr-color-visible "shr-color" shr-color->hexadecimal] 3)
#@166 Check that FG is visible on BG.
Returns (fg bg) with corrected values.
Returns nil if the colors that would be used are the default
ones, in case fg and bg are nil.
(defalias 'shr-color-check #[(fg bg) "\204 \205V \204 \300\202 ?\205 \301\303!\206! \304\305\306\"\303 !\206+ \304\305\307\"\n\301=\203? \305\310 \311#A@D\202U \n\300=\203Q \310 \311#A@\305D\202U \310 \"+\207" [fg bg fixed shr-color->hexadecimal frame-parameter nil foreground-color background-color shr-color-visible t] 5 (#$ . 27138)])
(defalias 'shr-colorize-region #[(start end fg &optional bg) "\204 \2057 \305 \306Y\2057 \307 \"\211\2035 \203' \310 \f\311\nA@D\312$\210 \2035 \310 \f\313\n@D\312$\210\n)\207" [fg bg new-colors start end display-color-cells 88 shr-color-check add-face-text-property :foreground t :background] 6])
(defalias 'shr-previous-newline-padding-width #[(width) "\305`!\306\211\204 \n\202. \307\211 \203* \f@\310\311 !\312\"G\\\fA\211\204 *\n\\*\207" [previous-width overlays width overlay --dolist-tail-- overlays-at 0 nil plist-get overlay-properties before-string] 5])
(defalias 'shr-tag-html #[(dom) "\302\211@:\203 @A@\202 A@)\236A\211\306\232\203\" \307\202* \n\310\232\203* \311)\211\211@:\203< @AA\202? AA)\312 \211 \205b
@\211;\203V \313\f!\210\202Z \314\f!\210
A\211\204G \312+\207" [dom node dir bidi-paragraph-direction sub --dolist-tail-- "ltr" left-to-right "rtl" right-to-left nil shr-insert shr-descend] 3])
(defalias 'shr-tag-body #[(dom) "`\303 \211@:\203 \n@A@\202 \nA@)\236A\2061 \306 \211@:\203+ \n@A@\202. \nA@)\236A\304 \211@:\203B \n@A@\202E \nA@)\236A \307 B\310\fBD \211\211@:\203b \n@AA\202e \nAA)\311
\211 \205\220 @\211
;\203\201 \312
!\210\202\206 \313
!\210A\211\204o \311+\210\314` \f$,\207" [start dom node fgcolor bgcolor shr-stylesheet text color background-color nil shr-insert shr-descend shr-colorize-region sub --dolist-tail--] 6])
(defalias 'shr-tag-style #[(_dom) "\300\207" [nil] 1])
(defalias 'shr-tag-script #[(_dom) "\300\207" [nil] 1])
(defalias 'shr-tag-comment #[(_dom) "\300\207" [nil] 1])
(defalias 'shr-dom-to-xml #[(dom) "\302\303!rq\210\304\216\305 !\210\306 +\207" [#1=#:temp-buffer dom generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] shr-dom-print buffer-string] 2])
#@62 Convert DOM into a string containing the xml representation.
(defalias 'shr-dom-print #[(dom) "\306\307\211@:\203 @@\202 @)\"c\210\211@:\203% @A@\202( A@)\310\211\203O @\306\311\n@\"\312H\313U\204H \306\314\n@\nA#c\210 A\211\2040 *\315c\210\310 \211@:\203d @AA\202g AA)\310 \211\203\337 @\211;\203}
c\210\202\330
\211@:\203\213 @@\202\215 @)\316=\204\330
\211@:\203\241 @@\202\243 @)\317=\203\321 \320
\211@:\203\271 @A@\202\274 A@)\236A\211\203\321 \203\321 \321\f\"\204\330 \322c\210\323
!\210 A\211\204o +\306\324\211@:\203\360 @@\202\362 @)\"c\207" [dom node attr --dolist-tail-- url elem format "<%s" nil "%s" 0 58 " %s=\"%s\"" ">" comment image :xlink:href string-match " " shr-dom-print "</%s>" shr-blocked-images] 5 (#$ . 29480)])
(defalias 'shr-tag-svg #[(dom) "\304\305!\205E ?\205E \306 \211@:\203 \n@A@\202 \nA@)\236A\205E \307 \211@:\2034 \n@A@\2027 \nA@)\236A\205E \310 !\311D\312\"\207" [shr-inhibit-images dom node shr-put-image-function image-type-available-p svg width height shr-dom-to-xml image/svg+xml "SVG Image"] 4])
(defalias 'shr-tag-sup #[(dom) "` \211\211@:\203 \n@AA\202 \nAA)\305\211 \2059 \f@\211;\203- \306 !\210\2021 \307 !\210\fA\211\204 \305+\210\310`\311\312$)\207" [start dom node sub --dolist-tail-- nil shr-insert shr-descend put-text-property display (raise 0.5)] 6])
(defalias 'shr-tag-sub #[(dom) "` \211\211@:\203 \n@AA\202 \nAA)\305\211 \2059 \f@\211;\203- \306 !\210\2021 \307 !\210\fA\211\204 \305+\210\310`\311\312$)\207" [start dom node sub --dolist-tail-- nil shr-insert shr-descend put-text-property display (raise -0.5)] 6])
(defalias 'shr-tag-label #[(dom) "\211\211@:\203 @AA\202 AA)\304\211\2057 @\211;\203+ \305\n!\210\202/ \306\n!\210 A\211\204 \304+\210\307 \207" [dom node sub --dolist-tail-- nil shr-insert shr-descend shr-ensure-paragraph] 3])
(defalias 'shr-tag-p #[(dom) "\304 \210\211\211@:\203 @AA\202 AA)\305\211\205: @\211;\203. \306\n!\210\2022 \307\n!\210 A\211\204 \305+\210\304 \207" [dom node sub --dolist-tail-- shr-ensure-paragraph nil shr-insert shr-descend] 3])
(defalias 'shr-tag-div #[(dom) "\304 \210\211\211@:\203 @AA\202 AA)\305\211\205: @\211;\203. \306\n!\210\2022 \307\n!\210 A\211\204 \305+\210\304 \207" [dom node sub --dolist-tail-- shr-ensure-newline nil shr-insert shr-descend] 3])
(defalias 'shr-tag-s #[(dom) "\301\302\"\207" [dom shr-fontize-dom shr-strike-through] 3])
(defalias 'shr-tag-del #[(dom) "\301\302\"\207" [dom shr-fontize-dom shr-strike-through] 3])
(defalias 'shr-tag-b #[(dom) "\301\302\"\207" [dom shr-fontize-dom bold] 3])
(defalias 'shr-tag-i #[(dom) "\301\302\"\207" [dom shr-fontize-dom italic] 3])
(defalias 'shr-tag-em #[(dom) "\301\302\"\207" [dom shr-fontize-dom italic] 3])
(defalias 'shr-tag-strong #[(dom) "\301\302\"\207" [dom shr-fontize-dom bold] 3])
(defalias 'shr-tag-u #[(dom) "\301\302\"\207" [dom shr-fontize-dom underline] 3])
(defalias 'shr-tag-tt #[(dom) "\305 \211\211@:\203 \n@AA\202 \nAA)\306\211 \2059 \f@\211;\203- \307 !\210\2021 \310 !\210\fA\211\204 \306,\207" [shr-current-font dom node sub --dolist-tail-- default nil shr-insert shr-descend] 3])
(defalias 'shr-parse-style #[(style) "\205u \306 \307\216\310\311\"\203 \312\313\314\211$*\315\316\317\"\315\211 \203r \f@\211\203k \316 \320\"\211@\203k A@\203k \321\322\323 @#\321\322\323 A@# \310\324
\"\203Y
\325\211\224O
\326\232\204j \327\"
B\nB*\fA\211\204% *\n)\207" [style save-match-data-internal plist elem --dolist-tail-- value match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] string-match "\n" replace-match " " t nil split-string ";" ":" replace-regexp-in-string "^ +\\| +$" "" " *!important\\'" 0 "inherit" intern name obarray] 6])
(defalias 'shr-tag-base #[(dom) "\306\211@:\203 @A@\202 A@)\236A\211\203 \307\n!)\211\211@:\2031 @AA\2024 AA)\310 \211 \205W
@\211;\203K \311\f!\210\202O \312\f!\210
A\211\204< \310+\207" [dom node base shr-base sub --dolist-tail-- href shr-parse-base nil shr-insert shr-descend] 3])
(defalias 'shr-tag-a #[(dom) "\306\211@:\203 @A@\202 A@)\236A\304\211@:\203& @A@\202) A@)\236A`\307 \211\211@:\203C @AA\202F AA)\307 \211 \205q @\211;\203b \310!\210\202g \311!\210A\211\204P \307+\210\203\251 \312\211@:\203\210 @A@\202\213 A@)\236A\232\203\251 `U\203\240 \313 \210\314c\210\315 \211T\316$\210
\205\270 \317\n\206\263 \320
!\f#,\207" [dom node shr-start start title url href nil shr-insert shr-descend name shr-ensure-newline " " put-text-property shr-target-id shr-urlify shr-expand-url sub --dolist-tail--] 6])
(defalias 'shr-tag-object #[(dom) "?\205l`\306\211\211 \307
\211 @:\203 @A@\202# A@)\236A\211 \203P \310\311\"\203P \312
\211 @:\203F @A@\202J A@)\236A\313)\314
!\306 \211 \203@\211\211 @:\203r @@\202u @)\315=\203\237 \206\231 \316\211 @:\203\222 @A@\202\226 A@)\236A\313\202\371 \211 @:\203\260 @@\202\263 @)\317=\203\371 \320\211 @:\203\314 @A@\202\320 A@)\236A\321\232\203\371 \206\366 \322\211 @:\203\357 @A@\202\363 A@)\236A\313A\211\204] * \203$ \203\323
\"\210\306\202$\n\203$\324\325!\210\326\f\327 !\"\210
\205k
\211 \211 @:\203;@AA\202?AA)\306 \211 \205j@\211 ;\203[\324 !\210\202`\330 !\210A\211\204I\306+,\207" [shr-inhibit-images image multimedia url start dom nil type string-match "\\`image/svg" data t dom-non-text-children embed src param name "movie" value shr-tag-img shr-insert " [multimedia] " shr-urlify shr-expand-url shr-descend node child --dolist-tail-- sub] 5])
#@239 Preferences for media types.
The key element should be a regexp matched against the type of the source or
url if no type is specified. The value should be a float in the range 0.0 to
1.0. Media elements with higher value are preferred.
(custom-declare-variable 'shr-prefer-media-type-alist ''(("webm" . 1.0) ("ogv" . 1.0) ("ogg" . 1.0) ("opus" . 1.0) ("flac" . 0.9) ("wav" . 0.5)) '(#$ . 35170) :version "24.4" :group 'shr :type '(alist :key-type regexp :value-type float))
#@103 Determine the preference for ELEM.
The preference is a float determined from `shr-prefer-media-type'.
(defalias 'shr--get-media-pref #[(elem) "\303\211@:\203 @A@\202 A@)\236A\306\211\2044 \307\211@:\203- @A@\2020 A@)\236A \203k \f\310 \211 \203j @\211A\nV\203a
@ \310\311 \f\312#)\266\203\203a
A A\211 \204A *\n*\207" [elem node p type shr-prefer-media-type-alist pref 0.0 src nil t string-match --dolist-tail-- inhibit-changing-match-data] 8 (#$ . 35653)])
#@63 Extract the best `:src' property from <source> blocks in DOM.
(defalias 'shr--extract-best-source #[(dom &optional url pref) "\206 \306\307\310\n!\307\211 \203\237 \f@\211\211 @:\203#
@@\202%
@)\311=\203\230 \312 !\211W\203\230 \313 \211 @:\203G
@A@\202J
A@)\236A
\310 !\307 \211 \203\227 \f@\211\211 @:\203l
@@\202n
@)\311=\203\220 \314C
# AW\203\217 @
A)\fA\211\204Z *\fA\211\204 +
B\207" [pref new-pref dom elem --dolist-tail-- node -1.0 nil dom-non-text-children source shr--get-media-pref src shr--extract-best-source url child ret] 5 (#$ . 36142)])
(defalias 'shr-tag-video #[(dom) "\305\211@:\203 @A@\202 A@)\236A\306\211@:\203& @A@\202) A@)\236A` \2049 \307!@\fG\310V\203H \311\312\f\"\210\202L \313\314!\210\315\n\316 !\"+\207" [dom node start url image poster src shr--extract-best-source 0 shr-tag-img nil shr-insert " [video] " shr-urlify shr-expand-url] 5])
(defalias 'shr-tag-audio #[(dom) "\304\211@:\203 @A@\202 A@)\236A`\211\204\" \305!@\306\307!\210\310\n\311 !\"*\207" [dom node start url src shr--extract-best-source shr-insert " [audio] " shr-urlify shr-expand-url] 5])
(defalias 'shr-tag-img #[(dom &optional url) "\204$ \205\264\306 \211@:\203 \n@A@\202 \nA@)\236AG\307V\205\264i\307V\203- \310c\210\303 \211@:\203= \n@A@\202@ \nA@)\236A\311\206^ \306 \211@:\203X \n@A@\202[ \nA@)\236A!\312 G\307U\203m \313\314 \211@:\203} \n@A@\202\200 \nA@)\236A\315\235\204k\316 \211@:\203\230 \n@A@\202\233 \nA@)\236A\317\235\204k
\204\314 \320\321\"\203\314 \322\307\225\323O!\211 *\203\305 +* \"\210\202\310 c\210)\202k
\204 \320\324\"\203 \307\225\323O\323 *,\203\357 ,!\211*\204\365 c\210\202\374 +* \"\210*\202k
\204-\203\320-\"\203`.\325 !\210\202k/\2043\326\327!!\2033+\330! \"\210\202k \331\261\210/\203Y\326\327!!\203Y\332\327!! 0\3330!\203X\3340!\210)\335\327!\336p\f\337 `S\323\223E\340\211%\2101\307U\205\263\341\f`\3422$\210\341\f`\343 $\210\341\f`\344$\210\341\f`\345\346,!$\210\341\f`\347\350\351 \211@:\203\247\n@A@\202\252\nA@)\236A\206\261 !$+\207" [url dom node alt start shr-inhibit-images src 0 "\n" shr-expand-url point-marker "*" height ("0" "1") width ("0" "1") string-match "\\`data:" shr-image-from-data nil "\\`cid:" shr-insert url-is-cached shr-encode-url shr-get-image-data " " url-cache-create-filename file-exists-p delete-file url-queue-retrieve shr-image-fetched make-marker t put-text-property keymap shr-alt image-url image-displayer shr-image-displayer help-echo shr-fill-text title image shr-put-image-function shr-content-function shr-blocked-images shr-start shr-ignore-cache file shr-table-depth shr-map] 9])
(defalias 'shr-tag-pre #[(dom) "\306\307\310 \210\n\211\211@:\203 @AA\202 AA)\311 \211 \205>
@\211;\2032 \312\f!\210\2026 \313\f!\210
A\211\204# \311+\210\310 *\207" [shr-current-font shr-folding-mode dom node sub --dolist-tail-- none default shr-ensure-newline nil shr-insert shr-descend] 3])
(defalias 'shr-tag-blockquote #[(dom) "\306 \210` \307_\\ \211\211 @:\203 \f@AA\202 \fAA)\310 \211 \f\205F \f@\211;\2038 \311
!\210\202< \312
!\210\fA\211\f\204( \310+\210\306 \210\313\n!*\207" [shr-indentation shr-table-separator-pixel-width start dom node sub shr-ensure-paragraph 4 nil shr-insert shr-descend shr-mark-fill --dolist-tail--] 5])
(defalias 'shr-tag-dl #[(dom) "\304 \210\211\211@:\203 @AA\202 AA)\305\211\205: @\211;\203. \306\n!\210\2022 \307\n!\210 A\211\204 \305+\210\304 \207" [dom node sub --dolist-tail-- shr-ensure-paragraph nil shr-insert shr-descend] 3])
(defalias 'shr-tag-dt #[(dom) "\304 \210\211\211@:\203 @AA\202 AA)\305\211\205: @\211;\203. \306\n!\210\2022 \307\n!\210 A\211\204 \305+\210\304 \207" [dom node sub --dolist-tail-- shr-ensure-newline nil shr-insert shr-descend] 3])
(defalias 'shr-tag-dd #[(dom) "\306 \210 \307_\\\n\211\211@:\203 @AA\202 AA)\310 \211 \205@
@\211;\2034 \311\f!\210\2028 \312\f!\210
A\211\204% \310,\207" [shr-indentation shr-table-separator-pixel-width dom node sub --dolist-tail-- shr-ensure-newline 4 nil shr-insert shr-descend] 4])
(defalias 'shr-tag-ul #[(dom) "\305 \210\306 \211\211@:\203 \n@AA\202 \nAA)\307\211 \205< \f@\211;\2030 \310 !\210\2024 \311 !\210\fA\211\204! \307+\210)n\204F \312c\210\305 \207" [shr-list-mode dom node sub --dolist-tail-- shr-ensure-paragraph ul nil shr-insert shr-descend "\n"] 3])
(defalias 'shr-tag-ol #[(dom) "\305 \210\306 \211\211@:\203 \n@AA\202 \nAA)\307\211 \205< \f@\211;\2030 \310 !\210\2024 \311 !\210\fA\211\204! \307+\210)\305 \207" [shr-list-mode dom node sub --dolist-tail-- shr-ensure-paragraph 1 nil shr-insert shr-descend] 3])
(defalias 'shr-tag-li #[(dom) "\306 \210` \247\203 \307\310 \" T\202 \n@ \247\203\" \311 !\202$ \nA c\210\312!\210
\f\\ \313\211T\314
$\210\313\211T\315 G$\210\211 \211 @:\203V @AA\202Z AA)\316 \211 \205\205 @\211;\203v \317!\210\202{ \320!\210A\211\204d \316.\207" [start shr-list-mode shr-internal-bullet bullet width shr-indentation shr-ensure-newline format "%d " shr-string-pixel-width shr-mark-fill put-text-property shr-continuation-indentation shr-prefix-length nil shr-insert shr-descend dom node sub --dolist-tail--] 6])
(defalias 'shr-mark-fill #[(start) "`U?\205 \302\211T\301 $\207" [start shr-indentation put-text-property] 5])
(defalias 'shr-tag-br #[(dom) "o\204 n\203 `\304ZeV\203 `\304Zf\305U\204 \306c\210\211\211@:\203- @AA\2020 AA)\307\211\205S @\211;\203G \310\n!\210\202K \311\n!\210 A\211\2048 \307+\207" [dom node sub --dolist-tail-- 2 10 "\n" nil shr-insert shr-descend] 3])
(defalias 'shr-tag-span #[(dom) "\211\211@:\203 @AA\202 AA)\304\211\2057 @\211;\203+ \305\n!\210\202/ \306\n!\210 A\211\204 \304+\207" [dom node sub --dolist-tail-- nil shr-insert shr-descend] 3])
(defalias 'shr-tag-h1 #[(dom) "\302 \203\n \303\202 \304\"\207" [dom shr-use-fonts shr-heading (variable-pitch (:height 1.3 :weight bold)) bold] 3])
(defalias 'shr-tag-h2 #[(dom) "\301\302\"\207" [dom shr-heading bold] 3])
(defalias 'shr-tag-h3 #[(dom) "\301\302\"\207" [dom shr-heading italic] 3])
(defalias 'shr-tag-h4 #[(dom) "\301!\207" [dom shr-heading] 2])
(defalias 'shr-tag-h5 #[(dom) "\301!\207" [dom shr-heading] 2])
(defalias 'shr-tag-h6 #[(dom) "\301!\207" [dom shr-heading] 2])
(defalias 'shr-tag-hr #[(_dom) "\304 \210\305\204\f \202 \n\245T \"\306\261\207" [shr-use-fonts shr-internal-width shr-table-separator-pixel-width shr-hr-line shr-ensure-newline make-string "\n"] 3])
(defalias 'shr-tag-title #[(dom) "\301\302\303#\207" [dom shr-heading bold underline] 4])
(defalias 'shr-tag-font #[(dom) "`\303 \211@:\203 \n@A@\202 \nA@)\236A\303 BC\f\244 \211\211@:\2031 \n@AA\2024 \nAA)\306 \211 \205[ @\211;\203M \307
!\210\202Q \310
!\210 A\211 \204= \306+\210 \205j \311` \312\f\236A$+\207" [start dom node color shr-stylesheet sub nil shr-insert shr-descend shr-colorize-region background-color --dolist-tail--] 7])
(defalias 'shr-tag-table-1 #[(dom) "\306\307\"\206 \310\nT\310\311! \312\f! \313\211 @:\203* @A@\202. A@)\236A\206: \314
\315\313$\211 \315\211 :\203c @\316\317\"BA\211\202G \237+ \315\211 :\203\221 @\316\320\" B A\211 \202u \237+ \321
# \322 !\323 \"\315 #\324 $\"T\211\"!GW\203\315 !\"H#$#T\\$\202\256 $,%&#\325 V\203\336 \310'\326\314 \310# \". \207" [dom shr-inhibit-images shr-table-depth shr-kinsoku-shorten columns suggested-widths dom-child-by-tag tbody t shr-column-specs shr-pro-rate-columns shr-suggested-widths shr-make-table nil mapcar car cdr shr-table-widths + -1 0 frame-width shr-insert-table node elems #1=#:--cl-var-- line #2=#:--cl-var-- sketch #3=#:--cl-var-- #4=#:--cl-var-- natural sketch-widths #5=#:--cl-vec-- #6=#:--cl-idx-- width #7=#:--cl-var-- shr-indentation shr-table-separator-pixel-width truncate-lines] 6])
(defalias 'shr-table-body #[(dom) "\302\303\304!\"\211\204 \202& G\305U\203 @\202& \306\307\310\311\312\304 \"\"BB)\207" [dom tbodies seq-filter #[(child) "\211@:\203 @@\202 @)\302=\207" [child node tbody] 3] dom-non-text-children 1 tbody nil cl-reduce append mapcar] 8])
(defalias 'shr-tag-table #[(dom) "\306 \210\307\302\"\211@:\203 @AA\202 AA)\310\307\311\"!\310\312!! \310\307\313\"! \314\211@:\203> @A@\202A A@)\236A \f` %\315\fBC&\244 & \205Z \316 ! '\f\203f \316\f!\202g \317 (
\205p \316
! )\n\204\320 \204\320 \307\320\"\204\320 \307\321\"\204\320
\204\320 \211\211@:\203\235 @AA\202\240 AA)\322 *\211 +\205\313 +@\211*;\203\274 \323*!\210\202\301 \324*!\210+A\211+\204\252 \322+\210\202\214\325\211@:\203\340 @A@\202\343 A@)\236A\203\360 \326!\210\202\214\327\322D\n\205 \321\322\330\322\nBBEC\244 \203
\203\271'(U\203_()U\203/\321\322\330\322\327\322\320\322\331 \f
#BBEEEC\202w\321\322\330\322\327\322\320\322\331 \f\"BBEEEC)\332U\203L
\202[\321\322\330\322\327\322\320\322
BBEEEC\244\202w\321\322\330\322\327\322\320\322 BBEEEC()U\203\213\321\322\330\322\327\322\320\322\331\f
\"BBEEEC\202\265\321\322\330\322\327\322\320\322\fBBEEEC)\332U\203\245
\202\264\321\322\330\322\327\322\320\322
BBEEEC\244\244\202w'(U\203\326\321\322\330\322\327\322\320\322\331 \f\"BBEEEC\202w'\332U\203\362\331 \321\322\330\322\327\322\320\322\fBBEEEC\"\202w\321\322\330\322\327\322\320\322 BBEEE\321\322\330\322\327\322\320\322\fBBEEED\202w
\203`()U\2033\321\322\330\322\327\322\320\322\331\f
\"BBEEEC\202w\321\322\330\322\327\322\320\322\fBBEEEC)\332U\203M
\202\\\321\322\330\322\327\322\320\322
BBEEEC\244\202w\n\203v\321\322\330\322\327\322\320\322\fBBEEEC\202w\f\244 \333\325\334#\210A\241\210\326!\210)\f\203\236\335%`\336&\236A\f$\210,\317U\205\360\212\337%`\"\210)\340\341\"\322 -\211 +\203\315+@-\342-!\210+A\211+\204\272*\340\343\"\322 -\211 +\205\357+@-\344-!\210+A\211+\204\333\322*.\n\207" [dom node caption header body footer shr-ensure-paragraph dom-child-by-tag dom-non-text-children thead shr-table-body tfoot bgcolor background-color shr-max-columns 0 tbody tr nil shr-insert shr-descend shr-fixed-table shr-tag-table-1 table td append 1 dom-set-attribute t shr-colorize-region color shr-expand-alignments dom-by-tag object shr-tag-object img shr-tag-img start shr-stylesheet nheader nbody nfooter sub --dolist-tail-- shr-table-depth elem] 14])
(defalias 'shr-insert-table #[(table widths) "\306\236A\307\232\211\203 \310\202 \311 \203 \312\202 `
T \204) \313\"!\210#\314 $\211 %\203\305%@$`\310\211\211 &$\314 '\211 %\203a %@'&\315'8]&%A\211%\204J *&) ( ) * (\311]\310 + ,+,W\203\216 \316 \210 \317\261\210+T\211+\202w *$\314 '\211 %\203\261%@'\315'8\320V\203\250\fb\210\321'8\310 + ,+,W\203\343 )\"GSX\203\325 \322*\")H-\315_#*)T)+T\211+\202\266 *\323'8.\204\365 *\324 _\202\367 * /\211 0\314 1\211 %\203c%@1\314\210`1G\310V\205!\325\3261GS\3271#!\330\331\332\333\334/CE\335
% 2 2\203@\330\3272#1 \261\210\336\f`S\337'8\340'8$\210+\311y\210%A\211%\204*(0GZ\310 + ,+,W\203\247\314\210` \330\331\332\333\334/CE\335
% \261\210\336\f`S\337'8\340'8$\210)\311y\210+T\211+\202q,%A\211%\204\232 . \204\274\313\"!\210%A\211%\2044 *\f`U?\205\324\341\f\211T\305
$,\207" [shr-stylesheet collapse shr-table-separator-length shr-table-vertical-line start shr-table-id border-collapse "collapse" 0 1 "" shr-insert-table-ruler nil 2 shr-indent "\n" -1 4 + 3 frame-char-width shr-face-background get-text-property face propertize " " display space :align-to shr-table-indent shr-colorize-region 5 6 put-text-property widths table row --dolist-tail-- max column height column-number align i --dotimes-limit-- shr-table-separator-pixel-width shr-use-fonts pixel-align lines line background] 9])
(defalias 'shr-face-background #[(face) ":\205F \304\305\"\203 \305\304\305\"D\206F \306\306\211\203= @\211:\2036 \n@\305=\2036 \2046 \nA@ A\211\204 * \205E \305 D)\207" [face background elem --dolist-tail-- plist-get :background nil] 5])
(defalias 'shr-expand-alignments #[(start end) "\306\307\310 $\211 W\205V b\210\311\312`\307\"\313 \310 \203O \212\314` \315 $\211\203N
b\210\312`\316\" \317``T\316\320\321\3228@\f\\CE$\210)\323u\210\202! ),T\202 \207" [start end shr-use-fonts id base elem next-single-property-change shr-table-id nil t get-text-property shr-pixel-column text-property-any shr-table-indent display put-text-property space :align-to 2 1 align] 8])
(defalias 'shr-insert-table-ruler #[(widths) "\205R n\203 \306V\203 \307 \210\nc\210\306\fG\306
W\203O \310 \f
H\311_#\312\f
H\245T\"\313\314\315\316\317 CE\320%\n\261\210
T\211\202 +\321c\207" [shr-table-horizontal-line shr-indentation shr-table-corner total-width widths i 0 shr-indent + 2 make-string propertize " " display space :align-to shr-table-indent "\n" --dotimes-limit-- shr-table-separator-pixel-width shr-table-id] 8])
(defalias 'shr-table-widths #[(table natural-table suggested-widths) "G\306 \307\"\306 \307\"\f\310 \211
\203P
@\307
\310 \211
\203F
@\n\nH]I\210T
A\211
\204' +
A\211
\204 *\310 \211
\203\225
@\307
\310 \211
\203\213
@ H]I\210T
A\211
\204l +
A\211
\204[ *\311\312\313\314\310\"\"\312\313\314\n\310\"\"\nGT_#\307 \211 \307V\203 \307 W\203\337 H\nHV\203\326 TT\211\202\277 * \307 W\203 H\nHV\203\n H\245\nH\\^I\210T\211\202\350 **\n+\207" [suggested-widths length widths natural-widths table row make-vector 0 nil - apply + append --dolist-tail-- i column natural-table shr-table-separator-pixel-width expanded-columns extra --dotimes-limit--] 8])
(defalias 'shr-make-table #[(dom widths &optional fill storage-attribute) "\306 \nE \"A@\206' \307 \n# \nE\fD B
\203% \310
\f#\210\f)\207" [dom widths fill shr-content-cache data storage-attribute assoc shr-make-table-1 dom-set-attribute] 4])
(defalias 'shr-make-table-1 #[(dom widths &optional fill) "\306\307G\310\"\310\306\211\211\211 \311!\306 \211 \203@\211\211 @:\2036 @@\2029 @)\312=\203\306\311!\310\211\306 GW\203\375 H\310U\203m \211A \242\202z HSI\210\313\211;\204Q \211 @:\203\222 @@\202\225 @)\314>\204\240 \204Q \315\211 @:\203\263 @A@\202\267 A@)\236A\211 \203\321 H\316 !S\\I\210) GY\203\335 \310 \203\351 H\202\355 !\317_\301\211 @:\203@A@\202A@)\236A\211\203`\316 !G Z^\211S\310 \" #\"#W\203T\320 \321\"#GSV\203<\211GSH\202J\320\n$\320 \321\"#H#\"T\211\"\202 * S\\ \203\261\322\n%# &%\204\224
\310V\203\224&@\211 \245\211 '&A@B B
S)\202\260%\204\251&@&A@B B \202\260& B ) \203\360 \321V\203\360 S\310 ( #(#W\203\357 T %\203\340\310\211\323\306\321\306\211\257\202\341\324 B (T\211(\202\304* T T \202Q \237B-A\211\204! *\237.\207" [widths colspan width colspan-count colspan-width colspan-remaining nil make-vector 0 dom-non-text-children tr (td) (td th) rowspan string-to-number 10 + 1 shr-render-td -1 (0 . 0) rowspans trs dom row --dolist-tail-- node column width-column i columns tds span shr-table-separator-pixel-width j --dotimes-limit-- shr-table-separator-length fill data this-width c] 9])
(defalias 'shr-pixel-buffer-width #[nil "\204 \212eb\210\303m\204 \304\210 i]\305y\210\202\n *\207\306 \203* \307\304ed#@\207\310 \311\216\312\304p\"\210\307\304ed#@*\207" [shr-use-fonts max #1=#:wconfig 0 nil 1 get-buffer-window window-text-pixel-size current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] set-window-buffer] 4])
(defalias 'shr-render-td #[(dom width fill) "\306\307\310 #!\211 \211 @:\203 \f@A@\202 \fA@)\236A\206\222 \203\204 \311 \211 @:\2036 \f@A@\2029 \fA@)\311 \211 \203~ @\312@! \313\314\"\203t \315\316\317\"!\211 Y\203s A@X\203s A))A\211\204C *
)\206\222 \320 # \321 \n
#\210
))\207" [width fill cache dom node result intern format "shr-td-cache-%s-%s" nil symbol-name string-match "shr-td-cache-\\([0-9]+\\)-nil" string-to-number match-string 1 shr-render-td-1 dom-set-attribute attr --dolist-tail-- name cache-width] 6])
(defalias 'shr-render-td-1 #[(dom width fill) "\306\307!rq\210\310\216\311 \211@:\203 \n@A@\202 \nA@)\236A\312 \211@:\2030 \n@A@\2023 \nA@)\236A\313 \211@:\203F \n@A@\202I \nA@)\236A \314\315 \n \203k \316\317 \"\205i \320 ! \203z \321 BC \244 \n\203\211 \322\nBC \244 \203\224 \323 \"%\314 & '\324 !\210*\325 (\326\216\327\315p\"\210)\204\335 \330 \211@:\203\300 \n@A@\202\303 \nA@)\236A\206\334 \331 \332 \314\"] *\333 \330*#\210*)\f\203\355 \f%X\203\355 \f\202\372 % '\334ed\"\210\331 )*db\210`\335\315x\210\315\210`|\210eb\210
\f\336ed\"\337\340 \341\"\342 \211@:\203'\n@A@\202*\nA@)\236A\203K\343\342 \211@:\203A\n@A@\202D\nA@)\236A!\202L\344\322 \236A\321 \236A\257. \207" [#1=#:temp-buffer dom node shr-stylesheet natural-width max-width generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] bgcolor fgcolor style 0 nil string-match "color" shr-parse-style background-color color append shr-descend current-window-configuration #[nil "\301!\207" [#2=#:wconfig set-window-configuration] 2] set-window-buffer shr-td-cache-natural shr-pixel-buffer-width shr-dom-max-natural-width dom-set-attribute shr-fill-lines " \n" count-lines split-string buffer-string "\n" colspan string-to-number 1 width shr-indentation shr-internal-width #2# fill natural] 9])
(defalias 'shr-dom-max-natural-width #[(dom max) "\211@:\203 @@\202 @)\306=\203\212 \n\307\211@:\203' @A@\202* A@)\236A\310\211 :\203\202 @\f\f
\310 \311
:\203f
@A\f\312_\\\\
A\211
\202G +\\
\203w
]\202y ) A\211\2023
+\206\210 \311]\207\211@:\203\231 @AA\202\234 AA)\310 \211 \203\301 @\211;\204\270 \313\n\"\311\\A\211\204\246 *\n\207" [dom node max #1=#:--cl-var-- line #2=#:--cl-var-- table shr-suggested-widths nil 0 2 shr-dom-max-natural-width shr-table-separator-length #3=#:--cl-var-- elem #4=#:--cl-var-- #5=#:temp child --dolist-tail--] 7])
(defalias 'shr-buffer-width #[nil "eb\210\301m\204 \302\210i]\303y\210\202 )\207" [max 0 nil 1] 2])
(defalias 'shr-pro-rate-columns #[(columns) "\306\307G\306\"G\306 \fW\203 \n H\\ T\211\202 *\310\n\245G\306 \fW\203M \311\312 H\n
GT\f_Z#!\313]I\210 T\211\202+ * *\207" [columns widths total-percentage i --dotimes-limit-- shr-internal-width 0 make-vector 1.0 truncate * 10 shr-table-separator-pixel-width] 10])
(defalias 'shr-column-specs #[(dom) "\306\307!\310\"\311!\312\211\203\240 @\211\211 @:\203\" \f@@\202$ \f@)\313=\203\231 \314 \311\n!\312 \211\203\230 @\211\211 @:\203I \f@@\202K \f@)\315>\203\221 \316\211 @:\203b \f@A@\202e \fA@)\236A\211 \203\215 \317\320\"\203\215 \321\322\310\"!\211\314U\204\215
\323\245I\210)
T A\211\2047 + A\211\204 * )\207" [dom columns row --dolist-tail-- node i make-vector shr-max-columns 1 dom-non-text-children nil tr 0 (td th) width string-match "\\([0-9]+\\)%" string-to-number match-string 100.0 column] 5])
(defalias 'shr-count #[(dom elem) "\306 \211@:\203 \n@AA\202 \nAA)\307\211 \203D \f@\211;\204= \211@:\2032 \n@@\2024 \n@)
=\203= T\fA\211\204 *)\207" [i dom node sub --dolist-tail-- elem 0 nil] 3])
(defalias 'shr-max-columns #[(dom) "\305 \211@:\203 \n@AA\202 \nAA)\306\211 \203M \f@\211;\204F \211@:\2032 \n@@\2024 \n@)\307=\203F \310 \311\"\310 \312\"\\]\fA\211\204 *)\207" [max dom node row --dolist-tail-- 0 nil tr shr-count td th] 6])
(provide 'shr)
Kontol Shell Bypass