1 ;;; newst-treeview.el --- Treeview frontend for newsticker.
3 ;; Copyright (C) 2008-2012 Free Software Foundation, Inc.
5 ;; Author: Ulf Jasper <ulf.jasper@web.de>
6 ;; Filename: newst-treeview.el
7 ;; URL: http://www.nongnu.org/newsticker
9 ;; Keywords: News, RSS, Atom
10 ;; Package: newsticker
12 ;; ======================================================================
14 ;; This file is part of GNU Emacs.
16 ;; GNU Emacs is free software: you can redistribute it and/or modify
17 ;; it under the terms of the GNU General Public License as published by
18 ;; the Free Software Foundation, either version 3 of the License, or
19 ;; (at your option) any later version.
21 ;; GNU Emacs is distributed in the hope that it will be useful,
22 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
23 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
24 ;; GNU General Public License for more details.
26 ;; You should have received a copy of the GNU General Public License
27 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
29 ;; ======================================================================
34 ;; ======================================================================
38 ;; ======================================================================
40 (require 'newst-reader)
42 (require 'tree-widget)
45 ;; ======================================================================
47 ;; ======================================================================
48 (defgroup newsticker-treeview nil
49 "Settings for the tree view reader."
50 :group 'newsticker-reader)
52 (defface newsticker-treeview-face
53 '((((class color) (background dark))
54 (:family "sans" :foreground "white" :bold nil))
55 (((class color) (background light))
56 (:family "sans" :foreground "black" :bold nil)))
57 "Face for newsticker tree."
58 :group 'newsticker-treeview)
60 (defface newsticker-treeview-new-face
61 '((((class color) (background dark))
62 (:inherit newsticker-treeview-face :bold t))
63 (((class color) (background light))
64 (:inherit newsticker-treeview-face :bold t)))
65 "Face for newsticker tree."
66 :group 'newsticker-treeview)
68 (defface newsticker-treeview-old-face
69 '((((class color) (background dark))
70 (:inherit newsticker-treeview-face))
71 (((class color) (background light))
72 (:inherit newsticker-treeview-face)))
73 "Face for newsticker tree."
74 :group 'newsticker-treeview)
76 (defface newsticker-treeview-immortal-face
77 '((((class color) (background dark))
78 (:inherit newsticker-treeview-face :foreground "orange" :italic t))
79 (((class color) (background light))
80 (:inherit newsticker-treeview-face :foreground "blue" :italic t)))
81 "Face for newsticker tree."
82 :group 'newsticker-treeview)
84 (defface newsticker-treeview-obsolete-face
85 '((((class color) (background dark))
86 (:inherit newsticker-treeview-face :strike-through t))
87 (((class color) (background light))
88 (:inherit newsticker-treeview-face :strike-through t)))
89 "Face for newsticker tree."
90 :group 'newsticker-treeview)
92 (defface newsticker-treeview-selection-face
93 '((((class color) (background dark))
94 (:background "#bbbbff"))
95 (((class color) (background light))
96 (:background "#bbbbff")))
97 "Face for newsticker selection."
98 :group 'newsticker-treeview)
100 (defcustom newsticker-treeview-own-frame
102 "Decides whether newsticker treeview creates and uses its own frame."
104 :group 'newsticker-treeview)
106 (defcustom newsticker-treeview-treewindow-width
108 "Width of tree window in treeview layout.
109 See also `newsticker-treeview-listwindow-height'."
111 :group 'newsticker-treeview)
113 (defcustom newsticker-treeview-listwindow-height
115 "Height of list window in treeview layout.
116 See also `newsticker-treeview-treewindow-width'."
118 :group 'newsticker-treeview)
120 (defcustom newsticker-treeview-automatically-mark-displayed-items-as-old
122 "Decides whether to automatically mark displayed items as old.
123 If t an item is marked as old as soon as it is displayed. This
124 applies to newsticker only."
126 :group 'newsticker-treeview)
128 (defvar newsticker-groups
130 "List of feed groups, used in the treeview frontend.
131 First element is a string giving the group name. Remaining
132 elements are either strings giving a feed name or lists having
133 the same structure as `newsticker-groups'. (newsticker-groups :=
134 groupdefinition, groupdefinition := groupname groupcontent*,
135 groupcontent := feedname | groupdefinition)
137 Example: (\"Topmost group\" \"feed1\" (\"subgroup1\" \"feed 2\")
140 (defcustom newsticker-groups-filename
141 "~/.newsticker-groups"
142 "Name of the newsticker groups settings file."
144 :group 'newsticker-treeview)
145 (make-obsolete 'newsticker-groups-filename 'newsticker-dir "23.1")
147 ;; ======================================================================
148 ;;; internal variables
149 ;; ======================================================================
150 (defvar newsticker--treeview-windows nil)
151 (defvar newsticker--treeview-buffers nil)
152 (defvar newsticker--treeview-current-feed nil
153 "Feed name of currently shown item.")
154 (defvar newsticker--treeview-current-vfeed nil)
155 (defvar newsticker--treeview-list-show-feed nil)
156 (defvar newsticker--saved-window-config nil)
157 (defvar newsticker--selection-overlay nil
158 "Highlight the selected tree node.")
159 (defvar newsticker--tree-selection-overlay nil
160 "Highlight the selected list item.")
161 (defvar newsticker--frame nil "Special frame for newsticker windows.")
162 (defvar newsticker--treeview-list-sort-order 'sort-by-time)
163 (defvar newsticker--treeview-current-node-id nil)
164 (defvar newsticker--treeview-current-tree nil)
165 (defvar newsticker--treeview-feed-tree nil)
166 (defvar newsticker--treeview-vfeed-tree nil)
168 ;; maps for the clickable portions
169 (defvar newsticker--treeview-url-keymap
170 (let ((map (make-sparse-keymap 'newsticker--treeview-url-keymap)))
171 (define-key map [mouse-1] 'newsticker-treeview-mouse-browse-url)
172 (define-key map [mouse-2] 'newsticker-treeview-mouse-browse-url)
173 (define-key map "\n" 'newsticker-treeview-browse-url)
174 (define-key map "\C-m" 'newsticker-treeview-browse-url)
175 (define-key map [(control return)] 'newsticker-handle-url)
177 "Key map for click-able headings in the newsticker treeview buffers.")
180 ;; ======================================================================
182 ;; ======================================================================
183 (defsubst newsticker--treeview-tree-buffer ()
184 "Return the tree buffer of the newsticker treeview."
185 (nth 0 newsticker--treeview-buffers))
186 (defsubst newsticker--treeview-list-buffer ()
187 "Return the list buffer of the newsticker treeview."
188 (nth 1 newsticker--treeview-buffers))
189 (defsubst newsticker--treeview-item-buffer ()
190 "Return the item buffer of the newsticker treeview."
191 (nth 2 newsticker--treeview-buffers))
192 (defsubst newsticker--treeview-tree-window ()
193 "Return the tree window of the newsticker treeview."
194 (nth 0 newsticker--treeview-windows))
195 (defsubst newsticker--treeview-list-window ()
196 "Return the list window of the newsticker treeview."
197 (nth 1 newsticker--treeview-windows))
198 (defsubst newsticker--treeview-item-window ()
199 "Return the item window of the newsticker treeview."
200 (nth 2 newsticker--treeview-windows))
202 ;; ======================================================================
203 ;;; utility functions
204 ;; ======================================================================
205 (defun newsticker--treeview-get-id (parent i)
206 "Create an id for a newsticker treeview node.
207 PARENT is the node's parent, I is an integer."
208 ;;(message "newsticker--treeview-get-id %s"
209 ;; (format "%s-%d" (widget-get parent :nt-id) i))
210 (format "%s-%d" (widget-get parent :nt-id) i))
212 (defun newsticker--treeview-ids-eq (id1 id2)
213 "Return non-nil if ids ID1 and ID2 are equal."
214 ;;(message "%s/%s" (or id1 -1) (or id2 -1))
215 (and id1 id2 (string= id1 id2)))
217 (defun newsticker--treeview-nodes-eq (node1 node2)
218 "Compare treeview nodes NODE1 and NODE2 for equality.
219 Nodes are equal if the have the same newsticker-id. Note that
220 during re-tagging and collapsing/expanding nodes change, while
221 their id stays constant."
222 (let ((id1 (widget-get node1 :nt-id))
223 (id2 (widget-get node2 :nt-id)))
224 ;;(message "%s/%s %s/%s" (widget-get node1 :tag) (widget-get node2 :tag)
225 ;; (or id1 -1) (or id2 -1))
226 (or (newsticker--treeview-ids-eq id1 id2)
227 (string= (widget-get node1 :tag) (widget-get node2 :tag)))))
229 (defun newsticker--treeview-do-get-node-of-feed (feed-name startnode)
230 "Recursively search node for feed FEED-NAME starting from STARTNODE."
231 ;;(message "%s/%s" feed-name (widget-get startnode :nt-feed))
232 (if (string= feed-name (or (widget-get startnode :nt-feed)
233 (widget-get startnode :nt-vfeed)))
234 (throw 'found startnode)
235 (let ((children (widget-get startnode :children)))
237 (newsticker--treeview-do-get-node-of-feed feed-name w)))))
239 (defun newsticker--treeview-get-node-of-feed (feed-name)
240 "Return node for feed FEED-NAME in newsticker treeview tree."
242 (newsticker--treeview-do-get-node-of-feed feed-name
243 newsticker--treeview-feed-tree)
244 (newsticker--treeview-do-get-node-of-feed feed-name
245 newsticker--treeview-vfeed-tree)))
247 (defun newsticker--treeview-do-get-node (id startnode)
248 "Recursively search node with ID starting from STARTNODE."
249 (if (newsticker--treeview-ids-eq id (widget-get startnode :nt-id))
250 (throw 'found startnode)
251 (let ((children (widget-get startnode :children)))
253 (newsticker--treeview-do-get-node id w)))))
255 (defun newsticker--treeview-get-node (id)
256 "Return node with ID in newsticker treeview tree."
258 (newsticker--treeview-do-get-node id newsticker--treeview-feed-tree)
259 (newsticker--treeview-do-get-node id newsticker--treeview-vfeed-tree)))
261 (defun newsticker--treeview-get-current-node ()
262 "Return current node in newsticker treeview tree."
263 (newsticker--treeview-get-node newsticker--treeview-current-node-id))
265 ;; ======================================================================
267 (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))
268 (declare-function w3m-toggle-inline-images "ext:w3m" (&optional force no-cache))
270 (defun newsticker--treeview-render-text (start end)
271 "Render text between markers START and END."
272 (if newsticker-html-renderer
273 (condition-case error-data
275 (set-marker-insertion-type end t)
276 ;; check whether it is necessary to call html renderer
277 ;; (regexp inspired by htmlr.el)
279 (when (re-search-forward
280 "</?[A-Za-z1-6]*\\|&#?[A-Za-z0-9]+;" end t)
281 ;; (message "%s" (newsticker--title item))
282 (let ((w3m-fill-column (if newsticker-use-full-width
284 (w3-maximum-line-length
285 (if newsticker-use-full-width nil fill-column)))
287 (funcall newsticker-html-renderer start end)))
288 ;;(cond ((eq newsticker-html-renderer 'w3m-region)
289 ;; (add-text-properties start end (list 'keymap
290 ;; w3m-minor-mode-map)))
291 ;;((eq newsticker-html-renderer 'w3-region)
292 ;;(add-text-properties start end (list 'keymap w3-mode-map))))
293 (if (eq newsticker-html-renderer 'w3m-region)
294 (w3m-toggle-inline-images t))
297 (message "Error: HTML rendering failed: %s, %s"
298 (car error-data) (cdr error-data))
302 ;; ======================================================================
304 ;; ======================================================================
305 (defun newsticker--treeview-list-add-item (item feed &optional show-feed)
306 "Add news ITEM for FEED to newsticker treeview list window.
307 If string SHOW-FEED is non-nil it is shown in the item string."
308 (setq newsticker--treeview-list-show-feed show-feed)
309 (with-current-buffer (newsticker--treeview-list-buffer)
310 (let* ((inhibit-read-only t)
312 (goto-char (point-max))
313 (setq pos1 (point-marker))
315 (insert (propertize " " 'display '(space :align-to 2)))
316 (insert (if show-feed
319 (format "%-10s" (newsticker--real-feed-name
322 (propertize " " 'display '(space :align-to 12)))
324 (insert (format-time-string "%d.%m.%y, %H:%M"
325 (newsticker--time item)))
326 (insert (propertize " " 'display
327 (list 'space :align-to (if show-feed 28 18))))
328 (setq pos2 (point-marker))
329 (insert (newsticker--title item))
331 (newsticker--treeview-render-text pos2 (point-marker))
333 (while (search-forward "\n" nil t)
335 (let ((map (make-sparse-keymap)))
336 (define-key map [mouse-1] 'newsticker-treeview-tree-click)
337 (define-key map "\n" 'newsticker-treeview-show-item)
338 (define-key map "\C-m" 'newsticker-treeview-show-item)
339 (add-text-properties pos1 (point-max)
342 :nt-link (newsticker--link item)
343 'mouse-face 'highlight
345 'help-echo (buffer-substring pos2
349 (defun newsticker--treeview-list-clear ()
350 "Clear the newsticker treeview list window."
351 (with-current-buffer (newsticker--treeview-list-buffer)
352 (let ((inhibit-read-only t))
354 (kill-all-local-variables)
357 (defun newsticker--treeview-list-items-with-age-callback (widget
360 "Fill newsticker treeview list window with items of certain age.
361 This is a callback function for the treeview nodes.
362 Argument WIDGET is the calling treeview widget.
363 Argument CHANGED-WIDGET is the widget that actually has changed.
364 Optional argument AGES is the list of ages that are to be shown."
365 (newsticker--treeview-list-clear)
366 (widget-put widget :nt-selected t)
367 (apply 'newsticker--treeview-list-items-with-age ages))
369 (defun newsticker--treeview-list-items-with-age (&rest ages)
370 "Actually fill newsticker treeview list window with items of certain age.
371 AGES is the list of ages that are to be shown."
373 (let ((feed-name-symbol (intern (car feed))))
375 (when (memq (newsticker--age item) ages)
376 (newsticker--treeview-list-add-item
377 item feed-name-symbol t)))
378 (newsticker--treeview-list-sort-items
379 (cdr (newsticker--cache-get-feed feed-name-symbol))))))
380 (append newsticker-url-list-defaults newsticker-url-list))
381 (newsticker--treeview-list-update nil))
383 (defun newsticker--treeview-list-new-items (widget changed-widget
385 "Fill newsticker treeview list window with new items.
386 This is a callback function for the treeview nodes.
387 Argument WIDGET is the calling treeview widget.
388 Argument CHANGED-WIDGET is the widget that actually has changed.
389 Optional argument EVENT is the mouse event that triggered this action."
390 (newsticker--treeview-list-items-with-age-callback widget changed-widget
392 (newsticker--treeview-item-show-text
394 "This is a virtual feed containing all new items"))
396 (defun newsticker--treeview-list-immortal-items (widget changed-widget
398 "Fill newsticker treeview list window with immortal items.
399 This is a callback function for the treeview nodes.
400 Argument WIDGET is the calling treeview widget.
401 Argument CHANGED-WIDGET is the widget that actually has changed.
402 Optional argument EVENT is the mouse event that triggered this action."
403 (newsticker--treeview-list-items-with-age-callback widget changed-widget
405 (newsticker--treeview-item-show-text
407 "This is a virtual feed containing all immortal items."))
409 (defun newsticker--treeview-list-obsolete-items (widget changed-widget
411 "Fill newsticker treeview list window with obsolete items.
412 This is a callback function for the treeview nodes.
413 Argument WIDGET is the calling treeview widget.
414 Argument CHANGED-WIDGET is the widget that actually has changed.
415 Optional argument EVENT is the mouse event that triggered this action."
416 (newsticker--treeview-list-items-with-age-callback widget changed-widget
418 (newsticker--treeview-item-show-text
420 "This is a virtual feed containing all obsolete items."))
422 (defun newsticker--treeview-list-all-items (widget changed-widget
424 "Fill newsticker treeview list window with all items.
425 This is a callback function for the treeview nodes.
426 Argument WIDGET is the calling treeview widget.
427 Argument CHANGED-WIDGET is the widget that actually has changed.
428 Optional argument EVENT is the mouse event that triggered this action."
429 (newsticker--treeview-list-items-with-age-callback widget changed-widget
432 (newsticker--treeview-item-show-text
434 "This is a virtual feed containing all items."))
436 (defun newsticker--treeview-list-items-v (vfeed-name)
437 "List items for virtual feed VFEED-NAME."
439 (cond ((string-match "\\*new\\*" vfeed-name)
440 (newsticker--treeview-list-items-with-age 'new))
441 ((string-match "\\*immortal\\*" vfeed-name)
442 (newsticker--treeview-list-items-with-age 'immortal))
443 ((string-match "\\*old\\*" vfeed-name)
444 (newsticker--treeview-list-items-with-age 'old nil)))
445 (newsticker--treeview-list-update nil)
448 (defun newsticker--treeview-list-items (feed-name)
449 "List items for feed FEED-NAME."
451 (if (newsticker--treeview-virtual-feed-p feed-name)
452 (newsticker--treeview-list-items-v feed-name)
454 (if (eq (newsticker--age item) 'feed)
455 (newsticker--treeview-item-show item (intern feed-name))
456 (newsticker--treeview-list-add-item item
457 (intern feed-name))))
458 (newsticker--treeview-list-sort-items
459 (cdr (newsticker--cache-get-feed (intern feed-name)))))
460 (newsticker--treeview-list-update nil))))
462 (defun newsticker--treeview-list-feed-items (widget changed-widget
464 "Callback function for listing feed items.
465 Argument WIDGET is the calling treeview widget.
466 Argument CHANGED-WIDGET is the widget that actually has changed.
467 Optional argument EVENT is the mouse event that triggered this action."
468 (newsticker--treeview-list-clear)
469 (widget-put widget :nt-selected t)
470 (let ((feed-name (widget-get widget :nt-feed))
471 (vfeed-name (widget-get widget :nt-vfeed)))
473 (newsticker--treeview-list-items feed-name)
474 (newsticker--treeview-list-items-v vfeed-name))))
476 (defun newsticker--treeview-list-compare-item-by-age (item1 item2)
477 "Compare two news items ITEM1 and ITEM2 wrt age."
479 (let ((age1 (newsticker--age item1))
480 (age2 (newsticker--age item2)))
481 (cond ((eq age1 'new)
484 (cond ((eq age2 'new)
491 (cond ((eq age2 'new)
502 (defun newsticker--treeview-list-compare-item-by-age-reverse (item1 item2)
503 "Compare two news items ITEM1 and ITEM2 wrt age in reverse order."
504 (newsticker--treeview-list-compare-item-by-age item2 item1))
506 (defun newsticker--treeview-list-compare-item-by-time (item1 item2)
507 "Compare two news items ITEM1 and ITEM2 wrt time values."
508 (newsticker--cache-item-compare-by-time item1 item2))
510 (defun newsticker--treeview-list-compare-item-by-time-reverse (item1 item2)
511 "Compare two news items ITEM1 and ITEM2 wrt time values in reverse order."
512 (newsticker--cache-item-compare-by-time item2 item1))
514 (defun newsticker--treeview-list-compare-item-by-title (item1 item2)
515 "Compare two news items ITEM1 and ITEM2 wrt title."
516 (newsticker--cache-item-compare-by-title item1 item2))
518 (defun newsticker--treeview-list-compare-item-by-title-reverse (item1 item2)
519 "Compare two news items ITEM1 and ITEM2 wrt title in reverse order."
520 (newsticker--cache-item-compare-by-title item2 item1))
522 (defun newsticker--treeview-list-sort-items (items)
523 "Return sorted copy of list ITEMS.
524 The sort function is chosen according to the value of
525 `newsticker--treeview-list-sort-order'."
527 (cond ((eq newsticker--treeview-list-sort-order 'sort-by-age)
528 'newsticker--treeview-list-compare-item-by-age)
529 ((eq newsticker--treeview-list-sort-order
530 'sort-by-age-reverse)
531 'newsticker--treeview-list-compare-item-by-age-reverse)
532 ((eq newsticker--treeview-list-sort-order 'sort-by-time)
533 'newsticker--treeview-list-compare-item-by-time)
534 ((eq newsticker--treeview-list-sort-order
535 'sort-by-time-reverse)
536 'newsticker--treeview-list-compare-item-by-time-reverse)
537 ((eq newsticker--treeview-list-sort-order 'sort-by-title)
538 'newsticker--treeview-list-compare-item-by-title)
539 ((eq newsticker--treeview-list-sort-order
540 'sort-by-title-reverse)
541 'newsticker--treeview-list-compare-item-by-title-reverse)
543 'newsticker--treeview-list-compare-item-by-title))))
544 (sort (copy-sequence items) sort-fun)))
546 (defun newsticker--treeview-list-update-faces ()
547 "Update faces in the treeview list buffer."
549 (with-current-buffer (newsticker--treeview-list-buffer)
551 (let ((inhibit-read-only t))
552 (goto-char (point-min))
554 (let* ((pos (point-at-eol))
555 (item (get-text-property (point) :nt-item))
556 (age (newsticker--age item))
557 (selected (get-text-property (point) :nt-selected))
558 (face (cond ((eq age 'new)
559 'newsticker-treeview-new-face)
561 'newsticker-treeview-old-face)
563 'newsticker-treeview-immortal-face)
565 'newsticker-treeview-obsolete-face)
568 (put-text-property (point) pos 'face face)
570 (move-overlay newsticker--selection-overlay (point)
571 (1+ pos) ;include newline
573 (if selected (setq pos-sel (point)))
575 (beginning-of-line)))))) ;; FIXME!?
577 (if (window-live-p (newsticker--treeview-list-window))
578 (set-window-point (newsticker--treeview-list-window) pos-sel)))))
580 (defun newsticker--treeview-list-clear-highlight ()
581 "Clear the highlight in the treeview list buffer."
582 (with-current-buffer (newsticker--treeview-list-buffer)
583 (let ((inhibit-read-only t))
584 (put-text-property (point-min) (point-max) :nt-selected nil))
585 (newsticker--treeview-list-update-faces)))
587 (defun newsticker--treeview-list-update-highlight ()
588 "Update the highlight in the treeview list buffer."
589 (newsticker--treeview-list-clear-highlight)
591 (with-current-buffer (newsticker--treeview-list-buffer)
592 (let ((inhibit-read-only t))
593 (put-text-property (point-at-bol) (point-at-eol) :nt-selected t))
594 (newsticker--treeview-list-update-faces))))
596 (defun newsticker--treeview-list-highlight-start ()
597 "Return position of selection in treeview list buffer."
598 (with-current-buffer (newsticker--treeview-list-buffer)
600 (goto-char (point-min))
601 (next-single-property-change (point) :nt-selected))))
603 (defun newsticker--treeview-list-update (clear-buffer)
604 "Update the faces and highlight in the treeview list buffer.
605 If CLEAR-BUFFER is non-nil the list buffer is completely erased."
607 (if (window-live-p (newsticker--treeview-list-window))
608 (set-window-buffer (newsticker--treeview-list-window)
609 (newsticker--treeview-list-buffer)))
610 (set-buffer (newsticker--treeview-list-buffer))
612 (let ((inhibit-read-only t))
614 (newsticker-treeview-list-mode)
615 (newsticker--treeview-list-update-faces)
616 (goto-char (point-min))))
618 (defvar newsticker-treeview-list-sort-button-map
619 (let ((map (make-sparse-keymap)))
620 (define-key map [header-line mouse-1]
621 'newsticker--treeview-list-sort-by-column)
622 (define-key map [header-line mouse-2]
623 'newsticker--treeview-list-sort-by-column)
625 "Local keymap for newsticker treeview list window sort buttons.")
627 (defun newsticker--treeview-list-sort-by-column (&optional event)
628 "Sort the newsticker list window buffer by the column clicked on.
629 Optional argument EVENT is the mouse event that triggered this action."
630 (interactive (list last-input-event))
631 (if event (mouse-select-window event))
632 (let* ((pos (event-start event))
633 (obj (posn-object pos))
635 (get-text-property (cdr obj) 'sort-order (car obj))
636 (get-text-property (posn-point pos) 'sort-order))))
637 (setq newsticker--treeview-list-sort-order
638 (cond ((eq sort-order 'sort-by-age)
639 (if (eq newsticker--treeview-list-sort-order 'sort-by-age)
642 ((eq sort-order 'sort-by-time)
643 (if (eq newsticker--treeview-list-sort-order 'sort-by-time)
644 'sort-by-time-reverse
646 ((eq sort-order 'sort-by-title)
647 (if (eq newsticker--treeview-list-sort-order 'sort-by-title)
648 'sort-by-title-reverse
650 (newsticker-treeview-update)))
652 (defun newsticker-treeview-list-make-sort-button (name sort-order)
653 "Create propertized string for headerline button.
654 NAME is the button text, SORT-ORDER is the associated sort order
656 (let ((face (if (string-match (symbol-name sort-order)
658 newsticker--treeview-list-sort-order))
662 'sort-order sort-order
663 'help-echo (concat "Sort by " name)
664 'mouse-face 'highlight
666 'keymap newsticker-treeview-list-sort-button-map)))
668 (defun newsticker--treeview-list-select (item)
669 "Select ITEM in treeview's list buffer."
670 (newsticker--treeview-list-clear-highlight)
673 (set-buffer (newsticker--treeview-list-buffer))
674 (goto-char (point-min))
677 (let ((it (get-text-property (point) :nt-item)))
679 (newsticker--treeview-list-update-highlight)
680 (newsticker--treeview-list-update-faces)
681 (newsticker--treeview-item-show
682 item (get-text-property (point) :nt-feed))
686 (goto-char (point-min))
687 (throw 'found nil)))))))
689 ;; ======================================================================
691 ;; ======================================================================
692 (defun newsticker--treeview-item-show-text (title description)
693 "Show text in treeview item buffer consisting of TITLE and DESCRIPTION."
694 (with-current-buffer (newsticker--treeview-item-buffer)
695 (when (fboundp 'w3m-process-stop)
696 (w3m-process-stop (current-buffer)))
697 (let ((inhibit-read-only t))
699 (kill-all-local-variables)
702 (put-text-property (point-min) (point) 'face 'newsticker-feed-face)
703 (insert "\n\n" description)
704 (when newsticker-justification
705 (fill-region (point-min) (point-max) newsticker-justification))
706 (newsticker-treeview-item-mode)
707 (goto-char (point-min)))))
709 (defun newsticker--treeview-item-show (item feed-name-symbol)
710 "Show news ITEM coming from FEED-NAME-SYMBOL in treeview item buffer."
711 (setq newsticker--treeview-current-feed (symbol-name feed-name-symbol))
712 (with-current-buffer (newsticker--treeview-item-buffer)
713 (when (fboundp 'w3m-process-stop)
714 (w3m-process-stop (current-buffer)))
715 (let ((inhibit-read-only t)
716 (is-rendered-HTML nil)
718 (marker1 (make-marker))
719 (marker2 (make-marker)))
721 (kill-all-local-variables)
724 (when (and item feed-name-symbol)
725 (let ((wwidth (1- (window-width (newsticker--treeview-item-window)))))
726 (if newsticker-use-full-width
727 (set (make-local-variable 'fill-column) wwidth))
728 (set (make-local-variable 'fill-column) (min fill-column
730 (let ((desc (newsticker--desc item)))
731 (insert "\n" (or desc "[No Description]")))
732 (set-marker marker1 (1+ (point-min)))
733 (set-marker marker2 (point-max))
734 (setq is-rendered-HTML (newsticker--treeview-render-text marker1
736 (when (and newsticker-justification
737 (not is-rendered-HTML))
738 (fill-region marker1 marker2 newsticker-justification))
740 (newsticker-treeview-item-mode)
741 (goto-char (point-min))
742 ;; insert logo at top
743 (let* ((newsticker-enable-logo-manipulations nil)
744 (img (newsticker--image-read feed-name-symbol nil)))
745 (if (and (display-images-p) img)
746 (newsticker--insert-image img (car item))
747 (insert (newsticker--real-feed-name feed-name-symbol))))
748 (add-text-properties (point-min) (point)
749 (list 'face 'newsticker-feed-face
750 'mouse-face 'highlight
751 'help-echo "Visit in web browser."
752 :nt-link (newsticker--link item)
753 'keymap newsticker--treeview-url-keymap))
759 (insert (newsticker--title item) "\n")
760 (set-marker marker1 pos)
761 (set-marker marker2 (point))
762 (newsticker--treeview-render-text marker1 marker2)
763 (put-text-property pos (point) 'face 'newsticker-treeview-new-face)
767 (put-text-property marker2 (point) 'face 'newsticker-treeview-face)
768 (set-marker marker2 (point))
769 (when newsticker-justification
770 (fill-region marker1 marker2 newsticker-justification))
772 (add-text-properties marker1 (1- (point))
773 (list 'mouse-face 'highlight
774 'help-echo "Visit in web browser."
775 :nt-link (newsticker--link item)
776 'keymap newsticker--treeview-url-keymap))
777 (insert (format-time-string newsticker-date-format
778 (newsticker--time item)))
782 ;; insert enclosures and rest at bottom
783 (goto-char (point-max))
786 (newsticker--insert-enclosure item newsticker--treeview-url-keymap)
787 (put-text-property pos (point) 'face 'newsticker-enclosure-face)
790 (newsticker--print-extra-elements item newsticker--treeview-url-keymap)
791 (put-text-property pos (point) 'face 'newsticker-extra-face)
792 (goto-char (point-min)))))
793 (if (and newsticker-treeview-automatically-mark-displayed-items-as-old
795 (memq (newsticker--age item) '(new obsolete)))
796 (let ((newsticker-treeview-automatically-mark-displayed-items-as-old nil))
797 (newsticker-treeview-mark-item-old t)
798 (newsticker--treeview-list-update-faces)))
799 (if (window-live-p (newsticker--treeview-item-window))
800 (set-window-point (newsticker--treeview-item-window) 1)))
802 (defun newsticker--treeview-item-update ()
803 "Update the treeview item buffer and window."
805 (if (window-live-p (newsticker--treeview-item-window))
806 (set-window-buffer (newsticker--treeview-item-window)
807 (newsticker--treeview-item-buffer)))
808 (set-buffer (newsticker--treeview-item-buffer))
809 (let ((inhibit-read-only t))
811 (newsticker-treeview-item-mode)))
813 ;; ======================================================================
815 ;; ======================================================================
816 (defun newsticker--treeview-tree-expand (tree)
818 Callback function for tree widget that adds nodes for feeds and subgroups."
819 (tree-widget-set-theme "folder")
820 (let ((group (widget-get tree :nt-group))
824 (setq nt-id (newsticker--treeview-get-id tree i))
827 (let* ((g-name (car g)))
829 :tag ,(newsticker--treeview-tree-get-tag g-name nil nt-id)
830 :expander newsticker--treeview-tree-expand
831 :expander-p (lambda (&rest ignore) t)
835 :keep (:nt-feed :num-new :nt-id :open);; :nt-group
837 (let ((tag (newsticker--treeview-tree-get-tag g nil nt-id)))
839 :leaf-icon newsticker--tree-widget-leaf-icon
841 :action newsticker--treeview-list-feed-items
847 (defun newsticker--treeview-tree-expand-status (tree &optional changed-widget
849 "Expand the vfeed TREE.
850 Optional arguments CHANGED-WIDGET and EVENT are ignored."
851 (tree-widget-set-theme "folder")
852 (list `(item :tag ,(newsticker--treeview-tree-get-tag nil "new")
854 :action newsticker--treeview-list-new-items
855 :nt-id ,(newsticker--treeview-get-id tree 0)
857 `(item :tag ,(newsticker--treeview-tree-get-tag nil "immortal")
859 :action newsticker--treeview-list-immortal-items
860 :nt-id ,(newsticker--treeview-get-id tree 1)
862 `(item :tag ,(newsticker--treeview-tree-get-tag nil "obsolete")
864 :action newsticker--treeview-list-obsolete-items
865 :nt-id ,(newsticker--treeview-get-id tree 2)
867 `(item :tag ,(newsticker--treeview-tree-get-tag nil "all")
869 :action newsticker--treeview-list-all-items
870 :nt-id ,(newsticker--treeview-get-id tree 3)
873 (defun newsticker--treeview-virtual-feed-p (feed-name)
874 "Return non-nil if FEED-NAME is a virtual feed."
875 (string-match "\\*.*\\*" feed-name))
877 (define-widget 'newsticker--tree-widget-leaf-icon 'tree-widget-icon
878 "Icon for a tree-widget leaf node."
881 :button-face 'default)
883 (defun newsticker--treeview-tree-update ()
884 "Update treeview tree buffer and window."
886 (if (window-live-p (newsticker--treeview-tree-window))
887 (set-window-buffer (newsticker--treeview-tree-window)
888 (newsticker--treeview-tree-buffer)))
889 (set-buffer (newsticker--treeview-tree-buffer))
890 (kill-all-local-variables)
891 (let ((inhibit-read-only t))
893 (tree-widget-set-theme "folder")
894 (setq newsticker--treeview-feed-tree
895 (widget-create 'tree-widget
896 :tag (newsticker--treeview-propertize-tag
898 :expander 'newsticker--treeview-tree-expand
899 :expander-p (lambda (&rest ignore) t)
900 :leaf-icon 'newsticker--tree-widget-leaf-icon
901 :nt-group (cdr newsticker-groups)
905 (setq newsticker--treeview-vfeed-tree
906 (widget-create 'tree-widget
907 :tag (newsticker--treeview-propertize-tag
908 "Virtual Feeds" 0 "vfeeds")
909 :expander 'newsticker--treeview-tree-expand-status
910 :expander-p (lambda (&rest ignore) t)
911 :leaf-icon 'newsticker--tree-widget-leaf-icon
915 (use-local-map widget-keymap)
917 (newsticker-treeview-mode)))
919 (defun newsticker--treeview-propertize-tag (tag &optional num-new nt-id feed
921 "Return propertized copy of string TAG.
922 Optional argument NUM-NEW is used for choosing face, other
923 arguments NT-ID, FEED, and VFEED are added as properties."
924 ;;(message "newsticker--treeview-propertize-tag '%s' %s" feed nt-id)
925 (let ((face 'newsticker-treeview-face)
926 (map (make-sparse-keymap)))
927 (if (and num-new (> num-new 0))
928 (setq face 'newsticker-treeview-new-face))
929 (define-key map [mouse-1] 'newsticker-treeview-tree-click)
930 (define-key map "\n" 'newsticker-treeview-tree-do-click)
931 (define-key map "\C-m" 'newsticker-treeview-tree-do-click)
932 (propertize tag 'face face 'keymap map
937 'mouse-face 'highlight)))
939 (defun newsticker--treeview-tree-get-tag (feed-name vfeed-name
941 "Return a tag string for either FEED-NAME or, if it is nil, for VFEED-NAME.
942 Optional argument NT-ID is added to the tag's properties."
943 (let (tag (num-new 0))
945 (cond ((string= vfeed-name "new")
946 (setq num-new (newsticker--stat-num-items-total 'new))
947 (setq tag (format "New items (%d)" num-new)))
948 ((string= vfeed-name "immortal")
949 (setq num-new (newsticker--stat-num-items-total 'immortal))
950 (setq tag (format "Immortal items (%d)" num-new)))
951 ((string= vfeed-name "obsolete")
952 (setq num-new (newsticker--stat-num-items-total 'obsolete))
953 (setq tag (format "Obsolete items (%d)" num-new)))
954 ((string= vfeed-name "all")
955 (setq num-new (newsticker--stat-num-items-total))
956 (setq tag (format "All items (%d)" num-new)))))
958 (setq num-new (newsticker--stat-num-items-for-group
959 (intern feed-name) 'new 'immortal))
962 (newsticker--real-feed-name (intern feed-name))
965 (newsticker--treeview-propertize-tag tag num-new
967 feed-name vfeed-name))))
969 (defun newsticker--stat-num-items-for-group (feed-name-symbol &rest ages)
970 "Count number of items in feed FEED-NAME-SYMBOL that have an age matching AGES."
971 ;;(message "newsticker--stat-num-items-for-group %s %s" feed-name-symbol ages)
972 (let ((result (apply 'newsticker--stat-num-items feed-name-symbol ages)))
974 (setq result (+ result
975 (apply 'newsticker--stat-num-items (intern f-n)
977 (newsticker--group-get-feeds
978 (newsticker--group-get-group (symbol-name feed-name-symbol)) t))
981 (defun newsticker--treeview-count-node-items (feed &optional isvirtual)
982 "Count number of relevant items for a treeview node.
983 FEED gives the name of the feed or group. If ISVIRTUAL is non-nil
984 the feed is a virtual feed."
988 (cond ((string= feed "new")
989 (setq num-new (newsticker--stat-num-items-total 'new)))
990 ((string= feed "immortal")
991 (setq num-new (newsticker--stat-num-items-total 'immortal)))
992 ((string= feed "obsolete")
993 (setq num-new (newsticker--stat-num-items-total 'obsolete)))
994 ((string= feed "all")
995 (setq num-new (newsticker--stat-num-items-total))))
996 (setq num-new (newsticker--stat-num-items-for-group
997 (intern feed) 'new 'immortal))))
1000 (defun newsticker--treeview-tree-update-tag (w &optional recursive
1002 "Update tag for tree widget W.
1003 If RECURSIVE is non-nil recursively update parent widgets as
1004 well. Argument IGNORE is ignored. Note that this function, if
1005 called recursively, makes w invalid. You should keep w's nt-id in
1007 (let* ((parent (widget-get w :parent))
1008 (feed (or (widget-get w :nt-feed) (widget-get parent :nt-feed)))
1009 (vfeed (or (widget-get w :nt-vfeed) (widget-get parent :nt-vfeed)))
1010 (nt-id (or (widget-get w :nt-id) (widget-get parent :nt-id)))
1011 (num-new (newsticker--treeview-count-node-items (or feed vfeed)
1013 (tag (newsticker--treeview-tree-get-tag feed vfeed nt-id))
1014 (n (widget-get w :node)))
1017 (newsticker--treeview-tree-update-tag parent)))
1020 (widget-put n :tag tag))
1021 (widget-put w :num-new num-new)
1022 (widget-put w :tag tag)
1023 (when (marker-position (widget-get w :from))
1025 (notify (widget-get w :notify)))
1026 ;; FIXME: This moves point!!!!
1027 (with-current-buffer (newsticker--treeview-tree-buffer)
1028 (widget-value-set w (widget-value w)))
1031 (defun newsticker--treeview-tree-do-update-tags (widget)
1032 "Actually recursively update tags for WIDGET."
1034 (let ((children (widget-get widget :children)))
1035 (dolist (w children)
1036 (newsticker--treeview-tree-do-update-tags w))
1037 (newsticker--treeview-tree-update-tag widget))))
1039 (defun newsticker--treeview-tree-update-tags (&rest ignore)
1040 "Update all tags of all trees.
1041 Arguments IGNORE are ignored."
1042 (save-current-buffer
1043 (set-buffer (newsticker--treeview-tree-buffer))
1044 (let ((inhibit-read-only t))
1045 (newsticker--treeview-tree-do-update-tags
1046 newsticker--treeview-feed-tree)
1047 (newsticker--treeview-tree-do-update-tags
1048 newsticker--treeview-vfeed-tree))
1049 (tree-widget-set-theme "folder")))
1051 (defun newsticker--treeview-tree-update-highlight ()
1052 "Update highlight in tree buffer."
1053 (let ((pos (widget-get (newsticker--treeview-get-current-node) :from)))
1054 (unless (or (integerp pos) (and (markerp pos) (marker-position pos)))
1055 (setq pos (widget-get (widget-get
1056 (newsticker--treeview-get-current-node)
1058 (when (or (integerp pos) (and (markerp pos) (marker-position pos)))
1059 (with-current-buffer (newsticker--treeview-tree-buffer)
1061 (move-overlay newsticker--tree-selection-overlay
1062 (point-at-bol) (1+ (point-at-eol))
1064 (if (window-live-p (newsticker--treeview-tree-window))
1065 (set-window-point (newsticker--treeview-tree-window) pos)))))
1067 ;; ======================================================================
1069 ;; ======================================================================
1070 (defvar newsticker-treeview-tool-bar-map
1071 (if (featurep 'xemacs)
1073 (if (boundp 'tool-bar-map)
1074 (let ((tool-bar-map (make-sparse-keymap)))
1075 (tool-bar-add-item "newsticker/prev-feed"
1076 'newsticker-treeview-prev-feed
1077 'newsticker-treeview-prev-feed
1078 :help "Go to previous feed"
1079 ;;:enable '(newsticker-previous-feed-available-p) FIXME
1081 (tool-bar-add-item "newsticker/prev-item"
1082 'newsticker-treeview-prev-item
1083 'newsticker-treeview-prev-item
1084 :help "Go to previous item"
1085 ;;:enable '(newsticker-previous-item-available-p) FIXME
1087 (tool-bar-add-item "newsticker/next-item"
1088 'newsticker-treeview-next-item
1089 'newsticker-treeview-next-item
1091 :help "Go to next item"
1092 ;;:enable '(newsticker-next-item-available-p) FIXME
1094 (tool-bar-add-item "newsticker/next-feed"
1095 'newsticker-treeview-next-feed
1096 'newsticker-treeview-next-feed
1097 :help "Go to next feed"
1098 ;;:enable '(newsticker-next-feed-available-p) FIXME
1100 (tool-bar-add-item "newsticker/mark-immortal"
1101 'newsticker-treeview-toggle-item-immortal
1102 'newsticker-treeview-toggle-item-immortal
1103 :help "Toggle current item as immortal"
1104 ;;:enable '(newsticker-item-not-immortal-p) FIXME
1106 (tool-bar-add-item "newsticker/mark-read"
1107 'newsticker-treeview-mark-item-old
1108 'newsticker-treeview-mark-item-old
1109 :help "Mark current item as read"
1110 ;;:enable '(newsticker-item-not-old-p) FIXME
1112 (tool-bar-add-item "newsticker/get-all"
1113 'newsticker-get-all-news
1114 'newsticker-get-all-news
1115 :help "Get news for all feeds")
1116 (tool-bar-add-item "newsticker/update"
1117 'newsticker-treeview-update
1118 'newsticker-treeview-update
1119 :help "Update newsticker buffer")
1120 (tool-bar-add-item "newsticker/browse-url"
1121 'newsticker-browse-url
1122 'newsticker-browse-url
1123 :help "Browse URL for item at point")
1124 ;; standard icons / actions
1125 (define-key tool-bar-map [newsticker-sep-1]
1126 (list 'menu-item "--double-line"))
1127 (tool-bar-add-item "close"
1128 'newsticker-treeview-quit
1129 'newsticker-treeview-quit
1130 :help "Close newsticker")
1131 (tool-bar-add-item "preferences"
1132 'newsticker-customize
1133 'newsticker-customize
1134 :help "Customize newsticker")
1137 ;; ======================================================================
1139 ;; ======================================================================
1141 (defun newsticker-treeview-mouse-browse-url (event)
1142 "Call `browse-url' for the link of the item at which the EVENT occurred."
1145 (switch-to-buffer (window-buffer (posn-window (event-end event))))
1146 (let ((url (get-text-property (posn-point (event-end event))
1150 (if newsticker-automatically-mark-visited-items-as-old
1151 (newsticker-treeview-mark-item-old))))))
1153 (defun newsticker-treeview-browse-url ()
1154 "Call `browse-url' for the link of the item at point."
1156 (with-current-buffer (newsticker--treeview-list-buffer)
1157 (let ((url (get-text-property (point) :nt-link)))
1160 (if newsticker-automatically-mark-visited-items-as-old
1161 (newsticker-treeview-mark-item-old))))))
1163 (defun newsticker--treeview-buffer-init ()
1164 "Initialize all treeview buffers."
1165 (setq newsticker--treeview-buffers nil)
1166 (add-to-list 'newsticker--treeview-buffers
1167 (get-buffer-create "*Newsticker Tree*") t)
1168 (add-to-list 'newsticker--treeview-buffers
1169 (get-buffer-create "*Newsticker List*") t)
1170 (add-to-list 'newsticker--treeview-buffers
1171 (get-buffer-create "*Newsticker Item*") t)
1173 (unless newsticker--selection-overlay
1174 (with-current-buffer (newsticker--treeview-list-buffer)
1175 (setq newsticker--selection-overlay (make-overlay (point-min)
1177 (overlay-put newsticker--selection-overlay 'face
1178 'newsticker-treeview-selection-face)))
1179 (unless newsticker--tree-selection-overlay
1180 (with-current-buffer (newsticker--treeview-tree-buffer)
1181 (setq newsticker--tree-selection-overlay (make-overlay (point-min)
1183 (overlay-put newsticker--tree-selection-overlay 'face
1184 'newsticker-treeview-selection-face)))
1186 (newsticker--treeview-tree-update)
1187 (newsticker--treeview-list-update t)
1188 (newsticker--treeview-item-update))
1190 (defun newsticker-treeview-update ()
1191 "Update all treeview buffers and windows.
1192 Note: does not update the layout."
1194 (let ((cur-item (newsticker--treeview-get-selected-item)))
1195 (if (newsticker--group-manage-orphan-feeds)
1196 (newsticker--treeview-tree-update))
1197 (newsticker--treeview-list-update t)
1198 (newsticker--treeview-item-update)
1199 (newsticker--treeview-tree-update-tags)
1200 (cond (newsticker--treeview-current-feed
1201 (newsticker--treeview-list-items newsticker--treeview-current-feed))
1202 (newsticker--treeview-current-vfeed
1203 (newsticker--treeview-list-items-with-age
1204 (intern newsticker--treeview-current-vfeed))))
1205 (newsticker--treeview-tree-update-highlight)
1206 (newsticker--treeview-list-update-highlight)
1207 (let ((cur-feed (or newsticker--treeview-current-feed
1208 newsticker--treeview-current-vfeed)))
1209 (if (and cur-feed cur-item)
1210 (newsticker--treeview-list-select cur-item)))))
1212 (defun newsticker-treeview-quit ()
1213 "Quit newsticker treeview."
1215 (setq newsticker--sentinel-callback nil)
1216 (bury-buffer "*Newsticker Tree*")
1217 (bury-buffer "*Newsticker List*")
1218 (bury-buffer "*Newsticker Item*")
1219 (set-window-configuration newsticker--saved-window-config)
1220 (when newsticker--frame
1221 (if (frame-live-p newsticker--frame)
1222 (delete-frame newsticker--frame))
1223 (setq newsticker--frame nil))
1224 (newsticker-treeview-save))
1226 (defun newsticker-treeview-save ()
1227 "Save newsticker data including treeview settings."
1229 (let ((coding-system-for-write 'utf-8)
1230 (buf (find-file-noselect (concat newsticker-dir "/groups"))))
1232 (with-current-buffer buf
1233 (setq buffer-undo-list t)
1235 (insert ";; -*- coding: utf-8 -*-\n")
1236 (insert (prin1-to-string newsticker-groups))
1240 (defun newsticker--treeview-load ()
1241 "Load treeview settings."
1242 (let* ((coding-system-for-read 'utf-8)
1244 (or (and (file-exists-p newsticker-groups-filename)
1246 (format "Old newsticker groups (%s) file exists. Read it? "
1247 newsticker-groups-filename))
1248 newsticker-groups-filename)
1249 (concat newsticker-dir "/groups")))
1250 (buf (and (file-exists-p filename)
1251 (find-file-noselect filename))))
1252 (and (file-exists-p newsticker-groups-filename)
1253 (y-or-n-p (format "Delete old newsticker groups file? "))
1254 (delete-file newsticker-groups-filename))
1257 (goto-char (point-min))
1259 (setq newsticker-groups (read buf))
1261 (message "Error while reading newsticker groups file!")
1262 (setq newsticker-groups nil)))
1263 (kill-buffer buf))))
1266 (defun newsticker-treeview-scroll-item ()
1267 "Scroll current item."
1269 (save-selected-window
1270 (select-window (newsticker--treeview-item-window) t)
1273 (defun newsticker-treeview-show-item ()
1274 "Show current item."
1276 (newsticker--treeview-restore-layout)
1277 (newsticker--treeview-list-update-highlight)
1278 (with-current-buffer (newsticker--treeview-list-buffer)
1280 (let ((item (get-text-property (point) :nt-item))
1281 (feed (get-text-property (point) :nt-feed)))
1282 (newsticker--treeview-item-show item feed)))
1283 (newsticker--treeview-tree-update-tag
1284 (newsticker--treeview-get-current-node) t)
1285 (newsticker--treeview-tree-update-highlight))
1287 (defun newsticker-treeview-next-item ()
1288 "Move to next item."
1290 (newsticker--treeview-restore-layout)
1291 (save-current-buffer
1292 (set-buffer (newsticker--treeview-list-buffer))
1293 (if (newsticker--treeview-list-highlight-start)
1297 (newsticker-treeview-show-item))
1299 (defun newsticker-treeview-prev-item ()
1300 "Move to previous item."
1302 (newsticker--treeview-restore-layout)
1303 (save-current-buffer
1304 (set-buffer (newsticker--treeview-list-buffer))
1306 (newsticker-treeview-show-item))
1308 (defun newsticker-treeview-next-new-or-immortal-item (&optional
1311 "Move to next new or immortal item.
1312 Will move to next feed until an item is found. Will not move if
1313 optional argument CURRENT-ITEM-COUNTS is t and current item is
1314 new or immortal. Will not move from virtual to ordinary feed
1315 tree or vice versa if optional argument DONT-WRAP-TREES is non-nil."
1317 (newsticker--treeview-restore-layout)
1318 (newsticker--treeview-list-clear-highlight)
1319 (unless (catch 'found
1320 (let ((move (not current-item-counts)))
1322 (save-current-buffer
1323 (set-buffer (newsticker--treeview-list-buffer))
1324 (when move (forward-line 1)
1327 (throw 'found nil))))
1328 (when (memq (newsticker--age
1329 (newsticker--treeview-get-selected-item))
1331 (newsticker-treeview-show-item)
1334 (let ((wrap-trees (not dont-wrap-trees)))
1335 (when (or (newsticker-treeview-next-feed t)
1336 (and wrap-trees (newsticker--treeview-first-feed)))
1337 (newsticker-treeview-next-new-or-immortal-item t t)))))
1339 (defun newsticker-treeview-prev-new-or-immortal-item ()
1340 "Move to previous new or immortal item.
1341 Will move to previous feed until an item is found."
1343 (newsticker--treeview-restore-layout)
1344 (newsticker--treeview-list-clear-highlight)
1345 (unless (catch 'found
1347 (save-current-buffer
1348 (set-buffer (newsticker--treeview-list-buffer))
1352 (when (memq (newsticker--age
1353 (newsticker--treeview-get-selected-item))
1355 (newsticker-treeview-show-item)
1358 (throw 'found nil))))
1359 (when (newsticker-treeview-prev-feed t)
1360 (set-buffer (newsticker--treeview-list-buffer))
1361 (goto-char (point-max))
1362 (newsticker-treeview-prev-new-or-immortal-item))))
1364 (defun newsticker--treeview-get-selected-item ()
1365 "Return item that is currently selected in list buffer."
1366 (with-current-buffer (newsticker--treeview-list-buffer)
1368 (get-text-property (point) :nt-item)))
1370 (defun newsticker-treeview-mark-item-old (&optional dont-proceed)
1371 "Mark current item as old unless it is obsolete.
1372 Move to next item unless DONT-PROCEED is non-nil."
1374 (let ((item (newsticker--treeview-get-selected-item)))
1375 (unless (eq (newsticker--age item) 'obsolete)
1376 (newsticker--treeview-mark-item item 'old)))
1377 (unless dont-proceed
1378 (newsticker-treeview-next-item)))
1380 (defun newsticker-treeview-toggle-item-immortal ()
1381 "Toggle immortality of current item."
1383 (let* ((item (newsticker--treeview-get-selected-item))
1384 (new-age (if (eq (newsticker--age item) 'immortal)
1387 (newsticker--treeview-mark-item item new-age)
1388 (newsticker-treeview-next-item)))
1390 (defun newsticker--treeview-mark-item (item new-age)
1391 "Mark ITEM with NEW-AGE."
1393 (setcar (nthcdr 4 item) new-age)
1394 ;; clean up ticker FIXME
1396 (newsticker--cache-save-feed
1397 (newsticker--cache-get-feed (intern newsticker--treeview-current-feed)))
1398 (newsticker--treeview-tree-do-update-tags newsticker--treeview-vfeed-tree))
1400 (defun newsticker-treeview-mark-list-items-old ()
1401 "Mark all listed items as old."
1403 (let ((current-feed (or newsticker--treeview-current-feed
1404 newsticker--treeview-current-vfeed)))
1405 (with-current-buffer (newsticker--treeview-list-buffer)
1406 (goto-char (point-min))
1408 (let ((item (get-text-property (point) :nt-item)))
1409 (unless (memq (newsticker--age item) '(immortal obsolete))
1410 (newsticker--treeview-mark-item item 'old)))
1412 (newsticker--treeview-tree-update-tags)
1414 (newsticker-treeview-jump current-feed))))
1416 (defun newsticker-treeview-save-item ()
1417 "Save current item."
1419 (newsticker-save-item (or newsticker--treeview-current-feed
1420 newsticker--treeview-current-vfeed)
1421 (newsticker--treeview-get-selected-item)))
1423 (defun newsticker-treeview-browse-url-item ()
1424 "Convert current item to HTML and call `browse-url' on result."
1426 (newsticker-browse-url-item (or newsticker--treeview-current-feed
1427 newsticker--treeview-current-vfeed)
1428 (newsticker--treeview-get-selected-item)))
1430 (defun newsticker--treeview-set-current-node (node)
1431 "Make NODE the current node."
1432 (with-current-buffer (newsticker--treeview-tree-buffer)
1433 (setq newsticker--treeview-current-node-id
1434 (widget-get node :nt-id))
1435 (setq newsticker--treeview-current-feed (widget-get node :nt-feed))
1436 (setq newsticker--treeview-current-vfeed (widget-get node :nt-vfeed))
1437 (newsticker--treeview-tree-update-highlight)))
1439 (defun newsticker--treeview-get-first-child (node)
1440 "Get first child of NODE."
1441 (let ((children (widget-get node :children)))
1446 (defun newsticker--treeview-get-second-child (node)
1447 "Get scond child of NODE."
1448 (let ((children (widget-get node :children)))
1450 (car (cdr children))
1453 (defun newsticker--treeview-get-last-child (node)
1454 "Get last child of NODE."
1455 ;;(message "newsticker--treeview-get-last-child %s" (widget-get node :tag))
1456 (let ((children (widget-get node :children)))
1458 (car (reverse children))
1461 (defun newsticker--treeview-get-feed-vfeed (node)
1462 "Get (virtual) feed of NODE."
1463 (or (widget-get node :nt-feed) (widget-get node :nt-vfeed)))
1465 (defun newsticker--treeview-get-next-sibling (node)
1466 "Get next sibling of NODE."
1467 (let ((parent (widget-get node :parent)))
1469 (let ((children (widget-get parent :children)))
1471 (if (newsticker--treeview-nodes-eq (car children) node)
1472 (throw 'found (car (cdr children))))
1473 (setq children (cdr children)))))))
1475 (defun newsticker--treeview-get-prev-sibling (node)
1476 "Get previous sibling of NODE."
1477 (let ((parent (widget-get node :parent)))
1479 (let ((children (widget-get parent :children))
1482 (if (and (newsticker--treeview-nodes-eq (car children) node)
1483 (widget-get prev :nt-id))
1484 (throw 'found prev))
1485 (setq prev (car children))
1486 (setq children (cdr children)))))))
1488 (defun newsticker--treeview-get-next-uncle (node)
1489 "Get next uncle of NODE, i.e. parent's next sibling."
1490 (let* ((parent (widget-get node :parent))
1491 (grand-parent (widget-get parent :parent)))
1493 (let ((uncles (widget-get grand-parent :children)))
1495 (if (newsticker--treeview-nodes-eq (car uncles) parent)
1496 (throw 'found (car (cdr uncles))))
1497 (setq uncles (cdr uncles)))))))
1499 (defun newsticker--treeview-get-prev-uncle (node)
1500 "Get previous uncle of NODE, i.e. parent's previous sibling."
1501 (let* ((parent (widget-get node :parent))
1502 (grand-parent (widget-get parent :parent)))
1504 (let ((uncles (widget-get grand-parent :children))
1507 (if (newsticker--treeview-nodes-eq (car uncles) parent)
1508 (throw 'found prev))
1509 (setq prev (car uncles))
1510 (setq uncles (cdr uncles)))))))
1512 (defun newsticker--treeview-get-other-tree ()
1514 (if (and (newsticker--treeview-get-current-node)
1515 (widget-get (newsticker--treeview-get-current-node) :nt-feed))
1516 newsticker--treeview-vfeed-tree
1517 newsticker--treeview-feed-tree))
1519 (defun newsticker--treeview-activate-node (node &optional backward)
1521 If NODE is a tree widget the node's first subnode is activated.
1522 If BACKWARD is non-nil the last subnode of the previous sibling
1524 (newsticker--treeview-set-current-node node)
1525 (save-current-buffer
1526 (set-buffer (newsticker--treeview-tree-buffer))
1527 (cond ((eq (widget-type node) 'tree-widget)
1528 (unless (widget-get node :open)
1529 (widget-put node :open nil)
1530 (widget-apply-action node))
1531 (newsticker--treeview-activate-node
1533 (newsticker--treeview-get-last-child node)
1534 (newsticker--treeview-get-second-child node))))
1536 (widget-apply-action node)))))
1538 (defun newsticker--treeview-first-feed ()
1539 "Jump to the depth-first feed in the `newsticker-groups' tree."
1540 (newsticker-treeview-jump
1541 (car (reverse (newsticker--group-get-feeds newsticker-groups t)))))
1543 (defun newsticker-treeview-next-feed (&optional stay-in-tree)
1545 Optional argument STAY-IN-TREE prevents moving from real feed
1546 tree to virtual feed tree or vice versa.
1547 Return t if a new feed was activated, nil otherwise."
1549 (newsticker--treeview-restore-layout)
1550 (let ((cur (newsticker--treeview-get-current-node))
1554 (or (newsticker--treeview-get-next-sibling cur)
1555 (newsticker--treeview-get-next-uncle cur)
1556 (and (not stay-in-tree)
1557 (newsticker--treeview-get-other-tree)))
1558 (car (widget-get newsticker--treeview-feed-tree :children))))
1561 (newsticker--treeview-activate-node new)
1562 (newsticker--treeview-tree-update-highlight)
1566 (defun newsticker-treeview-prev-feed (&optional stay-in-tree)
1567 "Move to previous feed.
1568 Optional argument STAY-IN-TREE prevents moving from real feed
1569 tree to virtual feed tree or vice versa.
1570 Return t if a new feed was activated, nil otherwise."
1572 (newsticker--treeview-restore-layout)
1573 (let ((cur (newsticker--treeview-get-current-node))
1579 (or (newsticker--treeview-get-prev-sibling cur)
1580 (newsticker--treeview-get-prev-uncle cur)
1581 (and (not stay-in-tree)
1582 (newsticker--treeview-get-other-tree)))
1583 (car (widget-get newsticker--treeview-feed-tree :children))))
1586 (newsticker--treeview-activate-node new t)
1587 (newsticker--treeview-tree-update-highlight)
1592 (defun newsticker-treeview-next-page ()
1593 "Scroll item buffer."
1595 (save-selected-window
1596 (select-window (newsticker--treeview-item-window) t)
1600 (goto-char (point-min))))))
1603 (defun newsticker--treeview-unfold-node (feed-name)
1604 "Recursively show subtree above the node that represents FEED-NAME."
1605 (let ((node (newsticker--treeview-get-node-of-feed feed-name)))
1607 (let* ((group-name (or (car (newsticker--group-find-group-for-feed
1609 (newsticker--group-get-parent-group
1611 (newsticker--treeview-unfold-node group-name))
1612 (setq node (newsticker--treeview-get-node-of-feed feed-name)))
1614 (with-current-buffer (newsticker--treeview-tree-buffer)
1615 (widget-put node :nt-selected t)
1616 (widget-apply-action node)
1617 (newsticker--treeview-set-current-node node)))))
1619 (defun newsticker-treeview-jump (feed-name)
1620 "Jump to feed FEED-NAME in newsticker treeview."
1622 (list (let ((completion-ignore-case t))
1625 (append '("new" "obsolete" "immortal" "all")
1626 (mapcar 'car (append newsticker-url-list
1627 newsticker-url-list-defaults)))
1629 (newsticker--treeview-unfold-node feed-name))
1631 ;; ======================================================================
1633 ;; ======================================================================
1634 (defun newsticker--group-do-find-group-for-feed (feed-name node)
1635 "Recursively find FEED-NAME in NODE."
1636 (if (member feed-name (cdr node))
1640 (newsticker--group-do-find-group-for-feed feed-name n)))
1643 (defun newsticker--group-find-group-for-feed (feed-name)
1644 "Find group containing FEED-NAME."
1646 (newsticker--group-do-find-group-for-feed feed-name
1650 (defun newsticker--group-do-get-group (name node)
1651 "Recursively find group with NAME below NODE."
1652 (if (string= name (car node))
1656 (newsticker--group-do-get-group name n)))
1659 (defun newsticker--group-get-group (name)
1660 "Find group with NAME."
1664 (newsticker--group-do-get-group name n)))
1668 (defun newsticker--group-do-get-parent-group (name node parent)
1669 "Recursively find parent group for NAME from NODE which is a child of PARENT."
1670 (if (string= name (car node))
1671 (throw 'found parent)
1674 (newsticker--group-do-get-parent-group name n (car node))))
1677 (defun newsticker--group-get-parent-group (name)
1678 "Find parent group for group named NAME."
1682 (newsticker--group-do-get-parent-group
1683 name n (car newsticker-groups))))
1688 (defun newsticker--group-get-subgroups (group &optional recursive)
1689 "Return list of subgroups for GROUP.
1690 If RECURSIVE is non-nil recursively get subgroups and return a nested list."
1694 (setq result (cons (car n) result))
1695 (let ((subgroups (newsticker--group-get-subgroups n recursive)))
1697 (setq result (append subgroups result))))))
1701 (defun newsticker--group-all-groups ()
1702 "Return nested list of all groups."
1703 (newsticker--group-get-subgroups newsticker-groups t))
1705 (defun newsticker--group-get-feeds (group &optional recursive)
1706 "Return list of all feeds in GROUP.
1707 If RECURSIVE is non-nil recursively get feeds of subgroups and
1708 return a nested list."
1712 (setq result (cons n result))
1714 (let ((subfeeds (newsticker--group-get-feeds n t)))
1716 (setq result (append subfeeds result)))))))
1720 (defun newsticker-group-add-group (name parent)
1721 "Add group NAME to group PARENT."
1723 (list (read-string "Group Name: ")
1724 (let ((completion-ignore-case t))
1725 (completing-read "Parent Group: " (newsticker--group-all-groups)
1727 (if (newsticker--group-get-group name)
1728 (error "Group %s exists already" name))
1729 (let ((p (if (and parent (not (string= parent "")))
1730 (newsticker--group-get-group parent)
1731 newsticker-groups)))
1733 (error "Parent %s does not exist" parent))
1734 (setcdr p (cons (list name) (cdr p))))
1735 (newsticker--treeview-tree-update))
1737 (defun newsticker-group-move-feed (name group-name &optional no-update)
1738 "Move feed NAME to group GROUP-NAME.
1739 Update teeview afterwards unless NO-UPDATE is non-nil."
1741 (let ((completion-ignore-case t))
1742 (list (completing-read "Feed Name: "
1743 (mapcar 'car newsticker-url-list)
1744 nil t newsticker--treeview-current-feed)
1745 (completing-read "Group Name: " (newsticker--group-all-groups)
1747 (let ((group (if (and group-name (not (string= group-name "")))
1748 (newsticker--group-get-group group-name)
1749 newsticker-groups)))
1751 (error "Group %s does not exist" group-name))
1752 (while (let ((old-group
1753 (newsticker--group-find-group-for-feed name)))
1755 (delete name old-group))
1757 (setcdr group (cons name (cdr group)))
1759 (newsticker--treeview-tree-update)
1760 (newsticker-treeview-update))))
1762 (defun newsticker-group-delete-group (name)
1763 "Remove group NAME."
1765 (let ((completion-ignore-case t))
1766 (list (completing-read "Group Name: " (newsticker--group-all-groups)
1768 (let* ((g (newsticker--group-get-group name))
1769 (p (or (newsticker--group-get-parent-group name)
1770 newsticker-groups)))
1772 (error "Group %s does not exist" name))
1774 (newsticker--treeview-tree-update))
1776 (defun newsticker--count-groups (group)
1777 "Recursively count number of subgroups of GROUP."
1781 (setq result (+ result (newsticker--count-groups g)))))
1785 (defun newsticker--count-grouped-feeds (group)
1786 "Recursively count number of feeds in GROUP and its subgroups."
1790 (setq result (+ result (newsticker--count-grouped-feeds g)))
1791 (setq result (1+ result))))
1795 (defun newsticker--group-remove-obsolete-feeds (group)
1796 "Recursively remove obsolete feeds from GROUP."
1798 (urls (append newsticker-url-list newsticker-url-list-defaults)))
1802 (newsticker--group-remove-obsolete-feeds g)))
1804 (setq result (cons sub-groups result))))
1806 (setq result (cons g result)))))
1809 (cons (car group) (reverse result))
1812 (defun newsticker--group-manage-orphan-feeds ()
1813 "Put unmanaged feeds into `newsticker-groups'.
1814 Remove obsolete feeds as well.
1815 Return t if groups have changed, nil otherwise."
1816 (unless newsticker-groups
1817 (setq newsticker-groups '("Feeds")))
1818 (let ((new-feed nil)
1819 (grouped-feeds (newsticker--count-grouped-feeds newsticker-groups)))
1821 (unless (newsticker--group-find-group-for-feed (car f))
1823 (newsticker-group-move-feed (car f) nil t)))
1824 (append newsticker-url-list-defaults newsticker-url-list))
1825 (setq newsticker-groups
1826 (newsticker--group-remove-obsolete-feeds newsticker-groups))
1828 (not (= grouped-feeds
1829 (newsticker--count-grouped-feeds newsticker-groups))))))
1831 ;; ======================================================================
1833 ;; ======================================================================
1834 (defun newsticker--treeview-create-groups-menu (group-list
1836 "Create menu for GROUP-LIST omitting EXCLUDED-GROUP."
1837 (let ((menu (make-sparse-keymap (if (stringp (car group-list))
1839 "Move to group..."))))
1842 (let ((title (if (stringp (car g))
1844 "Move to group...")))
1845 (unless (eq g excluded-group)
1846 (define-key menu (vector (intern title))
1847 (list 'menu-item title
1848 (newsticker--treeview-create-groups-menu
1849 (cdr g) excluded-group)))))))
1850 (reverse group-list))
1853 (defun newsticker--treeview-create-tree-menu (feed-name)
1854 "Create tree menu for FEED-NAME."
1855 (let ((menu (make-sparse-keymap feed-name)))
1856 (define-key menu [newsticker-treeview-mark-list-items-old]
1857 (list 'menu-item "Mark all items old"
1858 'newsticker-treeview-mark-list-items-old))
1859 (define-key menu [move]
1860 (list 'menu-item "Move to group..."
1861 (newsticker--treeview-create-groups-menu
1863 (newsticker--group-get-group feed-name))))
1866 (defvar newsticker-treeview-list-menu
1867 (let ((menu (make-sparse-keymap "Newsticker List")))
1868 (define-key menu [newsticker-treeview-mark-list-items-old]
1869 (list 'menu-item "Mark all items old"
1870 'newsticker-treeview-mark-list-items-old))
1871 (define-key menu [newsticker-treeview-mark-item-old]
1872 (list 'menu-item "Mark current item old"
1873 'newsticker-treeview-mark-item-old))
1874 (define-key menu [newsticker-treeview-toggle-item-immortal]
1875 (list 'menu-item "Mark current item immortal (toggle)"
1876 'newsticker-treeview-toggle-item-immortal))
1877 (define-key menu [newsticker-treeview-get-news]
1878 (list 'menu-item "Get news for current feed"
1879 'newsticker-treeview-get-news))
1881 "Map for newsticker list menu.")
1883 (defvar newsticker-treeview-item-menu
1884 (let ((menu (make-sparse-keymap "Newsticker Item")))
1885 (define-key menu [newsticker-treeview-mark-item-old]
1886 (list 'menu-item "Mark current item old"
1887 'newsticker-treeview-mark-item-old))
1888 (define-key menu [newsticker-treeview-toggle-item-immortal]
1889 (list 'menu-item "Mark current item immortal (toggle)"
1890 'newsticker-treeview-toggle-item-immortal))
1891 (define-key menu [newsticker-treeview-get-news]
1892 (list 'menu-item "Get news for current feed"
1893 'newsticker-treeview-get-news))
1895 "Map for newsticker item menu.")
1897 (defvar newsticker-treeview-mode-map
1898 (let ((map (make-sparse-keymap 'newsticker-treeview-mode-map)))
1899 (define-key map " " 'newsticker-treeview-next-page)
1900 (define-key map "a" 'newsticker-add-url)
1901 (define-key map "b" 'newsticker-treeview-browse-url-item)
1902 (define-key map "F" 'newsticker-treeview-prev-feed)
1903 (define-key map "f" 'newsticker-treeview-next-feed)
1904 (define-key map "g" 'newsticker-treeview-get-news)
1905 (define-key map "G" 'newsticker-get-all-news)
1906 (define-key map "i" 'newsticker-treeview-toggle-item-immortal)
1907 (define-key map "j" 'newsticker-treeview-jump)
1908 (define-key map "n" 'newsticker-treeview-next-item)
1909 (define-key map "N" 'newsticker-treeview-next-new-or-immortal-item)
1910 (define-key map "O" 'newsticker-treeview-mark-list-items-old)
1911 (define-key map "o" 'newsticker-treeview-mark-item-old)
1912 (define-key map "p" 'newsticker-treeview-prev-item)
1913 (define-key map "P" 'newsticker-treeview-prev-new-or-immortal-item)
1914 (define-key map "q" 'newsticker-treeview-quit)
1915 (define-key map "S" 'newsticker-treeview-save-item)
1916 (define-key map "s" 'newsticker-treeview-save)
1917 (define-key map "u" 'newsticker-treeview-update)
1918 (define-key map "v" 'newsticker-treeview-browse-url)
1919 ;;(define-key map "\n" 'newsticker-treeview-scroll-item)
1920 ;;(define-key map "\C-m" 'newsticker-treeview-scroll-item)
1921 (define-key map "\M-m" 'newsticker-group-move-feed)
1922 (define-key map "\M-a" 'newsticker-group-add-group)
1924 "Mode map for newsticker treeview.")
1926 (defun newsticker-treeview-mode ()
1927 "Major mode for Newsticker Treeview.
1928 \\{newsticker-treeview-mode-map}"
1929 (kill-all-local-variables)
1930 (use-local-map newsticker-treeview-mode-map)
1931 (setq major-mode 'newsticker-treeview-mode)
1932 (setq mode-name "Newsticker TV")
1933 (if (boundp 'tool-bar-map)
1934 (set (make-local-variable 'tool-bar-map)
1935 newsticker-treeview-tool-bar-map))
1936 (setq buffer-read-only t
1939 (define-derived-mode newsticker-treeview-list-mode newsticker-treeview-mode
1941 (let ((header (concat
1942 (propertize " " 'display '(space :align-to 0))
1943 (newsticker-treeview-list-make-sort-button "*" 'sort-by-age)
1944 (propertize " " 'display '(space :align-to 2))
1945 (if newsticker--treeview-list-show-feed
1947 (propertize " " 'display '(space :align-to 12)))
1949 (newsticker-treeview-list-make-sort-button "Date"
1951 (if newsticker--treeview-list-show-feed
1952 (propertize " " 'display '(space :align-to 28))
1953 (propertize " " 'display '(space :align-to 18)))
1954 (newsticker-treeview-list-make-sort-button "Title"
1956 (setq header-line-format header))
1957 (define-key newsticker-treeview-list-mode-map [down-mouse-3]
1958 newsticker-treeview-list-menu))
1960 (define-derived-mode newsticker-treeview-item-mode newsticker-treeview-mode
1962 (define-key newsticker-treeview-item-mode-map [down-mouse-3]
1963 newsticker-treeview-item-menu))
1965 (defun newsticker-treeview-tree-click (event)
1966 "Handle click EVENT on a tag in the newsticker tree."
1968 (newsticker--treeview-restore-layout)
1970 (switch-to-buffer (window-buffer (posn-window (event-end event))))
1971 (newsticker-treeview-tree-do-click (posn-point (event-end event)))))
1973 (defun newsticker-treeview-tree-do-click (&optional pos event)
1974 "Actually handle click event.
1975 POS gives the position where EVENT occurred."
1977 (let* ((pos (or pos (point)))
1978 (nt-id (get-text-property pos :nt-id))
1979 (item (get-text-property pos :nt-item)))
1981 ;; click in list buffer
1982 (newsticker-treeview-show-item))
1984 ;; click in tree buffer
1985 (let ((w (newsticker--treeview-get-node nt-id)))
1987 (newsticker--treeview-tree-update-tag w t t)
1988 (setq w (newsticker--treeview-get-node nt-id))
1989 (widget-put w :nt-selected t)
1990 (widget-apply w :action event)
1991 (newsticker--treeview-set-current-node w))))))
1992 (newsticker--treeview-tree-update-highlight))
1994 (defun newsticker--treeview-restore-layout ()
1995 "Restore treeview buffers."
1998 (let ((win (nth i newsticker--treeview-windows))
1999 (buf (nth i newsticker--treeview-buffers)))
2000 (unless (window-live-p win)
2001 (newsticker--treeview-window-init)
2002 (newsticker--treeview-buffer-init)
2004 (unless (eq (window-buffer win) buf)
2005 (set-window-buffer win buf t))))))
2007 (defun newsticker--treeview-frame-init ()
2008 "Initialize treeview frame."
2009 (when newsticker-treeview-own-frame
2010 (unless (and newsticker--frame (frame-live-p newsticker--frame))
2011 (setq newsticker--frame (make-frame '((name . "Newsticker")))))
2012 (select-frame-set-input-focus newsticker--frame)
2013 (raise-frame newsticker--frame)))
2015 (defun newsticker--treeview-window-init ()
2016 "Initialize treeview windows."
2017 (setq newsticker--saved-window-config (current-window-configuration))
2018 (setq newsticker--treeview-windows nil)
2019 (setq newsticker--treeview-buffers nil)
2020 (delete-other-windows)
2021 (split-window-right newsticker-treeview-treewindow-width)
2022 (add-to-list 'newsticker--treeview-windows (selected-window) t)
2024 (split-window-below newsticker-treeview-listwindow-height)
2025 (add-to-list 'newsticker--treeview-windows (selected-window) t)
2027 (add-to-list 'newsticker--treeview-windows (selected-window) t)
2031 (defun newsticker-treeview ()
2032 "Start newsticker treeview."
2034 (newsticker--treeview-load)
2035 (setq newsticker--sentinel-callback 'newsticker-treeview-update)
2036 (newsticker--treeview-frame-init)
2037 (newsticker--treeview-window-init)
2038 (newsticker--treeview-buffer-init)
2039 (if (newsticker--group-manage-orphan-feeds)
2040 (newsticker--treeview-tree-update))
2041 (newsticker--treeview-set-current-node newsticker--treeview-feed-tree)
2042 (newsticker-start t) ;; will start only if not running
2043 (newsticker-treeview-update)
2044 (newsticker--treeview-item-show-text
2046 "Welcome to newsticker!"))
2048 (defun newsticker-treeview-get-news ()
2049 "Get news for current feed."
2051 (when newsticker--treeview-current-feed
2052 (newsticker-get-news newsticker--treeview-current-feed)))
2054 (provide 'newst-treeview)
2056 ;;; newst-treeview.el ends here