fix(org): attachment image inline preview

Fix originally proposed by Khoulaiz here:
https://github.com/doomemacs/doomemacs/issues/7222#issuecomment-1535932540

Fix: #7222 #3185

Co-authored-by: Andreas Sahlbach <Khoulaiz>

modules/lang/org/autoload/org-link.el

@@ -316,16 +316,14 @@ exist, and `org-link' otherwise."
 (defun +org-image-file-data-fn (protocol link _description)
   "Intepret LINK as an image file path and return its data."
   (setq
-   link (expand-file-name
    link (pcase protocol
           ("download"
-                 (or (if (require 'org-download nil t) org-download-image-dir)
+           (expand-file-name link (or (if (require 'org-download nil t) org-download-image-dir)
-                     (if (require 'org-attach)         org-attach-id-dir)
+               default-directory)))
-                     default-directory))
           ("attachment"
            (require 'org-attach)
-                 org-attach-id-dir)
+           (org-attach-expand link))
-                (_ default-directory))))
+          (_ (expand-file-name link default-directory))))
   (when (and (file-exists-p link)
              (image-type-from-file-name link))
     (with-temp-buffer

modules/lang/org/config.el

@@ -494,7 +494,7 @@ relative to `org-directory', unless it is an absolute path."
       (add-to-list 'projectile-globally-ignored-directories org-attach-id-dir)))
 
   ;; Add inline image previews for attachment links
-  (org-link-set-parameters "attachment" :image-data-fun #'+org-inline-image-data-fn))
+  (org-link-set-parameters "attachment" :image-data-fun #'+org-image-file-data-fn))
 
 
 (defun +org-init-custom-links-h ()