From: plugd Date: Sat, 24 Jul 2021 21:05:08 +0000 (+0200) Subject: Cleanup. X-Git-Tag: v3.0.0~2 X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=elpher.git;a=commitdiff_plain;h=c357fc3e474f125234ba8cd3f6a89fb113f214c0 Cleanup. --- diff --git a/elpher.el b/elpher.el index e3cf717..9d4088e 100644 --- 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) -(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) @@ -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)) +(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)) @@ -1458,7 +1458,6 @@ treatment that a separate function is warranted." (insert (propertize display-string 'face 'elpher-unknown))) (insert "\n")))) -;; buffer-local (defvar elpher--gemini-page-headings nil "List of headings on the page.")