From: Tim Vaughan <tgvaughan@gmail.com>
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?p=elpher.git;a=commitdiff_plain;h=b8a17684a0969e773056d05335e1cffd608fd977

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)