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:
3561c28
)
Remove some trailing whitespaces
author
Étienne Deparis
<etienne@depar.is>
Sat, 21 Nov 2020 17:55:43 +0000
(18:55 +0100)
committer
Étienne Deparis
<etienne@depar.is>
Sat, 21 Nov 2020 17:55:43 +0000
(18:55 +0100)
elpher.el
patch
|
blob
|
history
diff --git
a/elpher.el
b/elpher.el
index
4c34f52
..
adde7b7
100644
(file)
--- a/
elpher.el
+++ b/
elpher.el
@@
-478,7
+478,7
@@
unless NO-HISTORY is non-nil."
(if previous-page
(elpher-visit-page previous-page nil t)
(error "No previous page"))))
(if previous-page
(elpher-visit-page previous-page nil t)
(error "No previous page"))))
-
+
(defun elpher-reload-current-page ()
"Reload the current page, discarding any existing cached content."
(elpher-cache-content (elpher-page-address elpher-current-page) nil)
(defun elpher-reload-current-page ()
"Reload the current page, discarding any existing cached content."
(elpher-cache-content (elpher-page-address elpher-current-page) nil)
@@
-1053,7
+1053,7
@@
The response is rendered using the rendering function RENDERER."
(elpher-get-gopher-response search-address renderer))
(if aborted
(elpher-visit-previous-page))))))
(elpher-get-gopher-response search-address renderer))
(if aborted
(elpher-visit-previous-page))))))
-
+
;; Raw server response rendering
(defun elpher-render-raw (data &optional mime-type-string)
;; Raw server response rendering
(defun elpher-render-raw (data &optional mime-type-string)
@@
-1359,7
+1359,7
@@
treatment that a separate function is warranted."
'help-echo #'elpher--page-button-help))
(insert (propertize display-string 'face 'elpher-unknown)))
(insert "\n"))))
'help-echo #'elpher--page-button-help))
(insert (propertize display-string 'face 'elpher-unknown)))
(insert "\n"))))
-
+
(defun elpher-gemini-insert-header (header-line)
"Insert header described by HEADER-LINE into a text/gemini document.
The gemini map file line describing the header is given
(defun elpher-gemini-insert-header (header-line)
"Insert header described by HEADER-LINE into a text/gemini document.
The gemini map file line describing the header is given
@@
-1592,7
+1592,7
@@
The result is rendered using RENDERER."
'help-echo help-string))
(insert "\n")
(elpher-restore-pos)))
'help-echo help-string))
(insert "\n")
(elpher-restore-pos)))
-
+
;;; Bookmarks
;;
;;; Bookmarks
;;
@@
-1602,7
+1602,7
@@
The result is rendered using RENDERER."
DISPLAY-STRING determines how the bookmark will appear in the
bookmark list, while URL is the url of the entry."
(list display-string url))
DISPLAY-STRING determines how the bookmark will appear in the
bookmark list, while URL is the url of the entry."
(list display-string url))
-
+
(defun elpher-bookmark-display-string (bookmark)
"Get the display string of BOOKMARK."
(elt bookmark 0))
(defun elpher-bookmark-display-string (bookmark)
"Get the display string of BOOKMARK."
(elt bookmark 0))
@@
-1888,7
+1888,7
@@
When run interactively HOST-OR-URL is read from the minibuffer."
(if button
(elpher-info-page (button-get button 'elpher-page))
(error "No item selected"))))
(if button
(elpher-info-page (button-get button 'elpher-page))
(error "No item selected"))))
-
+
(defun elpher-info-current ()
"Display information on current page."
(interactive)
(defun elpher-info-current ()
"Display information on current page."
(interactive)