(add-to-list 'load-path (expand-file-name "~/.emacs.d/bundle/"))
(require 'server)
(or (eq (server-running-p) t)
    (server-start))
(load "bundle--general")
(load "bundle--gui")
(load "bundle--package")
(load "bundle--irc")
(load "bundle--news")
(load "bundle--calendar")
(load "bundle--email")
(load "bundle--org")
(load "bundle--ux")
(load "bundle--mk")
(load "bundle--linux")

(let ((f "~/feeds.el"))
  (when (file-exists-p f)
    (load-file f)))

(defmacro mk/open-html-page (name path)
  `(defun ,name ()
     (interactive)
     (eww (concat (if (eq system-type 'windows-nt) "file:///" "file://") (expand-file-name ,path)))))

(mk/open-html-page mk/open-clm "~/sites/www.cs.cmu.edu/Groups/AI/html/cltl/clm/node1.html")

(mk/open-html-page mk/open-pcl "~/sites/gigamonkeys.com/book/index.html")

(mk/open-html-page mk/open-clcb "~/sites/lispcookbook.github.io/cl-cookbook/index.html")