The Lambda Lab
/
projects
/
elpher.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
84089fd
)
Removed some useless function defs.
author
Tim Vaughan
<tgvaughan@gmail.com>
Tue, 10 Sep 2019 22:35:19 +0000
(
00:35
+0200)
committer
Tim Vaughan
<tgvaughan@gmail.com>
Tue, 10 Sep 2019 22:35:19 +0000
(
00:35
+0200)
elpher.el
patch
|
blob
|
history
diff --git
a/elpher.el
b/elpher.el
index
c716d0c
..
06da04e
100644
(file)
--- a/
elpher.el
+++ b/
elpher.el
@@
-784,13
+784,6
@@
up to the calling function."
(defvar elpher-gemini-response-header)
(defvar elpher-gemini-in-header)
(defvar elpher-gemini-response-header)
(defvar elpher-gemini-in-header)
-(defun elpher-gemini-response-code ()
- (elt (split-string elpher-gemini-response-header) 0))
-
-(defun elpher-gemini-response-meta ()
- (string-trim (substring elpher-gemini-response-header
- (string-match "[ \t]+" elpher-gemini-response-header))))
-
(defun elpher-get-gemini (address after)
"Retrieve gemini ADDRESS, then execute AFTER.
The response header is stored in the variable ‘elpher-gemini-response-header’.
(defun elpher-get-gemini (address after)
"Retrieve gemini ADDRESS, then execute AFTER.
The response header is stored in the variable ‘elpher-gemini-response-header’.
@@
-831,12
+824,6
@@
up to the calling function."
(process-send-string proc
(concat (elpher-address-to-url address) "\r\n")))))
(process-send-string proc
(concat (elpher-address-to-url address) "\r\n")))))
-(defun elpher-process-mime-type-string (mime-type-string)
- (let ((mime-type-split (split-string mime-type-string ";"))
- (mime-type (string-trim (car mime-type-split)))
- (parameter-strings (cdr mime-type-split)))
- ()))
-
(defun elpher-render-gemini-response (mime-type-string)
(let* ((mime-type-string* (if (string-empty-p mime-type-string)
(defun elpher-render-gemini-response (mime-type-string)
(let* ((mime-type-string* (if (string-empty-p mime-type-string)
@@
-928,8
+915,11
@@
up to the calling function."
(defun elpher-process-gemini-response (proc event)
(condition-case the-error
(unless (string-prefix-p "deleted" event)
(defun elpher-process-gemini-response (proc event)
(condition-case the-error
(unless (string-prefix-p "deleted" event)
- (let ((response-code (elpher-gemini-response-code))
- (meta (elpher-gemini-response-meta)))
+ (let ((response-code (car (split-string elpher-gemini-response-header)))
+ (meta (string-trim
+ (substring elpher-gemini-response-header
+ (string-match "[ \t]+"
+ elpher-gemini-response-header)))))
(pcase (elt response-code 0)
(?1 ; Input required
(elpher-with-clean-buffer
(pcase (elt response-code 0)
(?1 ; Input required
(elpher-with-clean-buffer
@@
-974,8
+964,6
@@
up to the calling function."
(error
(elpher-network-error address the-error)))))
(error
(elpher-network-error address the-error)))))
-
-
;; Other URL node opening
;; Other URL node opening