The Lambda Lab
/
projects
/
elpher.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Cleanup.
[elpher.git]
/
elpher.el
diff --git
a/elpher.el
b/elpher.el
index
e3cf717
..
9d4088e
100644
(file)
--- a/
elpher.el
+++ b/
elpher.el
@@
-389,11
+389,6
@@
requiring gopher-over-TLS."
"Create an ADDRESS object corresponding to the given special address symbol TYPE."
type)
"Create an ADDRESS object corresponding to the given special address symbol TYPE."
type)
-(defun elpher-make-start-page ()
- "Create the start page."
- (elpher-make-page "Elpher Start Page"
- (elpher-make-special-address 'start)))
-
(defun elpher-address-to-url (address)
"Get string representation of ADDRESS, or nil if ADDRESS is special."
(if (elpher-address-special-p address)
(defun elpher-address-to-url (address)
"Get string representation of ADDRESS, or nil if ADDRESS is special."
(if (elpher-address-special-p address)
@@
-493,6
+488,11
@@
If no address is defined, returns 0. (This is for compatibility with the URL li
"Create a page with DISPLAY-STRING and ADDRESS."
(list display-string address))
"Create a page with DISPLAY-STRING and ADDRESS."
(list display-string address))
+(defun elpher-make-start-page ()
+ "Create the start page."
+ (elpher-make-page "Elpher Start Page"
+ (elpher-make-special-address 'start)))
+
(defun elpher-page-display-string (page)
"Retrieve the display string corresponding to PAGE."
(elt page 0))
(defun elpher-page-display-string (page)
"Retrieve the display string corresponding to PAGE."
(elt page 0))
@@
-1458,7
+1458,6
@@
treatment that a separate function is warranted."
(insert (propertize display-string 'face 'elpher-unknown)))
(insert "\n"))))
(insert (propertize display-string 'face 'elpher-unknown)))
(insert "\n"))))
-;; buffer-local
(defvar elpher--gemini-page-headings nil
"List of headings on the page.")
(defvar elpher--gemini-page-headings nil
"List of headings on the page.")