From: Tim Vaughan Date: Sat, 27 Apr 2019 11:52:05 +0000 (+0200) Subject: Added redraw command. X-Git-Tag: v1.0.0~32 X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=b8a17684a0969e773056d05335e1cffd608fd977;p=elpher.git Added redraw command. --- diff --git a/elopher.el b/elopher.el index a84117b..6ee53a3 100644 --- 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 - 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" @@ -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) + "Visit NODE using its own getter or GETTER, if non-nil." (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))))) - (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 @@ -527,6 +529,11 @@ The result is stored as a string in the variable elopher-selector-string." 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)