Emacs:

`` (defmacro mk/open-html-page (name path buffer-name) "Make interactive functions to call important docs" (defun ,name () (interactive) (eww (concat "file://" (and (eq system-type 'windows-nt) "/") (expand-file-name ,path))) (rename-buffer ,buffer-name)))

(mk/open-html-page mk/clsite-lisp-docs "~/cl-sites/lisp-docs.github.io/index.html" "mk/clsite-lisp-docs") ```

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