%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\300\305!\210\300\306!\210\300\307!\210\300\310!\210\300\311!\210\312\313\314\315\316\317\320\321&\210\322\323\324\325\326DD\327\316\330\331\332&\210\322\333\324\325\334DD\335\316\330\331\336&\210\322\337\324\325\340DD\341\316\317\331\342&\210\322\343\324\325\344DD\345\316\346\331\342&\210\322\347\324\325\350DD\351\316\352\331\342&\210\322\353\324\325\354DD\355\331\356%\210\322\357\324\325\360DD\361\331\362%\210\322\363\324\325\364DD\365\331\362%\210\322\366\324\325\367DD\370\331\362%\210\322\371\324\325\372DD\373\316\317\331\374&\210\322\375\324\325\376DD\377\316\201@ \331\201A &\210\322\201B \324\325\201C DD\201D \331\201E \316\346&\210\201F \201G \201H \314#\210\201I \211\203 \211@\201G N\203\201H N\204\201J \201H \201G N#\210A\266\202\202\362 \210\201K \201G \201H \346#\210\322\201L \324\325\201M DD\201N \316\201@ \331\342&\207" [require cl-lib browse-url dom seq svg image puny url-cookie text-property-search custom-declare-group shr nil "Simple HTML Renderer" :version "25.1" :group web custom-declare-variable shr-max-image-proportion funcall function #[0 "\300\207" [0.9] 1] "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 #[0 "\300\207" [nil] 1] "Images that have URLs matching this regexp will be blocked." (choice (const nil) regexp) shr-use-fonts #[0 "\300\207" [t] 1] "If non-nil, use proportional fonts for text." boolean shr-discard-aria-hidden #[0 "\300\207" [nil] 1] "If non-nil, don't render tags with `aria-hidden=\"true\"'.\nThis attribute is meant to tell screen readers to ignore a tag." "27.1" shr-use-colors #[0 "\300\207" [t] 1] "If non-nil, respect color specifications in the HTML." "26.1" shr-table-horizontal-line #[0 "\300\207" [nil] 1] "Character used to draw horizontal table lines.\nIf nil, don't draw horizontal table lines." (choice (const nil) character) shr-table-vertical-line #[0 "\300\207" [32] 1] "Character used to draw vertical table lines." character shr-table-corner #[0 "\300\207" [32] 1] "Character used to draw table corners." shr-hr-line #[0 "\300\207" [45] 1] "Character used to draw hr lines." shr-width #[0 "\300\207" [nil] 1] "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 used.\nIf `shr-use-fonts' is set, the mean character width is used to\ncompute the pixel width, which is used instead." (choice (integer :tag "Fixed width in characters") (const :tag "Use the width of the window" nil)) shr-bullet #[0 "\300\207" [#1="* "] 1 #1#] "Bullet used for unordered lists.\nAlternative suggestions are:\n- \" \"\n- \" \"" "24.4" string shr-cookie-policy #[0 "\300\207" [same-origin] 1] "When to use cookies when fetching dependent data like images.\nIf t, always use cookies. If nil, never use cookies. If\n`same-origin', use cookies if the dependent data comes from the\nsame domain as the main data." (choice (const :tag "Always use cookies" t) (const :tag "Never use cookies" nil) (const :tag "Use cookies for same domain" same-origin)) defvaralias shr-external-browser browse-url-secondary-browser-function (saved-value saved-variable-comment) put make-obsolete-variable shr-image-animate #[0 "\300\207" [t] 1] "Non-nil means that images that can be animated will be."] 8)
#@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 (#$ . 4028))
#@46 Function called to put image and alt string.
(defvar shr-put-image-function 'shr-put-image (#$ . 4236))
(byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\300\311\312\313\304\314%\210\300\315\316\317\304\314%\207" [custom-declare-face shr-strike-through ((t :strike-through t)) "Face for <s> elements." :version "24.1" shr-link ((t :inherit link)) "Face for link elements." shr-selected-link ((t :inherit shr-link :background "red")) "Temporary face for externally visited link elements.\nWhen a link is visited with an external browser, the link\ntemporarily blinks with this face." "27.1" shr-abbreviation ((t :inherit underline :underline (:style wave))) "Face for <abbr> elements."] 6)
#@37 If non-nil, inhibit loading images.
(defvar shr-inhibit-images nil (#$ . 4952))
#@208 Alist of tag/function pairs used to alter how shr renders certain tags.
For instance, eww uses this to alter rendering of title, forms
and other things:
((title . eww-tag-title)
(form . eww-tag-form)
...)
(defvar shr-external-rendering-functions nil (#$ . 5039))
(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-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 "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\323#\210\301\324\325#\210\301\326\325#\210\301\327\317#\210\301\330\331#\210\301\332\317#\210\211\207" [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 [C-down-mouse-1] shr-mouse-browse-url-new-window "I" shr-insert-image "w" shr-maybe-probe-and-copy-url "u" "v" "O" shr-save-contents "
"] 5))
(defvar shr-image-map (byte-code "\302!\303\301!\203 \304 \"\210\211\207" [shr-map image-map copy-keymap boundp set-keymap-parent] 4))
#@64 Display the HTML rendering of the current buffer.
(fn BUFFER)
(defalias 'shr-render-buffer #[257 "\300\301!\204\n \302\303!\210\304\305!\210\306 \210\307rq\210\301ed\")!\210eb\207" [fboundp libxml-parse-html-region error "This function requires Emacs to be compiled with libxml2" pop-to-buffer "*html*" erase-buffer shr-insert-document] 5 (#$ . 6629) (byte-code "pC\207" [] 1)])
#@98 Display the HTML rendering of the region between BEGIN and END.
(fn BEGIN END &optional BUFFER)
(defalias 'shr-render-region #[770 "\300\301!\204\n \302\303!\210r\211\206 pq\210\301\"|\210b\210\304!\262)\207" [fboundp libxml-parse-html-region error "This function requires Emacs to be compiled with libxml2" shr-insert-document] 6 (#$ . 7016) "r"])
#@75 Return non-nil if we know at least one of the fringes has non-zero width.
(defalias 'shr--have-one-fringe-p #[0 "\300\301!\205W \302\303\211\203 \304\202 \305\306=\203 \307\202 \310\311 !\206# \312\313\314 !\"\266\202\312U?\206W \306\303\211\203: \304\202; \305\306=\203E \307\202F \310\311 !\206M \312\313\314 !\"\266\202\312U?\207" [fboundp fringe-columns right nil / ceiling left car cadr window-fringes 0 float frame-char-width] 6 (#$ . 7380)])
#@149 Render the parsed document DOM into the current buffer.
DOM should be a parse tree as generated by
`libxml-parse-html-region' or similar.
(fn DOM)
(defalias 'shr-insert-document #[257 "\306`\306\211\307\211\306\310\311! \310 !B\n\203# \204 \n\202 \n\312 _\206Y \204= \313\314 \315\n\2048 \316 \2048 \307\2029 \315#\202Y \313\314\306\317\"\320\312 _\n\204V \316 \204V \312 \320_\202W \307\315$\f\306 \321\306\307\"\210\322!\210\323`\"\210\324`\"\210\205\212 \325\326\".\n\207" [shr-content-cache shr-bullet shr-width shr-use-fonts max-specpdl-size bidi-display-reordering 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-blank-lines-at-the-end message "%s" shr-internal-width shr-internal-bullet shr-table-separator-pixel-width shr-warning shr-table-id shr-depth shr-base shr-start] 14 (#$ . 7842)])
#@18
(fn START END)
(defalias 'shr--remove-blank-lines-at-the-end #[514 "\214\212}\210\211b\210\300\301\302\303#\205 m?\205 \304y\210`d|*\207" [re-search-backward "[^ \n]" nil t 1] 6 (#$ . 8785)])
#@201 Return the URL under point as a string.
If IMAGE-URL 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.
(fn IMAGE-URL)
(defalias 'shr-url-at-point #[257 "\211\203 \300`\301\"\207\300`\302\"\206 \300`\301\"\207" [get-text-property image-url shr-url] 4 (#$ . 8990)])
#@200 Copy the URL under point to the kill ring.
With a prefix argument, or if there is no link under point, but
there is an image under point then copy the URL of the image
under point instead.
(fn URL)
(defalias 'shr-copy-url #[257 "\211\204 \300\301!\207\302!\262\303!\210\300\304\"\207" [message "No URL under point" url-encode-url kill-new "Copied %s"] 4 (#$ . 9345) (byte-code "\301!C\207" [current-prefix-arg shr-url-at-point] 2)])
#@199 Pass URL's redirect destination to CONT, if it has one.
CONT should be a function of one argument, the redirect
destination URL. If URL is not redirected, then CONT is never
called.
(fn URL CONT)
(defalias 'shr-probe-url #[514 "\300\301\302\303\304\305!\306\"\307\310%\311\312\211%\207" [url-retrieve make-byte-code 257 "\211:\205& \211@\211\301=\205$ A\211:\205\" \211@\211\300\302\303\304#!\262\262\262\262\207" vconcat vector [:redirect replace-regexp-in-string ".utm_.*" ""] 10 "\n\n(fn A)" nil t] 10 (#$ . 9792) "P"])
#@153 Copy the URL under point to the kill ring.
Like `shr-copy-url', but additionally fetch URL and use its
redirection destination if it has one.
(fn URL)
(defalias 'shr-probe-and-copy-url #[257 "\211\203 \300\301\"\207\301!\207" [shr-probe-url shr-copy-url] 4 (#$ . 10333) (byte-code "\301!C\207" [current-prefix-arg shr-url-at-point] 2)])
#@172 Copy the URL under point to the kill ring.
If the URL is already at the front of the kill ring act like
`shr-probe-and-copy-url', otherwise like `shr-copy-url'.
(fn URL)
(defalias 'shr-maybe-probe-and-copy-url #[257 "\211@\232\203 \301!\207\302!\207" [kill-ring shr-probe-and-copy-url shr-copy-url] 3 (#$ . 10682) (byte-code "\301!C\207" [current-prefix-arg shr-url-at-point] 2)])
(defalias 'shr--current-link-region #[0 "\300`\301\"\302\212o\204 \300`\301\"\232\203 \303u\210\202 \300`\301\"\232\204% \304u\210`\262m\204; \300`\301\"\232\203; \304u\210\202( \211`)D\207" [get-text-property shr-url nil -1 1] 5])
(defalias 'shr--blink-link #[0 "\300 \301@A@\"\302\303\304#\210\305\306\307\310\311\312\313\314!\315\"\316$#\207" [shr--current-link-region make-overlay overlay-put face shr-selected-link run-at-time 1 nil make-byte-code 0 "\301\300!\207" vconcat vector [delete-overlay] 2] 11])
#@24 Skip to the next link.
(defalias 'shr-next-link #[0 "\301\302\303\211\304$\211\204 \305\306!\202+ \307!>\204 \310\311\312D\"\210\211\313Hb\210\305\314\315`\316\"\"\207" [cl-struct-prop-match-tags text-property-search-forward shr-url nil t message "No next link" type-of signal wrong-type-argument prop-match 1 "%s" get-text-property help-echo] 6 (#$ . 11598) nil])
#@28 Skip to the previous link.
(defalias 'shr-previous-link #[0 "\300\301\302\211\303$\204
\304\305!\207\304\306\307`\310\"\"\207" [text-property-search-backward shr-url nil t message "No previous link" "%s" get-text-property help-echo] 5 (#$ . 11974) nil])
#@45 Show the ALT text of the image under point.
(defalias 'shr-show-alt-text #[0 "\300`\301\"\211\204 \302\303!\202 \302\304\305!\"\207" [get-text-property shr-alt message "No image under point" "%s" shr-fill-text] 5 (#$ . 12235) nil])
#@171 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.
(fn &optional COPY-URL)
(defalias 'shr-browse-image #[256 "\300`\301\"\211\204 \302\303!\202? \2037 \304\305!r\211q\210\306\307\310\311\312!\313\"\314$\216c\210\315ed\"\210\302\316\"*\262\202? \302\317\"\210\320!\207" [get-text-property image-url message "No image under point" generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 copy-region-as-kill "Copied %s" "Browsing %s..." browse-url] 9 (#$ . 12477) "P"])
#@47 Insert the image under point into the buffer.
(defalias 'shr-insert-image #[0 "\300`\301\"\211\204 \302\303!\202 \302\304\"\210\305\306p`S\307 E\310$\207" [get-text-property image-url message "No image under point" "Inserting %s..." url-retrieve shr-image-fetched point-marker t] 7 (#$ . 13118) 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 #[0 "\301`\302\"\301`\303\"\304\204 \305\306!\202\212 \301`\302\"\203! \307u\210\202 \310u\210`\301`\302\"\2032 \310u\210\202% \307u\210\311`\312\304$\210`Z\313V\203I \211`S|\210\210\305\314\"\210\315\316p`S\317 \320\321=\204d \204h \322\202\205 \323\267\202w \324\202\205 \321\202\205 \321=\204\204 ?\205\205 \322BCF\325$)\207" [buffer-read-only 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 size default original #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (original 111 full 115)) full t] 11 (#$ . 13430) nil])
#@12
(fn DOM)
(defalias 'shr-generic #[257 "\211\211@:\203 \211@AA\262\202 \211AA\262\211\2052 \211@\211;\203' \300!\210\202+ \301!\210A\266\202\202 \207" [shr-insert shr-descend] 5 (#$ . 14273)])
(put 'shr-generic 'byte-optimizer 'byte-compile-inline-expand)
#@32
(fn TAG-NAME DOM &rest ARGS)
(defalias 'shr-indirect-call #[642 "\302\303\304!P\" \236A\211\203 \305#\202+ \306!\203& \305#\202+ \305\307#\207" [obarray shr-external-rendering-functions intern "shr-tag-" symbol-name apply fboundp shr-generic] 9 (#$ . 14544)])
#@12
(fn DOM)
(defalias 'shr-descend #[257 "\306\307\310\211@:\203 \211@@\262\202 \211@\262!P\"\211@:\203) \211@@\262\202- \211@\262 \236A\311\211@:\203A \211@A@\262\202F \211A@\262\236A\n T` \f\312\245V\203l \313\314!\203f \f\315_\211\204l \316\211\202G\203\203 \317\320\"\203\200 \321!\n\244\202\203 \322\262\323\n\236A\324\232\206\254 !\205\254 \325\211@:\203\243 \211@A@\262\202\250 \211A@\262\236A\326\232?\205G\203\274 !\210\202\327!\203\313 !\210\202\211\211@:\203\335 \211@AA\262\202\342 \211AA\262\211\205\377 \211@\211;\203\364 \330!\210\202\370 \331!\210A\266\202\202\342 \266 \2037\332\211@:\203\211@A@\262\202 \211A@\262\236A \232\2037\211`U\203.\333c\210\334\211T\335 $\210\205G\336`\337\n\236A\340\n\236A$*\207" [obarray shr-external-rendering-functions shr-stylesheet shr-depth max-specpdl-size shr-warning intern "shr-tag-" symbol-name style 15 y-or-n-p "Too deeply nested to render properly; increase `max-specpdl-size'?" 2 "Not rendering the complete page because of too-deep nesting" string-match "color\\|display\\|border-collapse" shr-parse-style nil display "none" aria-hidden "true" fboundp shr-insert shr-descend id "*" put-text-property shr-target-id shr-colorize-region color background-color shr-discard-aria-hidden] 13 (#$ . 14825)])
#@13
(fn TEXT)
(defalias 'shr-fill-text #[257 "\211G\304U\203 \207\305\306!r\211q\210\307\304\310\311\312!\313\"\314$\216\304\315\316\317\315\320\"\314\321 _\2046 \322 \2046 \321 \314_\2027 \304#\323!\210\324ed\"\210\325 -\207" [shr-width shr-internal-width shr-start shr-indentation 0 generate-new-buffer " *temp*" make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 nil - window-body-width t frame-char-width shr--have-one-fringe-p shr-insert shr-fill-lines buffer-string] 9 (#$ . 16159)])
#@74 Return non-nil if a line can be broken before and after CHAR.
(fn CHAR)
(defalias 'shr-char-breakable-p #[257 "H\207" [fill-find-break-point-function-table] 3 (#$ . 16698)])
(byte-code "\300\301\302\303#\300\207" [function-put shr-char-breakable-p compiler-macro shr-char-breakable-p--inliner] 4)
#@26
(fn INLINE--FORM CHAR)
(defalias 'shr-char-breakable-p--inliner #[514 "\3002 \301\302E0\207" [inline--just-use aref fill-find-break-point-function-table] 5 (#$ . 17004)])
#@74 Return non-nil if no space is required before and after CHAR.
(fn CHAR)
(defalias 'shr-char-nospace-p #[257 "H\207" [fill-nospace-between-words-table] 3 (#$ . 17185)])
(byte-code "\300\301\302\303#\300\207" [function-put shr-char-nospace-p compiler-macro shr-char-nospace-p--inliner] 4)
#@26
(fn INLINE--FORM CHAR)
(defalias 'shr-char-nospace-p--inliner #[514 "\3002 \301\302E0\207" [inline--just-use aref fill-nospace-between-words-table] 5 (#$ . 17481)])
#@67 Return non-nil if a line ought not to begin with CHAR.
(fn CHAR)
(defalias 'shr-char-kinsoku-bol-p #[257 "\211\300=?\205\f \301!\302H\207" [39 char-category-set 62] 3 (#$ . 17656)])
(byte-code "\300\301\302\303#\300\207" [function-put shr-char-kinsoku-bol-p compiler-macro shr-char-kinsoku-bol-p--inliner] 4)
#@26
(fn INLINE--FORM CHAR)
(defalias 'shr-char-kinsoku-bol-p--inliner #[514 "\30024 \211\301!\203 \211\202 \302\303!\304\305\306\307ED\310\311D\312EE=\203* \211\2021 \313DC\"\266\2030\207" [inline--just-use macroexp-copyable-p make-symbol "char" and not eq 39 aref char-category-set 62 macroexp-let*] 9 (#$ . 17973)])
#@65 Return non-nil if a line ought not to end with CHAR.
(fn CHAR)
(defalias 'shr-char-kinsoku-eol-p #[257 "\300!\301H\207" [char-category-set 60] 3 (#$ . 18305)])
(byte-code "\300\301\302\303#\300\207" [function-put shr-char-kinsoku-eol-p compiler-macro shr-char-kinsoku-eol-p--inliner] 4)
#@26
(fn INLINE--FORM CHAR)
(defalias 'shr-char-kinsoku-eol-p--inliner #[514 "\3002 \301\302D\303E0\207" [inline--just-use aref char-category-set 60] 5 (#$ . 18600)])
(byte-code "\300\301\302\303#\211\304=?\205 \305!\306H\262\204 \307\310\311\312#\210\311\207" [make-char japanese-jisx0208 33 35 39 char-category-set 62 load "kinsoku" nil t] 4)
(defalias 'shr-pixel-column #[0 "\204 i\207\301p!\204- \302 \303\304\305\306\307!\310\"\311$\216\312\313\211\"\210\314\313p\"\210\315\313\316 `#@)\207\315\313\316 `#@\207" [shr-use-fonts get-buffer-window current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 set-window-dedicated-p nil set-window-buffer window-text-pixel-size line-beginning-position] 7])
(defalias 'shr-pixel-region #[0 "\300 \212\301 b\210\300 )Z\207" [shr-pixel-column mark] 2])
#@15
(fn STRING)
(defalias 'shr-string-pixel-width #[257 "\204 \211G\207`\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216c\210\312 *\262b\210\207" [shr-use-fonts generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 shr-pixel-column] 9 (#$ . 19458)])
(defalias 'shr--translate-insertion-chars #[0 "eb\210\300\301\302\303#\203 \304\305\303\211#\210\202 eb\210\300\306\302\303#\205( \304\307\303\211#\210\202 \207" [search-forward "" nil t replace-match "" " " " "] 4])
(put 'shr--translate-insertion-chars 'byte-optimizer 'byte-compile-inline-expand)
#@13
(fn TEXT)
(defalias 'shr-insert #[257 "n\204 \303`S\304\"\203 \305c\210\306=\203J `c\210\214\211`}\210eb\210\307\310\311\312#\2032 \313\314\312\211#\210\202! eb\210\307\315\311\312#\203F \313\316\312\211#\210\2025 db)\207`\317\320\"\203a n\204a `Sf\321=\204a \316c\210`nc\210\214`}\210b\210\322\323!\203z \313\314\312\211#\210\324\323\311\312#\203\213 \313\316\312\211#\210\202z eb\210\307\310\311\312#\203\237 \313\314\312\211#\210\202\216 eb\210\307\315\311\312#\203\263 \313\316\312\211#\210\202\242 db\210)`U?\205\324 \211\203\306 \325!\210 \205\324 \326`\327\n\206\323 \330$\266\202\207" [shr-folding-mode shr-use-fonts shr-current-font 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] 9 (#$ . 20097)])
#@18
(fn START END)
(defalias 'shr-fill-lines #[514 "\301X?\2053 \214}\210b\210\302`\303\"\203 \304 \210\305\303\"\211\262\2030 b\210n\203 \304 \210\202 db)\207" [shr-internal-width 0 get-text-property shr-indentation shr-fill-line next-single-property-change] 5 (#$ . 20987)])
#@15
(fn COLUMN)
(defalias 'shr-vertical-motion #[257 "\204 \301!\207l\204 \302u\210\303\304 \245\305B!\210l?\205 \302u\207" [shr-use-fonts move-to-column 1 vertical-motion frame-char-width 0] 4 (#$ . 21278)])
(defalias 'shr-fill-line #[0 "\302`\300\"\302`\303\"\304\305``T\300\304$\210\302`\306\"`\307 \210\203) \305`\306\310!$\210\266`\262\2063 \211 W\205\335 \311 !\210\312\313!\203I `\314 |\210l?\205\335 \315\316 !\203[ `U\203i \317 \210\320\304w\210\321\320\314 \322#\210h\323U\203s \324\325!\210`\302`\306\"\211\203\210 \326\327\306\310!#c\210\202\213 \327c\210\307 \210SeV\203\306 \302`\330\"\203\306 \302`\330\"\302S\330\"\232\203\306 \331\332`!!\333\306\"\211\203\277 \334\306\310!#\262\335`#\266\266`\262\311 !\210\312\313!\203I `\314 |\210\202I )\207" [shr-indentation shr-internal-width get-text-property shr-continuation-indentation nil put-text-property face 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 propertize "\n" shr-url copy-sequence text-properties-at plist-get plist-put add-text-properties] 13])
#@14
(fn START)
(defalias 'shr-find-fill-point #[257 "``\303`X\211\262\204` h\304=\204` g\304=\204` hH\204` gH\204` h\211\305=?\2051 \306!\307H\262\203N gH\203N g\211\305=?\205I \306!\307H\262\203` \306g!\310H\204` n\204` \311u\210\202 \211\203\215 \303b\210 \204\211 \n\203\211 \312\313\314 \315#\211\262\204p \211\203\211 \316\224\204\211 \317\224b\210\210\202\201l\204\201 \204\231 \n\204\344 h\317\320\304E>\204\302 \306h!\310H\204\274 g\211\305=?\205\267 \306!\307H\262\203\302 \311u\210\202\231 `X\211\262\203x\316u\210`X\203\337 `\262\306g!\310H\204\313 b\202u\306h!\310H\2038\321\311u\210\211S\211\262\317V\203 h\317\320\304E>\204 \306h!\310H\204\355 g\211\305=?\205\306!\307H\262\204\355 \210`X\211\262\203x\322\323!\2033\316\225b\202u\316u\202ug\211\305=?\205E\306!\307H\262\203x\321\316u\210\211S\211\262\317Y\205sg\211\305=?\205e\306!\307H\262\205sgH\205s\202K\262\204\201g\304=\203\201\316u\210\211?\207" [fill-find-break-point-function-table shr-kinsoku-shorten shr-width 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<"] 9 (#$ . 22477)])
#@12
(fn URL)
(defalias 'shr-parse-base #[257 "\301\302\"\203 \303\304\211\224#\262\305!\262\306!\307!>\204& \310\311\312D\"\210\211\313H\307!>\2048 \310\311\312D\"\210\211\313\314I\266\301\315\"\203L \316\317\"\262\211G\304U\204b \211GSH\320=\204b \211\321P\262\322!\307!>\204v \310\311\312D\"\210\317HF\207" [cl-struct-url-tags string-match "#.*" substring 0 shr-expand-url url-generic-parse-url type-of signal wrong-type-argument url 6 "" "\\`\\(.*/\\)[^/]+\\'" match-string 1 47 "/" url-recreate-url] 9 (#$ . 23684)])
(autoload 'url-expand-file-name "url-expand")
#@27
(fn URL &optional BASE)
(defalias 'shr-expand-url #[513 "\211\203\n \301!\202 \262G\302U\203 \303\262\203) \304\305\"\203) \306\302\225\"\262G\302U\2034 \3078\207\211\203? \304\310\"\203A \207\302H\311=\203d G\312V\203_ \312H\311=\203_ \3138\314Q\207\211@P\207\302H\315=\203r \3078P\207\316@A@P\"\207" [shr-base shr-parse-base 0 nil string-match "\\`\\s-+" substring 3 "\\`[a-z]*:" 47 1 2 ":" 35 url-expand-file-name] 6 (#$ . 24283)])
(defalias 'shr-ensure-newline #[0 "o?\205\" \300\301 \302\"i\303U\206 \211\205 \211`\301 ZU?\205 \304c\262\207" [get-text-property line-beginning-position shr-prefix-length 0 "\n"] 4])
(defalias 'shr-ensure-paragraph #[0 "o?\205` \300\301 \302\"n\203 \212\303y\210\304\305!)\206^ \211\203& \211`\301 ZU\206^ \212\306 \210\304\305!\205C \300`\307\"?\205C \310`\307\311\312 $\312 U?)\203O \313\224\313\225|\202^ l\203\\ n\203\\ \314c\202^ \315c\262\207" [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"] 6])
(defalias 'shr-indent #[0 "\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])
#@24
(fn DOM &rest TYPES)
(defalias 'shr-fontize-dom #[385 "`\211\211@:\203 \211@AA\262\202 \211AA\262\211\2054 \211@\211;\203) \300!\210\202- \301!\210A\266\202\202 \266\211\205J \211@\302`#\210A\266\202\2027 \262\207" [shr-insert shr-descend shr-add-font] 9 (#$ . 25567)])
#@23
(fn START END TYPE)
(defalias 'shr-add-font #[771 "\212b\210`W\205/ n\203 \300\301w\210\302`\303 ^\304$\210\303 W\203) \305y\210\202 b\210\202 )\207" [" " nil add-face-text-property line-end-position t 1] 8 (#$ . 25860)])
#@49 Browse the URL under the mouse cursor.
(fn EV)
(defalias 'shr-mouse-browse-url #[257 "\300!\210\301 \207" [mouse-set-point shr-browse-url] 3 (#$ . 26099) "e"])
#@65 Browse the URL under the mouse cursor in a new window.
(fn EV)
(defalias 'shr-mouse-browse-url-new-window #[257 "\300!\210\301\302\211\303#\207" [mouse-set-point shr-browse-url nil t] 5 (#$ . 26267) "e"])
#@379 Browse the URL at point using `browse-url'.
If EXTERNAL is non-nil (interactively, the prefix argument), browse
the URL using `browse-url-secondary-browser-function'.
If this function is invoked by a mouse click, it will browse the URL
at the position of the click. Optional argument MOUSE-EVENT describes
the mouse click event.
(fn &optional EXTERNAL MOUSE-EVENT NEW-WINDOW)
(defalias 'shr-browse-url #[768 "\302!\210\303`\304\"\211\204 \305\306!\2029 \307\310\"\203 \311!\2029 \203, !\210\312 \2029 \313\2037 ?\2028 \"\207" [browse-url-secondary-browser-function browse-url-new-window-flag mouse-set-point get-text-property shr-url message "No link under point" string-match "^mailto:" browse-url-mail shr--blink-link browse-url] 7 (#$ . 26481) (list current-prefix-arg last-nonmenu-event)])
#@55 Save the contents from URL in a file.
(fn DIRECTORY)
(defalias 'shr-save-contents #[257 "\300`\301\"\211\204 \302\303!\202 \304\305!\306D#\207" [get-text-property shr-url message "No link under point" url-retrieve shr-encode-url shr-store-contents] 7 (#$ . 27295) "DSave contents of URL to directory: "])
#@29
(fn STATUS URL DIRECTORY)
(defalias 'shr-store-contents #[771 "\300\301\"?\205# \302\303\304\305#\204 \302\306\304\305#\205# \307`d\310\311!\"#\207" [plist-get :error search-forward "\n\n" nil t "
\n
\n" write-region expand-file-name file-name-nondirectory] 9 (#$ . 27612)])
#@48
(fn STATUS BUFFER START END &optional FLAGS)
(defalias 'shr-image-fetched #[1284 "p\302!\203r \303\304\"\204r \305!\210eb\210\306\307\310\311#\204& \306\312\310\311#\203r \313 rq\210\212\214~\210{\314!\311|\210b\210 #\210\211\203m \211A\262\242\211A\262\242\315>\204h \316 `$\210\266\202J )\266+\210\317!\207" [inhibit-read-only shr-put-image-function 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] 16 (#$ . 27900)])
#@61 Return an image from the data: URI content DATA.
(fn DATA)
(defalias 'shr-image-from-data #[257 "\300\301\"\205- \302\303\"\304\302\305\"!\203+ \300\306\"\203+ \3071' \310!0\202) \210\311\262\262\207" [string-match "\\(\\([^/;,]+\\(/[^;,]+\\)?\\)\\(;[^;,]+\\)*\\)?,\\(.*\\)" match-string 4 url-unhex-string 5 "^.*\\(;[ ]*base64\\)$" (error) base64-decode-string nil] 6 (#$ . 28486)])
#@214 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.
(fn SPEC ALT &optional FLAGS)
(defalias 'shr-put-image #[770 "\301 \203\321 \302\236A:\203 @\202 :\205 A@`\303=\2031 \304\305\306\307\310\311&\202\200 \312=\203G \313\314!\205\200 \304\314\306\307\310%\202\200 \315=\203h \3161c \317\320\321\"\320 \322\"$0\202\200 \210\305\202\200 \3231~ \317\320\321\"\320 \322\"$0\202\200 \210\305\211\203\320 i\324V\203\227 \325\306\"@\326V\203\227 \327c\210\303=\203\255 \330\206\245 \331\305\332\333%\210\202\267 \334\206\265 \331\"\210\335`\325$\210\203\320 \336!A\203\320 \337\305\340#\210\207\206\326 \341c\207" [shr-image-animate display-graphic-p size original create-image nil t :ascent 100 :format image/svg+xml image-type-available-p svg full (error) shr-rescale-image plist-get :width :height (error) 0 image-size 400 "\n" insert-sliced-image "*" 20 1 insert-image put-text-property image-multi-frame-p image-animate 60 ""] 15 (#$ . 28887)])
#@161 Emacs image type to use when displaying images.
If Emacs has native image scaling support, that's used, but if
not, `imagemagick' is preferred if it's present.
(defalias 'shr--image-type #[0 "\300\301!\203 \301 \206 \300\302!??\205 \303\207" [fboundp image-transforms-p imagemagick-types imagemagick] 2 (#$ . 30008)])
#@316 Rescale DATA, if too big, to fit the current buffer.
WIDTH and HEIGHT are the sizes given in the HTML data, if any.
The size of the displayed image will not exceed
MAX-WIDTH/MAX-HEIGHT. If not given, use the current window
width/height instead.
(fn DATA CONTENT-TYPE WIDTH HEIGHT &optional MAX-WIDTH MAX-HEIGHT)
(defalias 'shr-rescale-image #[1540 "\302p\303\"\204 \304\305\303\306\307%\207\310\302p!!\311\206! \3128@Z_!\311\2060 \3138A@Z_!\314 !\203A V\204M \203S V\203S \305\262\305\262\203\205 \203\205 _W\203\205 _W\203\205 \304\n\315 \303\306\307\316\317\320& \202\230 \304\n\315 \303\306\307\321 \322\n\320& \207" [shr-max-image-proportion image-scaling-factor get-buffer-window t create-image nil :ascent 100 window-inside-pixel-edges truncate 2 3 image-compute-scaling-factor shr--image-type :width :height :format :max-width :max-height] 22 (#$ . 30336)])
(autoload 'browse-url-mail "browse-url")
#@68 Get image data for URL.
Return a string with image data.
(fn URL)
(defalias 'shr-get-image-data #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312!\210\3131( \314\315\316!!!\210\3170\202- \210\312\202: \205: \320\321\312\317#\205: \322 *\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 set-buffer-multibyte nil (error) url-cache-extract url-cache-create-filename shr-encode-url t re-search-forward "
?\n
?\n" shr-parse-image-data] 8 (#$ . 31298)])
(defalias 'shr-parse-image-data #[0 "`d{\212\214e`}\210\302\303!\211\205 \304\305\306\307#\"\262* \203. \211\310=\203. \311\312`d\"\313\"\262\314 \203> \211\310=\203> \315!\262D\207" [obarray shr-blocked-images mail-fetch-field "content-type" intern replace-regexp-in-string ";.*" "" image/svg+xml shr-dom-to-xml libxml-parse-xml-region utf-8 display-images-p svg--wrap-svg] 7])
#@59 Add a default foreground colour to SVG images.
(fn DATA)
(defalias 'svg--wrap-svg #[257 "\300\301\302\303\304\305%\303\"\306\307!r\211q\210\310\311\312\313\314!\315\"\316$\216\317\320\321\322!@A\323\303\"%c\210\324 *\262\207" [image-size create-image nil t :scaling 1 generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 format "<svg xmlns:xlink=\"http://www.w3.org/1999/xlink\" xmlns:xi=\"http://www.w3.org/2001/XInclude\" style=\"color: %s;\" viewBox=\"0 0 %d %d\"> <xi:include href=\"data:image/svg+xml;base64,%s\"></xi:include></svg>" face-foreground default base64-encode-string buffer-string] 11 (#$ . 32242)])
#@266 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.
(fn CONTENT-FUNCTION)
(defalias 'shr-image-displayer #[257 "\300\301\302\303\304\305\205 \306\307\310 \311BBDC\312BB\313BBBEE\207" [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))] 12 (#$ . 32942)])
#@24
(fn DOM &rest TYPES)
(defalias 'shr-heading #[385 "\300 \210\301\302#\210\300 \207" [shr-ensure-paragraph apply shr-fontize-dom] 6 (#$ . 33667)])
#@34
(fn START URL &optional TITLE)
(defalias 'shr-urlify #[770 "\302`\303#\210\304`\305\306\307\310\311\312\313\3141! \315\316!\317\307#0\202% \210\202( \206* \f!\320\321!>\204; \322\323\324D\"\210\325H\203l \321!>\204P \322\323\324D\"\210\211\325\326\321!>\204e \322\323\324D\"\210\325H!I\266\327!\262\f\203 \330\331#\202\200 \211\266\202\332\307\333\334\257\f#\210\205\266 `W\205\266 \335\336\320`$\337\336\"\203\247 \211\262\202\262 \340\206\256 `\336 $\210\210\202\212 \207" [cl-struct-url-tags shr-map shr-add-font shr-link add-text-properties shr-url button t category shr help-echo url-generic-parse-url (error) decode-coding-string url-unhex-string utf-8 nil type-of signal wrong-type-argument url 4 puny-encode-domain url-recreate-url format "%s (%s)" follow-link mouse-face highlight next-single-property-change keymap get-text-property put-text-property] 23 (#$ . 33823)])
#@23 Encode URL.
(fn URL)
(defalias 'shr-encode-url #[257 "\300\301\"\207" [browse-url-url-encode-chars "[)$ ]"] 4 (#$ . 34746)])
(byte-code "\300\301\302\"\210\300\303\302\"\207" [autoload shr-color-visible "shr-color" shr-color->hexadecimal] 3)
#@178 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.
(fn FG BG)
(defalias 'shr-color-check #[514 "\204 \211\205P \204 \300\202 \211?\205 \301\302!\206 \303\304\305\"\302!\206* \303\304\306\"\307\267\202H \304\310\311#A@D\202L \310\311#A@\304D\202L \310\"\266\202\262\207" [fg bg shr-color->hexadecimal frame-parameter nil foreground-color background-color #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (bg 48 fg 60)) shr-color-visible t] 10 (#$ . 34997)])
#@34
(fn START END FG &optional BG)
(defalias 'shr-colorize-region #[1027 "\205; \204\f \211\205; \301 \302Y\205; \303\"\211\2038 \203* \304\305A@D\306$\210\2038 \304\307@D\306$\210\211\262\207" [shr-use-colors display-color-cells 88 shr-color-check add-face-text-property :foreground t :background] 10 (#$ . 35628)])
#@12
(fn DOM)
(defalias 'shr-tag-html #[257 "\301\211@:\203 \211@A@\262\202 \211A@\262\236A\211\302\267\202* \303\202* \304\202* \305\210\211\211\211@:\203< \211@AA\262\202A \211AA\262\211\205^ \211@\211;\203S \306!\210\202W \307!\210A\266\202\202A \207" [bidi-paragraph-direction dir #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("ltr" 30 "rtl" 35 "auto" 40)) left-to-right right-to-left nil shr-insert shr-descend] 6 (#$ . 35962)])
#@12
(fn DOM)
(defalias 'shr-tag-body #[257 "`\301\211@:\203 \211@A@\262\202 \211A@\262\236A\2064 \302\211@:\203- \211@A@\262\2022 \211A@\262\236A\303\211@:\203E \211@A@\262\202J \211A@\262\236A\304B\305BD\211\211@:\203e \211@AA\262\202j \211AA\262\211\205\207 \211@\211;\203| \306!\210\202\200 \307!\210A\266\202\202j \266\310`$)\207" [shr-stylesheet fgcolor text bgcolor color background-color shr-insert shr-descend shr-colorize-region] 9 (#$ . 36455)])
#@12
(fn DOM)
(defalias 'shr-tag-style #[257 "\300\207" [nil] 2 (#$ . 36939)])
#@12
(fn DOM)
(defalias 'shr-tag-script #[257 "\300\207" [nil] 2 (#$ . 37021)])
#@12
(fn DOM)
(defalias 'shr-tag-comment #[257 "\300\207" [nil] 2 (#$ . 37104)])
#@30
(fn DOM &optional CHARSET)
(defalias 'shr-dom-to-xml #[513 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311!\210\203* \312ed#\210eb\210\313\314\"c\210\315 *\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 shr-dom-print encode-coding-region format "<?xml version=\"1.0\" encoding=\"%s\"?>\n" buffer-string] 9 (#$ . 37188)])
#@72 Convert DOM into a string containing the xml representation.
(fn DOM)
(defalias 'shr-dom-print #[257 "\301\302\211@:\203 \211@@\262\202 \211@\262\"c\210\211\211@:\203( \211@A@\262\202- \211A@\262\211\203O \211@\301\303@\"\304H\305U\204H \301\306@A#c\210A\266\202\202- \210\307c\210\310\211@:\203d \211@AA\262\202i \211AA\262\211\203\341 \211@\211;\203z \211c\210\202\332 \211\211@:\203\211 \211@@\262\202\215 \211@\262\311=\204\332 \211\211@:\203\241 \211@@\262\202\245 \211@\262\312=\203\323 \313\211@:\203\273 \211@A@\262\202\300 \211A@\262\236A\211\262\203\323 \203\323 \314\"\204\332 \315c\210\316!\210A\266\202\202i \266\301\317\211@:\203\364 \211@@\262\202\370 \211@\262\"c\207" [shr-blocked-images format "<%s" "%s" 0 58 " %s=\"%s\"" ">" nil comment image :xlink:href string-match " " shr-dom-print "</%s>"] 7 (#$ . 37615)])
#@12
(fn DOM)
(defalias 'shr-tag-svg #[257 "\302\303!\205J ?\205J \304\211@:\203 \211@A@\262\202! \211A@\262\236A\205J \305\211@:\2037 \211@A@\262\202< \211A@\262\236A\205J \306\307\"\310D\311\"\207" [shr-inhibit-images shr-put-image-function image-type-available-p svg width height shr-dom-to-xml utf-8 image/svg+xml "SVG Image"] 5 (#$ . 38485)])
#@12
(fn DOM)
(defalias 'shr-tag-sup #[257 "`\211\211@:\203 \211@AA\262\202 \211AA\262\211\2054 \211@\211;\203) \300!\210\202- \301!\210A\266\202\202 \266\302`\303\304$\207" [shr-insert shr-descend put-text-property display (raise 0.2)] 7 (#$ . 38846)])
#@12
(fn DOM)
(defalias 'shr-tag-sub #[257 "`\211\211@:\203 \211@AA\262\202 \211AA\262\211\2054 \211@\211;\203) \300!\210\202- \301!\210A\266\202\202 \266\302`\303\304$\207" [shr-insert shr-descend put-text-property display (raise -0.2)] 7 (#$ . 39114)])
#@12
(fn DOM)
(defalias 'shr-tag-p #[257 "\300 \210\211\211\211@:\203 \211@AA\262\202 \211AA\262\211\2056 \211@\211;\203+ \301!\210\202/ \302!\210A\266\202\202 \266\300 \207" [shr-ensure-paragraph shr-insert shr-descend] 6 (#$ . 39383)])
#@12
(fn DOM)
(defalias 'shr-tag-div #[257 "\301\236A\211\302\232\204 \211\303\232\203H \211\211@:\203! \211@AA\262\202& \211AA\262\211\205C \211@\211;\2038 \304!\210\202< \305!\210A\266\202\202& \266\202\202\202 \306 \210\211\211@:\203\\ \211@AA\262\202a \211AA\262\211\205~ \211@\211;\203s \304!\210\202w \305!\210A\266\202\202a \266\306 \207" [shr-stylesheet display "inline" "inline-block" shr-insert shr-descend shr-ensure-newline] 7 (#$ . 39633)])
#@12
(fn DOM)
(defalias 'shr-tag-s #[257 "\300\301\"\207" [shr-fontize-dom shr-strike-through] 4 (#$ . 40105)])
#@12
(fn DOM)
(defalias 'shr-tag-b #[257 "\300\301\"\207" [shr-fontize-dom bold] 4 (#$ . 40221)])
#@12
(fn DOM)
(defalias 'shr-tag-i #[257 "\300\301\"\207" [shr-fontize-dom italic] 4 (#$ . 40323)])
#@12
(fn DOM)
(defalias 'shr-tag-em #[257 "\300\301\"\207" [shr-fontize-dom italic] 4 (#$ . 40427)])
#@12
(fn DOM)
(defalias 'shr-tag-strong #[257 "\300\301\"\207" [shr-fontize-dom bold] 4 (#$ . 40532)])
#@12
(fn DOM)
(defalias 'shr-tag-u #[257 "\300\301\"\207" [shr-fontize-dom underline] 4 (#$ . 40639)])
#@12
(fn DOM)
(defalias 'shr-tag-code #[257 "\301\211\211\211@:\203 \211@AA\262\202 \211AA\262\211\2055 \211@\211;\203* \302!\210\202. \303!\210A\266\202\202 \266\202)\207" [shr-current-font default shr-insert shr-descend] 6 (#$ . 40746)])
#@12
(fn DOM)
(defalias 'shr-tag-tt #[257 "\300!\207" [shr-tag-code] 3 (#$ . 40998)])
#@13
(fn CONT)
(defalias 'shr-tag-ins #[257 "`\301\302BC\244\211\211@:\203 \211@AA\262\202 \211AA\262\211\205< \211@\211;\2031 \303!\210\2025 \304!\210A\266\202\202 \266\305`\306\236A$)\207" [shr-stylesheet "green" color shr-insert shr-descend shr-colorize-region background-color] 9 (#$ . 41088)])
#@13
(fn CONT)
(defalias 'shr-tag-del #[257 "`\301\302BC\244\303\304\"\210\305`\306\236A$)\207" [shr-stylesheet "red" color shr-fontize-dom shr-strike-through shr-colorize-region background-color] 9 (#$ . 41406)])
#@14
(fn STYLE)
(defalias 'shr-parse-style #[257 "\211\205| \301 \302\303\304\305\306!\307\"\310$\216\311\312\"\203! \313\314\315\211$\262)\210\316\317\320\"\211\203x \211@\211\203q \317\321\"\262\211@\203q \211A@\203q \322\323\324@#\322\323\324A@#\311\325\"\203_ \326\303\211\224#\262\211\327\232\204o \330\"BB\262\266A\266\202\202( \210\211\262\207" [obarray match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 string-match "\n" replace-match " " t nil split-string ";" ":" replace-regexp-in-string "^ +\\| +$" "" " *!important\\'" substring "inherit" intern] 10 (#$ . 41630)])
#@12
(fn DOM)
(defalias 'shr-tag-base #[257 "\301\211@:\203 \211@A@\262\202 \211A@\262\236A\211\203 \302!\210\211\211\211@:\2032 \211@AA\262\2027 \211AA\262\211\205T \211@\211;\203I \303!\210\202M \304!\210A\266\202\2027 \207" [shr-base href shr-parse-base shr-insert shr-descend] 6 (#$ . 42274)])
#@12
(fn DOM)
(defalias 'shr-tag-a #[257 "\302\211@:\203 \211@A@\262\202 \211A@\262\236A\303\211@:\203) \211@A@\262\202. \211A@\262\236A`\304\211\211@:\203D \211@AA\262\202I \211AA\262\211\205f \211@\211;\203[ \305!\210\202_ \306!\210A\266\202\202I \266 \203\235 \307\211@:\203} \211@A@\262\202\202 \211A@\262\236A \232\203\235 \211`U\203\225 \310 \210\311c\210\312\211T\301 $\210\205\254 \313\206\247 \314!#)\207" [shr-start shr-target-id href title nil shr-insert shr-descend name shr-ensure-newline " " put-text-property shr-urlify shr-expand-url] 9 (#$ . 42588)])
#@12
(fn DOM)
(defalias 'shr-tag-abbr #[257 "\300\211@:\203 \211@A@\262\202 \211A@\262\236A\211\205 `\211\205e \211\211@:\2032 \211@AA\262\2027 \211AA\262\211\205T \211@\211;\203I \301!\210\202M \302!\210A\266\202\2027 \266\303`\304#\210\305`\306\307\310F#\207" [title shr-insert shr-descend shr-add-font shr-abbreviation add-text-properties help-echo mouse-face highlight] 10 (#$ . 43184)])
#@12
(fn DOM)
(defalias 'shr-tag-acronym #[257 "\300!\207" [shr-tag-abbr] 3 (#$ . 43595)])
#@12
(fn DOM)
(defalias 'shr-tag-object #[257 "?\205M`\301\211\211\302\211@:\203 \211@A@\262\202 \211A@\262\236A\211\203J \303\304\"\203J \305\211@:\203> \211@A@\262\202C \211A@\262\236A\262\306\262\210\307!\211\203\355 \211@\211\211@:\203c \211@@\262\202g \211@\262\310=\203\220 \206\210 \311\211@:\203\201 \211@A@\262\202\206 \211A@\262\236A\262\306\262\202\346 \211\211@:\203\237 \211@@\262\202\243 \211@\262\312=\203\346 \313\211@:\203\271 \211@A@\262\202\276 \211A@\262\236A\314\232\203\346 \206\341 \315\211@:\203\332 \211@A@\262\202\337 \211A@\262\236A\262\306\262A\266\202\202N \210\203\211\203\316\317#\210\301\262\202\203\320\321!\210\322\323!\"\210\205K\211\211@:\203'\211@AA\262\202,\211AA\262\211\205I\211@\211;\203>\320!\210\202B\324!\210A\266\202\202,\266\202\266\204\207" [shr-inhibit-images nil type string-match "\\`image/svg" data t dom-non-text-children embed src param name "movie" value shr-indirect-call img shr-insert " [multimedia] " shr-urlify shr-expand-url shr-descend] 10 (#$ . 43690)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable shr-prefer-media-type-alist funcall function #[0 "\300\207" [(("webm" . 1.0) ("ogv" . 1.0) ("ogg" . 1.0) ("opus" . 1.0) ("flac" . 0.9) ("wav" . 0.5))] 1] "Preferences for media types.\nThe key element should be a regexp matched against the type of the source or\nurl if no type is specified. The value should be a float in the range 0.0 to\n1.0. Media elements with higher value are preferred." :version "24.4" :type (alist :key-type regexp :value-type float)] 8)
#@114 Determine the preference for ELEM.
The preference is a float determined from `shr-prefer-media-type'.
(fn ELEM)
(defalias 'shr--get-media-pref #[257 "\302\211@:\203 \211@A@\262\202 \211A@\262\236A\303\2047 \304\211@:\203. \211@A@\262\2023 \211A@\262\236A\262\203f \211\203e \211@\211AV\203^ \211@\305\306\307#)\266\203\203^ \211A\262A\266\202\202< \210\207" [shr-prefer-media-type-alist inhibit-changing-match-data type 0.0 src nil t string-match] 12 (#$ . 45328)])
#@92 Extract the best `:src' property from <source> blocks in DOM.
(fn DOM &optional URL PREF)
(defalias 'shr--extract-best-source #[769 "\211\206 \300\262\301\302!\211\203\232 \211@\211\211@:\203 \211@@\262\202$ \211@\262\303=\203\223 \304!\211\262W\203\223 \262\305\211@:\203H \211@A@\262\202M \211A@\262\236A\262\302!\211\203\222 \211@\211\211@:\203i \211@@\262\202m \211@\262\303=\203\213 \306C#AW\203\212 \211@\262\211A\262\210A\266\202\202T \210A\266\202\202 \266B\207" [-1.0 nil dom-non-text-children source shr--get-media-pref src shr--extract-best-source] 12 (#$ . 45821)])
#@12
(fn DOM)
(defalias 'shr-tag-video #[257 "\300\211@:\203 \211@A@\262\202 \211A@\262\236A\301\211@:\203) \211@A@\262\202. \211A@\262\236A`\204; \302!@\262G\303V\203K \304\305\306#\210\202O \307\310!\210\311\312!\"\207" [poster src shr--extract-best-source 0 shr-indirect-call img nil shr-insert " [video] " shr-urlify shr-expand-url] 8 (#$ . 46440)])
#@12
(fn DOM)
(defalias 'shr-tag-audio #[257 "\300\211@:\203 \211@A@\262\202 \211A@\262\236A`\204# \301!@\262\302\303!\210\304\305!\"\207" [src shr--extract-best-source shr-insert " [audio] " shr-urlify shr-expand-url] 7 (#$ . 46812)])
#@26
(fn DOM &optional URL)
(defalias 'shr-tag-img #[513 "\211\204D \205)\306\211@:\203 \211@A@\262\202 \211A@\262\236AG\307V\204D \310\211@:\2037 \211@A@\262\202< \211A@\262\236AG\307V\205)i\307V\203M \311c\210\312\211@:\203^ \211@A@\262\202c \211A@\262\236A\313\314\211@:\203w \211@A@\262\202| \211A@\262\236A!\313\315\211@:\203\221 \211@A@\262\202\226 \211A@\262\236A!\316\206\242 \317!!\320 G\307U\203\257 \321\262\203\331\315\211@:\203\305 \211@A@\262\202\312 \211A@\262\236A\322\235\204\331\314\211@:\203\343 \211@A@\262\202\350 \211A@\262\236A\323\235\204\331\204 \324\325\"\203 \326\327\307\225\"!\211\203 \330\331 F#\210\202c\210\210\202\331\204S\324\332\"\203S\327\307\225\"\333\n\203:\n!\211\262\204Ac\210\202N \330 \331\nF#\210\266\202\331\204b \203k\324 \"\203k`\334!\210\202\331
\204\211\335\336!!\203\211 \337!\330\331F#\210\202\331
\203\245\335\336!!\203\245\340\336!!\341!\203\244\342!\210\210\343\344!\203\270\345\346!\206\266\347\"\210\350c\210\351\336!\352p\353 `\333\223\330\n\331 FF\354\3557\"?%\2108\307U\205%\356`\3579$\210\356`\360$\210\356`\361$\210\356`\362\363\n!$\210\356`\364\365\366\f\211@:\203\211@A@\262\202 \211A@\262\236A\206# !$\262\266\204\207" [shr-inhibit-images shr-put-image-function shr-content-function shr-blocked-images shr-start shr-ignore-cache src 0 srcset "\n" alt shr-string-number width height shr-expand-url shr--preferred-image point-marker "*" ("0" "1") ("0" "1") string-match "\\`data:" shr-image-from-data substring :width :height "\\`cid:" nil shr-insert url-is-cached shr-encode-url shr-get-image-data url-cache-create-filename file-exists-p delete-file image-type-available-p svg insert-image shr-make-placeholder-image "" " " url-queue-retrieve shr-image-fetched make-marker t shr--use-cookies-p put-text-property keymap shr-alt image-url image-displayer shr-image-displayer help-echo shr-fill-text title shr-base shr-table-depth shr-image-map] 17 (#$ . 47061)])
#@127 Say whether to use cookies when fetching URL (typically an image).
BASE is the URL of the HTML being rendered.
(fn URL BASE)
(defalias 'shr--use-cookies-p #[514 "\211\204 \302\207\303=\203p \304!\305! >\204 \306\307\310D\"\210\211\311H\262\312\304@!\305! >\2047 \306\307\310D\"\210\211\311H\262\313\"\314\302\203g \315\316\317\320#\"\203Z \314\262\302\211\262\202[ \314\203g \211A\262\210\202@ ?\205m \211\266\202\207\207" [shr-cookie-policy cl-struct-url-tags nil same-origin url-generic-parse-url type-of signal wrong-type-argument url 4 split-string "\\." t url-cookie-host-can-set-p mapconcat identity "."] 12 (#$ . 49120)])
#@12
(fn DOM)
(defalias 'shr--preferred-image #[257 "\300\211@:\203 \211@A@\262\202 \211A@\262\236A\301 \302\303\211@:\203, \211@A@\262\2021 \211A@\262\236A\2067 \304!\305G\306V\203} \307\310\311\312\313\314\315!\316\"\317\320%\321\322\323\324\n#\325\"\"\326\"\262@@\262\203} @A@V\203} @@\262\211A\262\210\202b \211\206\231 \327\211@:\203\222 \211@A@\262\202\227 \211A@\262\236A\207" [srcset frame-pixel-width string-to-number width "100" nil 0 sort mapcar make-byte-code 257 "\301\302\"\211G\303U\203 \211@\304D\2023 \305\306A@\"\203+ \211@\300\307\310\303A@\"!_D\2023 \211@\307A@!D\207" vconcat vector [split-string "[ \n
]+" 1 0 string-match "\\([0-9]+\\)x\\'" string-to-number match-string] 8 "\n\n(fn ELEM)" split-string replace-regexp-in-string "\\`[ \n
]+\\|[ \n
]+\\'" "" "[ \n
]*,[ \n
]*" #[514 "A@A@V\207" [] 4 "\n\n(fn E1 E2)"] src] 13 (#$ . 49777)])
#@15
(fn STRING)
(defalias 'shr-string-number #[257 "\211\205 \300\301\302#\262\211G\303U?\205 \304!\207" [replace-regexp-in-string "[^0-9]" "" 0 string-to-number] 5 (#$ . 50679)])
#@12
(fn DOM)
(defalias 'shr-make-placeholder-image #[257 "\302p!\205 \303\302p!!\304!\305\306\307\211@:\203! \211@A@\262\202& \211A@\262\236A!\206- \310_!\305\306\311\211@:\203D \211@A@\262\202I \211A@\262\236A!\206P \310_!\205c \305 \3128@Z_!\205t \305 \3138A@Z_!\314\203\216 V\203\216 \305\315!\245_!\262\262\203\247 V\203\247 \305\315!\245_!\262\262\316\"\262\317\320\321\322$\210\323\324\211\325\320\326\312\327\330& \210\331\332\333#\211\334\335\310#\266\211\262\207" [image-scaling-factor shr-max-image-proportion get-buffer-window window-inside-pixel-edges image-compute-scaling-factor truncate shr-string-number width 100 height 2 3 nil float svg-create svg-gradient "background" linear ((0 . "#b0b0b0") (100 . "#808080")) svg-rectangle 0 :gradient :stroke-width :stroke-color "black" svg-image :scale 1 image--set-property :ascent] 20 (#$ . 50868)])
#@12
(fn DOM)
(defalias 'shr-tag-pre #[257 "\302\303\304 \210\211\211\211@:\203 \211@AA\262\202 \211AA\262\211\205: \211@\211;\203/ \305!\210\2023 \306!\210A\266\202\202 \266\304 *\207" [shr-current-font shr-folding-mode none default shr-ensure-newline shr-insert shr-descend] 6 (#$ . 51785)])
#@12
(fn DOM)
(defalias 'shr-tag-blockquote #[257 "\302 \210`\303 _\\\211\211@:\203 \211@AA\262\202 \211AA\262\211\205= \211@\211;\2032 \304!\210\2026 \305!\210A\266\202\202 \266\302 \210\306!)\207" [shr-indentation shr-table-separator-pixel-width shr-ensure-paragraph 4 shr-insert shr-descend shr-mark-fill] 7 (#$ . 52093)])
#@12
(fn DOM)
(defalias 'shr-tag-dl #[257 "\300 \210\211\211\211@:\203 \211@AA\262\202 \211AA\262\211\2056 \211@\211;\203+ \301!\210\202/ \302!\210A\266\202\202 \266\300 \207" [shr-ensure-paragraph shr-insert shr-descend] 6 (#$ . 52435)])
#@12
(fn DOM)
(defalias 'shr-tag-dt #[257 "\300 \210\211\211\211@:\203 \211@AA\262\202 \211AA\262\211\2056 \211@\211;\203+ \301!\210\202/ \302!\210A\266\202\202 \266\300 \207" [shr-ensure-newline shr-insert shr-descend] 6 (#$ . 52686)])
#@12
(fn DOM)
(defalias 'shr-tag-dd #[257 "\302 \210\303 _\\\211\211\211@:\203 \211@AA\262\202 \211AA\262\211\205< \211@\211;\2031 \304!\210\2025 \305!\210A\266\202\202 \266\202)\207" [shr-indentation shr-table-separator-pixel-width shr-ensure-newline 4 shr-insert shr-descend] 6 (#$ . 52935)])
#@12
(fn DOM)
(defalias 'shr-tag-ul #[257 "\301 \210\302\211\211\211@:\203 \211@AA\262\202 \211AA\262\211\2058 \211@\211;\203- \303!\210\2021 \304!\210A\266\202\202 \266)n\204B \305c\210\301 \207" [shr-list-mode shr-ensure-paragraph ul shr-insert shr-descend "\n"] 6 (#$ . 53243)])
#@12
(fn DOM)
(defalias 'shr-tag-ol #[257 "\301 \210\211\211@:\203 \211@A@\262\202 \211A@\262\302\303\"\3041' \305!0\202* \306\262\211\211\211@:\203= \211@AA\262\202B \211AA\262\211\205_ \211@\211;\203T \307!\210\202X \310!\210A\266\202\202B \266)\266\301 \207" [shr-list-mode shr-ensure-paragraph alist-get start (t) cl-parse-integer 1 shr-insert shr-descend] 9 (#$ . 53538)])
#@12
(fn DOM)
(defalias 'shr-tag-li #[257 "\303 \210`\247\203 \304\305\"T\202 @\247\203 \306!\202\" Ac\210\307!\210\n\\\310\211T\311\n$\210\310\211T\312G$\210\211\211@:\203O \211@AA\262\202T \211AA\262\211\205q \211@\211;\203f \313!\210\202j \314!\210A\266\202\202T \266)\266n?\205} \315c\207" [shr-list-mode shr-internal-bullet shr-indentation shr-ensure-newline format "%d " shr-string-pixel-width shr-mark-fill put-text-property shr-continuation-indentation shr-prefix-length shr-insert shr-descend "\n"] 9 (#$ . 53935)])
#@14
(fn START)
(defalias 'shr-mark-fill #[257 "\211`U?\205 \301\302\"?\205 \303\211T\300$\207" [shr-indentation get-text-property shr-table-id put-text-property] 6 (#$ . 54489)])
#@12
(fn DOM)
(defalias 'shr-tag-br #[257 "o\204 n\203 `\300ZeV\203 `\300Zf\301U\204 \302c\210\211\211\211@:\203- \211@AA\262\2022 \211AA\262\211\205O \211@\211;\203D \303!\210\202H \304!\210A\266\202\2022 \207" [2 10 "\n" shr-insert shr-descend] 6 (#$ . 54677)])
#@12
(fn DOM)
(defalias 'shr-tag-span #[257 "\211\211\211@:\203 \211@AA\262\202 \211AA\262\211\2053 \211@\211;\203( \300!\210\202, \301!\210A\266\202\202 \207" [shr-insert shr-descend] 6 (#$ . 54953)])
#@12
(fn DOM)
(defalias 'shr-tag-h1 #[257 "\301\203\n \302\202 \303\"\207" [shr-use-fonts shr-heading (variable-pitch (:height 1.3 :weight bold)) bold] 4 (#$ . 55166)])
#@12
(fn DOM)
(defalias 'shr-tag-h2 #[257 "\300\301\"\207" [shr-heading bold] 4 (#$ . 55341)])
#@12
(fn DOM)
(defalias 'shr-tag-h3 #[257 "\300\301\"\207" [shr-heading italic] 4 (#$ . 55440)])
#@12
(fn DOM)
(defalias 'shr-tag-h4 #[257 "\300!\207" [shr-heading] 3 (#$ . 55541)])
#@12
(fn DOM)
(defalias 'shr-tag-h5 #[257 "\300!\207" [shr-heading] 3 (#$ . 55630)])
#@12
(fn DOM)
(defalias 'shr-tag-h6 #[257 "\300!\207" [shr-heading] 3 (#$ . 55719)])
#@12
(fn DOM)
(defalias 'shr-tag-hr #[257 "\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"] 4 (#$ . 55808)])
#@12
(fn DOM)
(defalias 'shr-tag-title #[257 "\300\301\302#\207" [shr-heading bold underline] 5 (#$ . 56040)])
#@12
(fn DOM)
(defalias 'shr-tag-font #[257 "`\301\211@:\203 \211@A@\262\202 \211A@\262\236A\301BC\244\211\211@:\2031 \211@AA\262\2026 \211AA\262\211\205S \211@\211;\203H \302!\210\202L \303!\210A\266\202\2026 \266\211\205b \304`\305\236A$)\207" [shr-stylesheet color shr-insert shr-descend shr-colorize-region background-color] 9 (#$ . 56155)])
#@12
(fn DOM)
(defalias 'shr-tag-bdo #[257 "\300\211@:\203 \211@A@\262\202 \211A@\262\236A\211\301\267\202& \302\202' \303\202' \304\211\2030 \305\261\210\211\211@:\203A \211@AA\262\202F \211AA\262\211\205c \211@\211;\203X \306!\210\202\\ \307!\210A\266\202\202F \266\211\205m \310\311\261\207" [dir #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("ltr" 30 "rtl" 34)) 8237 8238 nil 8296 shr-insert shr-descend 8236 8297] 8 (#$ . 56522)])
#@12
(fn DOM)
(defalias 'shr-tag-bdi #[257 "\300c\210\211\211\211@:\203 \211@AA\262\202 \211AA\262\211\2056 \211@\211;\203+ \301!\210\202/ \302!\210A\266\202\202 \266\303c\207" [8296 shr-insert shr-descend 8297] 6 (#$ . 57019)])
#@12
(fn DOM)
(defalias 'shr-tag-table-1 #[257 "\306\307\"\206 \211\262\310 T\310\311!\312!\313\211@:\203( \211@A@\262\202- \211A@\262\236A\2068 \314\315\313$\211\315\211:\203S @\262\316\317\"B\262A\262\202; \211\237\266\203\315\211:\203r @\262\316\320\"B\262A\262\202Z \211\237\266\203\321#\322\323\315\324T\211\262GW\203\232 H\262\211T\\\262\202\201 \266\203 \f#\325 V\203\247 \310\326\314\310#\"+\207" [shr-inhibit-images shr-table-depth shr-kinsoku-shorten shr-indentation shr-table-separator-pixel-width truncate-lines 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] 14 (#$ . 57260)])
#@12
(fn DOM)
(defalias 'shr-table-body #[257 "\300\301\302!\"\211\204 \202& \211G\303U\203 \211@\202& \304\305\306\307\310\302\"\"BB\207" [seq-filter #[257 "\211\211@:\203 \211@@\262\202 \211@\262\300=\207" [tbody] 3 "\n\n(fn CHILD)"] dom-non-text-children 1 tbody nil cl-reduce append mapcar] 9 (#$ . 58025)])
#@14
(fn TBODY)
(defalias 'shr--fix-tbody #[257 "\300\211@:\203 \211@A@\262\202 \211A@\262D\211@:\203' \211@AA\262\202, \211AA\262\301\211:\203j @\262;\204T \211@:\203K \211@@\262\202O \211@\262\302=\204^ \302\301\303\301EE\202_ B\262A\262\202. \211\237\266\203\244\207" [tbody nil tr td] 10 (#$ . 58350)])
#@34
(fn DOM CAPTION HEADER FOOTER)
(defalias 'shr--fix-table #[1028 "\300\301\302!!!\205 \303!\203 \303!\202 \304\205! \303!\305\306D\2053 \307\306\310\306 BBEC\244\203N\203\362 U\203\225 U\203b \307\306\310\306\305\306\311\306\312#BBEEEC\202\267\307\306\310\306\305\306\311\306\312\"BBEEEC\313U\203\201 \202\221 \307\306\310\306\305\306\311\306BBEEEC\244\202\267\307\306\310\306\305\306\311\306BBEEECU\203\302 \307\306\310\306\305\306\311\306\312\"BBEEEC\202\356 \307\306\310\306\305\306\311\306
BBEEEC\313U\203\335 \202\355 \307\306\310\306\305\306\311\306BBEEEC\244\244\202\267U\203\307\306\310\306\305\306\311\306\312\"BBEEEC\202\267\313U\203,\312\307\306\310\306\305\306\311\306BBEEEC\"\202\267\307\306\310\306\305\306\311\306BBEEE\307\306\310\306\305\306\311\306
BBEEED\202\267\203\236U\203o\307\306\310\306\305\306\311\306\312
\"BBEEEC\202\267\307\306\310\306\305\306\311\306\fBBEEEC\313U\203\212\202\232\307\306\310\306\305\306\311\306BBEEEC\244\202\267\203\266\307\306\310\306\305\306\311\306\fBBEEEC\202\267\244\207" [dom-non-text-children shr--fix-tbody shr-table-body shr-max-columns 0 table nil tr td tbody append 1] 21 (#$ . 58681)])
#@12
(fn DOM)
(defalias 'shr-tag-table #[257 "\302 \210\303\304\"\211@:\203 \211@AA\262\202 \211AA\262\305\303\306\"!\305\303\307\"!\204y \204y \303\310\"\204y \303\311\"\204y \211\204y \211\211@:\203R \211@AA\262\202W \211AA\262\211\205t \211@\211;\203i \312!\210\202m \313!\210A\266\202\202W \266\202\202\n\314\211@:\203\212 \211@A@\262\202\217 \211A@\262\236A\203\233 \315!\210\202\261 \316$\317\314\320#\210A\241\210\315!\266\321\211@:\203\302 \211@A@\262\202\307 \211A@\262\236A`\322BC\244\203\337 \323`\324\236A$\210 \325U\205\212\326`\"\210)\327!\211\205\214``}\210\330\331\332#c\210\333ed\")\262)\266\202\207" [shr-stylesheet shr-table-depth shr-ensure-paragraph dom-child-by-tag caption dom-non-text-children thead tfoot tbody tr shr-insert shr-descend shr-fixed-table shr-tag-table-1 shr--fix-table dom-set-attribute t bgcolor background-color shr-colorize-region color 0 shr-expand-alignments shr-collect-extra-strings-in-table mapconcat identity "\n" shr-fill-lines] 11 (#$ . 59931)])
#@286 Return extra strings in DOM of which the root is a table clause.
Render <img>s and <object>s, and strings and child <table>s of which
the parent <td> or <th> is lacking. FLAGS is a cons of two boolean
flags that control whether to collect or render objects.
(fn DOM &optional FLAGS)
(defalias 'shr-collect-extra-strings-in-table #[513 "\211@:\203 \211@AA\262\202 \211AA\262\300\211\211\211:\203\326 @\262\300\262;\203F @\203\300 A\204\300 \301\302\"\203\300 \303\304\"B\262\202\300 :\203\300 \211@:\203Z \211@@\262\202^ \211@\262\262\305>\204\300 \306=\203t \307\306\"\210\202\300 \310=\203\202 \307\310\"\210\202\300 \311\262\312=\203\221 \313\262\202\300 \314>\203\242 @\203\300 \315\262\202\300 \316=\203\300 A\203\263 \300\262\202\300 @\203\300 \300\262\307\316\"\210\203\317 \317\320\"!\244\262A\262\202 \211\237\207" [nil string-match "\\(?:[^ \n
]+[ \n
]+\\)*[^ \n
]+" match-string 0 (comment style) img shr-indirect-call object t tr (t) (td th) (t . t) table reverse shr-collect-extra-strings-in-table] 11 (#$ . 60982)])
#@21
(fn TABLE WIDTHS)
(defalias 'shr-insert-table #[514 "\306\236A\307\232\211\203 \310\202 \311\211\203 \312\202 \n` T\204& \313!\210\211\203d\211@`\310\211\211\211\203F \211@\3148]\262A\266\202\2022 \210\211\262\211\311]\310\211W\203i \211n\203\\ \315 \210\n\316\261\266\211T\262\202N \266\211\203S\211@\3148\317V\203Lb\210\3208\310\211W\203\255 \211GSX\203\240 \321 H\314\f_#\262T\262\210\211T\262\202\201 \266\3228
\204\275 \323 _\202\276 \211\203\211@\324\210`G\310V\205\331 \325\326GS\327#!\330\331\332\333\334 CE\335 %\203\360 \330\327#\262\n\261\210\336`S\337 8\340\f8$\266\311y\210A\266\202\202\277 \210GZ\310\211W\203J\211\324\210`\330\331\332\333\334 CE\335 %\n\261\210\336`S\337\n8\340 8$\266\311y\266\211T\262\202\266A\266\202\202l \266\204]\313!\210A\266\202\202' \210\211`U?\205s\341\211T\303 $*\207" [shr-stylesheet shr-table-separator-length shr-table-vertical-line shr-table-id shr-table-separator-pixel-width shr-use-fonts border-collapse "collapse" 0 1 "" shr-insert-table-ruler 2 shr-indent "\n" -1 4 + 3 frame-char-width nil shr-face-background get-text-property face propertize " " display space :align-to shr-table-indent shr-colorize-region 5 6 put-text-property] 25 (#$ . 62069)])
#@13
(fn FACE)
(defalias 'shr-face-background #[257 "\211:\205C \300\301\"\203 \301\300\301\"D\206C \302\211\2039 \211@\211:\2032 \211@\301=\2032 \2042 \211A@\262A\266\202\202 \210\211\205A \301D\262\207" [plist-get :background nil] 6 (#$ . 63372)])
#@18
(fn START END)
(defalias 'shr-expand-alignments #[514 "\301\302\303$\211\262W\205X b\210\304\305`\302\"\306 \303\203N \212\307`\310$\211\262\203M \211b\210\305`\311\"\312``T\311\313\314\3158@ \\CE$\266\316u\210\202 ))\266T\262\202 \207" [shr-use-fonts 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] 14 (#$ . 63635)])
#@15
(fn WIDTHS)
(defalias 'shr-insert-table-ruler #[257 "\205P n\203 \305V\203 \306 \210\nc\210\305G\305\211W\203L \211\307H \310_#\262\311H \245T\"\312\313\314\315\316 CE\317\f%\n\261\266\211T\262\202 \266\320c\207" [shr-table-horizontal-line shr-indentation shr-table-corner shr-table-separator-pixel-width shr-table-id 0 shr-indent + 2 make-string propertize " " display space :align-to shr-table-indent "\n"] 12 (#$ . 64097)])
#@45
(fn TABLE NATURAL-TABLE SUGGESTED-WIDTHS)
(defalias 'shr-table-widths #[771 "\211G\301\302\"\301\302\"\211\2038 \211@\302\211\203/ \211@H]I\210T\262A\266\202\202 \266A\266\202\202 \210\211\203f \211@\302\211\203] \211@H]I\210T\262A\266\202\202B \266A\266\202\202: \210\303\304\305\306\307\"\"\304\305\306\307\"\"GT_#\302\302V\203\331 \302\211W\203\245 \211HHV\203\235 T\262\210\211T\262\202\207 \266\302\211W\203\327 \211HHV\203\317 H\245\nH\\^I\210\210\211T\262\202\251 \266\266\207" [shr-table-separator-pixel-width make-vector 0 - apply + append nil] 17 (#$ . 64552)])
#@52
(fn DOM WIDTHS &optional FILL STORAGE-ATTRIBUTE)
(defalias 'shr-make-table #[1026 "\301E\"A@\206' \302#EDB\203$ \303#\210\211\262\207" [shr-content-cache assoc shr-make-table-1 dom-set-attribute] 9 (#$ . 65204)])
#@34
(fn DOM WIDTHS &optional FILL)
(defalias 'shr-make-table-1 #[770 "\302\303G\304\"\304\302\211\211\211\305\n!\211\203\335\211@\211\211@:\203$ \211@@\262\202( \211@\262\306=\203\326\302\305!\304\211\302GW\203\315\fH\304U\203N \211A\262\242\202Y \fHSI\210\307\262\211;\2044 \211\211@:\203o \211@@\262\202s \211@\262\310>\204| \211\2044 \311\211@:\203\215 \211@A@\262\202\222 \211A@\262\236A\211\203\247
H\312!S\\I\210\210GY\203\263 \304\262\211\203\276 H\202\301 \313_\262 \314\211@:\203\324 \211@A@\262\202\331 \211A@\262\236A\211\262 \2039\312!GZ^\262S\304\211W\203(\211\315\316#GSV\203\211GSH\202 \315\f \315\n\316#H#\262\f\210\211T\262\202\361 \266S\\\262\262\n\262\f\211\203\206\317\n#\204l\f\304V\203l\211@\262\f \245\211A@BB\262
S\262\210\202\205\204\211@A@BB\262\202\205\211B\262\210\203\302\316V\203\302S\304\211W\203\300\211T\262\203\262\304\211\320\302\316\302\211\257\202\263\321B\262\210\211T\262\202\226\266T\262T\262\2024 \237B\262\266A\266\202\202 \210\237\207" [shr-table-separator-pixel-width shr-table-separator-length nil make-vector 0 dom-non-text-children tr (td) (td th) rowspan string-to-number 10 colspan + 1 shr-render-td -1 (0 . 0)] 28 (#$ . 65443)])
(defalias 'shr-pixel-buffer-width #[0 "\204 \212eb\210\301m\204 \302\210\211i]\262\303y\210\202 \211\262)\207\304 \203, \305\302ed#@\207\306 \307\301\310\311\312!\313\"\314$\216\315\302\211\"\210\316\302p\"\210\305\302ed#@)\207" [shr-use-fonts 0 nil 1 get-buffer-window window-text-pixel-size current-window-configuration make-byte-code "\301\300!\207" vconcat vector [set-window-configuration] 2 set-window-dedicated-p set-window-buffer] 7])
#@23
(fn DOM WIDTH FILL)
(defalias 'shr-render-td #[771 "\300\301\302#!\211\211@:\203 \211@A@\262\202 \211A@\262\236A\206\211 \203w \303\211@:\2037 \211@A@\262\202< \211A@\262\211\203p \211@\304@!\305\306\"\203h \307\310\311\"!\211Y\203g A@X\203g A\262\210\210A\266\202\202< \210\211\262\206\211 `\312#\313#\210b\210\262\207" [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] 12 (#$ . 67227)])
#@23
(fn DOM WIDTH FILL)
(defalias 'shr-render-td-1 #[771 "\303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216\314\211@:\203$ \211@A@\262\202) \211A@\262\236A\315\211@:\203< \211@A@\262\202A \211A@\262\236A\316\211@:\203U \211@A@\262\202Z \211A@\262\236A\306\317\203q \320\321\"\205o \322!\262\203~ \323BC\244\262\203\212 \324BC\244\262\203\223 \325\"\306\326\n!\210*\327 \305\306\330\310\311!\331\"\313$\216\332\317\211\"\210\333\317p\"\210\204\353 \334 \211@:\203\315 \211@A@\262\202\322 \211A@\262\236A\206\351 \335 \336\f\306\"]\337\f\334#\210\211\262\262\203\374 \nX\203\374 \262\202 \340ed\"\210\335 \262))\210db\210`\341\317x\210\317\210`|\210eb\210\342ed\"\343\344 \345\"\346\211@:\2039\211@A@\262\202>\211A@\262\236A\203a\347\346\211@:\203V\211@A@\262\202[\211A@\262\236A!\202b\350\324\236A\323\236A\257)\266\206*\207" [shr-stylesheet shr-indentation shr-internal-width generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 bgcolor fgcolor style nil string-match "color" shr-parse-style background-color color append shr-descend current-window-configuration "\301\300!\207" [set-window-configuration] set-window-dedicated-p 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] 18 (#$ . 67770)])
#@16
(fn DOM MAX)
(defalias 'shr-dom-max-natural-width #[514 "\211@:\203 \211@@\262\202 \211@\262\301=\203y \211\302\211@:\203* \211@A@\262\202/ \211A@\262\236A\303\211:\203q @\262\303\304:\203Z @\262\211A\305_\\\\\262A\262\202@ \266\202\\\203g ]\202h \211\266\202A\262\2023 \266\202\206w \304]\207\211@:\203\211 \211@AA\262\202\216 \211AA\262\211\203\250 \211@\211;\204\241 \306\"\304\\\262A\266\202\202\216 \210\207" [shr-table-separator-length table shr-suggested-widths nil 0 2 shr-dom-max-natural-width] 14 (#$ . 69272)])
(defalias 'shr-buffer-width #[0 "eb\210\300m\204 \301\210\211i]\262\302y\210\202 \211\207" [0 nil 1] 3])
#@16
(fn COLUMNS)
(defalias 'shr-pro-rate-columns #[257 "\302\303G\302\"G\302\211W\203 \211H\\\262\210\211T\262\202 \266\304\245\262G\302\211W\203Q \211\305\306 H \fGT _Z#!\307]I\266\211T\262\202* \266\207" [shr-internal-width shr-table-separator-pixel-width 0 make-vector 1.0 truncate * 10] 15 (#$ . 69944)])
#@12
(fn DOM)
(defalias 'shr-column-specs #[257 "\300\301!\302\"\303!\211\203\227 \211@\211\211@:\203 \211@@\262\202\" \211@\262\304=\203\220 \305\303!\211\203\216 \211@\211\211@:\203@ \211@@\262\202D \211@\262\306>\203\207 \307\211@:\203Z \211@A@\262\202_ \211A@\262\236A\211\203\202 \310\311\"\203\202 \312\313\302\"!\211\262\305U\204\202 \314\245I\210\210T\262A\266\202\202+ \266A\266\202\202 \210\211\207" [make-vector shr-max-columns 1 dom-non-text-children tr 0 (td th) width string-match "\\([0-9]+\\)%" string-to-number match-string 100.0] 12 (#$ . 70283)])
#@17
(fn DOM ELEM)
(defalias 'shr-count #[514 "\300\211@:\203 \211@AA\262\202 \211AA\262\211\203D \211@\211;\204= \211\211@:\2030 \211@@\262\2024 \211@\262=\203= T\262A\266\202\202 \210\211\207" [0] 7 (#$ . 70876)])
#@12
(fn DOM)
(defalias 'shr-max-columns #[257 "\300\211@:\203 \211@AA\262\202 \211AA\262\211\203M \211@\211;\204F \211\211@:\2030 \211@@\262\2024 \211@\262\301=\203F \302\303\"\302\304\"\\]\262A\266\202\202 \210\211\207" [0 tr shr-count td th] 9 (#$ . 71107)])
(provide 'shr)
Zerion Mini Shell 1.0