;ELC ;;; Compiled ;;; in Emacs version 27.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\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 ""] 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 "
  • %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" "
    • " "\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] "\n \n \n " "

    " ": " "

    " format-time-string 3 "
    " "[No Description]" assoc enclosure 8 "
    " newsticker--insert-enclosure nil "" "
    " newsticker--print-extra-elements "" "" write-region 0 browse-url] 7 (#$ . 8666) nil]) (provide 'newst-reader)