Define functions to open sites in eww

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")