Function: lm-website

lm-website is a byte-compiled function defined in lisp-mnt.el.gz.

Signature

(lm-website &optional FILE)

Documentation

Return the website in file FILE, or current buffer if FILE is nil.

Aliases

lm-homepage (obsolete since 31.1)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/lisp-mnt.el.gz
(defun lm-website (&optional file)
  "Return the website in file FILE, or current buffer if FILE is nil."
  (let ((page (lm-with-file file
                (lm-header (rx (? "x-") (or "url" "homepage"))))))
    (if (and page (string-match (rx bol "<" (+ nonl) ">" eol) page))
        (substring page 1 -1)
      page)))