HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/net/newst-reader.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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 (#$ . 434)])
(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312\313\304\301&\210\306\314\315\316\317\320\312\321\304\301&	\210\306\322\315\323\312\321\304\301&\210\306\324\325\326\312\327\330\331\304\301&	\210\306\332\315\333\312\321\330\331\304\301&	\210\306\334\335\336\312\337\330\331\304\301&	\210\306\340\341\342\312\343\330\331\304\301&	\210\300\344\302\345\304\301%\210\346\347\350\351\304\344%\210\346\352\353\354\304\344%\210\346\355\356\357\304\344%\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-download-logos t "If non-nil newsticker downloads logo images of subscribed feeds." :version "25.1" boolean newsticker-enable-logo-manipulations "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 '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 (if (fboundp 'libxml-parse-html-region) #'shr-render-region) "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 "(%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@\262*`\211\205\212\306\305	\"A\310\306\304	\"A\206-\311!\306\303	\"A\f\312V\203H\313\314\f\312\245#c\210\202p\f\315V\203Z\313\316\f\315\245#c\210\202p\f\317V\203j\313\320\f#c\210\202p\313\321\"c\210\322\n`\323\324\325
\326\313\327
\"\330\331\301\332\333\257\f#\210\334c+*\207" [item enclosure beg type length url assoc 8 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 (#$ . 4159)])
#@156 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.
(defalias 'newsticker--print-extra-elements #[(item keymap &optional htmlish) "\304\305\n\203\306c\210\307\310\3118)\"\210\307\312\3118)\"\210\n\205%\313c*\207" [left-column-width ignored-elements htmlish item (items link title description content content:encoded encoded dc:subject subject dc:date date entry item guid pubDate published updated enclosure) 1 "<ul>" 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\305\n\f$\207" [extra-element ignored-elements left-column-width keymap htmlish newsticker--do-print-extra-element] 5] "</ul>"] 4 (#$ . 5007)])
#@139 Actually print an EXTRA-ELEMENT using the given WIDTH.
KEYMAP is applied.  If HTMLISH is non-nil then HTML-markup is used
for formatting.
(defalias 'newsticker--do-print-extra-element #[(extra-element width keymap htmlish) "\305@!\n\203\306\307	\"c\210\202!\306\310	\"c\210\311	GZ\312\"c\210)AA\211<\2033\313\314\f\"\210\2029\306\315\f\"c\210\n\203B\316c\202D\317c)\207" [extra-element name htmlish width contents symbol-name format "<li>%s: " "%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" "</li>" "\n"] 4 (#$ . 5863)])
#@266 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.
(defalias 'newsticker--image-read #[(feed-name-symbol disabled &optional max-height) "\306 \307!P\310	!\205A\3111:\312	\313\314!\205\314 \205\315\316\317\n\205*\205*\303\320\n\2050\321\322\323\324\f&0\202A\325\326
#))\207" [feed-name-symbol image-name newsticker-enable-logo-manipulations disabled max-height error-data newsticker--images-dir symbol-name file-exists-p (error) create-image fboundp imagemagick-types imagemagick nil :conversion :mask heuristic :ascent 100 :max-height message "Error: cannot create image for %s: %s"] 12 (#$ . 6647)])
#@72 Read the cached icon for FEED-NAME-SYMBOL from disk.
Return the image.
(defalias 'newsticker--icon-read #[(feed-name-symbol) "\3042U\305\306 !\203Q\307\306 \310\311!\312P#\313\211\203P\n@\3141A\315\304\316	\317\320!\2053\320 \2053\321\313\322\323\324\325\326\325&	\"0\202H\327\330#)\210\nA\211\204*\331\332!0\207" [feed-name-symbol file --dolist-tail-- error-data icon file-exists-p newsticker--icons-dir directory-files t symbol-name "\\..*" nil (error) throw create-image fboundp imagemagick-types imagemagick :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))] 13 (#$ . 7484)])
#@58 Start reading news.  You may want to bind this to a key.
(defalias 'newsticker-show-news #[nil "\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 (#$ . 8197) 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\205S\211A@\262*\203b\327c\210\330\f\331\"\210\332c\210\f\326\f8)\203v\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*" #[nil "\301!\205	\302!\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] 7 (#$ . 8647) nil])
(provide 'newst-reader)