[elpa] externals/org-transclusion be1a4984a5 2/4: fix(make-from-link): Change the treatment of universal-argument

[ELPA Syncer]

branch: externals/org-transclusion
commit be1a4984a58f47d2c51cfe2175ff34fda5e7dfdd
Author: Noboru Ota <me@nobiot.com>
Commit: Noboru Ota <me@nobiot.com>

    fix(make-from-link): Change the treatment of universal-argument
    
    Before, the command make-from-link automatically would add the
    transclusion when org-transclusion-mode minor mode is active. Passing
    universal-argument only would the behaviour when the mode is inactive to
    automatically add the transclusion from the newly-added transclusion
    keyword.
    
    This fix changes the behaviour as follows and makes `universal-argument`
    more useful.
    
    The new behaviour is:
    
    If `org-transclusion-mode' is active in the current buffer, the newly
    created transclusion automatically gets added. If the mode is inactive,
    the keyword gets simply inserted to the current buffer.
    
    If you pass a `universal-argument', this function reverses this: if the
    mode is active, the keyword gets inserted; if the mode is inactive, the
    transclusion gets added.
    
    This change is motivated by this discussion on Org-roam discourse:
    
https://org-roam.discourse.group/t/how-to-do-transclusion-to-org-files-as-fast-as-possible/3002/5?u=nobiot
---
 org-transclusion.el | 23 ++++++++++++++++-------
 1 file changed, 16 insertions(+), 7 deletions(-)

diff --git a/org-transclusion.el b/org-transclusion.el
index 267ac4bb43..6942a8c099 100644
--- a/org-transclusion.el
+++ b/org-transclusion.el
@@ -17,7 +17,7 @@
 
 ;; Author:        Noboru Ota <me@nobiot.com>
 ;; Created:       10 October 2020
-;; Last modified: 05 February 2023
+;; Last modified: 04 March 2023
 
 ;; URL: https://github.com/nobiot/org-transclusion
 ;; Keywords: org-mode, transclusion, writing
@@ -355,13 +355,23 @@ If you pass a positive number 1-9 with `digit-argument', 
this
 function automatically puts the :level property to the resultant
 transclusion keyword.
 
-If you pass a `universal-argument', this function automatically
-triggers transclusion by calling `org-transclusion-add' even when
-`org-transclusion-mode' is inactive in the current buffer."
+If `org-transclusion-mode' is active in the current buffer, the
+newly created transclusion automatically gets added. If the mode
+is inactive, the keyword gets simply inserted to the current
+buffer.
+
+If you pass a `universal-argument', this function reverses this:
+if the mode is active, the keyword gets inserted; if the mode is
+inactive, the transclusion gets added."
+
   (interactive "P")
   (let* ((context (org-element-lineage
                    (org-element-context)'(link) t))
-         (type (org-element-property :type context)))
+         (type (org-element-property :type context))
+         (auto-transclude-p (if (not 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))
@@ -378,8 +388,7 @@ triggers transclusion by calling `org-transclusion-add' 
even when
                      (<= arg 9))
             (end-of-line)
             (insert (format " :level %d" arg)))
-          (when (or (equal arg '(4)) org-transclusion-mode)
-            (org-transclusion-add)))))))
+          (when auto-transclude-p (org-transclusion-add)))))))
 
 ;;;###autoload
 (defun org-transclusion-add (&optional copy)