4159 |
|
|
4160 |
(defalias 'fsi-shell-test 'erbn-shell-test) |
(defalias 'fsi-shell-test 'erbn-shell-test) |
4161 |
|
|
4162 |
|
(defcustom fs-internal-web-page-time 10 |
4163 |
|
"" :group 'erbc) |
4164 |
|
|
4165 |
(defmacro erbn-with-web-page-buffer (site &rest body) |
(defmacro erbn-with-web-page-buffer (site &rest body) |
4166 |
(let ((buffer (make-symbol "web-buffer"))) |
(let ((buffer (make-symbol "web-buffer"))) |
4167 |
`(let ((,buffer (url-retrieve-synchronously ,site))) |
`(with-timeout (fs-internal-web-page-time "HTTP time out") |
4168 |
(when (null ,buffer) |
(let ((,buffer (url-retrieve-synchronously ,site))) |
4169 |
(error "Invalid URL %s" site)) |
(when (null ,buffer) |
4170 |
(save-excursion |
(error "Invalid URL %s" site)) |
4171 |
(set-buffer ,buffer) |
(save-excursion |
4172 |
(goto-char (point-min)) |
(set-buffer ,buffer) |
4173 |
(prog1 |
(goto-char (point-min)) |
4174 |
(progn |
(prog1 |
4175 |
,@body) |
(progn |
4176 |
(kill-buffer ,buffer)))))) |
,@body) |
4177 |
|
(kill-buffer ,buffer))))))) |
4178 |
|
|
4179 |
(defun fsi-web-page-title (&optional site &rest args) |
(defun fsi-web-page-title (&optional site &rest args) |
4180 |
(unless site (error (format "Syntax: %s web-page-title SITE" erbn-char))) |
(unless site (error (format "Syntax: %s web-page-title SITE" erbn-char))) |