JezK
Edit File: newst-ticker.elc
;ELC ;;; Compiled by mockbuild@buildfarm03-new.corp.cloudlinux.com on Wed Aug 19 23:54:09 2026 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/net/newst-ticker.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) #@30 Timer for newsticker ticker. (defvar newsticker--ticker-timer nil (#$ . 584)) #@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 #[nil "\301!\207" [newsticker--ticker-timer timerp] 2 (#$ . 669)]) (custom-declare-group 'newsticker-ticker nil "Settings for the headline ticker." :group 'newsticker) #@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-ticker #[(symbol value) "\302!\203 J \232\203 L\207\303 \205& \304\305!\210\306 \210\307 \210\310 \210\304\311!\207" [symbol value boundp newsticker-running-p message "Restarting ticker" newsticker-stop-ticker newsticker--ticker-text-setup newsticker-start-ticker ""] 2 (#$ . 1066)]) (byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\313\314\304\315\310\311&\210\300\316\313\317\304\315\306\307\310\311& \210\300\320\313\321\304\315\306\307\310\311& \210\300\322\313\323\304\315\306\307\310\311& \207" [custom-declare-variable newsticker-ticker-interval 0.3 "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 t "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 "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 "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 "Decides whether to show obsolete items 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 #[nil "\203 \301 \207\302 \207" [newsticker-scroll-smoothly newsticker--display-scroll newsticker--display-jump] 1 (#$ . 3325)]) #@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 #[nil "\301 \206 \302 \205 \302 \230??\207" [newsticker--prev-message active-minibuffer-window current-message] 2 (#$ . 3626)]) (put 'newsticker--echo-area-clean-p 'byte-optimizer 'byte-compile-inline-expand) #@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 #[nil "\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 (#$ . 3995)]) #@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 #[nil "\306 \206 \307 \205 \307 \230??\205\235 \310 S\311 \311 \211 G G\312W?\205\233 G W\203@ \211P\211\2020 G\f ZW\203Y \f\211 \\O\202k \fO\313 \fZZOP GS \314 ! V\203\206 \313OS\202p )\315\316 \"\210 \fT\211Y\205\233 \313\211.\207" [newsticker--prev-message width message-log-max newsticker--item-position i subtext active-minibuffer-window current-message frame-width nil 1 0 string-width message "%s" newsticker--scrollable-text s-text l t-width] 7 (#$ . 4466)]) #@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 #[nil "\302V\205 ?\205 \303\211\304#\211\207" [newsticker-ticker-interval newsticker--ticker-timer 0 run-at-time newsticker--display-tick] 4 (#$ . 5188) nil]) #@56 Stop newsticker's ticker (but not the news retrieval). (defalias 'newsticker-stop-ticker #[nil "\205 \301!\210\302\211\207" [newsticker--ticker-timer cancel-timer nil] 2 (#$ . 5527) nil]) #@70 Build the ticker text which is scrolled or flashed in the echo area. (defalias 'newsticker--ticker-text-setup #[nil "\306\307\310\307\311\312\f\"\210 \205 \313\314\315 \"\316R\211)\207" [newsticker--scrollable-text newsticker--item-list newsticker--item-position have-something newsticker--cache newsticker--latest-update-time "" nil 0 mapc #[(feed) "\306@!\307@\310\"\307@\311\"\307@\312\"\307@\313\" \211 \314V\204E \f\314V\203. \203E \314V\2039 \203E \n\314V\205M ?\205M \315\316\317A\"-\207" [feed feed-name num-obs num-imm num-old num-new symbol-name newsticker--stat-num-items new old immortal obsolete 0 t mapc #[(item) "\306\307\310\211@)#\3118)\211 \230?\205Y \312=\204> \313=\203( \f\203> \314=\2032 \203> \315=\205Y ?\205Y \316\n!\317\320\321\nQ\322#\210\310\321\n\323\260\211*\207" [item age title newsticker--error-headline newsticker-hide-old-items-in-echo-area newsticker-hide-obsolete-items-in-echo-area replace-regexp-in-string "[ \n]+" " " 4 new old obsolete immortal newsticker--remove-whitespace add-to-list newsticker--item-list ": " t " +++" newsticker-hide-immortal-items-in-echo-area feed-name newsticker--scrollable-text] 7] newsticker-hide-old-items-in-echo-area newsticker-hide-immortal-items-in-echo-area newsticker-hide-obsolete-items-in-echo-area have-something] 7] "+++ " format-time-string "%A, %H:%M" " ++++++"] 4 (#$ . 5725)]) #@58 Remove the item of FEED with TITLE from the ticker text. (defalias 'newsticker--ticker-text-remove #[(feed title) "\306\307 !\310\311\312\n# \313\f\314 Q \"\310\315\312\f\314 \316\260!\317#\320\321\"\2050 \317\211*\207" [newsticker--item-position feed title t-title feed-name newsticker--item-list 0 symbol-name replace-regexp-in-string "[ \n]+" " " remove ": " regexp-quote " +++" "" string-match "^\\+\\+\\+ [A-Z][a-z]+, [012]?[0-9]:[0-9][0-9] \\+\\+\\+\\+\\+\\+$" newsticker--scrollable-text] 7 (#$ . 7141)]) (provide 'newst-ticker)