From 00506d08edbcf20474df60acc0ce7c9305f2f6ce Mon Sep 17 00:00:00 2001
From: Nicolas Petton
Date: Thu, 25 Feb 2021 12:31:30 +0100
Subject: Minor refactoring

* nroam.el (nroam--insert-source-content): Rename let vars for clarity.
---
 nroam.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'nroam.el')

diff --git a/nroam.el b/nroam.el
index e32559a..09a88cd 100644
--- a/nroam.el
+++ b/nroam.el
@@ -233,20 +233,20 @@ Make the region inserted by BODY read-only, and marked with
 
 (defun nroam--insert-source-content (backlink)
   "Insert the source element where BACKLINK is defined."
-  (seq-let (from _ props) backlink
-    (when-let* ((backlink-point (plist-get props :point))
-                (elt (nroam--crawl-source from backlink-point))
+  (seq-let (file _ props) backlink
+    (when-let* ((point (plist-get props :point))
+                (elt (nroam--crawl-source file point))
                 (type (car elt))
                 (content (string-trim (cdr elt)))
                 (beg (point)))
       (progn
         (pcase type
           ('headline (progn
-                       (org-paste-subtree 3 (nroam--fix-links content from))
+                       (org-paste-subtree 3 (nroam--fix-links content file))
                        (goto-char (point-max))))
-          (_ (insert (nroam--fix-links content from))))
+          (_ (insert (nroam--fix-links content file))))
         (set-text-properties beg (point)
-                             `(nroam-link t file ,from point ,backlink-point))
+                             `(nroam-link t file ,file point ,point))
         (insert "\n")))))
 
 (defun nroam--crawl-source (file point)
-- 
cgit v1.2.3-54-g00ecf