.emacs.d/site-lisp/newsticker-init.el

1 files changed, 101 insertions, 0 deletions

diff --git a/.emacs.d/site-lisp/newsticker-init.el b/.emacs.d/site-lisp/newsticker-init.el
new file mode 100644
index 0000000..da166d1
--- /dev/null
+++ b/.emacs.d/site-lisp/newsticker-init.el
@@ -0,0 +1,101 @@
+(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)))
+(setq newsticker-use-full-width nil)
+
+(provide 'newsticker-init)