Raoul Comninos <[email protected]> writes:
> I have copied the code to my dot Emacs, but now when I try to add an
> attachment now, it generates this error:
>
> run-hook-with-args: Wrong number of arguments: (lambda nil "Save list of
> attachments to ORG_ATTACH_FILES property." (when-let* ((dir
> (org-attach-dir)) (files (org-attach-file-list dir))) (org-set-property
> "ORG_ATTACH_FILES" (mapconcat #'identity files ", ")))), 1
>
> Can you help me with this?
You can try:
(defun org-attach-save-file-list-to-property (dir)
"Save list of attachments to ORG_ATTACH_FILES property."
(when-let* ((files (org-attach-file-list dir)))
(org-set-property "ORG_ATTACH_FILES" (mapconcat #'identity files ", "))))
(add-hook 'org-attach-after-change-hook #'org-attach-save-file-list-to-property)
Also, note that the list of files will only be updated if you
attach/delete files calling org-attach. If you change the attachment
folder manually, you will need to run M-x org-attach-sync.
Best,
Ihor
