|
@@ -37,10 +37,9 @@
|
|
|
|
|
|
;;; Code:
|
|
;;; Code:
|
|
|
|
|
|
-(eval-when-compile
|
|
|
|
- (require 'cl))
|
|
|
|
-(require 'org-id)
|
|
|
|
|
|
+(require 'cl-lib)
|
|
(require 'org)
|
|
(require 'org)
|
|
|
|
+(require 'org-id)
|
|
(require 'vc-git)
|
|
(require 'vc-git)
|
|
|
|
|
|
(defgroup org-attach nil
|
|
(defgroup org-attach nil
|
|
@@ -336,12 +335,12 @@ This checks for the existence of a \".git\" directory in that directory."
|
|
org-attach-git-annex-cutoff))
|
|
org-attach-git-annex-cutoff))
|
|
(call-process "git" nil nil nil "annex" "add" new-or-modified)
|
|
(call-process "git" nil nil nil "annex" "add" new-or-modified)
|
|
(call-process "git" nil nil nil "add" new-or-modified))
|
|
(call-process "git" nil nil nil "add" new-or-modified))
|
|
- (incf changes))
|
|
|
|
|
|
+ (cl-incf changes))
|
|
(dolist (deleted
|
|
(dolist (deleted
|
|
(split-string
|
|
(split-string
|
|
(shell-command-to-string "git ls-files -z --deleted") "\0" t))
|
|
(shell-command-to-string "git ls-files -z --deleted") "\0" t))
|
|
(call-process "git" nil nil nil "rm" deleted)
|
|
(call-process "git" nil nil nil "rm" deleted)
|
|
- (incf changes))
|
|
|
|
|
|
+ (cl-incf changes))
|
|
(when (> changes 0)
|
|
(when (> changes 0)
|
|
(shell-command "git commit -m 'Synchronized attachments'"))))))
|
|
(shell-command "git commit -m 'Synchronized attachments'"))))))
|
|
|
|
|