       (org-preview-latex-fragment))
 
      ((eq type 'link)
-      (let ((path (org-element-property :path (org-element-context))))
+      (let ((path (org-element-property :path (org-element-lineage context '(link) t))))
         (if (and path (image-type-from-file-name path))
             (+org/refresh-inline-images)
           (org-open-at-point))))

opinionated and perform this simple task incorrectly (e.g. whitespace in the
wrong places)."
  (interactive)
  (let* ((context (org-element-context))
         (type (org-element-type context)))
    (cond ((when-let (ct (+org--get-context '(item plain-list) context))
             (setq context ct))
           (let ((marker (org-element-property :bullet context)))
             (pcase direction
               ('below

;;;###autoload
(defun +org/toggle-checkbox ()
  (interactive)
  (when-let (context (org-element-lineage (org-element-context) '(item) t))
    (org-end-of-line)
    (org-beginning-of-line)
    (if (org-element-property :checkbox context)
