(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)
  "Make interactive functions to call important docs"
  `(defun ,name ()
     (interactive)
     (eww (concat "file://"
	          (and (eq system-type 'windows-nt)
		       "/")
	          (expand-file-name ,path)))))

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

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

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

(defun mk/wget-mirror-site (url)
  "Use wget to mirror a website for offline use. Takes a URL as argument."
  (interactive "sEnter the URL to mirror: ")
  (let ((cmd (format "wget --mirror --convert-links --adjust-extension --page-requisites --no-parent %s" url)))
    (async-shell-command cmd)))