;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:33 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/net/newst-reader.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'newst-backend)
#@128 Set newsticker-variable SYMBOL value to VALUE.
Calls all actions which are necessary in order to make the new
value effective.
(defalias 'newsticker--set-customvar-formatting #[(symbol value) "\302!\203
J	\232\203	L\207	L\210\303\304!\205\304 \207" [symbol value boundp fboundp newsticker--forget-preformatted] 2 (#$ . 585)])
(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312\313\304\301&\210\306\314\315\316\312\317\304\301&\210\306\320\321\322\312\323\324\325\304\301&	\210\306\326\315\327\312\317\324\325\304\301&	\210\306\330\302\331\312\332\324\325\304\301&	\210\306\333\334\335\312\336\324\325\304\301&	\210\300\337\302\340\304\301%\210\341\342\343\344\304\337%\210\341\345\346\347\304\337%\210\341\350\351\352\304\337%\207" [custom-declare-group newsticker-reader nil "Settings for the feed reader." :group newsticker custom-declare-variable newsticker-frontend 'newsticker-treeview "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-enable-logo-manipulations t "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." boolean newsticker-justification 'left "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 "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 "Function for rendering HTML contents.\nIf non-nil, newsticker.el will call this function whenever it\nfinds HTML-like tags in item descriptions.  Possible functions\nare `w3m-region', `w3-region', and `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 "w3" w3-region) (const :tag "w3m" w3m-region) (const :tag "htmlr" newsticker-htmlr-render)) newsticker-date-format "(%A, %H:%M)" "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)
#@90 Insert enclosure element of a news ITEM into the current buffer.
KEYMAP will be applied.
(defalias 'newsticker--insert-enclosure #[(item keymap) "\306\301\3078)\"\211\205	\211A@)*`\211\205\215\306\310	\"A\311\306\305	\"A\206-\312!\306\304	\"A
\313V\203I\314\315\f
\313\245#c\210\202q
\316V\203[\314\317\f
\316\245#c\210\202q
\320V\203k\314\321\f
#c\210\202q\314\322\f\"c\210\323`\324\325\326\327\314\330\"\331\332\301\333\334\257\f#\210\335c+*\207" [item enclosure node beg type length assoc 8 url string-to-number "-1" 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"] 16 (#$ . 4032)])
#@92 Insert extra-elements of ITEM in a pretty form into the current buffer.
KEYMAP is applied.
(defalias 'newsticker--print-extra-elements #[(item keymap) "\303\304\305\306\n\307\n8)\"\210\305\310\n\307\n8)\"*\207" [left-column-width ignored-elements item (items link title description content content:encoded dc:subject dc:date entry item guid pubDate published updated enclosure) 1 mapc #[(extra-element) "<\205@	>?\205\n\303@!G]\211\207" [extra-element ignored-elements left-column-width symbol-name] 3] 8 #[(extra-element) "<\205@	>?\205\304\n#\207" [extra-element ignored-elements left-column-width keymap newsticker--do-print-extra-element] 4]] 4 (#$ . 4881)])
#@75 Actually print an EXTRA-ELEMENT using the given WIDTH.
KEYMAP is applied.
(defalias 'newsticker--do-print-extra-element #[(extra-element width keymap) "\305@!\306\307	\"c\210\310\n	GZ\311\"c\210)\211AA)\211<\203)\312\313\f\"\210\202/\306\314\f\"c\210\315c)\207" [extra-element name width x contents symbol-name format "%s: " make-string 32 mapc #[(i) ";\203&\303\304\"\203&`\305\261\210\306	`\307\310\311\312\313\314\"\302\n\257#)\207\313\315\"c\207" [i pos keymap string-match "^http://.*" " " add-text-properties mouse-face highlight nt-link help-echo format "mouse-2: visit (%s)" "%s"] 11] "%s" "\n"] 4 (#$ . 5570)])
#@201 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).
Return the image.
(defalias 'newsticker--image-read #[(feed-name-symbol disabled) "\303 \304!P\305\306\n!\203\307\310\311\217\210	*\207" [feed-name-symbol img image-name newsticker--images-dir symbol-name nil file-exists-p error-data (byte-code "\304\305\211\306	\205\n\205\302\307	\205\310\311\312&	\305\207" [image-name newsticker-enable-logo-manipulations disabled img create-image nil :conversion :mask heuristic :ascent 70] 10) ((error (message "Error: cannot create image for %s: %s" feed-name-symbol error-data)))] 3 (#$ . 6215)])
#@58 Start reading news.  You may want to bind this to a key.
(defalias 'newsticker-show-news #[nil "\302\303!\210\203,\304=\203\305\306!\210\202,\307=\203\"\305\310!\210\202,\311=\203,\305\312!\210	 \207" [newsticker-html-renderer newsticker-frontend newsticker-start t w3m-region require w3m w3-region w3-auto newsticker-htmlr-render htmlr] 2 (#$ . 6954) nil])
#@60 Convert FEED ITEM to html and call `browse-url' on result.
(defalias 'newsticker-browse-url-item #[(feed item) "\306\307!\211\310\311\312!!\313\216r	q\210\314c\210\315\316\f\211@)\317\261\210\320
\f\321\f8)\"c\210\322c\210\f\211A@)\2069\323c\210\f\324\325\f\326\f8)\"\211\205T\211\"A@)*\203c\327c\210\330\f\331\"\210\332c\210\f\326\f8)\203w\333c\210\334\f\331\"\210\335c\210\336c\210)r	q\210\337\331\211\n\331\340%\210,\341!)\207" [t-file #1=#:temp-buffer #2=#:temp-file feed item newsticker-date-format make-temp-file "newsticker" get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# 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]" assoc 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 node] 7 (#$ . 7329) nil])
(provide 'newst-reader)