[elpa] externals/org-transclusion cb96247d78 07/18: chg: Allow making transclusion links from any protocol link

[ELPA Syncer]

branch: externals/org-transclusion
commit cb96247d78fcb44bbe0c2bd50e5815b564a4ea68
Author: Joseph Turner <joseph@breatheoutbreathe.in>
Commit: Joseph Turner <joseph@breatheoutbreathe.in>

    chg: Allow making transclusion links from any protocol link
---
 org-transclusion.el | 33 +++++++++++++++------------------
 1 file changed, 15 insertions(+), 18 deletions(-)

diff --git a/org-transclusion.el b/org-transclusion.el
index 9015a851ee..75e87acaf5 100644
--- a/org-transclusion.el
+++ b/org-transclusion.el
@@ -358,28 +358,25 @@ transclusion keyword."
   (interactive "P")
   (let* ((context (org-element-lineage
                    (org-element-context)'(link) t))
-         (type (org-element-property :type context))
          (auto-transclude-p (if (or (not arg) (numberp arg)) 
org-transclusion-mode
                               ;; if `universal-argument' is passed,
                               ;; reverse nil/t when
                               (if org-transclusion-mode nil t))))
-    (when (or (string= type "file")
-              (string= type "id"))
-      (let* ((contents-beg (org-element-property :contents-begin context))
-             (contents-end (org-element-property :contents-end context))
-             (contents (when contents-beg
-                         (buffer-substring-no-properties contents-beg 
contents-end)))
-             (link (org-element-link-interpreter context contents)))
-        (save-excursion
-          (org-transclusion-search-or-add-next-empty-line)
-          (insert (format "#+transclude: %s\n" link))
-          (forward-line -1)
-          (when (and (numberp arg)
-                     (> arg 0)
-                     (<= arg 9))
-            (end-of-line)
-            (insert (format " :level %d" arg)))
-          (when auto-transclude-p (org-transclusion-add)))))))
+    (let* ((contents-beg (org-element-property :contents-begin context))
+           (contents-end (org-element-property :contents-end context))
+           (contents (when contents-beg
+                       (buffer-substring-no-properties contents-beg 
contents-end)))
+           (link (org-element-link-interpreter context contents)))
+      (save-excursion
+        (org-transclusion-search-or-add-next-empty-line)
+        (insert (format "#+transclude: %s\n" link))
+        (forward-line -1)
+        (when (and (numberp arg)
+                   (> arg 0)
+                   (<= arg 9))
+          (end-of-line)
+          (insert (format " :level %d" arg)))
+        (when auto-transclude-p (org-transclusion-add))))))
 
 ;;;###autoload
 (defun org-transclusion-add (&optional copy)