From 645c380b27b18362f3ea6871699acd060610434b Mon Sep 17 00:00:00 2001
From: Nicolas Petton
Date: Thu, 25 Feb 2021 12:38:11 +0100
Subject: Refactor nroam--insert-backlink

* nroam.el (nroam--insert-source-content): Inline into `nroam--insert-backlink'.
---
 nroam.el | 21 ++++++++-------------
 1 file changed, 8 insertions(+), 13 deletions(-)

diff --git a/nroam.el b/nroam.el
index 2211197..0f1d7c2 100644
--- a/nroam.el
+++ b/nroam.el
@@ -226,10 +226,6 @@ Make the region inserted by BODY read-only, and marked with
     (nroam--do-separated-by-newlines #'nroam--insert-backlink backlinks)))
 
 (defun nroam--insert-backlink (backlink)
-  "Insert a link to the org-roam BACKLINK."
-  (nroam--insert-source-content backlink))
-
-(defun nroam--insert-source-content (backlink)
   "Insert the source element where BACKLINK is defined."
   (seq-let (file _ props) backlink
     (when-let* ((point (plist-get props :point))
@@ -237,15 +233,14 @@ Make the region inserted by BODY read-only, and marked with
                 (type (car elt))
                 (content (string-trim (cdr elt)))
                 (beg (point)))
-      (progn
-        (pcase type
-          ('headline (progn
-                       (org-paste-subtree 3 (nroam--fix-links content file))
-                       (goto-char (point-max))))
-          (_ (insert (nroam--fix-links content file))))
-        (set-text-properties beg (point)
-                             `(nroam-link t file ,file point ,point))
-        (insert "\n")))))
+      (pcase type
+        ('headline (progn
+                     (org-paste-subtree 3 (nroam--fix-links content file))
+                     (goto-char (point-max))))
+        (_ (insert (nroam--fix-links content file))))
+      (set-text-properties beg (point)
+                           `(nroam-link t file ,file point ,point))
+      (insert "\n"))))
 
 (defun nroam--crawl-source (file point)
   "Return the source element in FILE at POINT."
-- 
cgit v1.2.3-54-g00ecf