Re: [O] org-attach-commit optional

[John J Foerch]

Nicolas Goaziou <address@hidden> writes:

> Hello,
>
> John J Foerch <address@hidden> writes:
>
>> I would be glad to do the paperwork, but as it's such a simple change, I
>> have no objections to anybody else implementing this feature request in
>> my place if they want to.  I think it would save time.
>
> There is no rush. Besides, your patch can still fit within the
> TINYCHANGE limit, albeit it would unfortunately be the last one.
>
>> Let me know if this works for this community, or whether it is
>> preferred for me to go through the FSF process.
>
> I think the best solution for the community is to finish the patch and
> apply it with a TINYCHANGE tag, while at the same time going through the
> FSF process for future patches. It's always best to eat the cake and
> have it too.
>
> Regards,

Okay, will do.  Here is an updated version of the patch.  I started the
process for copyright assignment as well.

>From e89c4e833deb6a55bbb2aa231afebe0fe8bd7f23 Mon Sep 17 00:00:00 2001
From: John Foerch <address@hidden>
Date: Wed, 10 Feb 2016 17:37:03 -0500
Subject: [PATCH] org-attach: Make use of git optional

* lisp/org-attach.el (org-attach-commit): New variable.
(org-attach-attach): Use new variable.

TINYCHANGE

diff --git a/lisp/org-attach.el b/lisp/org-attach.el
index 15d4841..ebea435 100644
--- a/lisp/org-attach.el
+++ b/lisp/org-attach.el
@@ -55,6 +55,14 @@ where the Org file lives."
   :group 'org-attach
   :type 'directory)
 
+(defcustom org-attach-commit t
+  "If non-nil commit attachments with git.
+This is only done if the Org file is in a git repository."
+  :group 'org-attach
+  :type 'boolean
+  :version "25.1"
+  :package-version '(Org . "9.0"))
+
 (defcustom org-attach-git-annex-cutoff (* 32 1024)
   "If non-nil, files larger than this will be annexed instead of stored."
   :group 'org-attach
@@ -373,7 +381,8 @@ METHOD may be `cp', `mv', `ln', or `lns' default taken from
        ((eq method 'cp)        (copy-file file fname))
        ((eq method 'ln) (add-name-to-file file fname))
        ((eq method 'lns) (make-symbolic-link file fname)))
-      (org-attach-commit)
+      (when org-attach-commit
+       (org-attach-commit))
       (org-attach-tag)
       (cond ((eq org-attach-store-link-p 'attached)
             (org-attach-store-link fname))
-- 
2.6.4