;;; Nhat Minh's News Ticker configuration

;; This code is public domain.

;; This file is part of my Emacs configuration. Please see also my
;; main .emacs file.

;; -- Nhat Minh Lê <nhat.minh.le@huoc.org>

;; My feeds.
;; (setq newsticker-url-list
;;       (with-temp-buffer
;; 	(insert-file-contents (concat my-dot-emacs-dir "/newst-feeds"))
;; 	(read (current-buffer))))

;; Retrieval settings. On (Net)BSD, use ftp(1) instead of wget(1).
;; XXX: Should be 86400 but Emacs hangs when my connection dies...
(setq newsticker-retrieval-interval 0
      newsticker-retrieval-method 'extern)
;; (defvar my-newsticker-timeout 5)
;; (when (eq system-type 'berkeley-unix)
;;   (setq newsticker-wget-name "ftp"
;; 	newsticker-wget-arguments
;; 	(list "-q" (number-to-string my-newsticker-timeout) "-o" "-")))
(setq newsticker-wget-name "getfeed"
      newsticker-wget-arguments '())

;; Interface settings.
(setq newsticker-automatically-mark-visited-items-as-old nil
      newsticker-frontend 'newsticker-treeview
      newsticker-use-full-width nil)

;; For some reason, `v' seems to be bound to some *other* URL browsing
;; function, by default.
(when (require 'newsticker-treeview "newst-treeview" t)
  (define-key newsticker--treeview-url-keymap (kbd "v")
    'newsticker-browse-url))

;; Sample enclosure auto-download function.
(defvar my-newsticker-download-enclosures-regexp nil)
(defun my-newsticker-download-enclosures (feed title desc)
  "Download enclosures selectively, if title matches
`my-newsticker-download-enclosures-regexp'."
  (when (and
	 my-newsticker-download-enclosures-regexp
	 (string-match title my-newsticker-download-enclosures-regexp))
    (newsticker-download-enclosures feed title)))

;; Make News Ticker display HTML with images.
(when (require 'w3m nil t)
  (defun my-w3m-region (start end &optional url charset)
    "`w3m-region' with forced images. This uses the undocumented
variable `w3m-image-no-idle-timer'."
    (interactive "r")
    (let ((w3m-image-no-idle-timer t))
      (w3m-region start end url charset)))
  (setq newsticker-html-renderer 'my-w3m-region))