aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorUlf Jasper2011-05-13 21:35:36 +0200
committerUlf Jasper2011-05-13 21:35:36 +0200
commitc21edd3404252955dae90d2e2e1d0d412e39c39b (patch)
tree1ff6b2d9898a6b08b9913d121c709a9346a321fc /lisp
parent8497a2977ce9c67fd64b6775b8f52a4b66d40326 (diff)
parent42c7e61e8832e02ce977b1f7772a0aa9c45985aa (diff)
downloademacs-c21edd3404252955dae90d2e2e1d0d412e39c39b.tar.gz
emacs-c21edd3404252955dae90d2e2e1d0d412e39c39b.zip
newsticker: Moved icons to etc/newsticker/images
lisp/ChangeLog: 2011-05-13 Ulf Jasper <ulf.jasper@web.de> * net/newst-treeview.el (newsticker-treeview-face): Changed default family from helvetica to sans. (newsticker-treeview-tool-bar-map): Moved tool-bar icons to etc/images/newsticker. * net/newst-reader.el (newsticker-feed-face): Changed default family from helvetica to sans. * net/newst-plainview.el (newsticker-new-item-face) (newsticker-old-item-face, newsticker-immortal-item-face) (newsticker-obsolete-item-face, newsticker-date-face) (newsticker-statistics-face): Changed default family from helvetica to sans. (newsticker--plainview-tool-bar-map): Moved tool-bar icons to etc/images/newsticker. * net/newst-backend.el (newsticker--do-run-auto-mark-filter), (newsticker--process-auto-mark-filter-match): : Tell user about auto-marking. etc/ChangeLog: 2011-05-13 Ulf Jasper <ulf.jasper@web.de> * images/newsticker: Added. * images/newsticker/browse-url.xpm: Added. * images/newsticker/get-all.xpm: Added. * images/newsticker/mark-immortal.xpm: Added. * images/newsticker/mark-read.xpm: Added. * images/newsticker/narrow.xpm: Added. * images/newsticker/next-feed.xpm: Added. * images/newsticker/next-item.xpm: Added. * images/newsticker/prev-feed.xpm: Added. * images/newsticker/prev-item.xpm: Added. * images/newsticker/update.xpm: Added.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog22
-rw-r--r--lisp/net/newst-backend.el25
-rw-r--r--lisp/net/newst-plainview.el136
-rw-r--r--lisp/net/newst-reader.el866
-rw-r--r--lisp/net/newst-treeview.el130
5 files changed, 155 insertions, 1024 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a38a079f045..997092d939c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,25 @@
12011-05-13 Ulf Jasper <ulf.jasper@web.de>
2
3 * net/newst-treeview.el (newsticker-treeview-face): Changed default
4 family from helvetica to sans.
5 (newsticker-treeview-tool-bar-map): Moved tool-bar icons to
6 etc/images/newsticker.
7
8 * net/newst-reader.el (newsticker-feed-face): Changed default
9 family from helvetica to sans.
10
11 * net/newst-plainview.el (newsticker-new-item-face)
12 (newsticker-old-item-face, newsticker-immortal-item-face)
13 (newsticker-obsolete-item-face, newsticker-date-face)
14 (newsticker-statistics-face): Changed default family from
15 helvetica to sans.
16 (newsticker--plainview-tool-bar-map): Moved tool-bar icons to
17 etc/images/newsticker.
18
19 * net/newst-backend.el (newsticker--do-run-auto-mark-filter),
20 (newsticker--process-auto-mark-filter-match): : Tell user about
21 auto-marking.
22
12011-05-13 Didier Verna <didier@xemacs.org> 232011-05-13 Didier Verna <didier@xemacs.org>
2 24
3 Common Lisp indentation improvements on defmethod and lambda-lists. 25 Common Lisp indentation improvements on defmethod and lambda-lists.
diff --git a/lisp/net/newst-backend.el b/lisp/net/newst-backend.el
index 039d709770e..fca36c70f2d 100644
--- a/lisp/net/newst-backend.el
+++ b/lisp/net/newst-backend.el
@@ -6,7 +6,7 @@
6;; Filename: newst-backend.el 6;; Filename: newst-backend.el
7;; URL: http://www.nongnu.org/newsticker 7;; URL: http://www.nongnu.org/newsticker
8;; Keywords: News, RSS, Atom 8;; Keywords: News, RSS, Atom
9;; Time-stamp: "6. Dezember 2009, 19:15:32 (ulf)" 9;; Time-stamp: "13. Mai 2011, 20:47:05 (ulf)"
10;; Package: newsticker 10;; Package: newsticker
11 11
12;; ====================================================================== 12;; ======================================================================
@@ -2264,23 +2264,30 @@ for an entry that matches FEED and ITEM."
2264 "Actually compare ITEM against the pattern-LIST. 2264 "Actually compare ITEM against the pattern-LIST.
2265LIST must be an element of `newsticker-auto-mark-filter-list'." 2265LIST must be an element of `newsticker-auto-mark-filter-list'."
2266 (mapc (lambda (pattern) 2266 (mapc (lambda (pattern)
2267 (let ((age (nth 0 pattern)) 2267 (let ((place (nth 1 pattern))
2268 (place (nth 1 pattern))
2269 (regexp (nth 2 pattern)) 2268 (regexp (nth 2 pattern))
2270 (title (newsticker--title item)) 2269 (title (newsticker--title item))
2271 (desc (newsticker--desc item))) 2270 (desc (newsticker--desc item)))
2272 (when (or (eq place 'title) (eq place 'all)) 2271 (when (or (eq place 'title) (eq place 'all))
2273 (when (and title (string-match regexp title)) 2272 (when (and title (string-match regexp title))
2274 (newsticker--debug-msg "Auto-marking as %s: `%s'" 2273 (newsticker--process-auto-mark-filter-match item pattern)))
2275 age (newsticker--title item))
2276 (setcar (nthcdr 4 item) age)))
2277 (when (or (eq place 'description) (eq place 'all)) 2274 (when (or (eq place 'description) (eq place 'all))
2278 (when (and desc (string-match regexp desc)) 2275 (when (and desc (string-match regexp desc))
2279 (newsticker--debug-msg "Auto-marking as %s: `%s'" 2276 (newsticker--process-auto-mark-filter-match item pattern)))))
2280 age (newsticker--title item))
2281 (setcar (nthcdr 4 item) age)))))
2282 list)) 2277 list))
2283 2278
2279(defun newsticker--process-auto-mark-filter-match (item pattern)
2280 "Process ITEM that matches an auto-mark-filter PATTERN."
2281 (let ((age (nth 0 pattern))
2282 (place (nth 1 pattern))
2283 (regexp (nth 2 pattern)))
2284 (newsticker--debug-msg "Auto-mark-filter %s matches `%s'"
2285 pattern (newsticker--title item))
2286 (setcar (nthcdr 4 item) age)
2287 (nconc (newsticker--extra item)
2288 (list (list 'newsticker-auto-mark nil
2289 (format "age=%s, title/desc=%s, regexp=%s"
2290 age place regexp))))))
2284 2291
2285;; ====================================================================== 2292;; ======================================================================
2286;;; Hook samples 2293;;; Hook samples
diff --git a/lisp/net/newst-plainview.el b/lisp/net/newst-plainview.el
index cd662cb1784..d1b042cad66 100644
--- a/lisp/net/newst-plainview.el
+++ b/lisp/net/newst-plainview.el
@@ -5,7 +5,7 @@
5;; Author: Ulf Jasper <ulf.jasper@web.de> 5;; Author: Ulf Jasper <ulf.jasper@web.de>
6;; Filename: newst-plainview.el 6;; Filename: newst-plainview.el
7;; URL: http://www.nongnu.org/newsticker 7;; URL: http://www.nongnu.org/newsticker
8;; Time-stamp: "6. Dezember 2009, 19:17:02 (ulf)" 8;; Time-stamp: "13. Mai 2011, 19:28:34 (ulf)"
9;; Package: newsticker 9;; Package: newsticker
10 10
11;; ====================================================================== 11;; ======================================================================
@@ -157,49 +157,49 @@ The following printf-like specifiers can be used:
157 157
158(defface newsticker-new-item-face 158(defface newsticker-new-item-face
159 '((((class color) (background dark)) 159 '((((class color) (background dark))
160 (:family "helvetica" :bold t)) 160 (:family "sans" :bold t))
161 (((class color) (background light)) 161 (((class color) (background light))
162 (:family "helvetica" :bold t))) 162 (:family "sans" :bold t)))
163 "Face for new news items." 163 "Face for new news items."
164 :group 'newsticker-faces) 164 :group 'newsticker-faces)
165 165
166(defface newsticker-old-item-face 166(defface newsticker-old-item-face
167 '((((class color) (background dark)) 167 '((((class color) (background dark))
168 (:family "helvetica" :bold t :foreground "orange3")) 168 (:family "sans" :bold t :foreground "orange3"))
169 (((class color) (background light)) 169 (((class color) (background light))
170 (:family "helvetica" :bold t :foreground "red4"))) 170 (:family "sans" :bold t :foreground "red4")))
171 "Face for old news items." 171 "Face for old news items."
172 :group 'newsticker-faces) 172 :group 'newsticker-faces)
173 173
174(defface newsticker-immortal-item-face 174(defface newsticker-immortal-item-face
175 '((((class color) (background dark)) 175 '((((class color) (background dark))
176 (:family "helvetica" :bold t :italic t :foreground "orange")) 176 (:family "sans" :bold t :italic t :foreground "orange"))
177 (((class color) (background light)) 177 (((class color) (background light))
178 (:family "helvetica" :bold t :italic t :foreground "blue"))) 178 (:family "sans" :bold t :italic t :foreground "blue")))
179 "Face for immortal news items." 179 "Face for immortal news items."
180 :group 'newsticker-faces) 180 :group 'newsticker-faces)
181 181
182(defface newsticker-obsolete-item-face 182(defface newsticker-obsolete-item-face
183 '((((class color) (background dark)) 183 '((((class color) (background dark))
184 (:family "helvetica" :bold t :strike-through t)) 184 (:family "sans" :bold t :strike-through t))
185 (((class color) (background light)) 185 (((class color) (background light))
186 (:family "helvetica" :bold t :strike-through t))) 186 (:family "sans" :bold t :strike-through t)))
187 "Face for old news items." 187 "Face for old news items."
188 :group 'newsticker-faces) 188 :group 'newsticker-faces)
189 189
190(defface newsticker-date-face 190(defface newsticker-date-face
191 '((((class color) (background dark)) 191 '((((class color) (background dark))
192 (:family "helvetica" :italic t :height 0.8)) 192 (:family "sans" :italic t :height 0.8))
193 (((class color) (background light)) 193 (((class color) (background light))
194 (:family "helvetica" :italic t :height 0.8))) 194 (:family "sans" :italic t :height 0.8)))
195 "Face for newsticker dates." 195 "Face for newsticker dates."
196 :group 'newsticker-faces) 196 :group 'newsticker-faces)
197 197
198(defface newsticker-statistics-face 198(defface newsticker-statistics-face
199 '((((class color) (background dark)) 199 '((((class color) (background dark))
200 (:family "helvetica" :italic t :height 0.8)) 200 (:family "sans" :italic t :height 0.8))
201 (((class color) (background light)) 201 (((class color) (background light))
202 (:family "helvetica" :italic t :height 0.8))) 202 (:family "sans" :italic t :height 0.8)))
203 "Face for newsticker dates." 203 "Face for newsticker dates."
204 :group 'newsticker-faces) 204 :group 'newsticker-faces)
205 205
@@ -300,70 +300,56 @@ images."
300 nil 300 nil
301 (if (boundp 'tool-bar-map) 301 (if (boundp 'tool-bar-map)
302 (let ((tool-bar-map (make-sparse-keymap))) 302 (let ((tool-bar-map (make-sparse-keymap)))
303 (tool-bar-add-item "newsticker/prev-feed"
304 'newsticker-previous-feed
305 'newsticker-previous-feed
306 :help "Go to previous feed"
307 :enable '(newsticker-previous-feed-available-p))
308 (tool-bar-add-item "newsticker/prev-item"
309 'newsticker-previous-item
310 'newsticker-previous-item
311 :help "Go to previous item"
312 :enable '(newsticker-previous-item-available-p))
313 (tool-bar-add-item "newsticker/next-item"
314 'newsticker-next-item
315 'newsticker-next-item
316 :help "Go to next item"
317 :enable '(newsticker-next-item-available-p))
318 (tool-bar-add-item "newsticker/next-feed"
319 'newsticker-next-feed
320 'newsticker-next-feed
321 :help "Go to next feed"
322 :enable '(newsticker-next-feed-available-p))
323 (tool-bar-add-item "newsticker/narrow"
324 'newsticker-toggle-auto-narrow-to-feed
325 'newsticker-toggle-auto-narrow-to-feed
326 :help "Toggle visibility of other feeds")
327 (tool-bar-add-item "newsticker/mark-immortal"
328 'newsticker-mark-item-at-point-as-immortal
329 'newsticker-mark-item-at-point-as-immortal
330 :help "Mark current item as immortal"
331 :enable '(newsticker-item-not-immortal-p))
332 (tool-bar-add-item "newsticker/mark-read"
333 'newsticker-mark-item-at-point-as-read
334 'newsticker-mark-item-at-point-as-read
335 :help "Mark current item as read"
336 :enable '(newsticker-item-not-old-p))
337 (tool-bar-add-item "newsticker/get-all-news"
338 'newsticker-get-all-news
339 'newsticker-get-all-news
340 :help "Get news for all feeds")
341 (tool-bar-add-item "newsticker/update"
342 'newsticker-buffer-force-update
343 'newsticker-buffer-force-update
344 :help "Update newsticker buffer"
345 :enable '(not newsticker--buffer-uptodate-p))
346 (tool-bar-add-item "newsticker/browse-url"
347 'newsticker-browse-url
348 'newsticker-browse-url
349 :help "Browse URL for item at point")
350 ;; standard icons / actions
303 (define-key tool-bar-map [newsticker-sep-1] 351 (define-key tool-bar-map [newsticker-sep-1]
304 (list 'menu-item "--double-line")) 352 (list 'menu-item "--double-line"))
305 (define-key tool-bar-map [newsticker-browse-url]
306 (list 'menu-item "newsticker-browse-url" 'newsticker-browse-url
307 :visible t
308 :help "Browse URL for item at point"
309 :image newsticker--browse-image))
310 (define-key tool-bar-map [newsticker-buffer-force-update]
311 (list 'menu-item "newsticker-buffer-force-update"
312 'newsticker-buffer-force-update
313 :visible t
314 :help "Update newsticker buffer"
315 :image newsticker--update-image
316 :enable '(not newsticker--buffer-uptodate-p)))
317 (define-key tool-bar-map [newsticker-get-all-news]
318 (list 'menu-item "newsticker-get-all-news" 'newsticker-get-all-news
319 :visible t
320 :help "Get news for all feeds"
321 :image newsticker--get-all-image))
322 (define-key tool-bar-map [newsticker-mark-item-at-point-as-read]
323 (list 'menu-item "newsticker-mark-item-at-point-as-read"
324 'newsticker-mark-item-at-point-as-read
325 :visible t
326 :image newsticker--mark-read-image
327 :help "Mark current item as read"
328 :enable '(newsticker-item-not-old-p)))
329 (define-key tool-bar-map [newsticker-mark-item-at-point-as-immortal]
330 (list 'menu-item "newsticker-mark-item-at-point-as-immortal"
331 'newsticker-mark-item-at-point-as-immortal
332 :visible t
333 :image newsticker--mark-immortal-image
334 :help "Mark current item as immortal"
335 :enable '(newsticker-item-not-immortal-p)))
336 (define-key tool-bar-map [newsticker-toggle-auto-narrow-to-feed]
337 (list 'menu-item "newsticker-toggle-auto-narrow-to-feed"
338 'newsticker-toggle-auto-narrow-to-feed
339 :visible t
340 :help "Toggle visibility of other feeds"
341 :image newsticker--narrow-image))
342 (define-key tool-bar-map [newsticker-next-feed]
343 (list 'menu-item "newsticker-next-feed" 'newsticker-next-feed
344 :visible t
345 :help "Go to next feed"
346 :image newsticker--next-feed-image
347 :enable '(newsticker-next-feed-available-p)))
348 (define-key tool-bar-map [newsticker-next-item]
349 (list 'menu-item "newsticker-next-item" 'newsticker-next-item
350 :visible t
351 :help "Go to next item"
352 :image newsticker--next-item-image
353 :enable '(newsticker-next-item-available-p)))
354 (define-key tool-bar-map [newsticker-previous-item]
355 (list 'menu-item "newsticker-previous-item" 'newsticker-previous-item
356 :visible t
357 :help "Go to previous item"
358 :image newsticker--previous-item-image
359 :enable '(newsticker-previous-item-available-p)))
360 (define-key tool-bar-map [newsticker-previous-feed]
361 (list 'menu-item "newsticker-previous-feed" 'newsticker-previous-feed
362 :visible t
363 :help "Go to previous feed"
364 :image newsticker--previous-feed-image
365 :enable '(newsticker-previous-feed-available-p)))
366 ;; standard icons / actions
367 (tool-bar-add-item "close" 353 (tool-bar-add-item "close"
368 'newsticker-close-buffer 354 'newsticker-close-buffer
369 'newsticker-close-buffer 355 'newsticker-close-buffer
diff --git a/lisp/net/newst-reader.el b/lisp/net/newst-reader.el
index dd076bcf4f0..1fbba29ec14 100644
--- a/lisp/net/newst-reader.el
+++ b/lisp/net/newst-reader.el
@@ -5,7 +5,7 @@
5;; Author: Ulf Jasper <ulf.jasper@web.de> 5;; Author: Ulf Jasper <ulf.jasper@web.de>
6;; Filename: newst-reader.el 6;; Filename: newst-reader.el
7;; URL: http://www.nongnu.org/newsticker 7;; URL: http://www.nongnu.org/newsticker
8;; Time-stamp: "6. Dezember 2009, 19:16:38 (ulf)" 8;; Time-stamp: "13. Mai 2011, 20:55:24 (ulf)"
9;; Package: newsticker 9;; Package: newsticker
10 10
11;; ====================================================================== 11;; ======================================================================
@@ -147,9 +147,9 @@ See `format-time-string' for a list of valid specifiers."
147 147
148(defface newsticker-feed-face 148(defface newsticker-feed-face
149 '((((class color) (background dark)) 149 '((((class color) (background dark))
150 (:family "helvetica" :bold t :height 1.2 :foreground "misty rose")) 150 (:family "sans" :bold t :height 1.2 :foreground "white"))
151 (((class color) (background light)) 151 (((class color) (background light))
152 (:family "helvetica" :bold t :height 1.2 :foreground "black"))) 152 (:family "sans" :bold t :height 1.2 :foreground "black")))
153 "Face for news feeds." 153 "Face for news feeds."
154 :group 'newsticker-faces) 154 :group 'newsticker-faces)
155 155
@@ -291,866 +291,6 @@ Return the image."
291;; ====================================================================== 291;; ======================================================================
292;;; Toolbar 292;;; Toolbar
293;; ====================================================================== 293;; ======================================================================
294(defconst newsticker--next-item-image
295 (and (fboundp 'image-type-available-p)
296 (image-type-available-p 'xpm)
297 (create-image "/* XPM */
298static char * next_xpm[] = {
299\"24 24 42 1\",
300\" c None\",
301\". c #000000\",
302\"+ c #7EB6DE\",
303\"@ c #82BBE2\",
304\"# c #85BEE4\",
305\"$ c #88C1E7\",
306\"% c #8AC3E8\",
307\"& c #87C1E6\",
308\"* c #8AC4E9\",
309\"= c #8CC6EA\",
310\"- c #8CC6EB\",
311\"; c #88C2E7\",
312\"> c #8BC5E9\",
313\", c #8DC7EB\",
314\"' c #87C0E6\",
315\") c #8AC4E8\",
316\"! c #8BC5EA\",
317\"~ c #8BC4E9\",
318\"{ c #88C1E6\",
319\"] c #89C3E8\",
320\"^ c #86BFE5\",
321\"/ c #83BBE2\",
322\"( c #82BBE1\",
323\"_ c #86C0E5\",
324\": c #87C0E5\",
325\"< c #83BCE2\",
326\"[ c #81B9E0\",
327\"} c #81BAE1\",
328\"| c #78B0D9\",
329\"1 c #7BB3DB\",
330\"2 c #7DB5DD\",
331\"3 c #7DB6DD\",
332\"4 c #72A9D4\",
333\"5 c #75ACD6\",
334\"6 c #76AED7\",
335\"7 c #77AFD8\",
336\"8 c #6BA1CD\",
337\"9 c #6EA4CF\",
338\"0 c #6FA6D1\",
339\"a c #6298C6\",
340\"b c #659BC8\",
341\"c c #5C91C0\",
342\" \",
343\" \",
344\" . \",
345\" .. \",
346\" .+. \",
347\" .@#. \",
348\" .#$%. \",
349\" .&*=-. \",
350\" .;>,,,. \",
351\" .;>,,,=. \",
352\" .')!==~;. \",
353\" .#{]*%;^/. \",
354\" .(#_':#<. \",
355\" .+[@</}. \",
356\" .|1232. \",
357\" .4567. \",
358\" .890. \",
359\" .ab. \",
360\" .c. \",
361\" .. \",
362\" . \",
363\" \",
364\" \",
365\" \"};
366"
367 'xpm t))
368 "Image for the next item button.")
369
370(defconst newsticker--previous-item-image
371 (and (fboundp 'image-type-available-p)
372 (image-type-available-p 'xpm)
373 (create-image "/* XPM */
374static char * previous_xpm[] = {
375\"24 24 39 1\",
376\" c None\",
377\". c #000000\",
378\"+ c #7BB3DB\",
379\"@ c #83BCE2\",
380\"# c #7FB8DF\",
381\"$ c #89C2E7\",
382\"% c #86BFE5\",
383\"& c #83BBE2\",
384\"* c #8CC6EA\",
385\"= c #8BC4E9\",
386\"- c #88C2E7\",
387\"; c #85BEE4\",
388\"> c #8DC7EB\",
389\", c #89C3E8\",
390\"' c #8AC4E8\",
391\") c #8BC5EA\",
392\"! c #88C1E6\",
393\"~ c #8AC4E9\",
394\"{ c #8AC3E8\",
395\"] c #86C0E5\",
396\"^ c #87C0E6\",
397\"/ c #87C0E5\",
398\"( c #82BBE2\",
399\"_ c #81BAE1\",
400\": c #7FB7DF\",
401\"< c #7DB6DD\",
402\"[ c #7DB5DD\",
403\"} c #7CB4DC\",
404\"| c #79B1DA\",
405\"1 c #76ADD7\",
406\"2 c #77AFD8\",
407\"3 c #73AAD4\",
408\"4 c #70A7D1\",
409\"5 c #6EA5D0\",
410\"6 c #6CA2CE\",
411\"7 c #689ECB\",
412\"8 c #6399C7\",
413\"9 c #6095C4\",
414\"0 c #5C90C0\",
415\" \",
416\" \",
417\" . \",
418\" .. \",
419\" .+. \",
420\" .@#. \",
421\" .$%&. \",
422\" .*=-;. \",
423\" .>>*,%. \",
424\" .>>>*,%. \",
425\" .')**=-;. \",
426\" .;!,~{-%&. \",
427\" .;]^/;@#. \",
428\" .(@&_:+. \",
429\" .<[}|1. \",
430\" .2134. \",
431\" .567. \",
432\" .89. \",
433\" .0. \",
434\" .. \",
435\" . \",
436\" \",
437\" \",
438\" \"};
439"
440 'xpm t))
441 "Image for the previous item button.")
442
443(defconst newsticker--previous-feed-image
444 (and (fboundp 'image-type-available-p)
445 (image-type-available-p 'xpm)
446 (create-image "/* XPM */
447static char * prev_feed_xpm[] = {
448\"24 24 52 1\",
449\" c None\",
450\". c #000000\",
451\"+ c #70A7D2\",
452\"@ c #75ADD6\",
453\"# c #71A8D3\",
454\"$ c #79B1DA\",
455\"% c #7BB3DB\",
456\"& c #7DB5DD\",
457\"* c #83BBE2\",
458\"= c #7EB6DE\",
459\"- c #78B0D9\",
460\"; c #7FB7DE\",
461\"> c #88C2E7\",
462\", c #85BEE4\",
463\"' c #80B9E0\",
464\") c #80B8DF\",
465\"! c #8CC6EA\",
466\"~ c #89C3E8\",
467\"{ c #86BFE5\",
468\"] c #81BAE1\",
469\"^ c #7CB4DC\",
470\"/ c #7FB8DF\",
471\"( c #8DC7EB\",
472\"_ c #7BB3DC\",
473\": c #7EB7DE\",
474\"< c #8BC4E9\",
475\"[ c #8AC4E9\",
476\"} c #8AC3E8\",
477\"| c #87C0E6\",
478\"1 c #87C0E5\",
479\"2 c #83BCE2\",
480\"3 c #75ACD6\",
481\"4 c #7FB7DF\",
482\"5 c #77AED8\",
483\"6 c #71A8D2\",
484\"7 c #70A7D1\",
485\"8 c #76ADD7\",
486\"9 c #6CA2CE\",
487\"0 c #699FCC\",
488\"a c #73AAD4\",
489\"b c #6BA1CD\",
490\"c c #669CC9\",
491\"d c #6298C5\",
492\"e c #689ECB\",
493\"f c #6499C7\",
494\"g c #6095C3\",
495\"h c #5C91C0\",
496\"i c #5E93C2\",
497\"j c #5B90C0\",
498\"k c #588CBC\",
499\"l c #578CBC\",
500\"m c #5589BA\",
501\" \",
502\" \",
503\" ... . \",
504\" .+. .. \",
505\" .@. .#. \",
506\" .$. .%@. \",
507\" .&. .*=-. \",
508\" .;. .>,'%. \",
509\" .). .!~{]^. \",
510\" ./. .(!~{]_. \",
511\" .:. .!!<>,'%. \",
512\" .&. .~[}>{*=-. \",
513\" .$. .|1,2/%@. \",
514\" .3. .*]4%56. \",
515\" .7. .^$8#9. \",
516\" .0. .a7bc. \",
517\" .d. .efg. \",
518\" .h. .ij. \",
519\" .k. .l. \",
520\" .m. .. \",
521\" ... . \",
522\" \",
523\" \",
524\" \"};
525"
526 'xpm t))
527 "Image for the previous feed button.")
528
529(defconst newsticker--next-feed-image
530 (and (fboundp 'image-type-available-p)
531 (image-type-available-p 'xpm)
532 (create-image "/* XPM */
533static char * next_feed_xpm[] = {
534\"24 24 57 1\",
535\" c None\",
536\". c #000000\",
537\"+ c #6CA2CE\",
538\"@ c #75ADD6\",
539\"# c #71A8D3\",
540\"$ c #79B1DA\",
541\"% c #7EB7DE\",
542\"& c #7DB5DD\",
543\"* c #81BAE1\",
544\"= c #85BEE4\",
545\"- c #78B0D9\",
546\"; c #7FB7DE\",
547\"> c #83BCE3\",
548\", c #87C1E6\",
549\"' c #8AC4E9\",
550\") c #7BB3DB\",
551\"! c #80B8DF\",
552\"~ c #88C2E7\",
553\"{ c #8BC5E9\",
554\"] c #8DC7EB\",
555\"^ c #7CB4DC\",
556\"/ c #7FB8DF\",
557\"( c #84BDE3\",
558\"_ c #7BB3DC\",
559\": c #83BCE2\",
560\"< c #87C0E6\",
561\"[ c #8AC4E8\",
562\"} c #8BC5EA\",
563\"| c #8CC6EA\",
564\"1 c #88C1E6\",
565\"2 c #89C3E8\",
566\"3 c #8AC3E8\",
567\"4 c #7EB6DE\",
568\"5 c #82BBE1\",
569\"6 c #86C0E5\",
570\"7 c #87C0E5\",
571\"8 c #75ACD6\",
572\"9 c #7AB2DA\",
573\"0 c #81B9E0\",
574\"a c #82BBE2\",
575\"b c #71A8D2\",
576\"c c #70A7D1\",
577\"d c #74ACD6\",
578\"e c #699FCC\",
579\"f c #6EA5D0\",
580\"g c #72A9D4\",
581\"h c #669CC9\",
582\"i c #6298C5\",
583\"j c #679DCA\",
584\"k c #6BA1CD\",
585\"l c #6095C3\",
586\"m c #5C91C0\",
587\"n c #5F94C2\",
588\"o c #5B90C0\",
589\"p c #588CBC\",
590\"q c #578CBC\",
591\"r c #5589BA\",
592\" \",
593\" \",
594\" . ... \",
595\" .. .+. \",
596\" .@. .#. \",
597\" .$%. .@. \",
598\" .&*=. .-. \",
599\" .;>,'. .). \",
600\" .!=~{]. .^. \",
601\" ./(~{]]. ._. \",
602\" .%:<[}||. .). \",
603\" .&*=12'3~. .-. \",
604\" .$45=6<7. .@. \",
605\" .8940a:. .b. \",
606\" .cd-)&. .+. \",
607\" .efg8. .h. \",
608\" .ijk. .l. \",
609\" .mn. .o. \",
610\" .p. .q. \",
611\" .. .r. \",
612\" . ... \",
613\" \",
614\" \",
615\" \"};
616"
617 'xpm t))
618 "Image for the next feed button.")
619
620(defconst newsticker--mark-read-image
621 (and (fboundp 'image-type-available-p)
622 (image-type-available-p 'xpm)
623 (create-image "/* XPM */
624static char * mark_read_xpm[] = {
625\"24 24 44 1\",
626\" c None\",
627\". c #C20000\",
628\"+ c #BE0000\",
629\"@ c #C70000\",
630\"# c #CE0000\",
631\"$ c #C90000\",
632\"% c #BD0000\",
633\"& c #CB0000\",
634\"* c #D10000\",
635\"= c #D70000\",
636\"- c #D30000\",
637\"; c #CD0000\",
638\"> c #C60000\",
639\", c #D40000\",
640\"' c #DA0000\",
641\") c #DE0000\",
642\"! c #DB0000\",
643\"~ c #D60000\",
644\"{ c #D00000\",
645\"] c #DC0000\",
646\"^ c #E00000\",
647\"/ c #E40000\",
648\"( c #E10000\",
649\"_ c #DD0000\",
650\": c #D80000\",
651\"< c #E50000\",
652\"[ c #E70000\",
653\"} c #E60000\",
654\"| c #E20000\",
655\"1 c #E90000\",
656\"2 c #E80000\",
657\"3 c #E30000\",
658\"4 c #DF0000\",
659\"5 c #D90000\",
660\"6 c #CC0000\",
661\"7 c #C10000\",
662\"8 c #C30000\",
663\"9 c #BF0000\",
664\"0 c #B90000\",
665\"a c #BC0000\",
666\"b c #BB0000\",
667\"c c #B80000\",
668\"d c #B50000\",
669\"e c #B70000\",
670\" \",
671\" \",
672\" \",
673\" . + \",
674\" +@# $.% \",
675\" &*= -;> \",
676\" ,') !~{ \",
677\" ]^/ (_: \",
678\" (<[ }|) \",
679\" <[1 2<| \",
680\" }222[< \",
681\" }}}< \",
682\" 333| \",
683\" _4^4)] \",
684\" ~:' 5=- \",
685\" 6{- *#$ \",
686\" 7>$ @89 \",
687\" 0a+ %bc \",
688\" ddc edd \",
689\" ddd ddd \",
690\" d d \",
691\" \",
692\" \",
693\" \"};
694"
695 'xpm t))
696 "Image for the mark read button.")
697
698(defconst newsticker--mark-immortal-image
699 (and (fboundp 'image-type-available-p)
700 (image-type-available-p 'xpm)
701 (create-image "/* XPM */
702static char * mark_immortal_xpm[] = {
703\"24 24 93 2\",
704\" c None\",
705\". c #171717\",
706\"+ c #030303\",
707\"@ c #000000\",
708\"# c #181818\",
709\"$ c #090909\",
710\"% c #FFC960\",
711\"& c #FFCB61\",
712\"* c #FFCB62\",
713\"= c #FFC961\",
714\"- c #FFC75F\",
715\"; c #FFC65E\",
716\"> c #FFCA61\",
717\", c #FFCD63\",
718\"' c #FFCF65\",
719\") c #FFD065\",
720\"! c #FFCE64\",
721\"~ c #FFC35C\",
722\"{ c #FFC45D\",
723\"] c #FFD166\",
724\"^ c #FFD267\",
725\"/ c #FFD368\",
726\"( c #FFD167\",
727\"_ c #FFC05A\",
728\": c #010101\",
729\"< c #040404\",
730\"[ c #FFCC62\",
731\"} c #FFD569\",
732\"| c #FFD56A\",
733\"1 c #FFC860\",
734\"2 c #FFC25B\",
735\"3 c #FFBB56\",
736\"4 c #020202\",
737\"5 c #060606\",
738\"6 c #FFC15B\",
739\"7 c #FFC85F\",
740\"8 c #FFD469\",
741\"9 c #FFD66A\",
742\"0 c #FFBC57\",
743\"a c #1B1B1B\",
744\"b c #070707\",
745\"c c #FFBA55\",
746\"d c #FFB451\",
747\"e c #FFB954\",
748\"f c #FFB350\",
749\"g c #FFB652\",
750\"h c #FFBE58\",
751\"i c #FFCD64\",
752\"j c #FFD066\",
753\"k c #FFC059\",
754\"l c #FFB14E\",
755\"m c #0B0B0B\",
756\"n c #FFBB55\",
757\"o c #FFC15A\",
758\"p c #FFB552\",
759\"q c #FFAD4B\",
760\"r c #080808\",
761\"s c #FFAF4C\",
762\"t c #FFB853\",
763\"u c #FFA948\",
764\"v c #050505\",
765\"w c #FFB04E\",
766\"x c #FFB753\",
767\"y c #FFBC56\",
768\"z c #FFC55D\",
769\"A c #FFC55E\",
770\"B c #FFC45C\",
771\"C c #FFBD57\",
772\"D c #FFB854\",
773\"E c #FFB34F\",
774\"F c #FFAB4A\",
775\"G c #FFA545\",
776\"H c #FFAA49\",
777\"I c #FFB04D\",
778\"J c #FFB551\",
779\"K c #FFBF58\",
780\"L c #FFB24F\",
781\"M c #FFAC4A\",
782\"N c #FFA646\",
783\"O c #FFA344\",
784\"P c #FFA848\",
785\"Q c #FFB14F\",
786\"R c #FFAF4D\",
787\"S c #FFA546\",
788\"T c #FFA243\",
789\"U c #FFA445\",
790\"V c #FFAE4C\",
791\"W c #FFA444\",
792\"X c #FFA142\",
793\"Y c #FF9F41\",
794\"Z c #0A0A0A\",
795\"` c #FF9E40\",
796\" . c #FF9F40\",
797\" \",
798\" \",
799\" \",
800\" . + @ @ + # \",
801\" $ @ % & * * = - + + \",
802\" @ ; > , ' ) ' ! * - ~ @ \",
803\" @ { > ! ] ^ / / ( ' * ; _ : \",
804\" < _ ; [ ) / } | } / ] , 1 2 3 4 \",
805\" 5 6 7 , ] 8 9 9 9 } ^ ! = ~ 0 a \",
806\" b c 6 - , ] 8 9 9 9 } ^ ! % ~ 0 d 5 \",
807\" : e _ ; * ) / 8 } } / ] , 1 2 3 f 5 \",
808\" : g h { = i j ^ / ^ ] ! * ; k e l m \",
809\" : f n o ; > , ' ) ' ! * - 2 0 p q r \",
810\" : s g 0 6 ; % > * * = - ~ h t l u r \",
811\" v u w x y k ~ z A z B o C D E F G b \",
812\" 5 H I J e 0 h K h C c x L M N . \",
813\" 4 O P q Q d g x g J L R H S T < \",
814\" @ T U P F q V q M H N W X + \",
815\" @ Y T O W G G W O X Y @ \",
816\" 4 Z ` Y Y Y .` 4 4 \",
817\" 5 : : @ @ Z \",
818\" \",
819\" \",
820\" \"};
821"
822 'xpm t))
823 "Image for the mark immortal button.")
824
825(defconst newsticker--narrow-image
826 (and (fboundp 'image-type-available-p)
827 (image-type-available-p 'xpm)
828 (create-image "/* XPM */
829static char * narrow_xpm[] = {
830\"24 24 48 1\",
831\" c None\",
832\". c #000000\",
833\"+ c #969696\",
834\"@ c #9E9E9E\",
835\"# c #A4A4A4\",
836\"$ c #AAAAAA\",
837\"% c #AEAEAE\",
838\"& c #B1B1B1\",
839\"* c #B3B3B3\",
840\"= c #B4B4B4\",
841\"- c #B2B2B2\",
842\"; c #AFAFAF\",
843\"> c #ABABAB\",
844\", c #A6A6A6\",
845\"' c #A0A0A0\",
846\") c #989898\",
847\"! c #909090\",
848\"~ c #73AAD4\",
849\"{ c #7AB2DA\",
850\"] c #7FB8DF\",
851\"^ c #84BDE3\",
852\"/ c #88C2E7\",
853\"( c #8BC5E9\",
854\"_ c #8DC7EB\",
855\": c #8CC6EA\",
856\"< c #89C3E8\",
857\"[ c #86BFE5\",
858\"} c #81BAE1\",
859\"| c #7BB3DC\",
860\"1 c #75ACD6\",
861\"2 c #6DA4CF\",
862\"3 c #979797\",
863\"4 c #A3A3A3\",
864\"5 c #A8A8A8\",
865\"6 c #ADADAD\",
866\"7 c #ACACAC\",
867\"8 c #A9A9A9\",
868\"9 c #A5A5A5\",
869\"0 c #9A9A9A\",
870\"a c #929292\",
871\"b c #8C8C8C\",
872\"c c #808080\",
873\"d c #818181\",
874\"e c #838383\",
875\"f c #848484\",
876\"g c #858585\",
877\"h c #868686\",
878\"i c #828282\",
879\" \",
880\" \",
881\" \",
882\" .................. \",
883\" .+@#$%&*=*-;>,')!. \",
884\" .................. \",
885\" \",
886\" \",
887\" .................. \",
888\" .~{]^/(___:<[}|12. \",
889\" .................. \",
890\" \",
891\" \",
892\" .................. \",
893\" .!3@45>666789'0ab. \",
894\" .................. \",
895\" \",
896\" \",
897\" .................. \",
898\" .cccdefghhgficccc. \",
899\" .................. \",
900\" \",
901\" \",
902\" \"};
903"
904 'xpm t))
905 "Image for the narrow image button.")
906
907(defconst newsticker--get-all-image
908 (and (fboundp 'image-type-available-p)
909 (image-type-available-p 'xpm)
910 (create-image "/* XPM */
911static char * get_all_xpm[] = {
912\"24 24 70 1\",
913\" c None\",
914\". c #000000\",
915\"+ c #F3DA00\",
916\"@ c #F5DF00\",
917\"# c #F7E300\",
918\"$ c #F9E700\",
919\"% c #FAEA00\",
920\"& c #FBEC00\",
921\"* c #FBED00\",
922\"= c #FCEE00\",
923\"- c #FAEB00\",
924\"; c #F9E800\",
925\"> c #F8E500\",
926\", c #F6E000\",
927\"' c #F4DB00\",
928\") c #F1D500\",
929\"! c #EFD000\",
930\"~ c #B7CA00\",
931\"{ c #BFD100\",
932\"] c #C5D700\",
933\"^ c #CBDB00\",
934\"/ c #CFDF00\",
935\"( c #D2E200\",
936\"_ c #D4E400\",
937\": c #D3E300\",
938\"< c #D0E000\",
939\"[ c #CCDD00\",
940\"} c #C7D800\",
941\"| c #C1D300\",
942\"1 c #BACC00\",
943\"2 c #B1C500\",
944\"3 c #A8BC00\",
945\"4 c #20A900\",
946\"5 c #22AF00\",
947\"6 c #24B500\",
948\"7 c #26B900\",
949\"8 c #27BC00\",
950\"9 c #27BE00\",
951\"0 c #28BF00\",
952\"a c #27BD00\",
953\"b c #26BA00\",
954\"c c #25B600\",
955\"d c #23B100\",
956\"e c #21AB00\",
957\"f c #1FA400\",
958\"g c #1C9B00\",
959\"h c #21AA00\",
960\"i c #24B300\",
961\"j c #25B800\",
962\"k c #25B700\",
963\"l c #24B400\",
964\"m c #23B000\",
965\"n c #1FA500\",
966\"o c #1D9E00\",
967\"p c #20A800\",
968\"q c #21AC00\",
969\"r c #23B200\",
970\"s c #22AD00\",
971\"t c #1D9F00\",
972\"u c #20A700\",
973\"v c #1EA100\",
974\"w c #1C9C00\",
975\"x c #1DA000\",
976\"y c #1B9800\",
977\"z c #1A9600\",
978\"A c #1A9700\",
979\"B c #1A9500\",
980\"C c #199200\",
981\"D c #189100\",
982\"E c #178C00\",
983\" \",
984\" \",
985\" \",
986\" \",
987\" ................... \",
988\" .+@#$%&*=*&-;>,')!. \",
989\" ................... \",
990\" \",
991\" ................... \",
992\" .~{]^/(___:<[}|123. \",
993\" ................... \",
994\" \",
995\" ................... \",
996\" .45678909abcdefg. \",
997\" .h5icj7jklmeno. \",
998\" .pq5drrmshft. \",
999\" .fu4h4pnvw. \",
1000\" .oxvxtwy. \",
1001\" .zAAzB. \",
1002\" .CCD. \",
1003\" .E. \",
1004\" . \",
1005\" \",
1006\" \"};
1007"
1008 'xpm t))
1009 "Image for the get all image button.")
1010
1011(defconst newsticker--update-image
1012 (and (fboundp 'image-type-available-p)
1013 (image-type-available-p 'xpm)
1014 (create-image "/* XPM */
1015static char * update_xpm[] = {
1016\"24 24 37 1\",
1017\" c None\",
1018\". c #076D00\",
1019\"+ c #0A8600\",
1020\"@ c #0A8800\",
1021\"# c #098400\",
1022\"$ c #087200\",
1023\"% c #087900\",
1024\"& c #098500\",
1025\"* c #098100\",
1026\"= c #087600\",
1027\"- c #097E00\",
1028\"; c #097F00\",
1029\"> c #0A8700\",
1030\", c #0A8C00\",
1031\"' c #097C00\",
1032\") c #098300\",
1033\"! c #0A8900\",
1034\"~ c #0A8E00\",
1035\"{ c #0B9200\",
1036\"] c #087700\",
1037\"^ c #076E00\",
1038\"/ c #076C00\",
1039\"( c #076B00\",
1040\"_ c #076A00\",
1041\": c #076900\",
1042\"< c #076800\",
1043\"[ c #066700\",
1044\"} c #066500\",
1045\"| c #066400\",
1046\"1 c #066300\",
1047\"2 c #066600\",
1048\"3 c #066200\",
1049\"4 c #076700\",
1050\"5 c #065E00\",
1051\"6 c #066100\",
1052\"7 c #065F00\",
1053\"8 c #066000\",
1054\" \",
1055\" \",
1056\" \",
1057\" . +@@@+# \",
1058\" $% &@ +* \",
1059\" =-# ; \",
1060\" %*>, ' \",
1061\" ')!~{ = \",
1062\" ]$ \",
1063\" ^ ^ \",
1064\" . . \",
1065\" / ( \",
1066\" _ : \",
1067\" < [ \",
1068\" } | \",
1069\" [[ \",
1070\" 1 $.:23 \",
1071\" 3 4}35 \",
1072\" 6 655 \",
1073\" 76 85 55 \",
1074\" 5555555 5 \",
1075\" \",
1076\" \",
1077\" \"};
1078"
1079 'xpm t))
1080 "Image for the update button.")
1081
1082(defconst newsticker--browse-image
1083 (and (fboundp 'image-type-available-p)
1084 (image-type-available-p 'xpm)
1085 (create-image "/* XPM */
1086static char * visit_xpm[] = {
1087\"24 24 39 1\",
1088\" c None\",
1089\". c #000000\",
1090\"+ c #FFFFFF\",
1091\"@ c #00E63D\",
1092\"# c #00E83E\",
1093\"$ c #00E73D\",
1094\"% c #00E93E\",
1095\"& c #00E63C\",
1096\"* c #00E53C\",
1097\"= c #00E23B\",
1098\"- c #00E33B\",
1099\"; c #00E83D\",
1100\"> c #00E13A\",
1101\", c #00DD38\",
1102\"' c #00DE38\",
1103\") c #00E23A\",
1104\"! c #00E43C\",
1105\"~ c #00DF39\",
1106\"{ c #00DB37\",
1107\"] c #00D634\",
1108\"^ c #00D734\",
1109\"/ c #00E039\",
1110\"( c #00DC37\",
1111\"_ c #00D835\",
1112\": c #00D332\",
1113\"< c #00CD2F\",
1114\"[ c #00DB36\",
1115\"} c #00D433\",
1116\"| c #00CF30\",
1117\"1 c #00DA36\",
1118\"2 c #00D936\",
1119\"3 c #00D533\",
1120\"4 c #00D131\",
1121\"5 c #00CE2F\",
1122\"6 c #00CC2F\",
1123\"7 c #00CA2D\",
1124\"8 c #00C62B\",
1125\"9 c #00C52A\",
1126\"0 c #00BE27\",
1127\" \",
1128\" \",
1129\" . \",
1130\" .+. \",
1131\" .+++. \",
1132\" .++.++. \",
1133\" .++.@.++. \",
1134\" .++.##$.++. \",
1135\" .++.%%%#&.++. \",
1136\" .++.$%%%#*=.++. \",
1137\" .++.-@;##$*>,.++. \",
1138\" .++.')!&@@*=~{].++. \",
1139\" .++.^{~>---)/(_:<.++. \",
1140\" .++.^[,~/~'(_}|.++. \",
1141\" .++.]_1[12^:|.++. \",
1142\" .++.:}33:45.++. \",
1143\" .++.<5567.++. \",
1144\" .++.889.++. \",
1145\" .++.0.++. \",
1146\" .++.++. \",
1147\" .+++. \",
1148\" .+. \",
1149\" . \",
1150\" \"};
1151"
1152 'xpm t))
1153 "Image for the browse button.")
1154 294
1155(defun newsticker-browse-url-item (feed item) 295(defun newsticker-browse-url-item (feed item)
1156 "Convert FEED ITEM to html and call `browse-url' on result." 296 "Convert FEED ITEM to html and call `browse-url' on result."
diff --git a/lisp/net/newst-treeview.el b/lisp/net/newst-treeview.el
index 58d86b23946..37b31130e8b 100644
--- a/lisp/net/newst-treeview.el
+++ b/lisp/net/newst-treeview.el
@@ -7,7 +7,7 @@
7;; URL: http://www.nongnu.org/newsticker 7;; URL: http://www.nongnu.org/newsticker
8;; Created: 2007 8;; Created: 2007
9;; Keywords: News, RSS, Atom 9;; Keywords: News, RSS, Atom
10;; Time-stamp: "6. Dezember 2009, 19:17:28 (ulf)" 10;; Time-stamp: "13. Mai 2011, 20:56:49 (ulf)"
11;; Package: newsticker 11;; Package: newsticker
12 12
13;; ====================================================================== 13;; ======================================================================
@@ -36,7 +36,6 @@
36;;; History: 36;;; History:
37;; 37;;
38 38
39
40;; ====================================================================== 39;; ======================================================================
41;;; Code: 40;;; Code:
42(require 'newst-reader) 41(require 'newst-reader)
@@ -53,9 +52,9 @@
53 52
54(defface newsticker-treeview-face 53(defface newsticker-treeview-face
55 '((((class color) (background dark)) 54 '((((class color) (background dark))
56 (:family "helvetica" :foreground "misty rose" :bold nil)) 55 (:family "sans" :foreground "white" :bold nil))
57 (((class color) (background light)) 56 (((class color) (background light))
58 (:family "helvetica" :foreground "black" :bold nil))) 57 (:family "sans" :foreground "black" :bold nil)))
59 "Face for newsticker tree." 58 "Face for newsticker tree."
60 :group 'newsticker-treeview) 59 :group 'newsticker-treeview)
61 60
@@ -1069,86 +1068,63 @@ Arguments IGNORE are ignored."
1069;; ====================================================================== 1068;; ======================================================================
1070;;; Toolbar 1069;;; Toolbar
1071;; ====================================================================== 1070;; ======================================================================
1072;;(makunbound 'newsticker-treeview-tool-bar-map)
1073(defvar newsticker-treeview-tool-bar-map 1071(defvar newsticker-treeview-tool-bar-map
1074 (if (featurep 'xemacs) 1072 (if (featurep 'xemacs)
1075 nil 1073 nil
1076 (if (boundp 'tool-bar-map) 1074 (if (boundp 'tool-bar-map)
1077 (let ((tool-bar-map (make-sparse-keymap))) 1075 (let ((tool-bar-map (make-sparse-keymap)))
1076 (tool-bar-add-item "newsticker/prev-feed"
1077 'newsticker-treeview-prev-feed
1078 'newsticker-treeview-prev-feed
1079 :help "Go to previous feed"
1080 ;;:enable '(newsticker-previous-feed-available-p) FIXME
1081 )
1082 (tool-bar-add-item "newsticker/prev-item"
1083 'newsticker-treeview-prev-item
1084 'newsticker-treeview-prev-item
1085 :help "Go to previous item"
1086 ;;:enable '(newsticker-previous-item-available-p) FIXME
1087 )
1088 (tool-bar-add-item "newsticker/next-item"
1089 'newsticker-treeview-next-item
1090 'newsticker-treeview-next-item
1091 :visible t
1092 :help "Go to next item"
1093 ;;:enable '(newsticker-next-item-available-p) FIXME
1094 )
1095 (tool-bar-add-item "newsticker/next-feed"
1096 'newsticker-treeview-next-feed
1097 'newsticker-treeview-next-feed
1098 :help "Go to next feed"
1099 ;;:enable '(newsticker-next-feed-available-p) FIXME
1100 )
1101 (tool-bar-add-item "newsticker/mark-immortal"
1102 'newsticker-treeview-toggle-item-immortal
1103 'newsticker-treeview-toggle-item-immortal
1104 :help "Toggle current item as immortal"
1105 ;;:enable '(newsticker-item-not-immortal-p) FIXME
1106 )
1107 (tool-bar-add-item "newsticker/mark-read"
1108 'newsticker-treeview-mark-item-old
1109 'newsticker-treeview-mark-item-old
1110 :help "Mark current item as read"
1111 ;;:enable '(newsticker-item-not-old-p) FIXME
1112 )
1113 (tool-bar-add-item "newsticker/get-all"
1114 'newsticker-get-all-news
1115 'newsticker-get-all-news
1116 :help "Get news for all feeds")
1117 (tool-bar-add-item "newsticker/update"
1118 'newsticker-treeview-update
1119 'newsticker-treeview-update
1120 :help "Update newsticker buffer")
1121 (tool-bar-add-item "newsticker/browse-url"
1122 'newsticker-browse-url
1123 'newsticker-browse-url
1124 :help "Browse URL for item at point")
1125 ;; standard icons / actions
1078 (define-key tool-bar-map [newsticker-sep-1] 1126 (define-key tool-bar-map [newsticker-sep-1]
1079 (list 'menu-item "--double-line")) 1127 (list 'menu-item "--double-line"))
1080 (define-key tool-bar-map [newsticker-browse-url]
1081 (list 'menu-item "newsticker-browse-url"
1082 'newsticker-browse-url
1083 :visible t
1084 :help "Browse URL for item at point"
1085 :image newsticker--browse-image))
1086 (define-key tool-bar-map [newsticker-buffer-force-update]
1087 (list 'menu-item "newsticker-treeview-update"
1088 'newsticker-treeview-update
1089 :visible t
1090 :help "Update newsticker buffer"
1091 :image newsticker--update-image
1092 :enable t))
1093 (define-key tool-bar-map [newsticker-get-all-news]
1094 (list 'menu-item "newsticker-get-all-news" 'newsticker-get-all-news
1095 :visible t
1096 :help "Get news for all feeds"
1097 :image newsticker--get-all-image))
1098 (define-key tool-bar-map [newsticker-mark-item-at-point-as-read]
1099 (list 'menu-item "newsticker-treeview-mark-item-old"
1100 'newsticker-treeview-mark-item-old
1101 :visible t
1102 :image newsticker--mark-read-image
1103 :help "Mark current item as read"
1104 ;;:enable '(newsticker-item-not-old-p) FIXME
1105 ))
1106 (define-key tool-bar-map [newsticker-mark-item-at-point-as-immortal]
1107 (list 'menu-item "newsticker-treeview-toggle-item-immortal"
1108 'newsticker-treeview-toggle-item-immortal
1109 :visible t
1110 :image newsticker--mark-immortal-image
1111 :help "Toggle current item as immortal"
1112 :enable t
1113 ;;'(newsticker-item-not-immortal-p) FIXME
1114 ))
1115 (define-key tool-bar-map [newsticker-next-feed]
1116 (list 'menu-item "newsticker-treeview-next-feed"
1117 'newsticker-treeview-next-feed
1118 :visible t
1119 :help "Go to next feed"
1120 :image newsticker--next-feed-image
1121 :enable t
1122 ;;'(newsticker-next-feed-available-p) FIXME
1123 ))
1124 (define-key tool-bar-map [newsticker-treeview-next-item]
1125 (list 'menu-item "newsticker-treeview-next-item"
1126 'newsticker-treeview-next-item
1127 :visible t
1128 :help "Go to next item"
1129 :image newsticker--next-item-image
1130 :enable t
1131 ;;'(newsticker-next-item-available-p) FIXME
1132 ))
1133 (define-key tool-bar-map [newsticker-treeview-prev-item]
1134 (list 'menu-item "newsticker-treeview-prev-item"
1135 'newsticker-treeview-prev-item
1136 :visible t
1137 :help "Go to previous item"
1138 :image newsticker--previous-item-image
1139 :enable t
1140 ;;'(newsticker-previous-item-available-p) FIXME
1141 ))
1142 (define-key tool-bar-map [newsticker-treeview-prev-feed]
1143 (list 'menu-item "newsticker-treeview-prev-feed"
1144 'newsticker-treeview-prev-feed
1145 :visible t
1146 :help "Go to previous feed"
1147 :image newsticker--previous-feed-image
1148 :enable t
1149 ;;'(newsticker-previous-feed-available-p) FIXME
1150 ))
1151 ;; standard icons / actions
1152 (tool-bar-add-item "close" 1128 (tool-bar-add-item "close"
1153 'newsticker-treeview-quit 1129 'newsticker-treeview-quit
1154 'newsticker-treeview-quit 1130 'newsticker-treeview-quit
generated by cgit v1.2.1 (git 2.18.0) at 2026-02-04 19:54:49 +0000