Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
ange-ftp.elc	126.4 KB	-rw-r--r--
browse-url.elc	54.35 KB	-rw-r--r--
dbus.elc	55.05 KB	-rw-r--r--
dig.elc	6.34 KB	-rw-r--r--
dns.elc	11.52 KB	-rw-r--r--
eudc-bob.elc	8.58 KB	-rw-r--r--
eudc-export.elc	5.97 KB	-rw-r--r--
eudc-hotlist.elc	6.69 KB	-rw-r--r--
eudc-vars.elc	14.68 KB	-rw-r--r--
eudc.elc	33.77 KB	-rw-r--r--
eudcb-bbdb.elc	5.97 KB	-rw-r--r--
eudcb-ldap.elc	5.5 KB	-rw-r--r--
eudcb-mab.elc	2.58 KB	-rw-r--r--
eww.elc	68.31 KB	-rw-r--r--
gnutls.elc	12.62 KB	-rw-r--r--
goto-addr.elc	10 KB	-rw-r--r--
hmac-def.elc	1.87 KB	-rw-r--r--
hmac-md5.elc	2.11 KB	-rw-r--r--
imap.elc	102.11 KB	-rw-r--r--
ldap.elc	16.8 KB	-rw-r--r--
mailcap.elc	27.34 KB	-rw-r--r--
mairix.elc	25.1 KB	-rw-r--r--
net-utils.elc	35.04 KB	-rw-r--r--
netrc.elc	4.95 KB	-rw-r--r--
network-stream.elc	12.02 KB	-rw-r--r--
newst-backend.elc	65.76 KB	-rw-r--r--
newst-plainview.elc	48.96 KB	-rw-r--r--
newst-reader.elc	9.66 KB	-rw-r--r--
newst-ticker.elc	7.82 KB	-rw-r--r--
newst-treeview.elc	76.37 KB	-rw-r--r--
newsticker.elc	769 B	-rw-r--r--
nsm.elc	34.82 KB	-rw-r--r--
ntlm.elc	13.79 KB	-rw-r--r--
pop3.elc	20.1 KB	-rw-r--r--
puny.elc	4.92 KB	-rw-r--r--
quickurl.elc	17.83 KB	-rw-r--r--
rcirc.elc	105.35 KB	-rw-r--r--
rfc2104.elc	1.2 KB	-rw-r--r--
rlogin.elc	10.97 KB	-rw-r--r--
sasl-cram.elc	1003 B	-rw-r--r--
sasl-digest.elc	3.33 KB	-rw-r--r--
sasl-ntlm.elc	1.62 KB	-rw-r--r--
sasl-scram-rfc.elc	3.6 KB	-rw-r--r--
sasl.elc	6.58 KB	-rw-r--r--
secrets.elc	23.55 KB	-rw-r--r--
shr-color.elc	8.82 KB	-rw-r--r--
shr.elc	69.72 KB	-rw-r--r--
sieve-manage.elc	15.31 KB	-rw-r--r--
sieve-mode.elc	6.94 KB	-rw-r--r--
sieve.elc	11.62 KB	-rw-r--r--
snmp-mode.elc	14.51 KB	-rw-r--r--
soap-client.elc	221.75 KB	-rw-r--r--
soap-inspect.elc	20.04 KB	-rw-r--r--
socks.elc	12.5 KB	-rw-r--r--
telnet.elc	9.65 KB	-rw-r--r--
tramp-adb.elc	107.17 KB	-rw-r--r--
tramp-archive.elc	25.39 KB	-rw-r--r--
tramp-cache.elc	23.77 KB	-rw-r--r--
tramp-cmds.elc	18.89 KB	-rw-r--r--
tramp-compat.elc	9.57 KB	-rw-r--r--
tramp-ftp.elc	4.38 KB	-rw-r--r--
tramp-gvfs.elc	107.3 KB	-rw-r--r--
tramp-integration.elc	7.03 KB	-rw-r--r--
tramp-loaddefs.el	60.78 KB	-rw-r--r--
tramp-rclone.elc	39.17 KB	-rw-r--r--
tramp-sh.elc	306.37 KB	-rw-r--r--
tramp-smb.elc	140 KB	-rw-r--r--
tramp-sudoedit.elc	76.86 KB	-rw-r--r--
tramp-uu.elc	1.91 KB	-rw-r--r--
tramp.elc	242.21 KB	-rw-r--r--
trampver.elc	2.15 KB	-rw-r--r--
webjump.elc	9.85 KB	-rw-r--r--
zeroconf.elc	18.4 KB	-rw-r--r--

Code Editor : newst-ticker.elc

;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)
#@27 List of newsticker items.
(defvar newsticker--item-list nil (#$ . 433))
#@46 Actual position in list of newsticker items.
(defvar newsticker--item-position 0 (#$ . 511))
#@45 Last message that the newsticker displayed.
(defvar newsticker--prev-message "There was no previous message yet!" (#$ . 610))
#@55 The text which is scrolled smoothly in the echo area.
(defvar newsticker--scrollable-text "" (#$ . 742))
#@30 Timer for newsticker ticker.
(defvar newsticker--ticker-timer nil (#$ . 853))
#@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 (#$ . 938)])
(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 (#$ . 1335)])
(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 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 (#$ . 3588)])
#@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 (#$ . 3889)])
(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\211GY\203!�\307\n8\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 (#$ . 4258)])
#@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\241�\310 S\311\311\211GG\312W?\205\237�G	W\203@�\211P\211\2020�G\f	ZW\203Z�\313\f\211	\\#\202n�\313\f#\313\314	\fZZ#P
GS\315
!	V\203\212�\313
\314#S\202s�)\316\317
\"\210
\fT\211Y\205\237�\314\211.\207" [newsticker--prev-message width message-log-max newsticker--item-position i subtext active-minibuffer-window current-message frame-width nil 1 substring 0 string-width message "%s" newsticker--scrollable-text s-text l t-width] 8 (#$ . 4729)])
#@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 (#$ . 5477) 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 (#$ . 5816) 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@\262#\3118\262\211\230?\205m�	\312=\204>�	\313=\203(�\f\203>�	\314=\2032�
\203>�	\315=\205m�?\205m�\316\n!\317\nQ\211\235\203V�\210\202_�\320C\")\310\317\n\321\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 ": " append " +++" newsticker-hide-immortal-items-in-echo-area feed-name #1=#:x newsticker--item-list 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 (#$ . 6014)])
#@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\314Q
\"\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 (#$ . 7463)])
(provide 'newst-ticker)

${this.title}

Code Editor : newst-ticker.elc