;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(require 'newst-backend)
#@147 Set newsticker-variable SYMBOL value to VALUE.
Calls all actions which are necessary in order to make the new
value effective.

(fn SYMBOL VALUE)
(defalias 'newsticker--set-customvar-formatting #[514 "\300!\203

J
\232\203

L\207

L\210\301\302!\205\302 \207" [boundp fboundp newsticker--forget-preformatted] 4 (#$ . 110)])
(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315\304\301&\210\306\316\310\311\317DD\320\321\322\314\323\304\301&	\210\306\324\310\311\325DD\326\314\323\304\301&\210\306\327\310\311\330DD\331\314\332\333\334\304\301&	\210\306\335\310\311\336DD\337\314\323\333\334\304\301&	\210\306\340\310\311\341DD\342\314\343\333\334\304\301&	\210\306\344\310\311\345DD\346\314\347\333\334\304\301&	\210\300\350\302\351\304\301%\210\352\353\354\355\304\350%\210\352\356\357\360\304\350%\210\352\361\362\363\304\350%\207" [custom-declare-group newsticker-reader nil "Settings for the feed reader." :group newsticker custom-declare-variable newsticker-frontend funcall function #[0 "\300\207" [newsticker-treeview] 1 #1=""] "Newsticker frontend for reading news.\nThis must be one of the functions `newsticker-plainview' or\n`newsticker-treeview'." :type (choice :tag "Frontend" (const :tag "Single buffer (plainview)" newsticker-plainview) (const :tag "Tree view (treeview)" newsticker-treeview)) newsticker-download-logos #[0 "\300\207" [t] 1 #1#] "If non-nil newsticker downloads logo images of subscribed feeds." :version "25.1" boolean newsticker-enable-logo-manipulations #[0 "\300\207" [t] 1 #1#] "If non-nil newsticker manipulates logo images.\nThis enables the following image properties: heuristic mask for all\nlogos, and laplace-conversion for images without new items." newsticker-justification #[0 "\300\207" [left] 1 #1#] "How to fill item descriptions.\nIf non-nil newsticker calls `fill-region' to wrap long lines in\nitem descriptions.  However, if an item description contains HTML\ntext and `newsticker-html-renderer' is non-nil, filling is not\ndone." (choice :tag "Justification" (const :tag "No filling" nil) (const :tag "Left" left) (const :tag "Right" right) (const :tag "Center" center) (const :tag "Full" full)) :set newsticker--set-customvar-formatting newsticker-use-full-width #[0 "\300\207" [t] 1 #1#] "Decides whether to use the full window width when filling.\nIf non-nil newsticker sets `fill-column' so that the whole\nwindow is used when filling.  See also `newsticker-justification'." newsticker-html-renderer #[0 "\300\301!\205\302\207" [fboundp libxml-parse-html-region shr-render-region] 2 #1#] "Function for rendering HTML contents.\nIf non-nil, newsticker.el will call this function whenever it\nfinds HTML-like tags in item descriptions.\nPossible functions include `shr-render-region', `w3m-region', `w3-region', and\n`newsticker-htmlr-render'.\nNewsticker automatically loads the respective package w3m, w3, or\nhtmlr if this option is set." (choice :tag "Function" (const :tag "None" nil) (const :tag "SHR" shr-render-region) (const :tag "w3" w3-region) (const :tag "w3m" w3m-region) (const :tag "htmlr" newsticker-htmlr-render)) newsticker-date-format #[0 "\300\207" ["(%A, %H:%M)"] 1 #1#] "Format for the date part in item and feed lines.\nSee `format-time-string' for a list of valid specifiers." string newsticker-faces "Settings for the faces of the feed reader." custom-declare-face newsticker-feed-face ((default :weight bold :height 1.2) (((class color) (background dark)) :foreground "white") (((class color) (background light)) :foreground "black")) "Face for news feeds." newsticker-extra-face ((default :slant italic :height 0.8) (((class color) (background dark)) :foreground "gray50") (((class color) (background light)) :foreground "gray50")) "Face for newsticker dates." newsticker-enclosure-face ((default :weight bold) (((class color) (background dark)) :background "orange") (((class color) (background light)) :background "orange")) "Face for enclosed elements."] 10)
#@108 Insert enclosure element of a news ITEM into the current buffer.
KEYMAP will be applied.

(fn ITEM KEYMAP)
(defalias 'newsticker--insert-enclosure #[514 "
\300
\301
8\262
\236\211\205\211\211A@\262
\266\202`
\205\203\302\236A\303\304\236A\206'\305!\306\236A
\307V\203>\310\311\307\245#c\210\202f
\312V\203P\310\313\312\245#c\210\202f
\314V\203`\310\315#c\210\202f\310\316\"c\210\317`\320\321\322\323\310\324\f\"\325\326\300\327\330\257\f#\210\331c\266\203\207" [enclosure 8 url string-to-number length "-1" type 1048576 format "Enclosed file (%s, %1.2f MBytes)" 1024 "Enclosed file (%s, %1.2f KBytes)" 0 "Enclosed file (%s, %1.2f Bytes)" "Enclosed file (%s, unknown size)" add-text-properties mouse-face highlight nt-link help-echo "mouse-2: visit (%s)" keymap nt-face nt-type desc "\n"] 22 (#$ . 4095)])
#@192 Insert extra-elements of ITEM in a pretty form into the current buffer.
KEYMAP is applied.  If HTMLISH is non-nil then HTML-markup is used
for formatting.

(fn ITEM KEYMAP &optional HTMLISH)
(defalias 'newsticker--print-extra-elements #[770 "\300\301C\203\n\302c\210\303\304\305#\306
8\262
\"\210\303\304\307%\306
8\262
\"\210\2054\310c\207" [(items link title description content content:encoded encoded dc:subject subject dc:date date entry item guid pubDate published updated enclosure) 1 "<ul>" mapc make-closure #[257 "\211<\205\211@\300>?\205\301\211\242\302@!G]\240\207" [V0 V1 symbol-name] 5 "\n\n(fn EXTRA-ELEMENT)"] 8 #[257 "\211<\205\211@\302>?\205\304
\303\242\300\301$\207" [V0 V1 V2 V3 newsticker--do-print-extra-element] 6 "\n\n(fn EXTRA-ELEMENT)"] "</ul>"] 12 (#$ . 4933)])
#@180 Actually print an EXTRA-ELEMENT using the given WIDTH.
KEYMAP is applied.  If HTMLISH is non-nil then HTML-markup is used
for formatting.

(fn EXTRA-ELEMENT WIDTH KEYMAP HTMLISH)
(defalias 'newsticker--do-print-extra-element #[1028 "\300@!
\203\301\302\"c\266\202\"\301\303\"c\210\304GZ\305\"c\266AA\211<\2035\306\307\310\"\"\210\202;\301\311\"c\210
\203B\312c\207\313c\207" [symbol-name format "<li>%s: " "%s: " make-string 32 mapc make-closure #[257 "\211;\203&\301\302\"\203&`
\303\261\210\304
`\305\306\307\310\311\312\"\313\300\257#\207\311\314\"c\207" [V0 string-match "^http://.*" " " add-text-properties mouse-face highlight nt-link help-echo format "mouse-2: visit (%s)" keymap "%s"] 13 "\n\n(fn I)"] "%s" "</li>" "\n"] 9 (#$ . 5757)])
#@319 Read the cached image for FEED-NAME-SYMBOL from disk.
If DISABLED is non-nil the image will be converted to a disabled look
(unless `newsticker-enable-logo-manipulations' is not t).
Optional argument MAX-HEIGHT specifies the maximal image height.
Return the image.

(fn FEED-NAME-SYMBOL DISABLED &optional MAX-HEIGHT)
(defalias 'newsticker--image-read #[770 "\301 \302!P\303
!\205A\30419\305
\306\307!\205\307 \205\310\311\312\205*\205*\313\314\2050\315\316\317\320\f&0\207\321\322#\262
\207" [newsticker-enable-logo-manipulations newsticker--images-dir symbol-name file-exists-p (error) create-image fboundp imagemagick-types imagemagick nil :conversion disabled :mask heuristic :ascent 100 :max-height message "Error: cannot create image for %s: %s"] 16 (#$ . 6536)])
#@95 Read the cached icon for FEED-NAME-SYMBOL from disk.
Return the image.

(fn FEED-NAME-SYMBOL)
(defalias 'newsticker--icon-read #[257 "\3002Q\301\302 !\203M\303\302 \304\305!\306P#\211\203L\211@\3071>\310\300\311\312\313!\205/\313 \205/\314\315\316\317\320\321\322\321&	\"0\210\202E\323\324#\266
A\266\202\202\210\325\326!0\207" [icon file-exists-p newsticker--icons-dir directory-files t symbol-name "\\..*" (error) throw create-image fboundp imagemagick-types imagemagick nil :ascent center :max-width 16 :max-height message "Error: cannot create icon for %s: %s" find-image ((:type png :file "newsticker/rss-feed.png" :ascent center))] 15 (#$ . 7331)])
#@58 Start reading news.  You may want to bind this to a key.
(defalias 'newsticker-show-news #[0 "\302\303!\210\203 \304\267\202 \305\306!\210\202 \305\307!\210\202 \305\310!\210	 \207" [newsticker-html-renderer newsticker-frontend newsticker-start t #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (w3m-region 14 w3-region 21 newsticker-htmlr-render 28)) require w3m w3-auto htmlr] 2 (#$ . 8006) nil])
#@76 Convert FEED ITEM to html and call `browse-url' on result.

(fn FEED ITEM)
(defalias 'newsticker-browse-url-item #[514 "\301\302!\303\304\305\"\306\307\"\216r\211q\210\310c\210\311\312\211@\262
\313\261\210\314\315
8\262
\"c\210\316c\210\211A@\262
\2067\317c\210\320
\321
8\262
\236\211\205L\211\211A@\262
\266\202\203\\\322c\210\323\324\"\210\325c\210\321
8\262
\203p\326c\210\327\324\"\210\330c\210\331c\210)r\211q\210\332\324\211\324\333%\210*\210\334
!\207" [newsticker-date-format make-temp-file "newsticker" generate-new-buffer " *temp file*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n               <!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\"\n               \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n               <html xmlns=\"http://www.w3.org/1999/xhtml\">\n               <body>" "<h1>" ": " "</h1>" format-time-string 3 "<br/>" "[No Description]" enclosure 8 "<br/><hr/><i>" newsticker--insert-enclosure nil "</i>" "<br/><hr/><tt>" newsticker--print-extra-elements "</tt>" "</body></html>" write-region 0 browse-url] 10 (#$ . 8454) nil])
(provide 'newst-reader)