;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (require 'newst-backend) #@27 List of newsticker items. (defvar newsticker--item-list nil (#$ . 109)) #@46 Actual position in list of newsticker items. (defvar newsticker--item-position 0 (#$ . 187)) #@45 Last message that the newsticker displayed. (defvar newsticker--prev-message "There was no previous message yet!" (#$ . 286)) #@55 The text which is scrolled smoothly in the echo area. (defvar newsticker--scrollable-text "" (#$ . 418)) #@30 Timer for newsticker ticker. (defvar newsticker--ticker-timer nil (#$ . 529)) #@183 Check whether newsticker's actual ticker is running. Return t if ticker is running, nil otherwise. Newsticker is considered to be running if the newsticker timer list is not empty. (defalias 'newsticker-ticker-running-p #[0 "\301!\207" [newsticker--ticker-timer timerp] 2 (#$ . 614)]) (custom-declare-group 'newsticker-ticker nil "Settings for the headline ticker." :group 'newsticker) #@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-ticker #[514 "\300!\203 J\232\203L\207\301 \205&\302\303!\210\304 \210\305 \210\306 \210\302\307!\207" [boundp newsticker-running-p message "Restarting ticker" newsticker-stop-ticker newsticker--ticker-text-setup newsticker-start-ticker ""] 4 (#$ . 1009)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\317\312\313&\210\300\320\302\303\321DD\322\306\317\310\311\312\313& \210\300\323\302\303\324DD\325\306\317\310\311\312\313& \210\300\326\302\303\327DD\330\306\317\310\311\312\313& \207" [custom-declare-variable newsticker-ticker-interval funcall function #[0 "\300\207" [0.3] 1 #1=""] "Time interval for displaying news items in the echo area (seconds).\nIf equal or less than 0 no messages are shown in the echo area. For\nsmooth display (see `newsticker-scroll-smoothly') a value of 0.3 seems\nreasonable. For non-smooth display a value of 10 is a good starting\npoint." :type number :set newsticker--set-customvar-ticker :group newsticker-ticker newsticker-scroll-smoothly #[0 "\300\207" [t] 1 #1#] "Decides whether to flash or scroll news items.\nIf t the news headlines are scrolled (more-or-less) smoothly in the echo\narea. If nil one headline after another is displayed in the echo area.\nThe variable `newsticker-ticker-interval' determines how fast this\ndisplay moves/changes and whether headlines are shown in the echo area\nat all. If you change `newsticker-scroll-smoothly' you should also change\n`newsticker-ticker-interval'." boolean newsticker-hide-immortal-items-in-echo-area #[0 "\300\207" [t] 1 #1#] "Decides whether to show immortal/non-expiring news items in the ticker.\nIf t the echo area will not show immortal items. See also\n`newsticker-hide-old-items-in-echo-area'." newsticker-hide-old-items-in-echo-area #[0 "\300\207" [t] 1 #1#] "Decides whether to show only the newest news items in the ticker.\nIf t the echo area will show only new items, i.e. only items which have\nbeen added between the last two retrievals." newsticker-hide-obsolete-items-in-echo-area #[0 "\300\207" [t] 1 #1#] "Decides whether to show obsolete items in the ticker.\nIf t the echo area will not show obsolete items. See also\n`newsticker-hide-old-items-in-echo-area'."] 10) #@128 Called from the display timer. This function calls a display function, according to the variable `newsticker-scroll-smoothly'. (defalias 'newsticker--display-tick #[0 "\203\301 \207\302 \207" [newsticker-scroll-smoothly newsticker--display-scroll newsticker--display-jump] 1 (#$ . 3452)]) #@110 Check whether somebody is using the echo area / minibuffer. Return t if echo area and minibuffer are unused. (defalias 'newsticker--echo-area-clean-p #[0 "\301 \206\302 \205\302 \230??\207" [newsticker--prev-message active-minibuffer-window current-message] 2 (#$ . 3751)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put newsticker--echo-area-clean-p speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@165 Called from the display timer. This function displays the next ticker item in the echo area, unless there is another message displayed or the minibuffer is active. (defalias 'newsticker--display-jump #[0 "\304\305 \206\306 \205\306 \230??\205)\nT\211 GY\203!\307\n 8\310\311 \")\207" [message-log-max newsticker--prev-message newsticker--item-position newsticker--item-list nil active-minibuffer-window current-message 0 message "%s"] 4 (#$ . 4192)]) #@160 Called from the display timer. This function scrolls the ticker items in the echo area, unless there is another message displayed or the minibuffer is active. (defalias 'newsticker--display-scroll #[0 "\304 \206\305 \205\305 \230??\205\216\306 S\307\n\307 \211GG\310W?\205\213GW\2034\211P\262\202%G\262ZW\203M\211\\O\262\202^O\311ZZOP\262GS\312!V\203w\311O\262\211S\262\202a\210\313\314\"\210T\211Y\205\213\311\211)\266\205\207" [newsticker--prev-message message-log-max newsticker--item-position newsticker--scrollable-text active-minibuffer-window current-message frame-width nil 1 0 string-width message "%s"] 12 (#$ . 4661)]) #@134 Start newsticker's ticker (but not the news retrieval). Start display timer for the actual ticker if wanted and not running already. (defalias 'newsticker-start-ticker #[0 "\302V\205 ?\205\303\211\304#\211\207" [newsticker-ticker-interval newsticker--ticker-timer 0 run-at-time newsticker--display-tick] 4 (#$ . 5354) nil]) #@56 Stop newsticker's ticker (but not the news retrieval). (defalias 'newsticker-stop-ticker #[0 "\205 \301!\210\302\211\207" [newsticker--ticker-timer cancel-timer nil] 2 (#$ . 5691) nil]) #@70 Build the ticker text which is scrolled or flashed in the echo area. (defalias 'newsticker--ticker-text-setup #[0 "\305\306\307\306C\310\311\312\" \"\210\211\242\205\313\314\315\f\"\316R\211\207" [newsticker--scrollable-text newsticker--item-list newsticker--item-position newsticker--cache newsticker--latest-update-time "" nil 0 mapc make-closure #[257 "\304@!\305@\306\"\305@\307\"\305@\310\"\305@\311\"\312V\204=\312V\203( \203=\312V\2032\n\203=\211\312V\205K ?\205K\300\313\240\210\314\315\316\"A\"\207" [V0 newsticker-hide-old-items-in-echo-area newsticker-hide-immortal-items-in-echo-area newsticker-hide-obsolete-items-in-echo-area symbol-name newsticker--stat-num-items new old immortal obsolete 0 t mapc make-closure #[257 "\306\307\310\211@\262#\3118\262 \230?\205c\211\312=\204;\211\313=\203&\n\203;\211\314=\2030 \203;\211\315=\205c\f?\205c\316!\262\300\317Q\211 \235\203P \266\202W\320 C\"\210\310\300\317\321\260\211\207" [V0 newsticker--error-headline newsticker-hide-old-items-in-echo-area newsticker-hide-obsolete-items-in-echo-area newsticker-hide-immortal-items-in-echo-area newsticker--item-list replace-regexp-in-string "[ \n]+" " " 4 new old obsolete immortal newsticker--remove-whitespace ": " append " +++" newsticker--scrollable-text] 9 "\n\n(fn ITEM)"]] 10 "\n\n(fn FEED)"] "+++ " format-time-string "%A, %H:%M" " ++++++"] 5 (#$ . 5887)]) #@75 Remove the item of FEED with TITLE from the ticker text. (fn FEED TITLE) (defalias 'newsticker--ticker-text-remove #[514 "\303\304!\305\306\307#\310\311Q \"\305\312\307\311\313\260!\314\n#\315\316\n\"\205*\314\211\207" [newsticker--item-position newsticker--item-list newsticker--scrollable-text 0 symbol-name replace-regexp-in-string "[ \n]+" " " remove ": " regexp-quote " +++" "" string-match "^\\+\\+\\+ [A-Z][a-z]+, [012]?[0-9]:[0-9][0-9] \\+\\+\\+\\+\\+\\+$"] 11 (#$ . 7314)]) (provide 'newst-ticker)