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:
54397c6
)
Added redraw command.
author
Tim Vaughan
<tgvaughan@gmail.com>
Sat, 27 Apr 2019 11:52:05 +0000
(13:52 +0200)
committer
Tim Vaughan
<tgvaughan@gmail.com>
Sat, 27 Apr 2019 11:52:05 +0000
(13:52 +0200)
elopher.el
patch
|
blob
|
history
diff --git
a/elopher.el
b/elopher.el
index
a84117b
..
6ee53a3
100644
(file)
--- a/
elopher.el
+++ b/
elopher.el
@@
-30,7
+30,8
@@
"i - RET/mouse-1: open directory entry under cursor\tfake\tfake\t1"
"i - u: return to parent directory entry\tfake\tfake\t1"
"i - g: go to a particular page\tfake\tfake\t1"
"i - RET/mouse-1: open directory entry under cursor\tfake\tfake\t1"
"i - u: return to parent directory entry\tfake\tfake\t1"
"i - g: go to a particular page\tfake\tfake\t1"
- "i - r: reload current page\tfake\tfake\t1"
+ "i - r: redraw current page (using cached contents if available)\tfake\tfake\t1"
+ "i - R: reload current page (regenerates cache)\tfake\tfake\t1"
"i - d: download directory entry under cursor\tfake\tfake\t1"
"i - w: display the raw server response for the current page\tfake\tfake\t1"
"i\tfake\tfake\t1"
"i - d: download directory entry under cursor\tfake\tfake\t1"
"i - w: display the raw server response for the current page\tfake\tfake\t1"
"i\tfake\tfake\t1"
@@
-161,6
+162,7
@@
Otherwise, use the system browser via the BROWSE-URL function."
(defvar elopher-current-node)
(defun elopher-visit-node (node &optional getter)
(defvar elopher-current-node)
(defun elopher-visit-node (node &optional getter)
+ "Visit NODE using its own getter or GETTER, if non-nil."
(elopher-save-pos)
(elopher-process-cleanup)
(setq elopher-current-node node)
(elopher-save-pos)
(elopher-process-cleanup)
(setq elopher-current-node node)
@@
-462,7
+464,7
@@
The result is stored as a string in the variable elopher-selector-string."
(elopher-with-clean-buffer
(insert elopher-start-index))
(goto-char (point-min)))))
(elopher-with-clean-buffer
(insert elopher-start-index))
(goto-char (point-min)))))
- (message "Displaying raw server response. Reload to return to standard view."))
+ (message "Displaying raw server response. Reload
or redraw
to return to standard view."))
;; File export retrieval
;; File export retrieval
@@
-527,6
+529,11
@@
The result is stored as a string in the variable elopher-selector-string."
address
#'elopher-get-index-node))))
address
#'elopher-get-index-node))))
+(defun elopher-redraw ()
+ "Redraw current page."
+ (interactive)
+ (elopher-visit-node elopher-current-node))
+
(defun elopher-reload ()
"Reload current page."
(interactive)
(defun elopher-reload ()
"Reload current page."
(interactive)