diff --git a/init.el b/init.el
index 19aa825f..dc10683e 100755
--- a/init.el
+++ b/init.el
@@ -17,3 +17,14 @@
 (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")