From 95f428ce031085a3dc3f2bc983b33bef125498af Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Fri, 9 Sep 2022 10:25:17 +1000 Subject: removed an unused function and fix namespace for a fun --- lisp/hcel-client.el | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) (limited to 'lisp') 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 -- cgit v1.2.3