aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/hcel-client.el10
1 files changed, 2 insertions, 8 deletions
diff --git a/lisp/hcel-client.el b/lisp/hcel-client.el
index 68f9507..3a484f6 100644
--- a/lisp/hcel-client.el
+++ b/lisp/hcel-client.el
@@ -104,13 +104,7 @@
(defun hcel-api-global-references (name)
(hcel-url-fetch-json (concat hcel-endpoint "/api/globalReferences/" name)))
-(defun http-status (header)
- (save-excursion
- (goto-char (point-min))
- (string-match "^HTTP.*\\([0-9]\\{3\\}\\).*$" header)
- (match-string 1 header)))
-
-(defun parse-http-header (text)
+(defun hcel-parse-http-header (text)
(let ((status) (fields))
(with-temp-buffer
(insert text)
@@ -128,7 +122,7 @@
(with-current-buffer (url-retrieve-synchronously url t)
(let ((header) (status) (fields) (json))
(delete-http-header)
- (setq header (parse-http-header (car kill-ring))
+ (setq header (hcel-parse-http-header (car kill-ring))
status (alist-get 'status header)
fields (alist-get 'fields header))
(with-current-buffer hcel-client-buffer-name