(defmacro reddit-feed (name)
  "Return a reddit feed url"
  (concat "http://www.reddit.com/r/" name "/new/.rss?sort=new"))

(setq newsticker-automatically-mark-items-as-old nil)
(setq newsticker-html-renderer 'w3m-region)
(setq newsticker-obsolete-item-max-age 604800)
(setq newsticker-url-list
      `(("Irreal"
         "http://irreal.org/blog/?feed=rss2" nil nil nil)
        ("Arch Linux - Keeping it Simple"
         ,(reddit-feed "archlinux") nil nil nil)
        ("The C programming language"
         ,(reddit-feed "c_language") nil nil nil)
        ("C"
         ,(reddit-feed "C_Programming") nil nil nil)
        ("coding"
         ,(reddit-feed "coding") nil nil nil)
        ("Command Line"
         ,(reddit-feed "commandline") nil nil nil)
        ("Django"
         ,(reddit-feed "django") nil nil nil)
        ("M-x emacs-reddit"
         ,(reddit-feed "emacs") nil nil nil)
        ("git"
         ,(reddit-feed "git") nil nil nil)
        ("JavaScript"
         ,(reddit-feed "javascript") nil nil nil)
        ("r/Linux"
         ,(reddit-feed "linux") nil nil nil)
        ("Linux Gaming on Reddit"
         ,(reddit-feed "linux_gaming") nil nil nil)
        ("Lisp"
         ,(reddit-feed "lisp") nil nil nil)
        ("Open Source on Reddit"
         ,(reddit-feed "opensource") nil nil nil)
        ("PHP: The latest news in the PHP world"
         ,(reddit-feed "PHP") nil nil nil)
        ("programming"
         ,(reddit-feed "programming") nil nil nil)
        ("Python"
         ,(reddit-feed "Python") nil nil nil)
        ("Scheme Programming Language articles"
         ,(reddit-feed "scheme") nil nil nil)
        ("The Wayland Display Server"
         ,(reddit-feed "wayland") nil nil nil)
        ("Identity at Mozilla"
         "http://identity.mozilla.com/rss" nil nil nil)
        ("jd:/dev/blog"
         "http://julien.danjou.info/blog/index.xml" nil nil nil)
        ("KaKaRoTo's Blog"
         "http://kakaroto.homelinux.net/feed/" nil nil nil)
        ("Awhan Patnaik"
         "http://awhan.wordpress.com/feed/" nil nil nil)
        ("The Gitorious Blog"
         "http://blog.gitorious.org/feed/" nil nil nil)
        ;; ("Dieter on the web"
        ;;  "http://dieter.plaetinck.be/index.rss" nil nil nil)
        ("Public Git Hosting - conkeror.git/atom log"
         "http://repo.or.cz/w/conkeror.git/atom" nil nil nil)
        ("Stevey's Blog Rants"
         "http://steve-yegge.blogspot.com/feeds/posts/default"
         nil nil nil)
        ("Script Tutorials"
         "http://www.script-tutorials.com/feed/rss/" nil nil nil)
        ("Hacker News"
         "http://news.ycombinator.com/rss" nil nil nil)
        ("HowtoForge - Linux Howtos and Tutorials -"
         "http://www.howtoforge.com/node/feed" nil nil nil)
        ("IBM developerWorks : Linux"
         "http://www.ibm.com/developerworks/views/linux/rss/libraryview.jsp"
         nil nil nil)
        ("Linuxtoday.com"
         "http://linuxtoday.com/backend/biglt.rss" nil nil nil)
        ("Linux.com - Content Feed"
         "http://linux.com/rss/feeds.php" nil nil nil)
        ("TuxRadar feed"
         "http://www.tuxradar.com/rss" nil nil nil)
        ("Planet Emacsen"
         "http://planet.emacsen.org/atom.xml" nil nil nil)
        ("M-x all-things-emacs"
         "http://emacsblog.org/feed/" nil nil nil)
        ;; ("Xah Emacs Blog"
        ;;  "http://feeds.feedburner.com/XahsEmacsBlog" nil nil nil)
        ;; ("Mastering Emacs"
        ;;  "http://www.masteringemacs.org/feed/" nil nil nil)
        ("WikEmacs  - Recent changes [en]"
         "http://wikemacs.org/w/index.php?title=Special:RecentChanges&feed=atom"
         nil nil nil)
        ("newest questions tagged emacs - Stack Overflow"
         "http://stackoverflow.com/feeds/tag?tagnames=emacs&sort=newest"
         nil nil nil)
        ("newest questions tagged elisp - Stack Overflow"
         "http://stackoverflow.com/feeds/tag?tagnames=elisp&sort=newest"
         nil nil nil)
        ("Recent Commits to python-django.el:master"
         "https://github.com/fgallina/python-django.el/commits/master.atom"
         nil nil nil)
        ("git.tuxfamily.org Git - sawfish.main.git/atom log"
         "http://git.tuxfamily.org/sawfish/main.git?p=sawfish/main.git;a=atom"
         nil nil nil)))
(setq newsticker-use-full-width nil)

(provide 'newsticker-init)