Plaster

common-lisp
(defun list-re-matches (regexp &optional buffer) (with-current-buffer (or buffer (current-buffer)) (save-excursion (beginning-of-buffer) (let ((matches '())) (loop (let ((pos (re-search-forward regexp nil t))) (if (null pos) (return) (push (match-string-no-properties 0) matches)))) (nreverse matches))))) (defun list-html-pre-elements (&optional buffer) (with-current-buffer (or buffer (current-buffer)) (dom-by-tag (libxml-parse-html-region (point-min) (point-max)) 'pre)))