670 |
(erbutils-listp-proper (cdr l))))) |
(erbutils-listp-proper (cdr l))))) |
671 |
|
|
672 |
|
|
673 |
|
(defun erbutils-html-url-p (str) |
674 |
|
"Guesses if the string is a url that will yield HTML content. |
675 |
|
Basically, look for any url that doesn't have any extension or |
676 |
|
one that has .html, .shtml, or .htm. Returns the str if it is |
677 |
|
a valid url that might generate HTML." |
678 |
|
(when (string-match "^http://[^/]+/?\\(.*\\)?$" str) |
679 |
|
(let* ((path (match-string 1 str)) |
680 |
|
(pos (position ?. path :from-end))) |
681 |
|
(when (or (null pos) |
682 |
|
(string-match "html?" (subseq path pos))) |
683 |
|
str)))) |
684 |
|
|
685 |
|
|
686 |
;;;###autoload |
;;;###autoload |