Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
net /
Delete
Unzip
Name
Size
Permission
Date
Action
ange-ftp.elc
119.46
KB
-rw-r--r--
2023-06-07 04:15
browse-url.elc
48.13
KB
-rw-r--r--
2023-06-07 04:15
dbus.elc
52.95
KB
-rw-r--r--
2023-06-07 04:15
dig.elc
6.32
KB
-rw-r--r--
2023-06-07 04:15
dns.elc
11.16
KB
-rw-r--r--
2023-06-07 04:16
eudc-bob.elc
8.76
KB
-rw-r--r--
2023-06-07 04:16
eudc-export.elc
5.84
KB
-rw-r--r--
2023-06-07 04:16
eudc-hotlist.elc
5.4
KB
-rw-r--r--
2023-06-07 04:16
eudc-vars.elc
13.99
KB
-rw-r--r--
2023-06-07 04:16
eudc.elc
31.94
KB
-rw-r--r--
2023-06-07 04:16
eudcb-bbdb.elc
5.29
KB
-rw-r--r--
2023-06-07 04:16
eudcb-ldap.elc
5.12
KB
-rw-r--r--
2023-06-07 04:16
eudcb-mab.elc
2.74
KB
-rw-r--r--
2023-06-07 04:16
eudcb-ph.elc
6.29
KB
-rw-r--r--
2023-06-07 04:16
gnutls.elc
7.86
KB
-rw-r--r--
2023-06-07 04:16
goto-addr.elc
9
KB
-rw-r--r--
2023-06-07 04:11
hmac-def.elc
2.01
KB
-rw-r--r--
2023-06-07 04:16
hmac-md5.elc
2.09
KB
-rw-r--r--
2023-06-07 04:16
imap.elc
101.96
KB
-rw-r--r--
2023-06-07 04:16
ldap.elc
15.05
KB
-rw-r--r--
2023-06-07 04:16
mairix.elc
24.06
KB
-rw-r--r--
2023-06-07 04:16
net-utils.elc
30.27
KB
-rw-r--r--
2023-06-07 04:16
netrc.elc
5.05
KB
-rw-r--r--
2023-06-07 04:16
network-stream.elc
10.07
KB
-rw-r--r--
2023-06-07 04:16
newst-backend.elc
65.62
KB
-rw-r--r--
2023-06-07 04:16
newst-plainview.elc
49.23
KB
-rw-r--r--
2023-06-07 04:16
newst-reader.elc
8.38
KB
-rw-r--r--
2023-06-07 04:16
newst-ticker.elc
7.51
KB
-rw-r--r--
2023-06-07 04:16
newst-treeview.elc
70.56
KB
-rw-r--r--
2023-06-07 04:16
newsticker.elc
830
B
-rw-r--r--
2023-06-07 04:16
ntlm.elc
11.63
KB
-rw-r--r--
2023-06-07 04:16
quickurl.elc
15.75
KB
-rw-r--r--
2023-06-07 04:16
rcirc.elc
98.21
KB
-rw-r--r--
2023-06-07 04:16
rcompile.elc
3.15
KB
-rw-r--r--
2023-06-07 04:16
rlogin.elc
10.83
KB
-rw-r--r--
2023-06-07 04:16
sasl-cram.elc
1.1
KB
-rw-r--r--
2023-06-07 04:16
sasl-digest.elc
3.47
KB
-rw-r--r--
2023-06-07 04:16
sasl-ntlm.elc
1.76
KB
-rw-r--r--
2023-06-07 04:16
sasl.elc
6.73
KB
-rw-r--r--
2023-06-07 04:16
secrets.elc
21.06
KB
-rw-r--r--
2023-06-07 04:16
snmp-mode.elc
14.64
KB
-rw-r--r--
2023-06-07 04:16
soap-client.elc
140.7
KB
-rw-r--r--
2023-06-07 04:16
soap-inspect.elc
14.6
KB
-rw-r--r--
2023-06-07 04:16
socks.elc
13.76
KB
-rw-r--r--
2023-06-07 04:16
telnet.elc
9.33
KB
-rw-r--r--
2023-06-07 04:16
tls.elc
7.8
KB
-rw-r--r--
2023-06-07 04:16
tramp-cache.elc
15.15
KB
-rw-r--r--
2023-06-07 04:16
tramp-cmds.elc
9.49
KB
-rw-r--r--
2023-06-07 04:16
tramp-compat.elc
16.15
KB
-rw-r--r--
2023-06-07 04:16
tramp-ftp.elc
5.49
KB
-rw-r--r--
2023-06-07 04:16
tramp-gvfs.elc
83.6
KB
-rw-r--r--
2023-06-07 04:16
tramp-gw.elc
13.8
KB
-rw-r--r--
2023-06-07 04:16
tramp-loaddefs.el
34.92
KB
-rw-r--r--
2023-06-07 03:59
tramp-sh.elc
251.02
KB
-rw-r--r--
2023-06-07 04:16
tramp-smb.elc
98.83
KB
-rw-r--r--
2023-06-07 04:16
tramp-uu.elc
1.95
KB
-rw-r--r--
2023-06-07 04:16
tramp.elc
134.83
KB
-rw-r--r--
2023-06-07 04:16
trampver.elc
1.11
KB
-rw-r--r--
2023-06-07 04:16
webjump.elc
13.71
KB
-rw-r--r--
2023-06-07 04:16
xesam.elc
24.97
KB
-rw-r--r--
2023-06-07 04:16
zeroconf.elc
18.31
KB
-rw-r--r--
2023-06-07 04:16
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:16:07 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/net/newst-treeview.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\312%\210\313\314\315\316\311\306%\210\313\317\320\316\311\306%\210\313\321\322\316\311\306%\210\313\323\324\316\311\306%\210\313\325\326\316\311\306%\210\313\327\330\331\311\306%\210\332\333\307\334\335\336\311\306&\210\332\337\340\341\335\342\311\306&\210\332\343\344\345\335\342\311\306&\210\332\346\347\350\335\336\311\306&\207" [require newst-reader widget tree-widget wid-edit custom-declare-group newsticker-treeview nil "Settings for the tree view reader." :group newsticker-reader custom-declare-face newsticker-treeview-face ((((class color) (background dark)) :foreground "white") (((class color) (background light)) :foreground "black")) "Face for newsticker tree." newsticker-treeview-new-face ((t :inherit newsticker-treeview-face :weight bold)) newsticker-treeview-old-face ((t :inherit newsticker-treeview-face)) newsticker-treeview-immortal-face ((default :inherit newsticker-treeview-face :slant italic) (((class color) (background dark)) :foreground "orange") (((class color) (background light)) :foreground "blue")) newsticker-treeview-obsolete-face ((t :inherit newsticker-treeview-face :strike-through t)) newsticker-treeview-selection-face ((((class color) (background dark)) :background "#bbbbff") (((class color) (background light)) :background "#bbbbff")) "Face for newsticker selection." custom-declare-variable newsticker-treeview-own-frame "Decides whether newsticker treeview creates and uses its own frame." :type boolean newsticker-treeview-treewindow-width 30 "Width of tree window in treeview layout.\nSee also `newsticker-treeview-listwindow-height'." integer newsticker-treeview-listwindow-height 10 "Height of list window in treeview layout.\nSee also `newsticker-treeview-treewindow-width'." newsticker-treeview-automatically-mark-displayed-items-as-old t "Decides whether to automatically mark displayed items as old.\nIf t an item is marked as old as soon as it is displayed. This\napplies to newsticker only."] 8) #@413 List of feed groups, used in the treeview frontend. First element is a string giving the group name. Remaining elements are either strings giving a feed name or lists having the same structure as `newsticker-groups'. (newsticker-groups := groupdefinition, groupdefinition := groupname groupcontent*, groupcontent := feedname | groupdefinition) Example: ("Topmost group" "feed1" ("subgroup1" "feed 2") "feed3") (defvar newsticker-groups '("Feeds") (#$ . 2602)) (byte-code "\300\301\302\303\304\305\306\307&\210\310\301\311\312#\207" [custom-declare-variable newsticker-groups-filename "~/.newsticker-groups" "Name of the newsticker groups settings file." :type string :group newsticker-treeview make-obsolete-variable newsticker-dir "23.1"] 8) (defvar newsticker--treeview-windows nil) (defvar newsticker--treeview-buffers nil) #@36 Feed name of currently shown item. (defvar newsticker--treeview-current-feed nil (#$ . 3438)) (defvar newsticker--treeview-current-vfeed nil) (defvar newsticker--treeview-list-show-feed nil) (defvar newsticker--saved-window-config nil) #@35 Highlight the selected tree node. (defvar newsticker--selection-overlay nil (#$ . 3680)) #@35 Highlight the selected list item. (defvar newsticker--tree-selection-overlay nil (#$ . 3775)) #@39 Special frame for newsticker windows. (defvar newsticker--frame nil (#$ . 3875)) (defvar newsticker--treeview-list-sort-order 'sort-by-time) (defvar newsticker--treeview-current-node-id nil) (defvar newsticker--treeview-current-tree nil) (defvar newsticker--treeview-feed-tree nil) (defvar newsticker--treeview-vfeed-tree nil) #@69 Key map for click-able headings in the newsticker treeview buffers. (defvar newsticker--treeview-url-keymap (byte-code "\301\302!\303\304\305#\210\303\306\305#\210\303\307\310#\210\303\311\310#\210\303\312\313#\210)\207" [map make-sparse-keymap newsticker--treeview-url-keymap define-key [mouse-1] newsticker-treeview-mouse-browse-url [mouse-2] "\n" newsticker-treeview-browse-url " " [(control return)] newsticker-handle-url] 4) (#$ . 4208)) #@52 Return the tree buffer of the newsticker treeview. (defalias 'newsticker--treeview-tree-buffer #[nil "@\207" [newsticker--treeview-buffers] 1 (#$ . 4664)]) (put 'newsticker--treeview-tree-buffer 'byte-optimizer 'byte-compile-inline-expand) #@52 Return the list buffer of the newsticker treeview. (defalias 'newsticker--treeview-list-buffer #[nil "A@\207" [newsticker--treeview-buffers] 1 (#$ . 4911)]) (put 'newsticker--treeview-list-buffer 'byte-optimizer 'byte-compile-inline-expand) #@52 Return the item buffer of the newsticker treeview. (defalias 'newsticker--treeview-item-buffer #[nil "\3018\207" [newsticker--treeview-buffers 2] 2 (#$ . 5159)]) (put 'newsticker--treeview-item-buffer 'byte-optimizer 'byte-compile-inline-expand) #@52 Return the tree window of the newsticker treeview. (defalias 'newsticker--treeview-tree-window #[nil "@\207" [newsticker--treeview-windows] 1 (#$ . 5412)]) (put 'newsticker--treeview-tree-window 'byte-optimizer 'byte-compile-inline-expand) #@52 Return the list window of the newsticker treeview. (defalias 'newsticker--treeview-list-window #[nil "A@\207" [newsticker--treeview-windows] 1 (#$ . 5659)]) (put 'newsticker--treeview-list-window 'byte-optimizer 'byte-compile-inline-expand) #@52 Return the item window of the newsticker treeview. (defalias 'newsticker--treeview-item-window #[nil "\3018\207" [newsticker--treeview-windows 2] 2 (#$ . 5907)]) (put 'newsticker--treeview-item-window 'byte-optimizer 'byte-compile-inline-expand) #@92 Create an id for a newsticker treeview node. PARENT is the node's parent, I is an integer. (defalias 'newsticker--treeview-get-id #[(parent i) "\302\303\304\305\" #\207" [parent i format "%s-%d" widget-get :nt-id] 5 (#$ . 6160)]) #@46 Return non-nil if ids ID1 and ID2 are equal. (defalias 'newsticker--treeview-ids-eq #[(id1 id2) "\205 \205 \230\207" [id1 id2] 2 (#$ . 6397)]) #@205 Compare treeview nodes NODE1 and NODE2 for equality. Nodes are equal if the have the same newsticker-id. Note that during re-tagging and collapsing/expanding nodes change, while their id stays constant. (defalias 'newsticker--treeview-nodes-eq #[(node1 node2) "\304\305\"\304 \305\"\306 \n\"\206 \304\307\"\304 \307\"\230*\207" [node1 node2 id2 id1 widget-get :nt-id newsticker--treeview-ids-eq :tag] 4 (#$ . 6553)]) #@69 Recursively search node for feed FEED-NAME starting from STARTNODE. (defalias 'newsticker--treeview-do-get-node-of-feed #[(feed-name startnode) "\305 \306\"\206\f \305 \307\"\230\203 \310\311 \"\207\305 \312\"\211\313\211 \2052 \f@\314 \"\210\fA\211\204\" \313+\207" [feed-name startnode children w --dolist-tail-- widget-get :nt-feed :nt-vfeed throw found :children nil newsticker--treeview-do-get-node-of-feed] 5 (#$ . 6982)]) #@61 Return node for feed FEED-NAME in newsticker treeview tree. (defalias 'newsticker--treeview-get-node-of-feed #[(feed-name) "\300\301\215\207" [found (byte-code "\303 \"\210\303\n\"\207" [feed-name newsticker--treeview-feed-tree newsticker--treeview-vfeed-tree newsticker--treeview-do-get-node-of-feed] 3)] 2 (#$ . 7424)]) #@58 Recursively search node with ID starting from STARTNODE. (defalias 'newsticker--treeview-do-get-node #[(id startnode) "\305\306 \307\"\"\203 \310\311 \"\207\306 \312\"\211\313\211 \205, \f@\314 \"\210\fA\211\204 \313+\207" [id startnode children w --dolist-tail-- newsticker--treeview-ids-eq widget-get :nt-id throw found :children nil newsticker--treeview-do-get-node] 6 (#$ . 7754)]) #@50 Return node with ID in newsticker treeview tree. (defalias 'newsticker--treeview-get-node #[(id) "\300\301\215\207" [found (byte-code "\303 \"\210\303\n\"\207" [id newsticker--treeview-feed-tree newsticker--treeview-vfeed-tree newsticker--treeview-do-get-node] 3)] 2 (#$ . 8154)]) #@50 Return current node in newsticker treeview tree. (defalias 'newsticker--treeview-get-current-node #[nil "\301!\207" [newsticker--treeview-current-node-id newsticker--treeview-get-node] 2 (#$ . 8443)]) (byte-code "\300\301!\204 \302\301\303\304B\"\210\300\207" [fboundp declare-function defalias macro #[(&rest r) "\300\207" [nil] 1]] 4) #@44 Render text between markers START and END. (defalias 'newsticker--treeview-render-text #[(start end) "\205 \301\302\303\217\207" [newsticker-html-renderer error-data (byte-code "\212\306\307\"\210 b\210\310\311\307#\2056 \n\203 \312\202 \n?\205 \212 \"\210+ \313=\2035 \314\307!\210\307)\207" [end start newsticker-use-full-width fill-column w3-maximum-line-length w3m-fill-column set-marker-insertion-type t re-search-forward "</?[A-Za-z1-6]*\\|&#?[A-Za-z0-9]+;" -1 w3m-region w3m-toggle-inline-images newsticker-html-renderer] 4) ((error (byte-code "\301\302@A#\210\303\207" [error-data message "Error: HTML rendering failed: %s, %s" nil] 4)))] 3 (#$ . 8788)]) #@123 Add news ITEM for FEED to newsticker treeview list window. If string SHOW-FEED is non-nil it is shown in the item string. (defalias 'newsticker--treeview-list-add-item #[(item feed &optional show-feed) "r\nA@q\210\306\307\211 db\210\310 \311c\210\312\311\313\314#c\210\2035 \315\316\317.!\"\320\321O\312\311\313\322#P\2026 \323c\210\324\325/ /\326/8)\"c\210\312\311\313\327\330\203S \331\202T \332E#c\210\310 /\211 /@)c\210\333c\210\334 \310 \"\210 b\210\335\333\307\306#\203 \336\311!\210\202p \337 0\3400\341\342#\210\3400\333\343#\210\3400\344\343#\210\345\fd\346/\347.\350/ /\351/8)\352\353\3540\355 d{\257\f#\210)\333c,\207" [show-feed newsticker--treeview-list-show-feed newsticker--treeview-buffers inhibit-read-only pos1 pos2 t nil point-marker " " propertize display (space :align-to 2) format "%-10s" newsticker--real-feed-name 0 10 (space :align-to 12) "" format-time-string "%d.%m.%y, %H:%M" 3 space :align-to 28 18 "\n" newsticker--treeview-render-text search-forward replace-match make-sparse-keymap define-key [mouse-1] newsticker-treeview-tree-click newsticker-treeview-show-item " " add-text-properties :nt-item :nt-feed :nt-link 2 mouse-face highlight keymap help-echo feed item map] 17 (#$ . 9475)]) #@44 Clear the newsticker treeview list window. (defalias 'newsticker--treeview-list-clear #[nil "rA@q\210\302\303 \210\304 \210\305 *\207" [newsticker--treeview-buffers inhibit-read-only t erase-buffer kill-all-local-variables remove-overlays] 1 (#$ . 10722)]) #@295 Fill newsticker treeview list window with items of certain age. This is a callback function for the treeview nodes. Argument WIDGET is the calling treeview widget. Argument CHANGED-WIDGET is the widget that actually has changed. Optional argument AGES is the list of ages that are to be shown. (defalias 'newsticker--treeview-list-items-with-age-callback #[(widget changed-widget &rest ages) "\302 \210\303\304\305#\210\306\307 \"\207" [widget ages newsticker--treeview-list-clear widget-put :nt-selected t apply newsticker--treeview-list-items-with-age] 4 (#$ . 10988)]) #@121 Actually fill newsticker treeview list window with items of certain age. AGES is the list of ages that are to be shown. (defalias 'newsticker--treeview-list-items-with-age #[(&rest ages) "\302\303\304 \"\"\210\305\306!\207" [newsticker-url-list-defaults newsticker-url-list mapc #[(feed) "\302@!\303\304\305\306 !A!\")\207" [feed feed-name-symbol intern mapc #[(item) "\3038) >\205 \304\n\305#\207" [item ages feed-name-symbol 4 newsticker--treeview-list-add-item t] 4] newsticker--treeview-list-sort-items newsticker--cache-get-feed] 5] append newsticker--treeview-list-update nil] 5 (#$ . 11568)]) #@290 Fill newsticker treeview list window with new items. This is a callback function for the treeview nodes. Argument WIDGET is the calling treeview widget. Argument CHANGED-WIDGET is the widget that actually has changed. Optional argument EVENT is the mouse event that triggered this action. (defalias 'newsticker--treeview-list-new-items #[(widget changed-widget &optional event) "\302 \303#\210\304\305\306\"\207" [widget changed-widget newsticker--treeview-list-items-with-age-callback new newsticker--treeview-item-show-text "New items" "This is a virtual feed containing all new items"] 4 (#$ . 12183)]) #@295 Fill newsticker treeview list window with immortal items. This is a callback function for the treeview nodes. Argument WIDGET is the calling treeview widget. Argument CHANGED-WIDGET is the widget that actually has changed. Optional argument EVENT is the mouse event that triggered this action. (defalias 'newsticker--treeview-list-immortal-items #[(widget changed-widget &optional event) "\302 \303#\210\304\305\306\"\207" [widget changed-widget newsticker--treeview-list-items-with-age-callback immortal newsticker--treeview-item-show-text "Immortal items" "This is a virtual feed containing all immortal items."] 4 (#$ . 12797)]) #@295 Fill newsticker treeview list window with obsolete items. This is a callback function for the treeview nodes. Argument WIDGET is the calling treeview widget. Argument CHANGED-WIDGET is the widget that actually has changed. Optional argument EVENT is the mouse event that triggered this action. (defalias 'newsticker--treeview-list-obsolete-items #[(widget changed-widget &optional event) "\302 \303#\210\304\305\306\"\207" [widget changed-widget newsticker--treeview-list-items-with-age-callback obsolete newsticker--treeview-item-show-text "Obsolete items" "This is a virtual feed containing all obsolete items."] 4 (#$ . 13437)]) #@290 Fill newsticker treeview list window with all items. This is a callback function for the treeview nodes. Argument WIDGET is the calling treeview widget. Argument CHANGED-WIDGET is the widget that actually has changed. Optional argument EVENT is the mouse event that triggered this action. (defalias 'newsticker--treeview-list-all-items #[(widget changed-widget &optional event) "\303 \n\304\305\306\307&\210\310\311\312\"\207" [widget changed-widget event newsticker--treeview-list-items-with-age-callback new old obsolete immortal newsticker--treeview-item-show-text "All items" "This is a virtual feed containing all items."] 8 (#$ . 14077)]) #@41 List items for virtual feed VFEED-NAME. (defalias 'newsticker--treeview-list-items-v #[(vfeed-name) "\205/ \301\302\"\203 \303\304!\210\202, \301\305\"\203 \303\306!\210\202, \301\307\"\203, \303\310\311\"\210\312\311!\207" [vfeed-name string-match "\\*new\\*" newsticker--treeview-list-items-with-age new "\\*immortal\\*" immortal "\\*old\\*" old nil newsticker--treeview-list-update] 3 (#$ . 14730)]) #@32 List items for feed FEED-NAME. (defalias 'newsticker--treeview-list-items #[(feed-name) "\205 \301!\203 \302!\207\303\304\305\306\307!!A!\"\210\310\311!\207" [feed-name newsticker--treeview-virtual-feed-p newsticker--treeview-list-items-v mapc #[(item) "\3028)\303=\203 \304\305 !\"\207\306\305 !\"\207" [item feed-name 4 feed newsticker--treeview-item-show intern newsticker--treeview-list-add-item] 4] newsticker--treeview-list-sort-items newsticker--cache-get-feed intern newsticker--treeview-list-update nil] 6 (#$ . 15145)]) #@227 Callback function for listing feed items. Argument WIDGET is the calling treeview widget. Argument CHANGED-WIDGET is the widget that actually has changed. Optional argument EVENT is the mouse event that triggered this action. (defalias 'newsticker--treeview-list-feed-items #[(widget changed-widget &optional event) "\303 \210\304\305\306#\210\307\310\"\307\311\"\211\203 \312\n!\202 \313 !*\207" [widget vfeed-name feed-name newsticker--treeview-list-clear widget-put :nt-selected t widget-get :nt-feed :nt-vfeed newsticker--treeview-list-items newsticker--treeview-list-items-v] 5 (#$ . 15694)]) #@49 Compare two news items ITEM1 and ITEM2 wrt age. (defalias 'newsticker--treeview-list-compare-item-by-age #[(item1 item2) "\300\301\215\207" [result (byte-code "\305 8)\n\305 8)\211 \306=\203 \307\202_ \f\310=\2036 \306=\203( \307\202_ \310=\2032 \307\202_ \311\202_ \f\312=\203^ \306=\203F \311\202_ \310=\203P \311\202_ \312=\203Z \311\202_ \307\202_ \311*\207" [item1 item item2 age2 age1 4 new t immortal nil old] 4)] 2 (#$ . 16305)]) #@66 Compare two news items ITEM1 and ITEM2 wrt age in reverse order. (defalias 'newsticker--treeview-list-compare-item-by-age-reverse #[(item1 item2) "\302 \"\207" [item2 item1 newsticker--treeview-list-compare-item-by-age] 3 (#$ . 16759)]) #@57 Compare two news items ITEM1 and ITEM2 wrt time values. (defalias 'newsticker--treeview-list-compare-item-by-time #[(item1 item2) "\302 \"\207" [item1 item2 newsticker--cache-item-compare-by-time] 3 (#$ . 17003)]) #@74 Compare two news items ITEM1 and ITEM2 wrt time values in reverse order. (defalias 'newsticker--treeview-list-compare-item-by-time-reverse #[(item1 item2) "\302 \"\207" [item2 item1 newsticker--cache-item-compare-by-time] 3 (#$ . 17224)]) #@51 Compare two news items ITEM1 and ITEM2 wrt title. (defalias 'newsticker--treeview-list-compare-item-by-title #[(item1 item2) "\302 \"\207" [item1 item2 newsticker--cache-item-compare-by-title] 3 (#$ . 17470)]) #@68 Compare two news items ITEM1 and ITEM2 wrt title in reverse order. (defalias 'newsticker--treeview-list-compare-item-by-title-reverse #[(item1 item2) "\302 \"\207" [item2 item1 newsticker--cache-item-compare-by-title] 3 (#$ . 17687)]) #@129 Return sorted copy of list ITEMS. The sort function is chosen according to the value of `newsticker--treeview-list-sort-order'. (defalias 'newsticker--treeview-list-sort-items #[(items) "\303=\203\n \304\202= \305=\203 \306\202= \307=\203 \310\202= \311=\203( \312\202= \313=\2032 \314\202= \315=\203< \316\202= \314\317\320\n! \")\207" [newsticker--treeview-list-sort-order sort-fun items sort-by-age newsticker--treeview-list-compare-item-by-age sort-by-age-reverse newsticker--treeview-list-compare-item-by-age-reverse sort-by-time newsticker--treeview-list-compare-item-by-time sort-by-time-reverse newsticker--treeview-list-compare-item-by-time-reverse sort-by-title newsticker--treeview-list-compare-item-by-title sort-by-title-reverse newsticker--treeview-list-compare-item-by-title-reverse sort copy-sequence] 3 (#$ . 17930)]) #@43 Update faces in the treeview list buffer. (defalias 'newsticker--treeview-list-update-faces #[nil "\306r A@q\210\212\307eb\210m\204y \310 \311`\312\"\211 \313\f8) \311`\314\" \315=\2031 \316\202P \317=\203; \320\202P \321=\203E \322\202P \323=\203O \324\202P \325 \326` \327$\210 \203h \330 ` Tp$\210 \203o `\331y\210\332 \210-\202 +\205\216 \333 A@!\205\216 \334 A@\")\207" [pos-sel newsticker--treeview-buffers inhibit-read-only pos item age nil t point-at-eol get-text-property :nt-item 4 :nt-selected new newsticker-treeview-new-face old newsticker-treeview-old-face immortal newsticker-treeview-immortal-face obsolete newsticker-treeview-obsolete-face bold put-text-property face move-overlay 1 beginning-of-line window-live-p set-window-point selected newsticker--selection-overlay newsticker--treeview-windows] 6 (#$ . 18780)]) #@50 Clear the highlight in the treeview list buffer. (defalias 'newsticker--treeview-list-clear-highlight #[nil "rA@q\210\302\303ed\304\305$\210)\306 )\207" [newsticker--treeview-buffers inhibit-read-only t put-text-property :nt-selected nil newsticker--treeview-list-update-faces] 5 (#$ . 19642)]) #@51 Update the highlight in the treeview list buffer. (defalias 'newsticker--treeview-list-update-highlight #[nil "\304 \210\305\211r\nA@q\210\306\307\310 \311 \312\306$\210)\313 +\207" [num-lines pos newsticker--treeview-buffers inhibit-read-only newsticker--treeview-list-clear-highlight nil t put-text-property point-at-bol point-at-eol :nt-selected newsticker--treeview-list-update-faces] 5 (#$ . 19945)]) #@55 Return position of selection in treeview list buffer. (defalias 'newsticker--treeview-list-highlight-start #[nil "rA@q\210\212eb\210\301`\302\"*\207" [newsticker--treeview-buffers next-single-property-change :nt-selected] 3 (#$ . 20360)]) #@126 Update the faces and highlight in the treeview list buffer. If CLEAR-BUFFER is non-nil the list buffer is completely erased. (defalias 'newsticker--treeview-list-update #[(clear-buffer) "\212\304A@!\203 \305A@ A@\"\210 A@q\210\n\203! \306\307 \210)\310 \210\311 \210eb)\207" [newsticker--treeview-windows newsticker--treeview-buffers clear-buffer inhibit-read-only window-live-p set-window-buffer t erase-buffer newsticker-treeview-list-mode newsticker--treeview-list-update-faces] 3 (#$ . 20607)]) #@64 Local keymap for newsticker treeview list window sort buttons. (defvar newsticker-treeview-list-sort-button-map (byte-code "\301 \302\303\304#\210\302\305\304#\210)\207" [map make-sparse-keymap define-key [header-line mouse-1] newsticker--treeview-list-sort-by-column [header-line mouse-2]] 4) (#$ . 21116)) #@137 Sort the newsticker list window buffer by the column clicked on. Optional argument EVENT is the mouse event that triggered this action. (defalias 'newsticker--treeview-list-sort-by-column #[(&optional event) "\203 \306!\210\307!\211\211\310\n8)\206 \n\311\n8))\211\203- \312 A\304 @#\202J \312 \313\n8\206G \nA@:\203D \nA@@\202G \nA@)\304\"\211 \314=\203_ \314=\203[ \315\202\204 \314\202\204 \f\316=\203s \316=\203o \317\202\204 \316\202\204 \f\320=\205\204 \320=\203\203 \321\202\204 \320\322 +\207" [event pos position obj sort-order newsticker--treeview-list-sort-order mouse-select-window event-start 7 4 get-text-property 5 sort-by-age sort-by-age-reverse sort-by-time sort-by-time-reverse sort-by-title sort-by-title-reverse newsticker-treeview-update] 5 (#$ . 21435) (list last-input-event)]) #@131 Create propertized string for headerline button. NAME is the button text, SORT-ORDER is the associated sort order for the button. (defalias 'newsticker-treeview-list-make-sort-button #[(name sort-order) "\305\306!\306 !\"\203 \307\202 \310\311 \300\312\313 P\314\315\302\n\316\f& )\207" [sort-order newsticker--treeview-list-sort-order face name newsticker-treeview-list-sort-button-map string-match symbol-name bold header-line propertize help-echo "Sort by " mouse-face highlight keymap] 12 (#$ . 22258)]) #@40 Select ITEM in treeview's list buffer. (defalias 'newsticker--treeview-list-select #[(item) "\303 \210\304\211r\nA@q\210eb\210\305\306\215+\207" [num-lines pos newsticker--treeview-buffers newsticker--treeview-list-clear-highlight nil found (byte-code "\302`\303\"\211 =\203 \304 \210\305 \210\306 \302`\307\"\"\210\310\311\312\"\210)\313y\210m\203 eb\210\310\311\314\"\210\202 " [it item get-text-property :nt-item newsticker--treeview-list-update-highlight newsticker--treeview-list-update-faces newsticker--treeview-item-show :nt-feed throw found t 1 nil] 6)] 2 (#$ . 22777)]) #@72 Show text in treeview item buffer consisting of TITLE and DESCRIPTION. (defalias 'newsticker--treeview-item-show-text #[(title description) "r\3058q\210\306\307!\203 \307p!\210\310\311 \210\312 \210\313 \210\nc\210\314e`\315\316$\210\317 \261\210\f\2034 \320ed\f#\210\321 \210eb*\207" [newsticker--treeview-buffers inhibit-read-only title description newsticker-justification 2 fboundp w3m-process-stop t erase-buffer kill-all-local-variables remove-overlays put-text-property face newsticker-feed-face "\n\n" fill-region newsticker-treeview-item-mode] 5 (#$ . 23369)]) #@70 Show news ITEM coming from FEED-NAME-SYMBOL in treeview item buffer. (defalias 'newsticker--treeview-item-show #[(item feed-name-symbol) "\306!r\307\n8q\210\310\311!\203 \311p!\210\312\313\211\314 \314 8 9\315 \210\316 \210\317 \210:\203z\203z\320\307;8!S <=\203J \321\322!\210<\321\322!\210<^):\211 :A@) >\323>\206g \324\261\210)\feT\313\223\210 d\313\223\210\325\f \"8?\203\215 8\204\215 \326\f ?#\210\327 \210eb\210\313 @\330\313\" A\331 \203\261 A\203\261 \332A:@\"\210\202\266 \333!c\210*\334e`\335\336\337\340\341\342\343: :\307:8)\344B\257\n#\210`\345c\210`:\211 :@)\323\261\210\f \313\223\210 `\313\223\210\325\f \"\210\346 `\335\347$\210 b\210\350\351!\210\323c\210\346 `\335\352$\210 `\313\223\210?\203\326\f ?#\210 b\210\334\f`S\337\340\341\342\343: :\307:8)\344B\257#\210\353C: :\354:8)\"c\210\323c\210`\323c\210db\210\345c\210`\355:B\"\210\346 `\335\356$\210`\323c\210\357:B\"\210\346 `\335\360$\210eb\210.D\203\237:\203\237: :\361:8)\362>\203\237\313 D\363\312!\210\364 \210)\365\307;8!\205\257\366\307;8\367\"\207" [feed-name-symbol newsticker--treeview-current-feed newsticker--treeview-buffers marker2 marker1 pos symbol-name 2 fboundp w3m-process-stop t nil make-marker erase-buffer kill-all-local-variables remove-overlays window-width make-local-variable fill-column "\n" "[No Description]" newsticker--treeview-render-text fill-region newsticker-treeview-item-mode newsticker--image-read display-images-p newsticker--insert-image newsticker--real-feed-name add-text-properties face newsticker-feed-face mouse-face highlight help-echo "Visit in web browser." :nt-link keymap "\n\n" put-text-property newsticker-treeview-new-face delete-char -1 newsticker-treeview-face format-time-string 3 newsticker--insert-enclosure newsticker-enclosure-face newsticker--print-extra-elements newsticker-extra-face 4 (new obsolete) newsticker-treeview-mark-item-old newsticker--treeview-list-update-faces window-live-p set-window-point 1 is-rendered-HTML inhibit-read-only item newsticker--treeview-windows wwidth newsticker-use-full-width desc newsticker-justification newsticker-enable-logo-manipulations img newsticker--treeview-url-keymap newsticker-date-format newsticker-treeview-automatically-mark-displayed-items-as-old] 14 (#$ . 23949)]) #@45 Update the treeview item buffer and window. (defalias 'newsticker--treeview-item-update #[nil "\212\303\3048!\203 \305\3048\304 8\"\210\304 8q\210\306\307 \210)\310 )\207" [newsticker--treeview-windows newsticker--treeview-buffers inhibit-read-only window-live-p 2 set-window-buffer t erase-buffer newsticker-treeview-item-mode] 4 (#$ . 26276)]) #@89 Expand TREE. Callback function for tree widget that adds nodes for feeds and subgroups. (defalias 'newsticker--treeview-tree-expand #[(tree) "\304\305!\210\306\307\"\310\311\312\313 \"+\207" [tree nt-id i group tree-widget-set-theme "folder" widget-get :nt-group 0 "" mapcar #[(g) "\306 \" T <\2032 @ \307\310\311\f\312\n#\313\314\315\316\317 A\320\f\321\n)\322BBBBBBBBBBBBB\207\311 \312\n# \323\310 \324\325\320 \326\327\321\n)\330BBBBBBBBBBB\207" [tree i nt-id g g-name tag newsticker--treeview-get-id tree-widget :tag newsticker--treeview-tree-get-tag nil :expander newsticker--treeview-tree-expand :expander-p (lambda (&rest ignore) t) :nt-group :nt-feed :nt-id (:keep (:nt-feed :num-new :nt-id :open) :open nil) item :leaf-icon newsticker--tree-widget-leaf-icon :action newsticker--treeview-list-feed-items (:keep (:nt-id) :open t)] 14]] 3 (#$ . 26632)]) #@81 Expand the vfeed TREE. Optional arguments CHANGED-WIDGET and EVENT are ignored. (defalias 'newsticker--treeview-tree-expand-status #[(tree &optional changed-widget event) "\301\302!\210\303\304\305\306\307\"\310\307\311\312\313\314\315\"\316BBBBBBBBB\303\304\305\306\317\"\310\317\311\320\313\314\321\"\322BBBBBBBBB\303\304\305\306\323\"\310\323\311\324\313\314\325\"\326BBBBBBBBB\303\304\305\306\327\"\310\327\311\330\313\314\331\"\332BBBBBBBBBF\207" [tree tree-widget-set-theme "folder" item :tag newsticker--treeview-tree-get-tag nil "new" :nt-vfeed :action newsticker--treeview-list-new-items :nt-id newsticker--treeview-get-id 0 (:keep (:nt-id)) "immortal" newsticker--treeview-list-immortal-items 1 (:keep (:nt-id)) "obsolete" newsticker--treeview-list-obsolete-items 2 (:keep (:nt-id)) "all" newsticker--treeview-list-all-items 3 (:keep (:nt-id))] 14 (#$ . 27506)]) #@48 Return non-nil if FEED-NAME is a virtual feed. (defalias 'newsticker--treeview-virtual-feed-p #[(feed-name) "\301\302\"\207" [feed-name string-match "\\*.*\\*"] 3 (#$ . 28389)]) (define-widget 'newsticker--tree-widget-leaf-icon 'tree-widget-icon "Icon for a tree-widget leaf node." :tag "O" :glyph-name "leaf" :button-face 'default) #@41 Update treeview tree buffer and window. (defalias 'newsticker--treeview-tree-update #[nil "\212\306@!\203 \307@ @\"\210 @q\210\310 \210\311\312 \210\313\314!\210\315\316\317\320\321\322\323#\324\325\326\327\330\331\332 A\333\323\334\335\336\311&\315\316\317\320\337\322\340#\324\341\326\342\330\331\333\340\334\343\336\311&\344'!\210\345 \210)\346 )\207" [newsticker--treeview-windows newsticker--treeview-buffers inhibit-read-only newsticker-groups newsticker--treeview-feed-tree newsticker--treeview-vfeed-tree window-live-p set-window-buffer kill-all-local-variables t erase-buffer tree-widget-set-theme "folder" widget-create tree-widget :tag newsticker--treeview-propertize-tag "Feeds" 0 "feeds" :expander newsticker--treeview-tree-expand :expander-p #[(&rest ignore) "\300\207" [t] 1] :leaf-icon newsticker--tree-widget-leaf-icon :nt-group :nt-id :keep (:nt-id) :open "Virtual Feeds" "vfeeds" newsticker--treeview-tree-expand-status #[(&rest ignore) "\300\207" [t] 1] (:nt-id) use-local-map widget-setup newsticker-treeview-mode widget-keymap] 18 (#$ . 28729)]) #@157 Return propertized copy of string TAG. Optional argument NUM-NEW is used for choosing face, other arguments NT-ID, FEED, and VFEED are added as properties. (defalias 'newsticker--treeview-propertize-tag #[(tag &optional num-new nt-id feed vfeed) "\306\307 \n\203 \n\310V\203 \311\312\313\314#\210\312\315\316#\210\312\317\316#\210\320 \301 \321\322\f\323 \324\325 \326\327&*\207" [map face num-new tag nt-id feed newsticker-treeview-face make-sparse-keymap 0 newsticker-treeview-new-face define-key [mouse-1] newsticker-treeview-tree-click "\n" newsticker-treeview-tree-do-click " " propertize keymap :nt-id :nt-feed :nt-vfeed help-echo mouse-face highlight vfeed] 16 (#$ . 29813)]) #@134 Return a tag string for either FEED-NAME or, if it is nil, for VFEED-NAME. Optional argument NT-ID is added to the tag's properties. (defalias 'newsticker--treeview-tree-get-tag #[(feed-name vfeed-name &optional nt-id) "\305\306\n\203O \n\307\230\203 \310\311!\312\313\"\202e \n\314\230\203, \310\315!\312\316\"\202e \n\317\230\203> \310\320!\312\321\"\202e \n\322\230\203e \310 \312\323\"\202e \203e \324\325 !\311\315#\312\326\327\325 !!# \205p \330 \f \n%*\207" [num-new tag vfeed-name feed-name nt-id nil 0 "new" newsticker--stat-num-items-total new format "New items (%d)" "immortal" immortal "Immortal items (%d)" "obsolete" obsolete "Obsolete items (%d)" "all" "All items (%d)" newsticker--stat-num-items-for-group intern "%s (%d)" newsticker--real-feed-name newsticker--treeview-propertize-tag] 6 (#$ . 30515)]) #@80 Count number of items in feed FEED-NAME-SYMBOL that have an age matching AGES. (defalias 'newsticker--stat-num-items-for-group #[(feed-name-symbol &rest ages) "\303\304 #\305\306\307\310\311!!\312\"\"\210\n)\207" [feed-name-symbol ages result apply newsticker--stat-num-items mapc #[(f-n) "\303\304\305 !\n#\\\211\207" [result f-n ages apply newsticker--stat-num-items intern] 5] newsticker--group-get-feeds newsticker--group-get-group symbol-name t] 6 (#$ . 31361)]) #@148 Count number of relevant items for a treeview node. FEED gives the name of the feed or group. If ISVIRTUAL is non-nil the feed is a virtual feed. (defalias 'newsticker--treeview-count-node-items #[(feed &optional isvirtual) "\303 \203E \n\203= \304\230\203 \305\306!\202E \307\230\203$ \305\310!\202E \311\230\2031 \305\312!\202E \313\230\203E \305 \202E \314\315 !\306\310#)\207" [num-new feed isvirtual 0 "new" newsticker--stat-num-items-total new "immortal" immortal "obsolete" obsolete "all" newsticker--stat-num-items-for-group intern] 4 (#$ . 31841)]) #@234 Update tag for tree widget W. If RECURSIVE is non-nil recursively update parent widgets as well. Argument IGNORE is ignored. Note that this function, if called recursively, makes w invalid. You should keep w's nt-id in that case. (defalias 'newsticker--treeview-tree-update-tag #[(w &optional recursive &rest ignore) "\306\307\"\306\310\"\206 \306 \310\"\306\311\"\206 \306 \311\"\306\312\"\206( \306 \312\" \313\n\206/ \" \314\n \f# \306\315\" \203L \203L \316 !\210\205\217 \203^ \317\320#\210\317\321 #\210\317\320#\210\322\306\323\"!\205\217 `\306\324\" r @q\210\325\326!\"\210)b*.\207" [w parent feed vfeed nt-id num-new widget-get :parent :nt-feed :nt-vfeed :nt-id newsticker--treeview-count-node-items newsticker--treeview-tree-get-tag :node newsticker--treeview-tree-update-tag widget-put :tag :num-new marker-position :from :notify widget-value-set widget-value tag n recursive notify p newsticker--treeview-buffers] 4 (#$ . 32419)]) #@46 Actually recursively update tags for WIDGET. (defalias 'newsticker--treeview-tree-do-update-tags #[(widget) "\212\304\305\"\211\306\211\203 @\307\n!\210 A\211\204 *\310!*\207" [widget children w --dolist-tail-- widget-get :children nil newsticker--treeview-tree-do-update-tags newsticker--treeview-tree-update-tag] 4 (#$ . 33411)]) #@61 Update all tags of all trees. Arguments IGNORE are ignored. (defalias 'newsticker--treeview-tree-update-tags #[(&rest ignore) "r@q\210\304\305\n!\210\305 !\210)\306\307!)\207" [newsticker--treeview-buffers inhibit-read-only newsticker--treeview-feed-tree newsticker--treeview-vfeed-tree t newsticker--treeview-tree-do-update-tags tree-widget-set-theme "folder"] 2 (#$ . 33759)]) #@34 Update highlight in tree buffer. (defalias 'newsticker--treeview-tree-update-highlight #[nil "\304\305 \306\"\211\250\204 \307!\203 \310!\204 \304\211\305 \311\"\306\"\250\2041 \307!\205P \310!\205P r @q\210b\210\312\n\313 \314 Tp$\210)\315 @!\205P \316 @\")\207" [pos newsticker--treeview-buffers newsticker--tree-selection-overlay newsticker--treeview-windows widget-get newsticker--treeview-get-current-node :from markerp marker-position :parent move-overlay point-at-bol point-at-eol window-live-p set-window-point] 6 (#$ . 34146)]) (defvar newsticker-treeview-tool-bar-map (byte-code "\301\300!\205n \302 \303\304\305\211\306\307%\210\303\310\311\211\306\312%\210\303\313\314\211\315\316\306\317&\210\303\320\321\211\306\322%\210\303\323\324\211\306\325%\210\303\326\327\211\306\330%\210\303\331\332\211\306\333%\210\303\334\335\211\306\336%\210\303\337\340\211\306\341%\210\342\343\344\345D#\210\303\346\347\211\306\350%\210\303\351\352\211\306\353%\210)\207" [tool-bar-map boundp make-sparse-keymap tool-bar-add-item "newsticker/prev-feed" newsticker-treeview-prev-feed :help "Go to previous feed" "newsticker/prev-item" newsticker-treeview-prev-item "Go to previous item" "newsticker/next-item" newsticker-treeview-next-item :visible t "Go to next item" "newsticker/next-feed" newsticker-treeview-next-feed "Go to next feed" "newsticker/mark-immortal" newsticker-treeview-toggle-item-immortal "Toggle current item as immortal" "newsticker/mark-read" newsticker-treeview-mark-item-old "Mark current item as read" "newsticker/get-all" newsticker-get-all-news "Get news for all feeds" "newsticker/update" newsticker-treeview-update "Update newsticker buffer" "newsticker/browse-url" newsticker-browse-url "Browse URL for item at point" define-key [newsticker-sep-1] menu-item "--double-line" "close" newsticker-treeview-quit "Close newsticker" "preferences" newsticker-customize "Customize newsticker"] 8)) #@73 Call `browse-url' for the link of the item at which the EVENT occurred. (defalias 'newsticker-treeview-mouse-browse-url #[(event) "\212\304\305\306!\211@)!!\210\307\306!\310 8\206) A@:\203& A@@\202) A@)\311\"\211\205; \312\n!\210 \205; \313 *\207" [event position url newsticker-automatically-mark-visited-items-as-old switch-to-buffer window-buffer event-end get-text-property 5 :nt-link browse-url newsticker-treeview-mark-item-old] 5 (#$ . 36080) "e"]) #@54 Call `browse-url' for the link of the item at point. (defalias 'newsticker-treeview-browse-url #[nil "rA@q\210\303`\304\"\211\205 \305 !\210\n\205 \306 *\207" [newsticker--treeview-buffers url newsticker-automatically-mark-visited-items-as-old get-text-property :nt-link browse-url newsticker-treeview-mark-item-old] 4 (#$ . 36550) nil]) #@34 Initialize all treeview buffers. (defalias 'newsticker--treeview-buffer-init #[nil "\303\304\300\305\306!\307#\210\304\300\305\310!\307#\210\304\300\305\311!\307#\210 \2040 rA@q\210\312ed\"\313 \314\315#\210)\n\204E r@q\210\312ed\"\313\n\314\315#\210)\316 \210\317\307!\210\320 \207" [newsticker--treeview-buffers newsticker--selection-overlay newsticker--tree-selection-overlay nil add-to-list get-buffer-create "*Newsticker Tree*" t "*Newsticker List*" "*Newsticker Item*" make-overlay overlay-put face newsticker-treeview-selection-face newsticker--treeview-tree-update newsticker--treeview-list-update newsticker--treeview-item-update] 4 (#$ . 36898)]) #@76 Update all treeview buffers and windows. Note: does not update the layout. (defalias 'newsticker-treeview-update #[nil "\304 \305 \203 \306 \210\307\310!\210\311 \210\312 \210 \203 \313 !\210\202* \n\203* \314\315\n!!\210\316 \210\317 \210 \2065 \n\211\205A \205A \320!*\207" [cur-item newsticker--treeview-current-feed newsticker--treeview-current-vfeed cur-feed newsticker--treeview-get-selected-item newsticker--group-manage-orphan-feeds newsticker--treeview-tree-update newsticker--treeview-list-update t newsticker--treeview-item-update newsticker--treeview-tree-update-tags newsticker--treeview-list-items newsticker--treeview-list-items-with-age intern newsticker--treeview-tree-update-highlight newsticker--treeview-list-update-highlight newsticker--treeview-list-select] 4 (#$ . 37566) nil]) #@27 Quit newsticker treeview. (defalias 'newsticker-treeview-quit #[nil "\303\304\305!\210\304\306!\210\304\307!\210\310 !\210\n\203\" \311\n!\203 \312\n!\210\303\313 \207" [newsticker--sentinel-callback newsticker--saved-window-config newsticker--frame nil bury-buffer "*Newsticker Tree*" "*Newsticker List*" "*Newsticker Item*" set-window-configuration frame-live-p delete-frame newsticker-treeview-save] 2 (#$ . 38379) nil]) #@51 Save newsticker data including treeview settings. (defalias 'newsticker-treeview-save #[nil "\305\306\307P! \205# r q\210\310\311 \210\312c\210\313\f!c\210\314 \210\315 )*\207" [newsticker-dir buf coding-system-for-write buffer-undo-list newsticker-groups utf-8 find-file-noselect "/groups" t erase-buffer ";; -*- coding: utf-8 -*-\n" prin1-to-string save-buffer kill-buffer] 4 (#$ . 38812) nil]) #@25 Load treeview settings. (defalias 'newsticker--treeview-load #[nil "\305\306 !\203 \307\310\311 \"!\203 \206 \n\312P\306 !\205\" \313 ! \306 !\2035 \307\310\314!!\2035 \315 !\210\f\205G \fq\210eb\210\316\317\320\217\210\321\f!+\207" [coding-system-for-read newsticker-groups-filename newsticker-dir filename buf utf-8 file-exists-p y-or-n-p format "Old newsticker groups (%s) file exists. Read it? " "/groups" find-file-noselect "Delete old newsticker groups file? " delete-file nil (byte-code "\302!\302\207" [buf newsticker-groups read] 2) ((error (byte-code "\301\302!\210\303\211\207" [newsticker-groups message "Error while reading newsticker groups file!" nil] 3))) kill-buffer] 4 (#$ . 39219)]) #@22 Scroll current item. (defalias 'newsticker-treeview-scroll-item #[nil "\302 r\303\216\304\305 8\306\"\210\307\310!+\207" [save-selected-window--state newsticker--treeview-windows internal--before-save-selected-window ((internal--after-save-selected-window save-selected-window--state)) select-window 2 t scroll-up 1] 3 (#$ . 39937) nil]) #@20 Show current item. (defalias 'newsticker-treeview-show-item #[nil "\303 \210\304 \210rA@q\210\305 \210\306`\307\"\306`\310\"\311\n \"\210+\312\313 \314\"\210\315 \207" [newsticker--treeview-buffers feed item newsticker--treeview-restore-layout newsticker--treeview-list-update-highlight beginning-of-line get-text-property :nt-item :nt-feed newsticker--treeview-item-show newsticker--treeview-tree-update-tag newsticker--treeview-get-current-node t newsticker--treeview-tree-update-highlight] 4 (#$ . 40282) nil]) #@20 Move to next item. (defalias 'newsticker-treeview-next-item #[nil "\301 \210rA@q\210\302 \203 \303y\210m\203 \304y\210)\305 \207" [newsticker--treeview-buffers newsticker--treeview-restore-layout newsticker--treeview-list-highlight-start 1 -1 newsticker-treeview-show-item] 1 (#$ . 40805) nil]) #@24 Move to previous item. (defalias 'newsticker-treeview-prev-item #[nil "\301 \210rA@q\210\302y\210)\303 \207" [newsticker--treeview-buffers newsticker--treeview-restore-layout -1 newsticker-treeview-show-item] 1 (#$ . 41109) nil]) #@294 Move to next new or immortal item. Will move to next feed until an item is found. Will not move if optional argument CURRENT-ITEM-COUNTS is t and current item is new or immortal. Will not move from virtual to ordinary feed tree or vice versa if optional argument DONT-WRAP-TREES is non-nil. (defalias 'newsticker-treeview-next-new-or-immortal-item #[(&optional current-item-counts dont-wrap-trees) "\302 \210\303 \210\304\305\215?\205$ ?\306\307!\204 \205# \310 \205# \311\307\211\")\207" [dont-wrap-trees wrap-trees newsticker--treeview-restore-layout newsticker--treeview-list-clear-highlight found (byte-code "?r\nA@q\210 \203 \304y\210m\203 \305y\210\306\307\310\"\210)\311 \312 8)\313>\2031 \314 \210\306\307\315\"\210\315\202 " [current-item-counts move newsticker--treeview-buffers item 1 -1 throw found nil newsticker--treeview-get-selected-item 4 (new immortal) newsticker-treeview-show-item t] 3) newsticker-treeview-next-feed t newsticker--treeview-first-feed newsticker-treeview-next-new-or-immortal-item] 3 (#$ . 41347) nil]) #@91 Move to previous new or immortal item. Will move to previous feed until an item is found. (defalias 'newsticker-treeview-prev-new-or-immortal-item #[nil "\301 \210\302 \210\303\304\215?\205 \305\306!\205 A@q\210db\210\307 \207" [newsticker--treeview-buffers newsticker--treeview-restore-layout newsticker--treeview-list-clear-highlight found (byte-code "rA@q\210o\203 \302\303\304\"\210\305y\210)\306 \307 8)\310>\203' \311 \210\302\303\312\"\210o\203 \302\303\304\"\210\202 " [newsticker--treeview-buffers item throw found nil -1 newsticker--treeview-get-selected-item 4 (new immortal) newsticker-treeview-show-item t] 3) newsticker-treeview-prev-feed t newsticker-treeview-prev-new-or-immortal-item] 2 (#$ . 42405) nil]) #@56 Return item that is currently selected in list buffer. (defalias 'newsticker--treeview-get-selected-item #[nil "rA@q\210\301 \210\302`\303\")\207" [newsticker--treeview-buffers beginning-of-line get-text-property :nt-item] 3 (#$ . 43142)]) #@99 Mark current item as old unless it is obsolete. Move to next item unless DONT-PROCEED is non-nil. (defalias 'newsticker-treeview-mark-item-old #[(&optional dont-proceed) "\302 \211\3038)\304=\204 \305\306\"\210) ?\205 \307 \207" [item dont-proceed newsticker--treeview-get-selected-item 4 obsolete newsticker--treeview-mark-item old newsticker-treeview-next-item] 4 (#$ . 43389) nil]) #@37 Toggle immortality of current item. (defalias 'newsticker-treeview-toggle-item-immortal #[nil "\302 \211\3038)\304=\203 \305\202 \304\306 \"\210\307 *\207" [item new-age newsticker--treeview-get-selected-item 4 immortal old newsticker--treeview-mark-item newsticker-treeview-next-item] 4 (#$ . 43786) nil]) #@25 Mark ITEM with NEW-AGE. (defalias 'newsticker--treeview-mark-item #[(item new-age) "\203\n \304\233 \240\210\305\306\307\n!!!\210\310 !\207" [item new-age newsticker--treeview-current-feed newsticker--treeview-vfeed-tree 4 newsticker--cache-save-feed newsticker--cache-get-feed intern newsticker--treeview-tree-do-update-tags] 4 (#$ . 44106)]) #@31 Mark all listed items as old. (defalias 'newsticker-treeview-mark-list-items-old #[nil "\206 r A@q\210eb\210m\204/ \305`\306\"\211 \307\f8)\310>\204( \311\f\312\"\210)\313y\210\202 )\314 \210\n\205: \315\n!)\207" [newsticker--treeview-current-feed newsticker--treeview-current-vfeed current-feed newsticker--treeview-buffers item get-text-property :nt-item 4 (immortal obsolete) newsticker--treeview-mark-item old 1 newsticker--treeview-tree-update-tags newsticker-treeview-jump] 4 (#$ . 44458) nil]) #@20 Save current item. (defalias 'newsticker-treeview-save-item #[nil "\302\206 \303 \"\207" [newsticker--treeview-current-feed newsticker--treeview-current-vfeed newsticker-save-item newsticker--treeview-get-selected-item] 3 (#$ . 44971) nil]) #@63 Convert current item to HTML and call `browse-url' on result. (defalias 'newsticker-treeview-browse-url-item #[nil "\302\206 \303 \"\207" [newsticker--treeview-current-feed newsticker--treeview-current-vfeed newsticker-browse-url-item newsticker--treeview-get-selected-item] 3 (#$ . 45221) nil]) #@29 Make NODE the current node. (defalias 'newsticker--treeview-set-current-node #[(node) "r@q\210\305 \306\"\305 \307\"\305 \310\"\311 )\207" [newsticker--treeview-buffers node newsticker--treeview-current-node-id newsticker--treeview-current-feed newsticker--treeview-current-vfeed widget-get :nt-id :nt-feed :nt-vfeed newsticker--treeview-tree-update-highlight] 3 (#$ . 45526)]) #@26 Get first child of NODE. (defalias 'newsticker--treeview-get-first-child #[(node) "\302\303\"\211\205 @)\207" [node children widget-get :children] 4 (#$ . 45914)]) #@26 Get scond child of NODE. (defalias 'newsticker--treeview-get-second-child #[(node) "\302\303\"\211\205\f A@)\207" [node children widget-get :children] 4 (#$ . 46088)]) #@25 Get last child of NODE. (defalias 'newsticker--treeview-get-last-child #[(node) "\302\303\"\211\205 \304 !@)\207" [node children widget-get :children reverse] 4 (#$ . 46265)]) #@29 Get (virtual) feed of NODE. (defalias 'newsticker--treeview-get-feed-vfeed #[(node) "\301\302\"\206 \301\303\"\207" [node widget-get :nt-feed :nt-vfeed] 3 (#$ . 46450)]) #@27 Get next sibling of NODE. (defalias 'newsticker--treeview-get-next-sibling #[(node) "\302\303\"\304\305\215)\207" [node parent widget-get :parent found (byte-code "\303\304\"\211\205 \305 @\n\"\203 \306\307 A@\"\210 A\211\204 \310)\207" [parent children node widget-get :children newsticker--treeview-nodes-eq throw found nil] 4)] 3 (#$ . 46629)]) #@31 Get previous sibling of NODE. (defalias 'newsticker--treeview-get-prev-sibling #[(node) "\302\303\"\304\305\215)\207" [node parent widget-get :parent found (byte-code "\304\305\"\306\211\205* \307\n@ \"\203 \304 \310\"\203 \311\312 \"\210\n@\nA\211\204 \306*\207" [parent prev children node widget-get :children nil newsticker--treeview-nodes-eq :nt-id throw found] 4)] 3 (#$ . 46991)]) #@53 Get next uncle of NODE, i.e. parent's next sibling. (defalias 'newsticker--treeview-get-next-uncle #[(node) "\303\304\"\303 \304\"\305\306\215*\207" [node parent grand-parent widget-get :parent found (byte-code "\303\304\"\211\205 \305 @\n\"\203 \306\307 A@\"\210 A\211\204 \310)\207" [grand-parent uncles parent widget-get :children newsticker--treeview-nodes-eq throw found nil] 4)] 3 (#$ . 47394)]) #@61 Get previous uncle of NODE, i.e. parent's previous sibling. (defalias 'newsticker--treeview-get-prev-uncle #[(node) "\303\304\"\303 \304\"\305\306\215*\207" [node parent grand-parent widget-get :parent found (byte-code "\304\305\"\306\211\205# \307\n@ \"\203 \310\311 \"\210\n@\nA\211\204 \306*\207" [grand-parent prev uncles parent widget-get :children nil newsticker--treeview-nodes-eq throw found] 4)] 3 (#$ . 47811)]) #@17 Get other tree. (defalias 'newsticker--treeview-get-other-tree #[nil "\302 \203 \303\302 \304\"\203 \207 \207" [newsticker--treeview-vfeed-tree newsticker--treeview-feed-tree newsticker--treeview-get-current-node widget-get :nt-feed] 3 (#$ . 48249)]) #@158 Activate NODE. If NODE is a tree widget the node's first subnode is activated. If BACKWARD is non-nil the last subnode of the previous sibling is activated. (defalias 'newsticker--treeview-activate-node #[(node &optional backward) "\303!\210r @q\210\211@\262\304=\2036 \305\306\"\204$ \307\306\310#\210\311!\210\312\n\203/ \313!\2022 \314!!\202= \205= \311!)\207" [node newsticker--treeview-buffers backward newsticker--treeview-set-current-node tree-widget widget-get :open widget-put nil widget-apply-action newsticker--treeview-activate-node newsticker--treeview-get-last-child newsticker--treeview-get-second-child] 4 (#$ . 48510)]) #@63 Jump to the depth-first feed in the `newsticker-groups' tree. (defalias 'newsticker--treeview-first-feed #[nil "\301\302\303\304\"!@!\207" [newsticker-groups newsticker-treeview-jump reverse newsticker--group-get-feeds t] 5 (#$ . 49163)]) #@176 Move to next feed. Optional argument STAY-IN-TREE prevents moving from real feed tree to virtual feed tree or vice versa. Return t if a new feed was activated, nil otherwise. (defalias 'newsticker-treeview-next-feed #[(&optional stay-in-tree) "\304 \210\305 \306\211\203\" \307 !\206' \310 !\206' \n?\205' \311 \202' \312 \313\"@\211\2057 \314!\210\315 \210 =?*\207" [new cur stay-in-tree newsticker--treeview-feed-tree newsticker--treeview-restore-layout newsticker--treeview-get-current-node nil newsticker--treeview-get-next-sibling newsticker--treeview-get-next-uncle newsticker--treeview-get-other-tree widget-get :children newsticker--treeview-activate-node newsticker--treeview-tree-update-highlight] 4 (#$ . 49410) nil]) #@180 Move to previous feed. Optional argument STAY-IN-TREE prevents moving from real feed tree to virtual feed tree or vice versa. Return t if a new feed was activated, nil otherwise. (defalias 'newsticker-treeview-prev-feed #[(&optional stay-in-tree) "\304 \210\305 \306\211\205< \203& \307 !\206+ \310 !\206+ \n?\205+ \311 \202+ \312 \313\"@\211\205< \314\315\"\210\316 \210 =?*\207" [new cur stay-in-tree newsticker--treeview-feed-tree newsticker--treeview-restore-layout newsticker--treeview-get-current-node nil newsticker--treeview-get-prev-sibling newsticker--treeview-get-prev-uncle newsticker--treeview-get-other-tree widget-get :children newsticker--treeview-activate-node t newsticker--treeview-tree-update-highlight] 4 (#$ . 50151) nil]) #@21 Scroll item buffer. (defalias 'newsticker-treeview-next-page #[nil "\302 r\303\216\304\305 8\306\"\210\307\310\311\217+\207" [save-selected-window--state newsticker--treeview-windows internal--before-save-selected-window ((internal--after-save-selected-window save-selected-window--state)) select-window 2 t nil (scroll-up nil) ((error (byte-code "eb\207" [] 1)))] 3 (#$ . 50908) nil]) #@68 Recursively show subtree above the node that represents FEED-NAME. (defalias 'newsticker--treeview-unfold-node #[(feed-name) "\304!\211\204 \305!@\206 \306!\307\n!\210)\304! \2053 r @q\210\310 \311\312#\210\313 !\210\314 !))\207" [feed-name node group-name newsticker--treeview-buffers newsticker--treeview-get-node-of-feed newsticker--group-find-group-for-feed newsticker--group-get-parent-group newsticker--treeview-unfold-node widget-put :nt-selected t widget-apply-action newsticker--treeview-set-current-node] 5 (#$ . 51301)]) #@48 Jump to feed FEED-NAME in newsticker treeview. (defalias 'newsticker-treeview-jump #[(feed-name) "\301!\207" [feed-name newsticker--treeview-unfold-node] 2 (#$ . 51848) (list (let ((completion-ignore-case t)) (completing-read "Jump to feed: " (append '("new" "obsolete" "immortal" "all") (mapcar 'car (append newsticker-url-list newsticker-url-list-defaults))) nil t)))]) #@37 Recursively find FEED-NAME in NODE. (defalias 'newsticker--group-do-find-group-for-feed #[(feed-name node) " A\235\203\f \302\303 \"\207\304\305 A\"\207" [feed-name node throw found mapc #[(n) "<\205 \302 \"\207" [n feed-name newsticker--group-do-find-group-for-feed] 3]] 3 (#$ . 52227)]) #@34 Find group containing FEED-NAME. (defalias 'newsticker--group-find-group-for-feed #[(feed-name) "\300\301\215\207" [found (byte-code "\302 \"\210\303\207" [feed-name newsticker-groups newsticker--group-do-find-group-for-feed nil] 3)] 2 (#$ . 52526)]) #@46 Recursively find group with NAME below NODE. (defalias 'newsticker--group-do-get-group #[(name node) " @\230\203\f \302\303 \"\207\304\305 A\"\207" [name node throw found mapc #[(n) "<\205 \302 \"\207" [n name newsticker--group-do-get-group] 3]] 3 (#$ . 52784)]) #@23 Find group with NAME. (defalias 'newsticker--group-get-group #[(name) "\300\301\215\207" [found (byte-code "\301\302\"\210\303\207" [newsticker-groups mapc #[(n) "<\205 \302 \"\207" [n name newsticker--group-do-get-group] 3] nil] 3)] 2 (#$ . 53057)]) #@78 Recursively find parent group for NAME from NODE which is a child of PARENT. (defalias 'newsticker--group-do-get-parent-group #[(name node parent) " @\230\203\f \303\304\n\"\207\305\306 A\"\207" [name node parent throw found mapc #[(n) "<\205 \303 \n@#\207" [n name node newsticker--group-do-get-parent-group] 4]] 3 (#$ . 53318)]) #@41 Find parent group for group named NAME. (defalias 'newsticker--group-get-parent-group #[(name) "\300\301\215\207" [found (byte-code "\301\302\"\210\303\207" [newsticker-groups mapc #[(n) "<\205 \303 \n@#\207" [n name newsticker-groups newsticker--group-do-get-parent-group] 4] nil] 3)] 2 (#$ . 53659)]) #@113 Return list of subgroups for GROUP. If RECURSIVE is non-nil recursively get subgroups and return a nested list. (defalias 'newsticker--group-get-subgroups #[(group &optional recursive) "\302\303\304 \"\210)\207" [result group nil mapc #[(n) "<\205 @ B\304\n\"\211\205 \305 \"\211)\207" [n result recursive subgroups newsticker--group-get-subgroups append] 4]] 3 (#$ . 53973)]) #@35 Return nested list of all groups. (defalias 'newsticker--group-all-groups #[nil "\301\302\"\207" [newsticker-groups newsticker--group-get-subgroups t] 3 (#$ . 54367)]) #@121 Return list of all feeds in GROUP. If RECURSIVE is non-nil recursively get feeds of subgroups and return a nested list. (defalias 'newsticker--group-get-feeds #[(group &optional recursive) "\302\303\304 A\"\210)\207" [result group nil mapc #[(n) "<\204 B\211\207\n\205 \304\305\"\211\205 \306 \"\211)\207" [n result recursive subfeeds newsticker--group-get-feeds t append] 4]] 3 (#$ . 54543)]) #@33 Add group NAME to group PARENT. (defalias 'newsticker-group-add-group #[(name parent) "\304!\203 \305\306\"\210 \203 \307\230\204 \304 !\202 \n\211\204& \305\310 \"\210 C AB\241\210)\311 \207" [name parent newsticker-groups p newsticker--group-get-group error "Group %s exists already" "" "Parent %s does not exist" newsticker--treeview-tree-update] 4 (#$ . 54956) (list (read-string "Group Name: ") (let ((completion-ignore-case t)) (completing-read "Parent Group: " (newsticker--group-all-groups) nil t)))]) #@93 Move feed NAME to group GROUP-NAME. Update treeview afterwards unless NO-UPDATE is non-nil. (defalias 'newsticker-group-move-feed #[(name group-name &optional no-update) "\203 \306\230\204 \307!\202 \211\204 \310\311\"\210\312 !\211 \203( \313 \f\"\210\f)\204 \n \nAB\241\210 ?\205> \314 \210\315 )\207" [group-name newsticker-groups group name old-group no-update "" newsticker--group-get-group error "Group %s does not exist" newsticker--group-find-group-for-feed delete newsticker--treeview-tree-update newsticker-treeview-update] 4 (#$ . 55481) (let ((completion-ignore-case t)) (list (completing-read "Feed Name: " (mapcar 'car newsticker-url-list) nil t newsticker--treeview-current-feed) (completing-read "Group Name: " (newsticker--group-all-groups) nil t)))]) #@20 Remove group NAME. (defalias 'newsticker-group-delete-group #[(name) "\304!\305!\206 \n \204 \306\307\"\210\310 \"\210*\311 \207" [name g newsticker-groups p newsticker--group-get-group newsticker--group-get-parent-group error "Group %s does not exist" delete newsticker--treeview-tree-update] 3 (#$ . 56267) (let ((completion-ignore-case t)) (list (completing-read "Group Name: " (newsticker--group-all-groups) nil t)))]) #@49 Recursively count number of subgroups of GROUP. (defalias 'newsticker--count-groups #[(group) "\302\303\304 A\"\210)\207" [result group 1 mapc #[(g) "<\205\f \302!\\\211\207" [g result newsticker--count-groups] 3]] 3 (#$ . 56704)]) #@63 Recursively count number of feeds in GROUP and its subgroups. (defalias 'newsticker--count-grouped-feeds #[(group) "\302\303\304 A\"\210)\207" [result group 0 mapc #[(g) "<\203 \302!\\\211\207 T\211\207" [g result newsticker--count-grouped-feeds] 3]] 3 (#$ . 56948)]) #@47 Recursively remove obsolete feeds from GROUP. (defalias 'newsticker--group-remove-obsolete-feeds #[(group) "\305\306 \"\307\310\fA\"\210 \203 \f@\311 !B\202 *\207" [newsticker-url-list newsticker-url-list-defaults urls result group nil append mapc #[(g) "<\203 \304!\211\205 \nB\211)\207\305 \"\205 \nB\211\207" [g sub-groups result urls newsticker--group-remove-obsolete-feeds assoc] 4] reverse] 4 (#$ . 57230)]) #@126 Put unmanaged feeds into `newsticker-groups'. Remove obsolete feeds as well. Return t if groups have changed, nil otherwise. (defalias 'newsticker--group-manage-orphan-feeds #[nil "\204 \305\306\307!\310\311\312 \f\"\"\210\313!\n\206\" \307!U?*\207" [newsticker-groups grouped-feeds new-feed newsticker-url-list-defaults newsticker-url-list ("Feeds") nil newsticker--count-grouped-feeds mapc #[(f) "\302@!?\205 \303\304@\305\303#\207" [f new-feed newsticker--group-find-group-for-feed t newsticker-group-move-feed nil] 4] append newsticker--group-remove-obsolete-feeds] 5 (#$ . 57668)]) #@53 Create menu for GROUP-LIST omitting EXCLUDED-GROUP. (defalias 'newsticker--treeview-create-groups-menu #[(group-list excluded-group) "\302@;\203\f @\202 \303!\304\305\306!\"\210 )\207" [group-list menu make-sparse-keymap "Move to group..." mapc #[(g) "<\205* @;\203 @\202 \304\n=?\205) \305 \306\307 !!\310 \311A\n\"E#)\207" [g title excluded-group menu "Move to group..." define-key vector intern menu-item newsticker--treeview-create-groups-menu] 8] reverse] 4 (#$ . 58275)]) #@33 Create tree menu for FEED-NAME. (defalias 'newsticker--treeview-create-tree-menu #[(feed-name) "\303!\304 \305\306\307\310E#\210\304 \311\306\312\313\n\314!\"E#\210 )\207" [feed-name menu newsticker-groups make-sparse-keymap define-key [newsticker-treeview-mark-list-items-old] menu-item "Mark all items old" newsticker-treeview-mark-list-items-old [move] "Move to group..." newsticker--treeview-create-groups-menu newsticker--group-get-group] 9 (#$ . 58772)]) #@31 Map for newsticker list menu. (defvar newsticker-treeview-list-menu (byte-code "\301\302!\303\304\305\306\307E#\210\303\310\305\311\312E#\210\303\313\305\314\315E#\210\303\316\305\317\320E#\210)\207" [menu make-sparse-keymap "Newsticker List" define-key [newsticker-treeview-mark-list-items-old] menu-item "Mark all items old" newsticker-treeview-mark-list-items-old [newsticker-treeview-mark-item-old] "Mark current item old" newsticker-treeview-mark-item-old [newsticker-treeview-toggle-item-immortal] "Mark current item immortal (toggle)" newsticker-treeview-toggle-item-immortal [newsticker-treeview-get-news] "Get news for current feed" newsticker-treeview-get-news] 6) (#$ . 59242)) #@31 Map for newsticker item menu. (defvar newsticker-treeview-item-menu (byte-code "\301\302!\303\304\305\306\307E#\210\303\310\305\311\312E#\210\303\313\305\314\315E#\210)\207" [menu make-sparse-keymap "Newsticker Item" define-key [newsticker-treeview-mark-item-old] menu-item "Mark current item old" newsticker-treeview-mark-item-old [newsticker-treeview-toggle-item-immortal] "Mark current item immortal (toggle)" newsticker-treeview-toggle-item-immortal [newsticker-treeview-get-news] "Get news for current feed" newsticker-treeview-get-news] 6) (#$ . 59943)) #@35 Mode map for newsticker treeview. (defvar newsticker-treeview-mode-map (byte-code "\301\302!\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\303\320\321#\210\303\322\323#\210\303\324\325#\210\303\326\327#\210\303\330\331#\210\303\332\333#\210\303\334\335#\210\303\336\337#\210\303\340\341#\210\303\342\343#\210\303\344\345#\210\303\346\347#\210\303\350\351#\210\303\352\353#\210\303\354\355#\210\303\356\357#\210)\207" [map make-sparse-keymap newsticker-treeview-mode-map define-key " " newsticker-treeview-next-page "a" newsticker-add-url "b" newsticker-treeview-browse-url-item "F" newsticker-treeview-prev-feed "f" newsticker-treeview-next-feed "g" newsticker-treeview-get-news "G" newsticker-get-all-news "i" newsticker-treeview-toggle-item-immortal "j" newsticker-treeview-jump "n" newsticker-treeview-next-item "N" newsticker-treeview-next-new-or-immortal-item "O" newsticker-treeview-mark-list-items-old "o" newsticker-treeview-mark-item-old "p" newsticker-treeview-prev-item "P" newsticker-treeview-prev-new-or-immortal-item "q" newsticker-treeview-quit "S" newsticker-treeview-save-item "s" newsticker-treeview-save "u" newsticker-treeview-update "v" newsticker-treeview-browse-url "\355" newsticker-group-move-feed "\341" newsticker-group-add-group] 4) (#$ . 60514)) #@69 Major mode for Newsticker Treeview. \{newsticker-treeview-mode-map} (defalias 'newsticker-treeview-mode #[nil "\306 \210\307!\210\310\311\312\304!\203 \313\304!\210 \314\211\211 \207" [newsticker-treeview-mode-map major-mode mode-name newsticker-treeview-tool-bar-map tool-bar-map buffer-read-only kill-all-local-variables use-local-map newsticker-treeview-mode "Newsticker TV" boundp make-local-variable t truncate-lines] 3 (#$ . 61875)]) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [newsticker-treeview-list-mode-hook variable-documentation put purecopy "Hook run when entering Item List mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp newsticker-treeview-list-mode-map definition-name newsticker-treeview-list-mode] 5) (defvar newsticker-treeview-list-mode-map (make-sparse-keymap)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [newsticker-treeview-list-mode-map variable-documentation put purecopy "Keymap for `newsticker-treeview-list-mode'." boundp newsticker-treeview-list-mode-syntax-table definition-name newsticker-treeview-list-mode] 5) (defvar newsticker-treeview-list-mode-syntax-table (make-syntax-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [newsticker-treeview-list-mode-syntax-table variable-documentation put purecopy "Syntax table for `newsticker-treeview-list-mode'." newsticker-treeview-list-mode-abbrev-table definition-name newsticker-treeview-list-mode] 5) (defvar newsticker-treeview-list-mode-abbrev-table (progn (define-abbrev-table 'newsticker-treeview-list-mode-abbrev-table nil) newsticker-treeview-list-mode-abbrev-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [newsticker-treeview-list-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `newsticker-treeview-list-mode'." newsticker-treeview-list-mode derived-mode-parent newsticker-treeview-mode] 5) #@586 Major mode derived from `newsticker-treeview-mode' by `define-derived-mode'. It inherits all of the parent's attributes, but has its own keymap, abbrev table and syntax table: `newsticker-treeview-list-mode-map', `newsticker-treeview-list-mode-abbrev-table' and `newsticker-treeview-list-mode-syntax-table' which more-or-less shadow newsticker-treeview-mode's corresponding tables. In addition to any hooks its parent mode might have run, this mode runs the hook `newsticker-treeview-list-mode-hook', as the final step during initialization. \{newsticker-treeview-list-mode-map} (defalias 'newsticker-treeview-list-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036 \321 =\203< \322\f\323 \"\210)\324.\325\"\204V ./=\204V \326.\325/C#\210\327 !\210\330\f!\210./\331\332\333\334#\335\336\337\"\331\332\333\340#0\203 \341\331\332\333\342#P\202\200 \343\335\344\345\"0\203\221 \331\332\333\346#\202\226 \331\332\333\347#\335\350\351\"\260\211 12)\352 \3533#\210)\354\355!\207" [delay-mode-hooks major-mode mode-name newsticker-treeview-list-mode-map newsticker-treeview-list-mode-syntax-table parent make-local-variable t newsticker-treeview-mode newsticker-treeview-list-mode "Item List" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table propertize " " display (space :align-to 0) newsticker-treeview-list-make-sort-button "*" sort-by-age (space :align-to 2) "Feed" (space :align-to 12) "" "Date" sort-by-time (space :align-to 28) (space :align-to 18) "Title" sort-by-title define-key [down-mouse-3] run-mode-hooks newsticker-treeview-list-mode-hook newsticker-treeview-list-mode-abbrev-table local-abbrev-table newsticker--treeview-list-show-feed header header-line-format newsticker-treeview-list-menu] 10 (#$ . 63972) nil]) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [newsticker-treeview-item-mode-hook variable-documentation put purecopy "Hook run when entering Item mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp newsticker-treeview-item-mode-map definition-name newsticker-treeview-item-mode] 5) (defvar newsticker-treeview-item-mode-map (make-sparse-keymap)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [newsticker-treeview-item-mode-map variable-documentation put purecopy "Keymap for `newsticker-treeview-item-mode'." boundp newsticker-treeview-item-mode-syntax-table definition-name newsticker-treeview-item-mode] 5) (defvar newsticker-treeview-item-mode-syntax-table (make-syntax-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [newsticker-treeview-item-mode-syntax-table variable-documentation put purecopy "Syntax table for `newsticker-treeview-item-mode'." newsticker-treeview-item-mode-abbrev-table definition-name newsticker-treeview-item-mode] 5) (defvar newsticker-treeview-item-mode-abbrev-table (progn (define-abbrev-table 'newsticker-treeview-item-mode-abbrev-table nil) newsticker-treeview-item-mode-abbrev-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [newsticker-treeview-item-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `newsticker-treeview-item-mode'." newsticker-treeview-item-mode derived-mode-parent newsticker-treeview-mode] 5) #@586 Major mode derived from `newsticker-treeview-mode' by `define-derived-mode'. It inherits all of the parent's attributes, but has its own keymap, abbrev table and syntax table: `newsticker-treeview-item-mode-map', `newsticker-treeview-item-mode-abbrev-table' and `newsticker-treeview-item-mode-syntax-table' which more-or-less shadow newsticker-treeview-mode's corresponding tables. In addition to any hooks its parent mode might have run, this mode runs the hook `newsticker-treeview-item-mode-hook', as the final step during initialization. \{newsticker-treeview-item-mode-map} (defalias 'newsticker-treeview-item-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036 \321 =\203< \322\f\323 \"\210)\324 \325\"\204V =\204V \326 \325 C#\210\327 !\210\330\f!\210 \331 \332 #\210)\333\334!\207" [delay-mode-hooks major-mode mode-name newsticker-treeview-item-mode-map newsticker-treeview-item-mode-syntax-table parent make-local-variable t newsticker-treeview-mode newsticker-treeview-item-mode "Item" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table define-key [down-mouse-3] run-mode-hooks newsticker-treeview-item-mode-hook newsticker-treeview-item-mode-abbrev-table local-abbrev-table newsticker-treeview-item-menu] 6 (#$ . 67611) nil]) #@53 Handle click EVENT on a tag in the newsticker tree. (defalias 'newsticker-treeview-tree-click #[(event) "\302 \210\212\303\304\305!\211@)!!\210\306\305!\307 8\206, A@:\203) A@@\202, A@)!)\207" [event position newsticker--treeview-restore-layout switch-to-buffer window-buffer event-end newsticker-treeview-tree-do-click 5] 5 (#$ . 69120) "e"]) #@75 Actually handle click event. POS gives the position where EVENT occurred. (defalias 'newsticker-treeview-tree-do-click #[(&optional pos event) "\206 `\305\306\"\305\307\"\211\203 \310 \210\202= \311 !\211\203< \312 \313\211#\210\311 !\314 \315\313#\210\316 \317\f#\210\320 !\210)+\321 \207" [pos nt-id item w event get-text-property :nt-id :nt-item newsticker-treeview-show-item newsticker--treeview-get-node newsticker--treeview-tree-update-tag t widget-put :nt-selected widget-apply :action newsticker--treeview-set-current-node newsticker--treeview-tree-update-highlight] 5 (#$ . 69477) nil]) #@27 Restore treeview buffers. (defalias 'newsticker--treeview-restore-layout #[nil "\300\301\215\207" [error (byte-code "\306\307 W\2059 \n8 8 \310 !\204# \311 \210\312 \210\313\314\315\"\210\316 !\f=\2041 \317 \f\315#\210*T\211\202 *\207" [i --dotimes-limit-- newsticker--treeview-windows newsticker--treeview-buffers buf win 3 0 window-live-p newsticker--treeview-window-init newsticker--treeview-buffer-init throw error t window-buffer set-window-buffer] 5)] 2 (#$ . 70089)]) #@28 Initialize treeview frame. (defalias 'newsticker--treeview-frame-init #[nil "\205 \203 \302 !\204 \303\304!\305 !\210\306 !\207" [newsticker-treeview-own-frame newsticker--frame frame-live-p make-frame ((name . "Newsticker")) select-frame-set-input-focus raise-frame] 2 (#$ . 70579)]) #@30 Initialize treeview windows. (defalias 'newsticker--treeview-window-init #[nil "\305 \306\211\307 \210\310 !\210\311\301\312 \313#\210\314\315!\210\316\f!\210\311\301\312 \313#\210\314\315!\210\311\301\312 \313#\210\314\315!\207" [newsticker--saved-window-config newsticker--treeview-windows newsticker--treeview-buffers newsticker-treeview-treewindow-width newsticker-treeview-listwindow-height current-window-configuration nil delete-other-windows split-window-right add-to-list selected-window t other-window 1 split-window-below] 5 (#$ . 70876)]) #@28 Start newsticker treeview. (defalias 'newsticker-treeview #[nil "\302 \210\303\304 \210\305 \210\306 \210\307 \203 \310 \210\311 !\210\312\313!\210\303 \210\314\315\316\"\207" [newsticker--sentinel-callback newsticker--treeview-feed-tree newsticker--treeview-load newsticker-treeview-update newsticker--treeview-frame-init newsticker--treeview-window-init newsticker--treeview-buffer-init newsticker--group-manage-orphan-feeds newsticker--treeview-tree-update newsticker--treeview-set-current-node newsticker-start t newsticker--treeview-item-show-text "Newsticker" "Welcome to newsticker!"] 3 (#$ . 71436) nil]) #@28 Get news for current feed. (defalias 'newsticker-treeview-get-news #[nil "\205 \301!\207" [newsticker--treeview-current-feed newsticker-get-news] 2 (#$ . 72057) nil]) (provide 'newst-treeview)