[nongnu] scratch/rfc-mode 918d38f901 24/52: compute the index path dynamically

[Stefan Monnier]

branch: scratch/rfc-mode
commit 918d38f90169d5cb5ef8382185bcc895a7a3871d
Author: Nicolas Martyanoff <khaelin@gmail.com>
Commit: Nicolas Martyanoff <khaelin@gmail.com>

    compute the index path dynamically
    
    This way it will work as expected if rfc-mode-index-path is modified after 
the
    mode is loaded.
    
    close #4
---
 rfc-mode.el | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/rfc-mode.el b/rfc-mode.el
index f0cfbddc3f..515dda64c7 100644
--- a/rfc-mode.el
+++ b/rfc-mode.el
@@ -83,9 +83,6 @@ Assume RFC documents are named as e.g. rfc21.txt, 
rfc-index.txt."
 
 ;;; Misc variables:
 
-(defvar rfc-mode-index-path (concat rfc-mode-directory "rfc-index.txt")
-  "The path of the file containing the index of all RFC documents.")
-
 (defvar rfc-mode-index-entries nil
   "The list of entries in the RFC index.")
 
@@ -136,15 +133,15 @@ Assume RFC documents are named as e.g. rfc21.txt, 
rfc-index.txt."
   "Reload the RFC document index from its original file."
   (interactive)
   (setq rfc-mode-index-entries
-        (rfc-mode-read-index-file rfc-mode-index-path)))
+        (rfc-mode-read-index-file (rfc-mode-index-path))))
 
 (defun rfc-mode-browse ()
   "Browse through all RFC documents referenced in the index using Helm."
   (interactive)
-  (rfc-mode--fetch-document "-index" rfc-mode-index-path)
+  (rfc-mode--fetch-document "-index" (rfc-mode-index-path))
   (unless rfc-mode-index-entries
     (setq rfc-mode-index-entries
-          (rfc-mode-read-index-file rfc-mode-index-path)))
+          (rfc-mode-read-index-file (rfc-mode-index-path))))
   (helm :buffer "*helm rfc browser*"
         :sources (rfc-mode-browser-helm-sources rfc-mode-index-entries)))
 
@@ -267,6 +264,11 @@ ENTRY is a RFC index entry in the browser."
     (rfc-mode-read number)))
 
 ;;; Index utils:
+
+(defun rfc-mode-index-path ()
+  "Return he path of the file containing the index of all RFC documents."
+  (concat rfc-mode-directory "rfc-index.txt"))
+
 (defun rfc-mode-read-index-file (path)
   "Read an RFC index file at PATH and return a list of entries."
   (with-temp-buffer