SiteMap Search ElispArea HowTo Glossary RecentChanges News Problems Suggestions
Eritrea, Independence Day

init-newsticker.el

Last edit

Summary: Update

Added:

> (setq newsticker-url-list
> '(("EmacsWiki Recently Change"
> "http://www.emacswiki.org/emacs/index.rss"
> nil nil nil)
> ("Planet Emacsen"
> "http://planet.emacsen.org/atom.xml"
> nil nil nil)
> ("LUPA Open Source News"
> "http://www.lupaworld.com/myrss.php"
> nil nil nil)
> ("Google Blog Search -- Emacs"
> "http://blogsearch.google.com/blogsearch_feeds?hl=en&oe=UTF-8&q=emacs&ie=utf-8&num=10&output=atom"
> nil 86400 nil) ;一天更新一次
> ("Google Blog Search -- Haskell"
> "http://blogsearch.google.com/blogsearch_feeds?hl=en&oe=UTF-8&q=haskell&ie=utf-8&num=10&output=atom"
> nil 86400 nil) ;一天更新一次
> ))


Download

;;; init-newsticker.el --- Newsticker configuration

;; Filename: init-newsticker.el
;; Description: Newsticker configuration
;; Author: Andy Stewart lazycat.manatee@gmail.com
;; Maintainer: Andy Stewart lazycat.manatee@gmail.com
;; Copyright (C) 2008, 2009, Andy Stewart, all rights reserved.
;; Created: 2008-10-20 09:47:08
;; Version: 0.1
;; Last-Updated: 2008-10-20 09:47:08
;;           By: Andy Stewart
;; URL:
;; Keywords: Newsticker
;; Compatibility: GNU Emacs 23.0.60.1
;;
;; Features that might be required by this library:
;;
;;
;;

;;; This file is NOT part of GNU Emacs

;;; License
;;
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 3, or (at your option)
;; any later version.

;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program; see the file COPYING.  If not, write to
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth
;; Floor, Boston, MA 02110-1301, USA.

;;; Commentary:
;;
;; Newsticker configuration
;;

;;; Installation:
;;
;; Put init-newsticker.el to your load-path.
;; The load-path is usually ~/elisp/.
;; It's set in your ~/.emacs like this:
;; (add-to-list 'load-path (expand-file-name "~/elisp"))
;;
;; And the following to your ~/.emacs startup file.
;;
;; (require 'init-newsticker)
;;
;; No need more.

;;; Change log:
;;
;; 2008/10/20
;;      First released.
;;

;;; Acknowledgements:
;;
;;
;;

;;; TODO
;;
;;
;;

;;; Require


;;; Code:

(setq newsticker-dir "~/MyEmacs/Configure-File/Newsticker")  ;种子目录
(setq newsticker-url-list-defaults nil)                      ;设置默认的列表为空
(setq newsticker-automatically-mark-items-as-old t)          ;自动标记项目为已经检索的项目
(setq newsticker-automatically-mark-visited-items-as-old t)  ;自动标记已经访问过的项目
(setq newsticker-retrieval-interval 600)                     ;newsticker更新的时间周期(second)
(setq newsticker-html-renderer 'w3m-region)                  ;用w3m处理HTML格式的信息
(setq newsticker-retrieval-method 'extern)                   ;用wget抓取
(setq newsticker-treeview-treewindow-width 40)               ;树列表宽度
(setq newsticker-treeview-listwindow-height 30)              ;消息窗口高度
(setq newsticker-wget-arguments '("-q" "-O" "-"              ;wget抓取参数
                                  "--user-agent" "testing")) ;--user-agent参数是为了从google上抓取
(setq newsticker-url-list
      '(("EmacsWiki Recently Change"
         "http://www.emacswiki.org/emacs/index.rss"
         nil nil nil)
        ("Planet Emacsen"
         "http://planet.emacsen.org/atom.xml"
         nil nil nil)
        ("LUPA Open Source News"
         "http://www.lupaworld.com/myrss.php"
         nil nil nil)
        ("Google Blog Search -- Emacs"
         "http://blogsearch.google.com/blogsearch_feeds?hl=en&oe=UTF-8&q=emacs&ie=utf-8&num=10&output=atom"
         nil 86400 nil)                 ;一天更新一次
        ("Google Blog Search -- Haskell"
         "http://blogsearch.google.com/blogsearch_feeds?hl=en&oe=UTF-8&q=haskell&ie=utf-8&num=10&output=atom"
         nil 86400 nil)                 ;一天更新一次
        ))

(provide 'init-newsticker)

;;; init-newsticker.el ends here