RSS | Source | License

View Local HTML Manual in Helpful (Part 2)

After the first post about viewing manuals, Chunyang set up a GitHub repository that automatically compiles versioned Emacs manual and serves them on GitHub Pages. This is a fantastic idea. Who doesn’t like spending Microsoft’s money? I forked his repository and added some of my own CSS styling to make the manual look even nicer (for me). View it here.

The updated code for opening this Microsoft-sponsored manual:

(defvar helpful-html-manual-base-url "https://archive.casouri.cat/emacs-manuals/master/elisp"
  "Base URL for the online manual. No trailing slash.")

(defvar helpful-html-manual-index (expand-file-name "site-lisp/index.html" user-emacs-directory))

(define-minor-mode helpful-html-manual-mode
  "View HTML manuals in helpful."
  :lighter ""
  :global t
  (if helpful-html-manual-mode
      (advice-add #'helpful--manual :override #'helpful--html-manual)
    (advice-remove #'helpful--manual #'helpful--html-manual)))

(defun helpful--html-manual (button)
  "Open the HTML manual for the symbol that this BUTTON represents."
  (let ((sym (symbol-name (button-get button 'symbol)))
        (index-file helpful-html-manual-index))
      (insert-file-contents index-file)
      (goto-char (point-min))
      (if (not (re-search-forward
                (format "<a href=\"\\(.*\\)\"><code>%s</code>" sym) nil t))
          (message "No manual index for %s" sym)
         (format "%s/%s" helpful-html-manual-base-url (match-string 1)))))))

(with-eval-after-load 'helpful

Since we don't use local manual anymore, copy the index page (index.html) from online manual and set helpful-html-manual-index to it.

Written by Yuan Fu <casouri@gmail.com>

First Published on 2020-03-19 Thu 15:10

Last modified on 2020-06-21 Sun 18:50