%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\302\3078\262\"\211\205 \211\211A@\262\266\202`\211\205\211 \306\305\n\"A\310\306\304\n\"A\206, \311!\306\303\n\"A \f\312V\203G \313\314 \f\312\245#c\210\202o \f\315V\203Y \313\316 \f\315\245#c\210\202o \f\317V\203i \313\320 \f#c\210\202o \313\321 \"c\210\322 `\323\324\325
\326\313\327
\"\330\331\302\332\333\257\f#\210\334c+*\207" [item beg enclosure 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\262\"\210\307\312 \3118\262\"\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>"] 5 (#$ . 5020)])
#@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 (#$ . 5882)])
#@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 (#$ . 6666)])
#@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 (#$ . 7503)])
#@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 (#$ . 8216) 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\216r q\210\313c\210\314 \315\f\211@\262\316\261\210\317
\f\3208\262\"c\210\321c\210\f\211A@\262\2067 \322c\210\f\323\324\3258\262\"\211\205M \211\211A@\262\266\202\203] \326c\210\327\f\330\"\210\331c\210\f\3258\262\203q \332c\210\333\f\330\"\210\334c\210\335c\210)r q\210\336\330\211\n\330\337%\210,\340!)\207" [t-file #1=#:temp-buffer #2=#:temp-file feed item newsticker-date-format make-temp-file "newsticker" generate-new-buffer " *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 (#$ . 8666) nil])
(provide 'newst-reader)
Zerion Mini Shell 1.0