lisp/net/newst-reader.el

   1 ;;; newst-reader.el --- Generic RSS reader functions.
   2
   3 ;; Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
   4 ;;   Free Software Foundation, Inc.
   5
   6 ;; Author:      Ulf Jasper <ulf.jasper@web.de>
   7 ;; Filename:    newst-reader.el
   8 ;; URL:         http://www.nongnu.org/newsticker
   9 ;; Time-stamp:  "6. Dezember 2009, 19:16:38 (ulf)"
  10 ;; Package:     newsticker
  11
  12 ;; ======================================================================
  13
  14 ;; This file is part of GNU Emacs.
  15
  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.
  20
  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.
  25
  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/>.
  28
  29 ;; ======================================================================
  30 ;;; Commentary:
  31
  32 ;; See newsticker.el
  33
  34 ;; ======================================================================
  35 ;;; Code:
  36
  37 (require 'newst-backend)
  38
  39 ;; ======================================================================
  40 ;;; Customization
  41 ;; ======================================================================
  42 (defun newsticker--set-customvar-formatting (symbol value)
  43   "Set newsticker-variable SYMBOL value to VALUE.
  44 Calls all actions which are necessary in order to make the new
  45 value effective."
  46   (if (or (not (boundp symbol))
  47           (equal (symbol-value symbol) value))
  48       (set symbol value)
  49     ;; something must have changed
  50     (set symbol value)
  51     (when (fboundp 'newsticker--forget-preformatted)
  52       (newsticker--forget-preformatted))))
  53
  54 ;; ======================================================================
  55 ;; reader
  56 (defgroup newsticker-reader nil
  57   "Settings for the feed reader."
  58   :group 'newsticker)
  59
  60 (defcustom newsticker-frontend
  61   'newsticker-treeview
  62   "Newsticker frontend for reading news.
  63 This must be one of the functions `newsticker-plainview' or
  64 `newsticker-treeview'."
  65   :type '(choice :tag "Frontend"
  66                  (const :tag "Single buffer (plainview)" newsticker-plainview)
  67                  (const :tag "Tree view (treeview)" newsticker-treeview))
  68   :group 'newsticker-reader)
  69
  70 ;; image related things
  71 (defcustom newsticker-enable-logo-manipulations
  72   t
  73   "If non-nil newsticker manipulates logo images.
  74 This enables the following image properties: heuristic mask for all
  75 logos, and laplace-conversion for images without new items."
  76   :type 'boolean
  77   :group 'newsticker-reader)
  78
  79 (defcustom newsticker-justification
  80   'left
  81   "How to fill item descriptions.
  82 If non-nil newsticker calls `fill-region' to wrap long lines in
  83 item descriptions.  However, if an item description contains HTML
  84 text and `newsticker-html-renderer' is non-nil, filling is not
  85 done."
  86   :type '(choice :tag "Justification"
  87                  (const :tag "No filling" nil)
  88                  (const :tag "Left"       left)
  89                  (const :tag "Right"      right)
  90                  (const :tag "Center"     center)
  91                  (const :tag "Full"       full))
  92   :set 'newsticker--set-customvar-formatting
  93   :group 'newsticker-reader)
  94
  95 (defcustom newsticker-use-full-width
  96   t
  97   "Decides whether to use the full window width when filling.
  98 If non-nil newsticker sets `fill-column' so that the whole
  99 window is used when filling.  See also `newsticker-justification'."
 100   :type 'boolean
 101   :set 'newsticker--set-customvar-formatting
 102   :group 'newsticker-reader)
 103
 104 (defcustom newsticker-html-renderer
 105   nil
 106   "Function for rendering HTML contents.
 107 If non-nil, newsticker.el will call this function whenever it finds
 108 HTML-like tags in item descriptions.  Possible functions are, for
 109 example, `w3m-region', `w3-region', and (if you have htmlr.el installed)
 110 `newsticker-htmlr-render'.
 111
 112 In order to make sure that the HTML renderer is loaded when you
 113 run newsticker, you should add one of the following statements to
 114 your .emacs.  If you use w3m,
 115
 116   (autoload 'w3m-region \"w3m\"
 117     \"Render region in current buffer and replace with result.\" t)
 118
 119   (autoload 'w3m-toggle-inline-image \"w3m\"
 120     \"Toggle the visibility of an image under point.\" t)
 121
 122 or, if you use w3,
 123
 124   (require 'w3-auto)
 125
 126 or, if you use htmlr
 127
 128   (require 'htmlr)"
 129   :type '(choice :tag "Function"
 130                  (const :tag "None" nil)
 131                  (const :tag "w3" w3-region)
 132                  (const :tag "w3m" w3m-region)
 133                  (const :tag "htmlr" newsticker-htmlr-render))
 134   :set 'newsticker--set-customvar-formatting
 135   :group 'newsticker-reader)
 136
 137 (defcustom newsticker-date-format
 138   "(%A, %H:%M)"
 139   "Format for the date part in item and feed lines.
 140 See `format-time-string' for a list of valid specifiers."
 141   :type 'string
 142   :set 'newsticker--set-customvar-formatting
 143   :group 'newsticker-reader)
 144
 145 (defgroup newsticker-faces nil
 146   "Settings for the faces of the feed reader."
 147   :group 'newsticker-reader)
 148
 149 (defface newsticker-feed-face
 150   '((((class color) (background dark))
 151      (:family "helvetica" :bold t :height 1.2 :foreground "misty rose"))
 152     (((class color) (background light))
 153      (:family "helvetica" :bold t :height 1.2 :foreground "black")))
 154   "Face for news feeds."
 155   :group 'newsticker-faces)
 156
 157 (defface newsticker-extra-face
 158   '((((class color) (background dark))
 159      (:italic t :foreground "gray50" :height 0.8))
 160     (((class color) (background light))
 161      (:italic t :foreground "gray50" :height 0.8)))
 162   "Face for newsticker dates."
 163   :group 'newsticker-faces)
 164
 165 (defface newsticker-enclosure-face
 166   '((((class color) (background dark))
 167      (:bold t :background "orange"))
 168     (((class color) (background light))
 169      (:bold t :background "orange")))
 170   "Face for enclosed elements."
 171   :group 'newsticker-faces)
 172
 173 ;; ======================================================================
 174 ;;; Utility functions
 175 ;; ======================================================================
 176 (defun newsticker--insert-enclosure (item keymap)
 177   "Insert enclosure element of a news ITEM into the current buffer.
 178 KEYMAP will be applied."
 179   (let ((enclosure (newsticker--enclosure item))
 180         (beg (point)))
 181     (when enclosure
 182       (let ((url (cdr (assoc 'url enclosure)))
 183             (length (string-to-number (or (cdr (assoc 'length enclosure))
 184                                           "-1")))
 185             (type (cdr (assoc 'type enclosure))))
 186         (cond ((> length 1048576)
 187                (insert (format "Enclosed file (%s, %1.2f MBytes)" type
 188                                (/ length 1048576))))
 189               ((> length 1024)
 190                (insert (format "Enclosed file (%s, %1.2f KBytes)" type
 191                                (/ length 1024))))
 192               ((> length 0)
 193                (insert (format "Enclosed file (%s, %1.2f Bytes)" type
 194                                length)))
 195               (t
 196                (insert (format "Enclosed file (%s, unknown size)" type))))
 197         (add-text-properties beg (point)
 198                              (list 'mouse-face 'highlight
 199                                    'nt-link url
 200                                    'help-echo (format
 201                                                "mouse-2: visit (%s)" url)
 202                                    'keymap keymap
 203                                    'nt-face 'enclosure
 204                                    'nt-type 'desc))
 205         (insert "\n")))))
 206
 207 (defun newsticker--print-extra-elements (item keymap)
 208   "Insert extra-elements of ITEM in a pretty form into the current buffer.
 209 KEYMAP is applied."
 210   (let ((ignored-elements '(items link title description content
 211                                   content:encoded dc:subject
 212                                   dc:date entry item guid pubDate
 213                                   published updated
 214                                   enclosure))
 215         (left-column-width 1))
 216     (mapc (lambda (extra-element)
 217             (when (listp extra-element) ;; take care of broken xml
 218                                         ;; data, 2007-05-25
 219               (unless (memq (car extra-element) ignored-elements)
 220                 (setq left-column-width (max left-column-width
 221                                              (length (symbol-name
 222                                                       (car extra-element))))))))
 223           (newsticker--extra item))
 224     (mapc (lambda (extra-element)
 225             (when (listp extra-element) ;; take care of broken xml
 226                                         ;; data, 2007-05-25
 227               (unless (memq (car extra-element) ignored-elements)
 228                 (newsticker--do-print-extra-element extra-element
 229                                                     left-column-width
 230                                                     keymap))))
 231           (newsticker--extra item))))
 232
 233 (defun newsticker--do-print-extra-element (extra-element width keymap)
 234   "Actually print an EXTRA-ELEMENT using the given WIDTH.
 235 KEYMAP is applied."
 236   (let ((name (symbol-name (car extra-element))))
 237     (insert (format "%s: " name))
 238     (insert (make-string (- width (length name)) ? )))
 239   (let (;;(attributes (cadr extra-element)) ;FIXME!!!!
 240         (contents (cddr extra-element)))
 241     (cond ((listp contents)
 242            (mapc (lambda (i)
 243                    (if (and (stringp i)
 244                             (string-match "^http://.*" i))
 245                        (let ((pos (point)))
 246                          (insert i " ") ; avoid self-reference from the
 247                                         ; nt-link thing
 248                          (add-text-properties
 249                           pos (point)
 250                           (list 'mouse-face 'highlight
 251                                 'nt-link i
 252                                 'help-echo
 253                                 (format "mouse-2: visit (%s)" i)
 254                                 'keymap keymap)))
 255                          (insert (format "%s" i))))
 256                  contents))
 257           (t
 258            (insert (format "%s" contents))))
 259     (insert "\n")))
 260
 261 (defun newsticker--image-read (feed-name-symbol disabled)
 262   "Read the cached image for FEED-NAME-SYMBOL from disk.
 263 If DISABLED is non-nil the image will be converted to a disabled look
 264 \(unless `newsticker-enable-logo-manipulations' is not t\).
 265 Return the image."
 266   (let ((image-name (concat (newsticker--images-dir)
 267                             (symbol-name feed-name-symbol)))
 268         (img nil))
 269     (when (file-exists-p image-name)
 270       (condition-case error-data
 271           (setq img (create-image
 272                      image-name nil nil
 273                      :conversion (and newsticker-enable-logo-manipulations
 274                                       disabled
 275                                       'disabled)
 276                      :mask (and newsticker-enable-logo-manipulations
 277                                 'heuristic)
 278                      :ascent 70))
 279         (error
 280          (message "Error: cannot create image for %s: %s"
 281                   feed-name-symbol error-data))))
 282     img))
 283
 284 ;; the functions we need for retrieval and display
 285 ;;;###autoload
 286 (defun newsticker-show-news ()
 287   "Start reading news.  You may want to bind this to a key."
 288   (interactive)
 289   (newsticker-start t) ;; will start only if not running
 290   (funcall newsticker-frontend))
 291
 292 ;; ======================================================================
 293 ;;; Toolbar
 294 ;; ======================================================================
 295 (defconst newsticker--next-item-image
 296   (and (fboundp 'image-type-available-p)
 297        (image-type-available-p 'xpm)
 298        (create-image "/* XPM */
 299 static char * next_xpm[] = {
 300 \"24 24 42 1\",
 301 \"      c None\",
 302 \".     c #000000\",
 303 \"+     c #7EB6DE\",
 304 \"@     c #82BBE2\",
 305 \"#     c #85BEE4\",
 306 \"$     c #88C1E7\",
 307 \"%     c #8AC3E8\",
 308 \"&     c #87C1E6\",
 309 \"*     c #8AC4E9\",
 310 \"=     c #8CC6EA\",
 311 \"-     c #8CC6EB\",
 312 \";     c #88C2E7\",
 313 \">     c #8BC5E9\",
 314 \",     c #8DC7EB\",
 315 \"'     c #87C0E6\",
 316 \")     c #8AC4E8\",
 317 \"!     c #8BC5EA\",
 318 \"~     c #8BC4E9\",
 319 \"{     c #88C1E6\",
 320 \"]     c #89C3E8\",
 321 \"^     c #86BFE5\",
 322 \"/     c #83BBE2\",
 323 \"(     c #82BBE1\",
 324 \"_     c #86C0E5\",
 325 \":     c #87C0E5\",
 326 \"<     c #83BCE2\",
 327 \"[     c #81B9E0\",
 328 \"}     c #81BAE1\",
 329 \"|     c #78B0D9\",
 330 \"1     c #7BB3DB\",
 331 \"2     c #7DB5DD\",
 332 \"3     c #7DB6DD\",
 333 \"4     c #72A9D4\",
 334 \"5     c #75ACD6\",
 335 \"6     c #76AED7\",
 336 \"7     c #77AFD8\",
 337 \"8     c #6BA1CD\",
 338 \"9     c #6EA4CF\",
 339 \"0     c #6FA6D1\",
 340 \"a     c #6298C6\",
 341 \"b     c #659BC8\",
 342 \"c     c #5C91C0\",
 343 \"                        \",
 344 \"                        \",
 345 \"       .                \",
 346 \"       ..               \",
 347 \"       .+.              \",
 348 \"       .@#.             \",
 349 \"       .#$%.            \",
 350 \"       .&*=-.           \",
 351 \"       .;>,,,.          \",
 352 \"       .;>,,,=.         \",
 353 \"       .')!==~;.        \",
 354 \"       .#{]*%;^/.       \",
 355 \"       .(#_':#<.        \",
 356 \"       .+[@</}.         \",
 357 \"       .|1232.          \",
 358 \"       .4567.           \",
 359 \"       .890.            \",
 360 \"       .ab.             \",
 361 \"       .c.              \",
 362 \"       ..               \",
 363 \"       .                \",
 364 \"                        \",
 365 \"                        \",
 366 \"                        \"};
 367 "
 368                      'xpm t))
 369   "Image for the next item button.")
 370
 371 (defconst newsticker--previous-item-image
 372   (and (fboundp 'image-type-available-p)
 373        (image-type-available-p 'xpm)
 374        (create-image "/* XPM */
 375 static char * previous_xpm[] = {
 376 \"24 24 39 1\",
 377 \"      c None\",
 378 \".     c #000000\",
 379 \"+     c #7BB3DB\",
 380 \"@     c #83BCE2\",
 381 \"#     c #7FB8DF\",
 382 \"$     c #89C2E7\",
 383 \"%     c #86BFE5\",
 384 \"&     c #83BBE2\",
 385 \"*     c #8CC6EA\",
 386 \"=     c #8BC4E9\",
 387 \"-     c #88C2E7\",
 388 \";     c #85BEE4\",
 389 \">     c #8DC7EB\",
 390 \",     c #89C3E8\",
 391 \"'     c #8AC4E8\",
 392 \")     c #8BC5EA\",
 393 \"!     c #88C1E6\",
 394 \"~     c #8AC4E9\",
 395 \"{     c #8AC3E8\",
 396 \"]     c #86C0E5\",
 397 \"^     c #87C0E6\",
 398 \"/     c #87C0E5\",
 399 \"(     c #82BBE2\",
 400 \"_     c #81BAE1\",
 401 \":     c #7FB7DF\",
 402 \"<     c #7DB6DD\",
 403 \"[     c #7DB5DD\",
 404 \"}     c #7CB4DC\",
 405 \"|     c #79B1DA\",
 406 \"1     c #76ADD7\",
 407 \"2     c #77AFD8\",
 408 \"3     c #73AAD4\",
 409 \"4     c #70A7D1\",
 410 \"5     c #6EA5D0\",
 411 \"6     c #6CA2CE\",
 412 \"7     c #689ECB\",
 413 \"8     c #6399C7\",
 414 \"9     c #6095C4\",
 415 \"0     c #5C90C0\",
 416 \"                        \",
 417 \"                        \",
 418 \"                .       \",
 419 \"               ..       \",
 420 \"              .+.       \",
 421 \"             .@#.       \",
 422 \"            .$%&.       \",
 423 \"           .*=-;.       \",
 424 \"          .>>*,%.       \",
 425 \"         .>>>*,%.       \",
 426 \"        .')**=-;.       \",
 427 \"       .;!,~{-%&.       \",
 428 \"        .;]^/;@#.       \",
 429 \"         .(@&_:+.       \",
 430 \"          .<[}|1.       \",
 431 \"           .2134.       \",
 432 \"            .567.       \",
 433 \"             .89.       \",
 434 \"              .0.       \",
 435 \"               ..       \",
 436 \"                .       \",
 437 \"                        \",
 438 \"                        \",
 439 \"                        \"};
 440 "
 441                      'xpm t))
 442   "Image for the previous item button.")
 443
 444 (defconst newsticker--previous-feed-image
 445   (and (fboundp 'image-type-available-p)
 446        (image-type-available-p 'xpm)
 447        (create-image "/* XPM */
 448 static char * prev_feed_xpm[] = {
 449 \"24 24 52 1\",
 450 \"      c None\",
 451 \".     c #000000\",
 452 \"+     c #70A7D2\",
 453 \"@     c #75ADD6\",
 454 \"#     c #71A8D3\",
 455 \"$     c #79B1DA\",
 456 \"%     c #7BB3DB\",
 457 \"&     c #7DB5DD\",
 458 \"*     c #83BBE2\",
 459 \"=     c #7EB6DE\",
 460 \"-     c #78B0D9\",
 461 \";     c #7FB7DE\",
 462 \">     c #88C2E7\",
 463 \",     c #85BEE4\",
 464 \"'     c #80B9E0\",
 465 \")     c #80B8DF\",
 466 \"!     c #8CC6EA\",
 467 \"~     c #89C3E8\",
 468 \"{     c #86BFE5\",
 469 \"]     c #81BAE1\",
 470 \"^     c #7CB4DC\",
 471 \"/     c #7FB8DF\",
 472 \"(     c #8DC7EB\",
 473 \"_     c #7BB3DC\",
 474 \":     c #7EB7DE\",
 475 \"<     c #8BC4E9\",
 476 \"[     c #8AC4E9\",
 477 \"}     c #8AC3E8\",
 478 \"|     c #87C0E6\",
 479 \"1     c #87C0E5\",
 480 \"2     c #83BCE2\",
 481 \"3     c #75ACD6\",
 482 \"4     c #7FB7DF\",
 483 \"5     c #77AED8\",
 484 \"6     c #71A8D2\",
 485 \"7     c #70A7D1\",
 486 \"8     c #76ADD7\",
 487 \"9     c #6CA2CE\",
 488 \"0     c #699FCC\",
 489 \"a     c #73AAD4\",
 490 \"b     c #6BA1CD\",
 491 \"c     c #669CC9\",
 492 \"d     c #6298C5\",
 493 \"e     c #689ECB\",
 494 \"f     c #6499C7\",
 495 \"g     c #6095C3\",
 496 \"h     c #5C91C0\",
 497 \"i     c #5E93C2\",
 498 \"j     c #5B90C0\",
 499 \"k     c #588CBC\",
 500 \"l     c #578CBC\",
 501 \"m     c #5589BA\",
 502 \"                        \",
 503 \"                        \",
 504 \"     ...          .     \",
 505 \"     .+.         ..     \",
 506 \"     .@.        .#.     \",
 507 \"     .$.       .%@.     \",
 508 \"     .&.      .*=-.     \",
 509 \"     .;.     .>,'%.     \",
 510 \"     .).    .!~{]^.     \",
 511 \"     ./.   .(!~{]_.     \",
 512 \"     .:.  .!!<>,'%.     \",
 513 \"     .&. .~[}>{*=-.     \",
 514 \"     .$.  .|1,2/%@.     \",
 515 \"     .3.   .*]4%56.     \",
 516 \"     .7.    .^$8#9.     \",
 517 \"     .0.     .a7bc.     \",
 518 \"     .d.      .efg.     \",
 519 \"     .h.       .ij.     \",
 520 \"     .k.        .l.     \",
 521 \"     .m.         ..     \",
 522 \"     ...          .     \",
 523 \"                        \",
 524 \"                        \",
 525 \"                        \"};
 526 "
 527                      'xpm t))
 528   "Image for the previous feed button.")
 529
 530 (defconst newsticker--next-feed-image
 531   (and (fboundp 'image-type-available-p)
 532        (image-type-available-p 'xpm)
 533        (create-image "/* XPM */
 534 static char * next_feed_xpm[] = {
 535 \"24 24 57 1\",
 536 \"      c None\",
 537 \".     c #000000\",
 538 \"+     c #6CA2CE\",
 539 \"@     c #75ADD6\",
 540 \"#     c #71A8D3\",
 541 \"$     c #79B1DA\",
 542 \"%     c #7EB7DE\",
 543 \"&     c #7DB5DD\",
 544 \"*     c #81BAE1\",
 545 \"=     c #85BEE4\",
 546 \"-     c #78B0D9\",
 547 \";     c #7FB7DE\",
 548 \">     c #83BCE3\",
 549 \",     c #87C1E6\",
 550 \"'     c #8AC4E9\",
 551 \")     c #7BB3DB\",
 552 \"!     c #80B8DF\",
 553 \"~     c #88C2E7\",
 554 \"{     c #8BC5E9\",
 555 \"]     c #8DC7EB\",
 556 \"^     c #7CB4DC\",
 557 \"/     c #7FB8DF\",
 558 \"(     c #84BDE3\",
 559 \"_     c #7BB3DC\",
 560 \":     c #83BCE2\",
 561 \"<     c #87C0E6\",
 562 \"[     c #8AC4E8\",
 563 \"}     c #8BC5EA\",
 564 \"|     c #8CC6EA\",
 565 \"1     c #88C1E6\",
 566 \"2     c #89C3E8\",
 567 \"3     c #8AC3E8\",
 568 \"4     c #7EB6DE\",
 569 \"5     c #82BBE1\",
 570 \"6     c #86C0E5\",
 571 \"7     c #87C0E5\",
 572 \"8     c #75ACD6\",
 573 \"9     c #7AB2DA\",
 574 \"0     c #81B9E0\",
 575 \"a     c #82BBE2\",
 576 \"b     c #71A8D2\",
 577 \"c     c #70A7D1\",
 578 \"d     c #74ACD6\",
 579 \"e     c #699FCC\",
 580 \"f     c #6EA5D0\",
 581 \"g     c #72A9D4\",
 582 \"h     c #669CC9\",
 583 \"i     c #6298C5\",
 584 \"j     c #679DCA\",
 585 \"k     c #6BA1CD\",
 586 \"l     c #6095C3\",
 587 \"m     c #5C91C0\",
 588 \"n     c #5F94C2\",
 589 \"o     c #5B90C0\",
 590 \"p     c #588CBC\",
 591 \"q     c #578CBC\",
 592 \"r     c #5589BA\",
 593 \"                        \",
 594 \"                        \",
 595 \"     .          ...     \",
 596 \"     ..         .+.     \",
 597 \"     .@.        .#.     \",
 598 \"     .$%.       .@.     \",
 599 \"     .&*=.      .-.     \",
 600 \"     .;>,'.     .).     \",
 601 \"     .!=~{].    .^.     \",
 602 \"     ./(~{]].   ._.     \",
 603 \"     .%:<[}||.  .).     \",
 604 \"     .&*=12'3~. .-.     \",
 605 \"     .$45=6<7.  .@.     \",
 606 \"     .8940a:.   .b.     \",
 607 \"     .cd-)&.    .+.     \",
 608 \"     .efg8.     .h.     \",
 609 \"     .ijk.      .l.     \",
 610 \"     .mn.       .o.     \",
 611 \"     .p.        .q.     \",
 612 \"     ..         .r.     \",
 613 \"     .          ...     \",
 614 \"                        \",
 615 \"                        \",
 616 \"                        \"};
 617 "
 618                      'xpm t))
 619   "Image for the next feed button.")
 620
 621 (defconst newsticker--mark-read-image
 622   (and (fboundp 'image-type-available-p)
 623        (image-type-available-p 'xpm)
 624        (create-image "/* XPM */
 625 static char * mark_read_xpm[] = {
 626 \"24 24 44 1\",
 627 \"      c None\",
 628 \".     c #C20000\",
 629 \"+     c #BE0000\",
 630 \"@     c #C70000\",
 631 \"#     c #CE0000\",
 632 \"$     c #C90000\",
 633 \"%     c #BD0000\",
 634 \"&     c #CB0000\",
 635 \"*     c #D10000\",
 636 \"=     c #D70000\",
 637 \"-     c #D30000\",
 638 \";     c #CD0000\",
 639 \">     c #C60000\",
 640 \",     c #D40000\",
 641 \"'     c #DA0000\",
 642 \")     c #DE0000\",
 643 \"!     c #DB0000\",
 644 \"~     c #D60000\",
 645 \"{     c #D00000\",
 646 \"]     c #DC0000\",
 647 \"^     c #E00000\",
 648 \"/     c #E40000\",
 649 \"(     c #E10000\",
 650 \"_     c #DD0000\",
 651 \":     c #D80000\",
 652 \"<     c #E50000\",
 653 \"[     c #E70000\",
 654 \"}     c #E60000\",
 655 \"|     c #E20000\",
 656 \"1     c #E90000\",
 657 \"2     c #E80000\",
 658 \"3     c #E30000\",
 659 \"4     c #DF0000\",
 660 \"5     c #D90000\",
 661 \"6     c #CC0000\",
 662 \"7     c #C10000\",
 663 \"8     c #C30000\",
 664 \"9     c #BF0000\",
 665 \"0     c #B90000\",
 666 \"a     c #BC0000\",
 667 \"b     c #BB0000\",
 668 \"c     c #B80000\",
 669 \"d     c #B50000\",
 670 \"e     c #B70000\",
 671 \"                        \",
 672 \"                        \",
 673 \"                        \",
 674 \"    .              +    \",
 675 \"   +@#            $.%   \",
 676 \"    &*=          -;>    \",
 677 \"     ,')        !~{     \",
 678 \"      ]^/      (_:      \",
 679 \"       (<[    }|)       \",
 680 \"        <[1  2<|        \",
 681 \"         }222[<         \",
 682 \"          }}}<          \",
 683 \"          333|          \",
 684 \"         _4^4)]         \",
 685 \"        ~:'  5=-        \",
 686 \"       6{-    *#$       \",
 687 \"      7>$      @89      \",
 688 \"     0a+        %bc     \",
 689 \"    ddc          edd    \",
 690 \"   ddd            ddd   \",
 691 \"    d              d    \",
 692 \"                        \",
 693 \"                        \",
 694 \"                        \"};
 695 "
 696                     'xpm t))
 697    "Image for the mark read button.")
 698
 699 (defconst newsticker--mark-immortal-image
 700   (and (fboundp 'image-type-available-p)
 701        (image-type-available-p 'xpm)
 702        (create-image "/* XPM */
 703 static char * mark_immortal_xpm[] = {
 704 \"24 24 93 2\",
 705 \"      c None\",
 706 \".     c #171717\",
 707 \"+     c #030303\",
 708 \"@     c #000000\",
 709 \"#     c #181818\",
 710 \"$     c #090909\",
 711 \"%     c #FFC960\",
 712 \"&     c #FFCB61\",
 713 \"*     c #FFCB62\",
 714 \"=     c #FFC961\",
 715 \"-     c #FFC75F\",
 716 \";     c #FFC65E\",
 717 \">     c #FFCA61\",
 718 \",     c #FFCD63\",
 719 \"'     c #FFCF65\",
 720 \")     c #FFD065\",
 721 \"!     c #FFCE64\",
 722 \"~     c #FFC35C\",
 723 \"{     c #FFC45D\",
 724 \"]     c #FFD166\",
 725 \"^     c #FFD267\",
 726 \"/     c #FFD368\",
 727 \"(     c #FFD167\",
 728 \"_     c #FFC05A\",
 729 \":     c #010101\",
 730 \"<     c #040404\",
 731 \"[     c #FFCC62\",
 732 \"}     c #FFD569\",
 733 \"|     c #FFD56A\",
 734 \"1     c #FFC860\",
 735 \"2     c #FFC25B\",
 736 \"3     c #FFBB56\",
 737 \"4     c #020202\",
 738 \"5     c #060606\",
 739 \"6     c #FFC15B\",
 740 \"7     c #FFC85F\",
 741 \"8     c #FFD469\",
 742 \"9     c #FFD66A\",
 743 \"0     c #FFBC57\",
 744 \"a     c #1B1B1B\",
 745 \"b     c #070707\",
 746 \"c     c #FFBA55\",
 747 \"d     c #FFB451\",
 748 \"e     c #FFB954\",
 749 \"f     c #FFB350\",
 750 \"g     c #FFB652\",
 751 \"h     c #FFBE58\",
 752 \"i     c #FFCD64\",
 753 \"j     c #FFD066\",
 754 \"k     c #FFC059\",
 755 \"l     c #FFB14E\",
 756 \"m     c #0B0B0B\",
 757 \"n     c #FFBB55\",
 758 \"o     c #FFC15A\",
 759 \"p     c #FFB552\",
 760 \"q     c #FFAD4B\",
 761 \"r     c #080808\",
 762 \"s     c #FFAF4C\",
 763 \"t     c #FFB853\",
 764 \"u     c #FFA948\",
 765 \"v     c #050505\",
 766 \"w     c #FFB04E\",
 767 \"x     c #FFB753\",
 768 \"y     c #FFBC56\",
 769 \"z     c #FFC55D\",
 770 \"A     c #FFC55E\",
 771 \"B     c #FFC45C\",
 772 \"C     c #FFBD57\",
 773 \"D     c #FFB854\",
 774 \"E     c #FFB34F\",
 775 \"F     c #FFAB4A\",
 776 \"G     c #FFA545\",
 777 \"H     c #FFAA49\",
 778 \"I     c #FFB04D\",
 779 \"J     c #FFB551\",
 780 \"K     c #FFBF58\",
 781 \"L     c #FFB24F\",
 782 \"M     c #FFAC4A\",
 783 \"N     c #FFA646\",
 784 \"O     c #FFA344\",
 785 \"P     c #FFA848\",
 786 \"Q     c #FFB14F\",
 787 \"R     c #FFAF4D\",
 788 \"S     c #FFA546\",
 789 \"T     c #FFA243\",
 790 \"U     c #FFA445\",
 791 \"V     c #FFAE4C\",
 792 \"W     c #FFA444\",
 793 \"X     c #FFA142\",
 794 \"Y     c #FF9F41\",
 795 \"Z     c #0A0A0A\",
 796 \"`     c #FF9E40\",
 797 \" .    c #FF9F40\",
 798 \"                                                \",
 799 \"                                                \",
 800 \"                                                \",
 801 \"                  . + @ @ + #                   \",
 802 \"              $ @ % & * * = - + +               \",
 803 \"            @ ; > , ' ) ' ! * - ~ @             \",
 804 \"          @ { > ! ] ^ / / ( ' * ; _ :           \",
 805 \"        < _ ; [ ) / } | } / ] , 1 2 3 4         \",
 806 \"        5 6 7 , ] 8 9 9 9 } ^ ! = ~ 0 a         \",
 807 \"      b c 6 - , ] 8 9 9 9 } ^ ! % ~ 0 d 5       \",
 808 \"      : e _ ; * ) / 8 } } / ] , 1 2 3 f 5       \",
 809 \"      : g h { = i j ^ / ^ ] ! * ; k e l m       \",
 810 \"      : f n o ; > , ' ) ' ! * - 2 0 p q r       \",
 811 \"      : s g 0 6 ; % > * * = - ~ h t l u r       \",
 812 \"      v u w x y k ~ z A z B o C D E F G b       \",
 813 \"        5 H I J e 0 h K h C c x L M N .         \",
 814 \"        4 O P q Q d g x g J L R H S T <         \",
 815 \"          @ T U P F q V q M H N W X +           \",
 816 \"            @ Y T O W G G W O X Y @             \",
 817 \"              4 Z ` Y Y Y  .` 4 4               \",
 818 \"                  5 : : @ @ Z                   \",
 819 \"                                                \",
 820 \"                                                \",
 821 \"                                                \"};
 822 "
 823                      'xpm t))
 824   "Image for the mark immortal button.")
 825
 826 (defconst newsticker--narrow-image
 827   (and (fboundp 'image-type-available-p)
 828        (image-type-available-p 'xpm)
 829        (create-image "/* XPM */
 830 static char * narrow_xpm[] = {
 831 \"24 24 48 1\",
 832 \"      c None\",
 833 \".     c #000000\",
 834 \"+     c #969696\",
 835 \"@     c #9E9E9E\",
 836 \"#     c #A4A4A4\",
 837 \"$     c #AAAAAA\",
 838 \"%     c #AEAEAE\",
 839 \"&     c #B1B1B1\",
 840 \"*     c #B3B3B3\",
 841 \"=     c #B4B4B4\",
 842 \"-     c #B2B2B2\",
 843 \";     c #AFAFAF\",
 844 \">     c #ABABAB\",
 845 \",     c #A6A6A6\",
 846 \"'     c #A0A0A0\",
 847 \")     c #989898\",
 848 \"!     c #909090\",
 849 \"~     c #73AAD4\",
 850 \"{     c #7AB2DA\",
 851 \"]     c #7FB8DF\",
 852 \"^     c #84BDE3\",
 853 \"/     c #88C2E7\",
 854 \"(     c #8BC5E9\",
 855 \"_     c #8DC7EB\",
 856 \":     c #8CC6EA\",
 857 \"<     c #89C3E8\",
 858 \"[     c #86BFE5\",
 859 \"}     c #81BAE1\",
 860 \"|     c #7BB3DC\",
 861 \"1     c #75ACD6\",
 862 \"2     c #6DA4CF\",
 863 \"3     c #979797\",
 864 \"4     c #A3A3A3\",
 865 \"5     c #A8A8A8\",
 866 \"6     c #ADADAD\",
 867 \"7     c #ACACAC\",
 868 \"8     c #A9A9A9\",
 869 \"9     c #A5A5A5\",
 870 \"0     c #9A9A9A\",
 871 \"a     c #929292\",
 872 \"b     c #8C8C8C\",
 873 \"c     c #808080\",
 874 \"d     c #818181\",
 875 \"e     c #838383\",
 876 \"f     c #848484\",
 877 \"g     c #858585\",
 878 \"h     c #868686\",
 879 \"i     c #828282\",
 880 \"                        \",
 881 \"                        \",
 882 \"                        \",
 883 \"   ..................   \",
 884 \"   .+@#$%&*=*-;>,')!.   \",
 885 \"   ..................   \",
 886 \"                        \",
 887 \"                        \",
 888 \"   ..................   \",
 889 \"   .~{]^/(___:<[}|12.   \",
 890 \"   ..................   \",
 891 \"                        \",
 892 \"                        \",
 893 \"   ..................   \",
 894 \"   .!3@45>666789'0ab.   \",
 895 \"   ..................   \",
 896 \"                        \",
 897 \"                        \",
 898 \"   ..................   \",
 899 \"   .cccdefghhgficccc.   \",
 900 \"   ..................   \",
 901 \"                        \",
 902 \"                        \",
 903 \"                        \"};
 904 "
 905                      'xpm t))
 906   "Image for the narrow image button.")
 907
 908 (defconst newsticker--get-all-image
 909   (and (fboundp 'image-type-available-p)
 910        (image-type-available-p 'xpm)
 911        (create-image "/* XPM */
 912 static char * get_all_xpm[] = {
 913 \"24 24 70 1\",
 914 \"      c None\",
 915 \".     c #000000\",
 916 \"+     c #F3DA00\",
 917 \"@     c #F5DF00\",
 918 \"#     c #F7E300\",
 919 \"$     c #F9E700\",
 920 \"%     c #FAEA00\",
 921 \"&     c #FBEC00\",
 922 \"*     c #FBED00\",
 923 \"=     c #FCEE00\",
 924 \"-     c #FAEB00\",
 925 \";     c #F9E800\",
 926 \">     c #F8E500\",
 927 \",     c #F6E000\",
 928 \"'     c #F4DB00\",
 929 \")     c #F1D500\",
 930 \"!     c #EFD000\",
 931 \"~     c #B7CA00\",
 932 \"{     c #BFD100\",
 933 \"]     c #C5D700\",
 934 \"^     c #CBDB00\",
 935 \"/     c #CFDF00\",
 936 \"(     c #D2E200\",
 937 \"_     c #D4E400\",
 938 \":     c #D3E300\",
 939 \"<     c #D0E000\",
 940 \"[     c #CCDD00\",
 941 \"}     c #C7D800\",
 942 \"|     c #C1D300\",
 943 \"1     c #BACC00\",
 944 \"2     c #B1C500\",
 945 \"3     c #A8BC00\",
 946 \"4     c #20A900\",
 947 \"5     c #22AF00\",
 948 \"6     c #24B500\",
 949 \"7     c #26B900\",
 950 \"8     c #27BC00\",
 951 \"9     c #27BE00\",
 952 \"0     c #28BF00\",
 953 \"a     c #27BD00\",
 954 \"b     c #26BA00\",
 955 \"c     c #25B600\",
 956 \"d     c #23B100\",
 957 \"e     c #21AB00\",
 958 \"f     c #1FA400\",
 959 \"g     c #1C9B00\",
 960 \"h     c #21AA00\",
 961 \"i     c #24B300\",
 962 \"j     c #25B800\",
 963 \"k     c #25B700\",
 964 \"l     c #24B400\",
 965 \"m     c #23B000\",
 966 \"n     c #1FA500\",
 967 \"o     c #1D9E00\",
 968 \"p     c #20A800\",
 969 \"q     c #21AC00\",
 970 \"r     c #23B200\",
 971 \"s     c #22AD00\",
 972 \"t     c #1D9F00\",
 973 \"u     c #20A700\",
 974 \"v     c #1EA100\",
 975 \"w     c #1C9C00\",
 976 \"x     c #1DA000\",
 977 \"y     c #1B9800\",
 978 \"z     c #1A9600\",
 979 \"A     c #1A9700\",
 980 \"B     c #1A9500\",
 981 \"C     c #199200\",
 982 \"D     c #189100\",
 983 \"E     c #178C00\",
 984 \"                        \",
 985 \"                        \",
 986 \"                        \",
 987 \"                        \",
 988 \"   ...................  \",
 989 \"   .+@#$%&*=*&-;>,')!.  \",
 990 \"   ...................  \",
 991 \"                        \",
 992 \"   ...................  \",
 993 \"   .~{]^/(___:<[}|123.  \",
 994 \"   ...................  \",
 995 \"                        \",
 996 \"   ...................  \",
 997 \"    .45678909abcdefg.   \",
 998 \"     .h5icj7jklmeno.    \",
 999 \"      .pq5drrmshft.     \",
1000 \"       .fu4h4pnvw.      \",
1001 \"        .oxvxtwy.       \",
1002 \"         .zAAzB.        \",
1003 \"          .CCD.         \",
1004 \"           .E.          \",
1005 \"            .           \",
1006 \"                        \",
1007 \"                        \"};
1008 "
1009                      'xpm t))
1010   "Image for the get all image button.")
1011
1012 (defconst newsticker--update-image
1013   (and (fboundp 'image-type-available-p)
1014        (image-type-available-p 'xpm)
1015        (create-image "/* XPM */
1016 static char * update_xpm[] = {
1017 \"24 24 37 1\",
1018 \"      c None\",
1019 \".     c #076D00\",
1020 \"+     c #0A8600\",
1021 \"@     c #0A8800\",
1022 \"#     c #098400\",
1023 \"$     c #087200\",
1024 \"%     c #087900\",
1025 \"&     c #098500\",
1026 \"*     c #098100\",
1027 \"=     c #087600\",
1028 \"-     c #097E00\",
1029 \";     c #097F00\",
1030 \">     c #0A8700\",
1031 \",     c #0A8C00\",
1032 \"'     c #097C00\",
1033 \")     c #098300\",
1034 \"!     c #0A8900\",
1035 \"~     c #0A8E00\",
1036 \"{     c #0B9200\",
1037 \"]     c #087700\",
1038 \"^     c #076E00\",
1039 \"/     c #076C00\",
1040 \"(     c #076B00\",
1041 \"_     c #076A00\",
1042 \":     c #076900\",
1043 \"<     c #076800\",
1044 \"[     c #066700\",
1045 \"}     c #066500\",
1046 \"|     c #066400\",
1047 \"1     c #066300\",
1048 \"2     c #066600\",
1049 \"3     c #066200\",
1050 \"4     c #076700\",
1051 \"5     c #065E00\",
1052 \"6     c #066100\",
1053 \"7     c #065F00\",
1054 \"8     c #066000\",
1055 \"                        \",
1056 \"                        \",
1057 \"                        \",
1058 \"    .    +@@@+#         \",
1059 \"    $% &@      +*       \",
1060 \"    =-#          ;      \",
1061 \"    %*>,          '     \",
1062 \"    ')!~{          =    \",
1063 \"                   ]$   \",
1064 \"   ^                ^   \",
1065 \"   .                .   \",
1066 \"   /                (   \",
1067 \"   _                :   \",
1068 \"   <                [   \",
1069 \"   }                |   \",
1070 \"   [[                   \",
1071 \"    1          $.:23    \",
1072 \"     3          4}35    \",
1073 \"      6          655    \",
1074 \"       76      85 55    \",
1075 \"        5555555    5    \",
1076 \"                        \",
1077 \"                        \",
1078 \"                        \"};
1079 "
1080                      'xpm t))
1081    "Image for the update button.")
1082
1083 (defconst newsticker--browse-image
1084   (and (fboundp 'image-type-available-p)
1085        (image-type-available-p 'xpm)
1086        (create-image "/* XPM */
1087 static char * visit_xpm[] = {
1088 \"24 24 39 1\",
1089 \"      c None\",
1090 \".     c #000000\",
1091 \"+     c #FFFFFF\",
1092 \"@     c #00E63D\",
1093 \"#     c #00E83E\",
1094 \"$     c #00E73D\",
1095 \"%     c #00E93E\",
1096 \"&     c #00E63C\",
1097 \"*     c #00E53C\",
1098 \"=     c #00E23B\",
1099 \"-     c #00E33B\",
1100 \";     c #00E83D\",
1101 \">     c #00E13A\",
1102 \",     c #00DD38\",
1103 \"'     c #00DE38\",
1104 \")     c #00E23A\",
1105 \"!     c #00E43C\",
1106 \"~     c #00DF39\",
1107 \"{     c #00DB37\",
1108 \"]     c #00D634\",
1109 \"^     c #00D734\",
1110 \"/     c #00E039\",
1111 \"(     c #00DC37\",
1112 \"_     c #00D835\",
1113 \":     c #00D332\",
1114 \"<     c #00CD2F\",
1115 \"[     c #00DB36\",
1116 \"}     c #00D433\",
1117 \"|     c #00CF30\",
1118 \"1     c #00DA36\",
1119 \"2     c #00D936\",
1120 \"3     c #00D533\",
1121 \"4     c #00D131\",
1122 \"5     c #00CE2F\",
1123 \"6     c #00CC2F\",
1124 \"7     c #00CA2D\",
1125 \"8     c #00C62B\",
1126 \"9     c #00C52A\",
1127 \"0     c #00BE27\",
1128 \"                        \",
1129 \"                        \",
1130 \"            .           \",
1131 \"           .+.          \",
1132 \"          .+++.         \",
1133 \"         .++.++.        \",
1134 \"        .++.@.++.       \",
1135 \"       .++.##$.++.      \",
1136 \"      .++.%%%#&.++.     \",
1137 \"     .++.$%%%#*=.++.    \",
1138 \"    .++.-@;##$*>,.++.   \",
1139 \"   .++.')!&@@*=~{].++.  \",
1140 \"  .++.^{~>---)/(_:<.++. \",
1141 \"   .++.^[,~/~'(_}|.++.  \",
1142 \"    .++.]_1[12^:|.++.   \",
1143 \"     .++.:}33:45.++.    \",
1144 \"      .++.<5567.++.     \",
1145 \"       .++.889.++.      \",
1146 \"        .++.0.++.       \",
1147 \"         .++.++.        \",
1148 \"          .+++.         \",
1149 \"           .+.          \",
1150 \"            .           \",
1151 \"                        \"};
1152 "
1153                      'xpm t))
1154   "Image for the browse button.")
1155
1156 (defun newsticker-browse-url-item (feed item)
1157   "Convert FEED ITEM to html and call `browse-url' on result."
1158   (interactive)
1159   (let ((t-file (make-temp-file "newsticker")))
1160     (with-temp-file t-file
1161       (insert "<?xml version=\"1.0\" encoding=\"utf-8\"?>
1162                <!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\"
1163                \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">
1164                <html xmlns=\"http://www.w3.org/1999/xhtml\">
1165                <body>")
1166       (insert "<h1>" feed ": " (newsticker--title item) "</h1>")
1167       (insert (format-time-string newsticker-date-format
1168                                   (newsticker--time item)))
1169       (insert "<br/>")
1170       (insert (or (newsticker--desc item) "[No Description]"))
1171       (when (newsticker--enclosure item)
1172         (insert "<br/><hr/><i>")
1173         (newsticker--insert-enclosure item nil)
1174         (insert "</i>"))
1175       (when (newsticker--extra item)
1176         (insert "<br/><hr/><tt>")
1177         (newsticker--print-extra-elements item nil)
1178         (insert "</tt>"))
1179       (insert "</body></html>"))
1180     (browse-url t-file)))
1181
1182 (provide 'newst-reader)
1183
1184 ;; arch-tag: c604b701-bdf1-4fc1-8d05-5fabd1939533
1185 ;;; newst-reader.el ends here