From 318f51cfff57d22edfe81bcd8a9fa3247007ef34 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Thu, 22 Mar 2018 08:13:46 -0400 Subject: [PATCH] lang/org: report deleted files after +org-attach/sync --- modules/lang/org/autoload/org-attach.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/modules/lang/org/autoload/org-attach.el b/modules/lang/org/autoload/org-attach.el index 75d7ead82..149204975 100644 --- a/modules/lang/org/autoload/org-attach.el +++ b/modules/lang/org/autoload/org-attach.el @@ -54,12 +54,14 @@ and END (defaults to `point-min' and `point-max')." (insert-file-contents-literally org-file)) (setq +org-attachments (+org-attachments--list))) ;; clean up - (dolist (file (cl-set-difference +org-attachments-files +org-attachments - :test #'string=)) - (message "Deleting orphaned attachment: %s" file) - (unless arg - (delete-file (expand-file-name file org-attach-directory)))) - (message "Buffer's attachments synced")) + (let ((deleted 0)) + (dolist (file (cl-set-difference +org-attachments-files +org-attachments + :test #'string=)) + (message "Deleting orphaned attachment: %s" file) + (cl-incf deleted) + (unless arg + (delete-file (expand-file-name file org-attach-directory)))) + (message "Buffer's attachments synced (%d deleted)" deleted))) ;;;###autoload (defun +org-attach/find-file ()