oscarvarto · August 28, 2023 16:14
diff --git a/cannot-open-doc-el b/cannot-open-doc-el
 error("Cannot find entry with ID \"%s\"" "46d2058d-249e-45a7-a7a2-58bade48df65")
  #<subr org-id-open>("46d2058d-249e-45a7-a7a2-58bade48df65" nil)
  funcall(#<subr org-id-open> "46d2058d-249e-45a7-a7a2-58bade48df65" nil)
  (prog1 (funcall fn id arg) (cond ((null search)) ((string-match-p "\\`[0-9]+\\'" search) (forward-line (string-to-number option))) ((string-match "^/\\([^/]+\\)/$" search) (let ((match (match-string 1 search))) (save-excursion (org-link-search search)) (if (re-search-forward match) (progn (goto-char (match-beginning 0)))))) ((org-link-search search))))
  (progn (if --cl-rest-- (signal 'wrong-number-of-arguments (list '(id &optional search) (+ 2 (length --cl-rest--))))) (prog1 (funcall fn id arg) (cond ((null search)) ((string-match-p "\\`[0-9]+\\'" search) (forward-line (string-to-number option))) ((string-match "^/\\([^/]+\\)/$" search) (let ((match (match-string 1 search))) (save-excursion (org-link-search search)) (if (re-search-forward match) (progn (goto-char ...))))) ((org-link-search search)))))
  (let* ((--cl-rest-- (split-string link "::")) (id (if --cl-rest-- (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--)))) (signal 'wrong-number-of-arguments (list '(id &optional search) (length --cl-rest--))))) (search (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--)))))) (progn (if --cl-rest-- (signal 'wrong-number-of-arguments (list '(id &optional search) (+ 2 (length --cl-rest--))))) (prog1 (funcall fn id arg) (cond ((null search)) ((string-match-p "\\`[0-9]+\\'" search) (forward-line (string-to-number option))) ((string-match "^/\\([^/]+\\)/$" search) (let ((match ...)) (save-excursion (org-link-search search)) (if (re-search-forward match) (progn ...)))) ((org-link-search search))))))
  (progn (let* ((--cl-rest-- (split-string link "::")) (id (if --cl-rest-- (car-safe (prog1 --cl-rest-- (setq --cl-rest-- ...))) (signal 'wrong-number-of-arguments (list '... (length --cl-rest--))))) (search (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--)))))) (progn (if --cl-rest-- (signal 'wrong-number-of-arguments (list '(id &optional search) (+ 2 (length --cl-rest--))))) (prog1 (funcall fn id arg) (cond ((null search)) ((string-match-p "\\`[0-9]+\\'" search) (forward-line (string-to-number option))) ((string-match "^/\\([^/]+\\)/$" search) (let (...) (save-excursion ...) (if ... ...))) ((org-link-search search)))))))
  (unwind-protect (progn (let* ((--cl-rest-- (split-string link "::")) (id (if --cl-rest-- (car-safe (prog1 --cl-rest-- ...)) (signal 'wrong-number-of-arguments (list ... ...)))) (search (car-safe (prog1 --cl-rest-- (setq --cl-rest-- ...))))) (progn (if --cl-rest-- (signal 'wrong-number-of-arguments (list '... (+ 2 ...)))) (prog1 (funcall fn id arg) (cond ((null search)) ((string-match-p "\\`[0-9]+\\'" search) (forward-line ...)) ((string-match "^/\\([^/]+\\)/$" search) (let ... ... ...)) ((org-link-search search))))))) (set-match-data saved-match-data t))
  (let ((saved-match-data (match-data))) (unwind-protect (progn (let* ((--cl-rest-- (split-string link "::")) (id (if --cl-rest-- (car-safe ...) (signal ... ...))) (search (car-safe (prog1 --cl-rest-- ...)))) (progn (if --cl-rest-- (signal 'wrong-number-of-arguments (list ... ...))) (prog1 (funcall fn id arg) (cond (...) (... ...) (... ...) (...)))))) (set-match-data saved-match-data t)))
  +org--follow-search-string-a(#<subr org-id-open> "46d2058d-249e-45a7-a7a2-58bade48df65" nil)
  apply(+org--follow-search-string-a #<subr org-id-open> ("46d2058d-249e-45a7-a7a2-58bade48df65" nil))
  org-id-open("46d2058d-249e-45a7-a7a2-58bade48df65" nil)
  org-link-open((link (:standard-properties [679 733 722 731 0 nil nil nil nil nil nil nil nil nil (paragraph (:standard-properties [679 734 679 734 0 679 nil t (1 . 679) nil nil nil element nil (item ...) nil nil #<buffer faq.org>])) nil nil #<buffer faq.org>] :type "id" :path "46d2058d-249e-45a7-a7a2-58bade48df65" :format bracket :raw-link "id:46d2058d-249e-45a7-a7a2-58bade48df65" :application nil :search-option nil)) nil)
  org-open-at-point(nil)
  (if (or (equal (org-element--property :type lineage nil nil) "img") (and path (image-type-from-file-name path))) (+org--toggle-inline-images-in-subtree (let* ((parray (and t (let* (...) (cond ... ... ...))))) (if parray (let* ((val (aref parray 0))) (if (eq val 'org-element-ast--nil) 'nil (let (...) val))) (let* ((val (org-element-type lineage))) (cond ((null val) 'nil) ((eq val ...) (let nil ...)) (t (let nil ...)))))) (let* ((parray (and t (let* (...) (cond ... ... ...))))) (if parray (let* ((val (aref parray 1))) (if (eq val 'org-element-ast--nil) 'nil (let (...) val))) (let* ((val (org-element-type lineage))) (cond ((null val) 'nil) ((eq val ...) (let nil ...)) (t (let nil ...))))))) (org-open-at-point arg))
  (let* ((lineage (org-element-lineage context '(link) t)) (path (org-element--property :path lineage nil nil))) (if (or (equal (org-element--property :type lineage nil nil) "img") (and path (image-type-from-file-name path))) (+org--toggle-inline-images-in-subtree (let* ((parray (and t (let* ... ...)))) (if parray (let* ((val ...)) (if (eq val ...) 'nil (let ... val))) (let* ((val ...)) (cond (... ...) (... ...) (t ...))))) (let* ((parray (and t (let* ... ...)))) (if parray (let* ((val ...)) (if (eq val ...) 'nil (let ... val))) (let* ((val ...)) (cond (... ...) (... ...) (t ...)))))) (org-open-at-point arg)))
  (let nil (let* ((lineage (org-element-lineage context '(link) t)) (path (org-element--property :path lineage nil nil))) (if (or (equal (org-element--property :type lineage nil nil) "img") (and path (image-type-from-file-name path))) (+org--toggle-inline-images-in-subtree (let* ((parray (and t ...))) (if parray (let* (...) (if ... ... ...)) (let* (...) (cond ... ... ...)))) (let* ((parray (and t ...))) (if parray (let* (...) (if ... ... ...)) (let* (...) (cond ... ... ...))))) (org-open-at-point arg))))
  (cond ((memq type '(citation-reference citation)) (let nil (org-cite-follow context arg))) ((eq type 'headline) (let nil (cond ((memq (and (boundp ...) org-goto-map) (current-active-maps)) (org-goto-ret)) ((and (fboundp 'toc-org-insert-toc) (member "TOC" (org-get-tags))) (toc-org-insert-toc) (message "Updating table of contents")) ((string= "ARCHIVE" (car-safe (org-get-tags))) (org-force-cycle-archived)) ((or (org-element--property :todo-type context nil nil) (org-element--property :scheduled context nil nil)) (org-todo (if (eq ... ...) (or ... ...) 'done)))) (org-update-checkbox-count) (org-update-parent-todo-statistics) (if (and (fboundp 'toc-org-insert-toc) (member "TOC" (org-get-tags))) (progn (toc-org-insert-toc) (message "Updating table of contents"))) (let* ((beg (if (org-before-first-heading-p) (line-beginning-position) (save-excursion ... ...))) (end (if (org-before-first-heading-p) (line-end-position) (save-excursion ... ...))) (overlays (condition-case nil (progn ...) (error nil))) (latex-overlays (cl-find-if #'... overlays)) (image-overlays (cl-find-if #'... overlays))) (+org--toggle-inline-images-in-subtree beg end) (if (or image-overlays latex-overlays) (org-clear-latex-preview beg end) (org--latex-preview-region beg end))))) ((eq type 'clock) (let nil (org-clock-update-time-maybe))) ((eq type 'footnote-reference) (let nil (org-footnote-goto-definition (org-element--property :label context nil nil)))) ((eq type 'footnote-definition) (let nil (org-footnote-goto-previous-reference (org-element--property :label context nil nil)))) ((memq type '(timestamp planning)) (let nil (org-follow-timestamp-link))) ((memq type '(table-row table)) (let nil (if (org-at-TBLFM-p) (org-table-calc-current-TBLFM) (condition-case nil (progn (save-excursion (goto-char ...) (org-call-with-arg ... ...))) (error nil))))) ((eq type 'table-cell) (let nil (org-table-blank-field) (org-table-recalculate arg) (if (and (string-empty-p (string-trim (org-table-get-field))) (and (boundp 'evil-local-mode) evil-local-mode)) (progn (evil-change-state 'insert))))) ((eq type 'babel-call) (let nil (org-babel-lob-execute-maybe))) ((eq type 'statistics-cookie) (let nil (save-excursion (org-update-statistics-cookies arg)))) ((memq type '(inline-src-block src-block)) (let nil (org-babel-execute-src-block arg))) ((memq type '(latex-environment latex-fragment)) (let nil (org-latex-preview arg))) ((eq type 'link) (let nil (let* ((lineage (org-element-lineage context '... t)) (path (org-element--property :path lineage nil nil))) (if (or (equal (org-element--property :type lineage nil nil) "img") (and path (image-type-from-file-name path))) (+org--toggle-inline-images-in-subtree (let* (...) (if parray ... ...)) (let* (...) (if parray ... ...))) (org-open-at-point arg))))) ((eq type 'paragraph) (let nil (+org--toggle-inline-images-in-subtree))) ((org-element--property :checkbox (org-element-lineage context '(item) t) nil nil) (let nil (let ((match (and (org-at-item-checkbox-p) (match-string 1)))) (org-toggle-checkbox (if (equal match "[ ]") '(16)))))) (t (let nil (if (or (org-in-regexp org-ts-regexp-both nil t) (org-in-regexp org-tsr-regexp-both nil t) (org-in-regexp org-link-any-re nil t)) (call-interactively #'org-open-at-point) (+org--toggle-inline-images-in-subtree (let* ((parray ...)) (if parray (let* ... ...) (let* ... ...))) (let* ((parray ...)) (if parray (let* ... ...) (let* ... ...))))))))
  (let* ((context (org-element-context)) (type (org-element-type context))) (while (and context (memq type '(verbatim code bold italic underline strike-through subscript superscript))) (progn (setq context (org-element--property :parent context nil nil)) (setq type (org-element-type context)))) (cond ((memq type '(citation-reference citation)) (let nil (org-cite-follow context arg))) ((eq type 'headline) (let nil (cond ((memq (and ... org-goto-map) (current-active-maps)) (org-goto-ret)) ((and (fboundp ...) (member "TOC" ...)) (toc-org-insert-toc) (message "Updating table of contents")) ((string= "ARCHIVE" (car-safe ...)) (org-force-cycle-archived)) ((or (org-element--property :todo-type context nil nil) (org-element--property :scheduled context nil nil)) (org-todo (if ... ... ...)))) (org-update-checkbox-count) (org-update-parent-todo-statistics) (if (and (fboundp 'toc-org-insert-toc) (member "TOC" (org-get-tags))) (progn (toc-org-insert-toc) (message "Updating table of contents"))) (let* ((beg (if ... ... ...)) (end (if ... ... ...)) (overlays (condition-case nil ... ...)) (latex-overlays (cl-find-if ... overlays)) (image-overlays (cl-find-if ... overlays))) (+org--toggle-inline-images-in-subtree beg end) (if (or image-overlays latex-overlays) (org-clear-latex-preview beg end) (org--latex-preview-region beg end))))) ((eq type 'clock) (let nil (org-clock-update-time-maybe))) ((eq type 'footnote-reference) (let nil (org-footnote-goto-definition (org-element--property :label context nil nil)))) ((eq type 'footnote-definition) (let nil (org-footnote-goto-previous-reference (org-element--property :label context nil nil)))) ((memq type '(timestamp planning)) (let nil (org-follow-timestamp-link))) ((memq type '(table-row table)) (let nil (if (org-at-TBLFM-p) (org-table-calc-current-TBLFM) (condition-case nil (progn (save-excursion ... ...)) (error nil))))) ((eq type 'table-cell) (let nil (org-table-blank-field) (org-table-recalculate arg) (if (and (string-empty-p (string-trim ...)) (and (boundp ...) evil-local-mode)) (progn (evil-change-state 'insert))))) ((eq type 'babel-call) (let nil (org-babel-lob-execute-maybe))) ((eq type 'statistics-cookie) (let nil (save-excursion (org-update-statistics-cookies arg)))) ((memq type '(inline-src-block src-block)) (let nil (org-babel-execute-src-block arg))) ((memq type '(latex-environment latex-fragment)) (let nil (org-latex-preview arg))) ((eq type 'link) (let nil (let* ((lineage (org-element-lineage context ... t)) (path (org-element--property :path lineage nil nil))) (if (or (equal ... "img") (and path ...)) (+org--toggle-inline-images-in-subtree (let* ... ...) (let* ... ...)) (org-open-at-point arg))))) ((eq type 'paragraph) (let nil (+org--toggle-inline-images-in-subtree))) ((org-element--property :checkbox (org-element-lineage context '(item) t) nil nil) (let nil (let ((match (and ... ...))) (org-toggle-checkbox (if (equal match "[ ]") '...))))) (t (let nil (if (or (org-in-regexp org-ts-regexp-both nil t) (org-in-regexp org-tsr-regexp-both nil t) (org-in-regexp org-link-any-re nil t)) (call-interactively #'org-open-at-point) (+org--toggle-inline-images-in-subtree (let* (...) (if parray ... ...)) (let* (...) (if parray ... ...))))))))
  (if (button-at (point)) (call-interactively #'push-button) (let* ((context (org-element-context)) (type (org-element-type context))) (while (and context (memq type '(verbatim code bold italic underline strike-through subscript superscript))) (progn (setq context (org-element--property :parent context nil nil)) (setq type (org-element-type context)))) (cond ((memq type '(citation-reference citation)) (let nil (org-cite-follow context arg))) ((eq type 'headline) (let nil (cond ((memq ... ...) (org-goto-ret)) ((and ... ...) (toc-org-insert-toc) (message "Updating table of contents")) ((string= "ARCHIVE" ...) (org-force-cycle-archived)) ((or ... ...) (org-todo ...))) (org-update-checkbox-count) (org-update-parent-todo-statistics) (if (and (fboundp ...) (member "TOC" ...)) (progn (toc-org-insert-toc) (message "Updating table of contents"))) (let* ((beg ...) (end ...) (overlays ...) (latex-overlays ...) (image-overlays ...)) (+org--toggle-inline-images-in-subtree beg end) (if (or image-overlays latex-overlays) (org-clear-latex-preview beg end) (org--latex-preview-region beg end))))) ((eq type 'clock) (let nil (org-clock-update-time-maybe))) ((eq type 'footnote-reference) (let nil (org-footnote-goto-definition (org-element--property :label context nil nil)))) ((eq type 'footnote-definition) (let nil (org-footnote-goto-previous-reference (org-element--property :label context nil nil)))) ((memq type '(timestamp planning)) (let nil (org-follow-timestamp-link))) ((memq type '(table-row table)) (let nil (if (org-at-TBLFM-p) (org-table-calc-current-TBLFM) (condition-case nil (progn ...) (error nil))))) ((eq type 'table-cell) (let nil (org-table-blank-field) (org-table-recalculate arg) (if (and (string-empty-p ...) (and ... evil-local-mode)) (progn (evil-change-state ...))))) ((eq type 'babel-call) (let nil (org-babel-lob-execute-maybe))) ((eq type 'statistics-cookie) (let nil (save-excursion (org-update-statistics-cookies arg)))) ((memq type '(inline-src-block src-block)) (let nil (org-babel-execute-src-block arg))) ((memq type '(latex-environment latex-fragment)) (let nil (org-latex-preview arg))) ((eq type 'link) (let nil (let* ((lineage ...) (path ...)) (if (or ... ...) (+org--toggle-inline-images-in-subtree ... ...) (org-open-at-point arg))))) ((eq type 'paragraph) (let nil (+org--toggle-inline-images-in-subtree))) ((org-element--property :checkbox (org-element-lineage context '(item) t) nil nil) (let nil (let ((match ...)) (org-toggle-checkbox (if ... ...))))) (t (let nil (if (or (org-in-regexp org-ts-regexp-both nil t) (org-in-regexp org-tsr-regexp-both nil t) (org-in-regexp org-link-any-re nil t)) (call-interactively #'org-open-at-point) (+org--toggle-inline-images-in-subtree (let* ... ...) (let* ... ...))))))))
  +org/dwim-at-point(nil)
  funcall-interactively(+org/dwim-at-point nil)
  command-execute(+org/dwim-at-point)
	error("Cannot find entry with ID \"%s\"" "46d2058d-249e-45a7-a7a2-58bade48df65")
	#<subr org-id-open>("46d2058d-249e-45a7-a7a2-58bade48df65" nil)
	funcall(#<subr org-id-open> "46d2058d-249e-45a7-a7a2-58bade48df65" nil)
	(prog1 (funcall fn id arg) (cond ((null search)) ((string-match-p "\\`[0-9]+\\'" search) (forward-line (string-to-number option))) ((string-match "^/\\([^/]+\\)/$" search) (let ((match (match-string 1 search))) (save-excursion (org-link-search search)) (if (re-search-forward match) (progn (goto-char (match-beginning 0)))))) ((org-link-search search))))
	(progn (if --cl-rest-- (signal 'wrong-number-of-arguments (list '(id &optional search) (+ 2 (length --cl-rest--))))) (prog1 (funcall fn id arg) (cond ((null search)) ((string-match-p "\\`[0-9]+\\'" search) (forward-line (string-to-number option))) ((string-match "^/\\([^/]+\\)/$" search) (let ((match (match-string 1 search))) (save-excursion (org-link-search search)) (if (re-search-forward match) (progn (goto-char ...))))) ((org-link-search search)))))
	(let* ((--cl-rest-- (split-string link "::")) (id (if --cl-rest-- (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--)))) (signal 'wrong-number-of-arguments (list '(id &optional search) (length --cl-rest--))))) (search (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--)))))) (progn (if --cl-rest-- (signal 'wrong-number-of-arguments (list '(id &optional search) (+ 2 (length --cl-rest--))))) (prog1 (funcall fn id arg) (cond ((null search)) ((string-match-p "\\`[0-9]+\\'" search) (forward-line (string-to-number option))) ((string-match "^/\\([^/]+\\)/$" search) (let ((match ...)) (save-excursion (org-link-search search)) (if (re-search-forward match) (progn ...)))) ((org-link-search search))))))
	(progn (let* ((--cl-rest-- (split-string link "::")) (id (if --cl-rest-- (car-safe (prog1 --cl-rest-- (setq --cl-rest-- ...))) (signal 'wrong-number-of-arguments (list '... (length --cl-rest--))))) (search (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--)))))) (progn (if --cl-rest-- (signal 'wrong-number-of-arguments (list '(id &optional search) (+ 2 (length --cl-rest--))))) (prog1 (funcall fn id arg) (cond ((null search)) ((string-match-p "\\`[0-9]+\\'" search) (forward-line (string-to-number option))) ((string-match "^/\\([^/]+\\)/$" search) (let (...) (save-excursion ...) (if ... ...))) ((org-link-search search)))))))
	(unwind-protect (progn (let* ((--cl-rest-- (split-string link "::")) (id (if --cl-rest-- (car-safe (prog1 --cl-rest-- ...)) (signal 'wrong-number-of-arguments (list ... ...)))) (search (car-safe (prog1 --cl-rest-- (setq --cl-rest-- ...))))) (progn (if --cl-rest-- (signal 'wrong-number-of-arguments (list '... (+ 2 ...)))) (prog1 (funcall fn id arg) (cond ((null search)) ((string-match-p "\\`[0-9]+\\'" search) (forward-line ...)) ((string-match "^/\\([^/]+\\)/$" search) (let ... ... ...)) ((org-link-search search))))))) (set-match-data saved-match-data t))
	(let ((saved-match-data (match-data))) (unwind-protect (progn (let* ((--cl-rest-- (split-string link "::")) (id (if --cl-rest-- (car-safe ...) (signal ... ...))) (search (car-safe (prog1 --cl-rest-- ...)))) (progn (if --cl-rest-- (signal 'wrong-number-of-arguments (list ... ...))) (prog1 (funcall fn id arg) (cond (...) (... ...) (... ...) (...)))))) (set-match-data saved-match-data t)))
	+org--follow-search-string-a(#<subr org-id-open> "46d2058d-249e-45a7-a7a2-58bade48df65" nil)
	apply(+org--follow-search-string-a #<subr org-id-open> ("46d2058d-249e-45a7-a7a2-58bade48df65" nil))
	org-id-open("46d2058d-249e-45a7-a7a2-58bade48df65" nil)
	org-link-open((link (:standard-properties [679 733 722 731 0 nil nil nil nil nil nil nil nil nil (paragraph (:standard-properties [679 734 679 734 0 679 nil t (1 . 679) nil nil nil element nil (item ...) nil nil #<buffer faq.org>])) nil nil #<buffer faq.org>] :type "id" :path "46d2058d-249e-45a7-a7a2-58bade48df65" :format bracket :raw-link "id:46d2058d-249e-45a7-a7a2-58bade48df65" :application nil :search-option nil)) nil)
	org-open-at-point(nil)
	(if (or (equal (org-element--property :type lineage nil nil) "img") (and path (image-type-from-file-name path))) (+org--toggle-inline-images-in-subtree (let* ((parray (and t (let* (...) (cond ... ... ...))))) (if parray (let* ((val (aref parray 0))) (if (eq val 'org-element-ast--nil) 'nil (let (...) val))) (let* ((val (org-element-type lineage))) (cond ((null val) 'nil) ((eq val ...) (let nil ...)) (t (let nil ...)))))) (let* ((parray (and t (let* (...) (cond ... ... ...))))) (if parray (let* ((val (aref parray 1))) (if (eq val 'org-element-ast--nil) 'nil (let (...) val))) (let* ((val (org-element-type lineage))) (cond ((null val) 'nil) ((eq val ...) (let nil ...)) (t (let nil ...))))))) (org-open-at-point arg))
	(let* ((lineage (org-element-lineage context '(link) t)) (path (org-element--property :path lineage nil nil))) (if (or (equal (org-element--property :type lineage nil nil) "img") (and path (image-type-from-file-name path))) (+org--toggle-inline-images-in-subtree (let* ((parray (and t (let* ... ...)))) (if parray (let* ((val ...)) (if (eq val ...) 'nil (let ... val))) (let* ((val ...)) (cond (... ...) (... ...) (t ...))))) (let* ((parray (and t (let* ... ...)))) (if parray (let* ((val ...)) (if (eq val ...) 'nil (let ... val))) (let* ((val ...)) (cond (... ...) (... ...) (t ...)))))) (org-open-at-point arg)))
	(let nil (let* ((lineage (org-element-lineage context '(link) t)) (path (org-element--property :path lineage nil nil))) (if (or (equal (org-element--property :type lineage nil nil) "img") (and path (image-type-from-file-name path))) (+org--toggle-inline-images-in-subtree (let* ((parray (and t ...))) (if parray (let* (...) (if ... ... ...)) (let* (...) (cond ... ... ...)))) (let* ((parray (and t ...))) (if parray (let* (...) (if ... ... ...)) (let* (...) (cond ... ... ...))))) (org-open-at-point arg))))
	(cond ((memq type '(citation-reference citation)) (let nil (org-cite-follow context arg))) ((eq type 'headline) (let nil (cond ((memq (and (boundp ...) org-goto-map) (current-active-maps)) (org-goto-ret)) ((and (fboundp 'toc-org-insert-toc) (member "TOC" (org-get-tags))) (toc-org-insert-toc) (message "Updating table of contents")) ((string= "ARCHIVE" (car-safe (org-get-tags))) (org-force-cycle-archived)) ((or (org-element--property :todo-type context nil nil) (org-element--property :scheduled context nil nil)) (org-todo (if (eq ... ...) (or ... ...) 'done)))) (org-update-checkbox-count) (org-update-parent-todo-statistics) (if (and (fboundp 'toc-org-insert-toc) (member "TOC" (org-get-tags))) (progn (toc-org-insert-toc) (message "Updating table of contents"))) (let* ((beg (if (org-before-first-heading-p) (line-beginning-position) (save-excursion ... ...))) (end (if (org-before-first-heading-p) (line-end-position) (save-excursion ... ...))) (overlays (condition-case nil (progn ...) (error nil))) (latex-overlays (cl-find-if #'... overlays)) (image-overlays (cl-find-if #'... overlays))) (+org--toggle-inline-images-in-subtree beg end) (if (or image-overlays latex-overlays) (org-clear-latex-preview beg end) (org--latex-preview-region beg end))))) ((eq type 'clock) (let nil (org-clock-update-time-maybe))) ((eq type 'footnote-reference) (let nil (org-footnote-goto-definition (org-element--property :label context nil nil)))) ((eq type 'footnote-definition) (let nil (org-footnote-goto-previous-reference (org-element--property :label context nil nil)))) ((memq type '(timestamp planning)) (let nil (org-follow-timestamp-link))) ((memq type '(table-row table)) (let nil (if (org-at-TBLFM-p) (org-table-calc-current-TBLFM) (condition-case nil (progn (save-excursion (goto-char ...) (org-call-with-arg ... ...))) (error nil))))) ((eq type 'table-cell) (let nil (org-table-blank-field) (org-table-recalculate arg) (if (and (string-empty-p (string-trim (org-table-get-field))) (and (boundp 'evil-local-mode) evil-local-mode)) (progn (evil-change-state 'insert))))) ((eq type 'babel-call) (let nil (org-babel-lob-execute-maybe))) ((eq type 'statistics-cookie) (let nil (save-excursion (org-update-statistics-cookies arg)))) ((memq type '(inline-src-block src-block)) (let nil (org-babel-execute-src-block arg))) ((memq type '(latex-environment latex-fragment)) (let nil (org-latex-preview arg))) ((eq type 'link) (let nil (let* ((lineage (org-element-lineage context '... t)) (path (org-element--property :path lineage nil nil))) (if (or (equal (org-element--property :type lineage nil nil) "img") (and path (image-type-from-file-name path))) (+org--toggle-inline-images-in-subtree (let* (...) (if parray ... ...)) (let* (...) (if parray ... ...))) (org-open-at-point arg))))) ((eq type 'paragraph) (let nil (+org--toggle-inline-images-in-subtree))) ((org-element--property :checkbox (org-element-lineage context '(item) t) nil nil) (let nil (let ((match (and (org-at-item-checkbox-p) (match-string 1)))) (org-toggle-checkbox (if (equal match "[ ]") '(16)))))) (t (let nil (if (or (org-in-regexp org-ts-regexp-both nil t) (org-in-regexp org-tsr-regexp-both nil t) (org-in-regexp org-link-any-re nil t)) (call-interactively #'org-open-at-point) (+org--toggle-inline-images-in-subtree (let* ((parray ...)) (if parray (let* ... ...) (let* ... ...))) (let* ((parray ...)) (if parray (let* ... ...) (let* ... ...))))))))
	(let* ((context (org-element-context)) (type (org-element-type context))) (while (and context (memq type '(verbatim code bold italic underline strike-through subscript superscript))) (progn (setq context (org-element--property :parent context nil nil)) (setq type (org-element-type context)))) (cond ((memq type '(citation-reference citation)) (let nil (org-cite-follow context arg))) ((eq type 'headline) (let nil (cond ((memq (and ... org-goto-map) (current-active-maps)) (org-goto-ret)) ((and (fboundp ...) (member "TOC" ...)) (toc-org-insert-toc) (message "Updating table of contents")) ((string= "ARCHIVE" (car-safe ...)) (org-force-cycle-archived)) ((or (org-element--property :todo-type context nil nil) (org-element--property :scheduled context nil nil)) (org-todo (if ... ... ...)))) (org-update-checkbox-count) (org-update-parent-todo-statistics) (if (and (fboundp 'toc-org-insert-toc) (member "TOC" (org-get-tags))) (progn (toc-org-insert-toc) (message "Updating table of contents"))) (let* ((beg (if ... ... ...)) (end (if ... ... ...)) (overlays (condition-case nil ... ...)) (latex-overlays (cl-find-if ... overlays)) (image-overlays (cl-find-if ... overlays))) (+org--toggle-inline-images-in-subtree beg end) (if (or image-overlays latex-overlays) (org-clear-latex-preview beg end) (org--latex-preview-region beg end))))) ((eq type 'clock) (let nil (org-clock-update-time-maybe))) ((eq type 'footnote-reference) (let nil (org-footnote-goto-definition (org-element--property :label context nil nil)))) ((eq type 'footnote-definition) (let nil (org-footnote-goto-previous-reference (org-element--property :label context nil nil)))) ((memq type '(timestamp planning)) (let nil (org-follow-timestamp-link))) ((memq type '(table-row table)) (let nil (if (org-at-TBLFM-p) (org-table-calc-current-TBLFM) (condition-case nil (progn (save-excursion ... ...)) (error nil))))) ((eq type 'table-cell) (let nil (org-table-blank-field) (org-table-recalculate arg) (if (and (string-empty-p (string-trim ...)) (and (boundp ...) evil-local-mode)) (progn (evil-change-state 'insert))))) ((eq type 'babel-call) (let nil (org-babel-lob-execute-maybe))) ((eq type 'statistics-cookie) (let nil (save-excursion (org-update-statistics-cookies arg)))) ((memq type '(inline-src-block src-block)) (let nil (org-babel-execute-src-block arg))) ((memq type '(latex-environment latex-fragment)) (let nil (org-latex-preview arg))) ((eq type 'link) (let nil (let* ((lineage (org-element-lineage context ... t)) (path (org-element--property :path lineage nil nil))) (if (or (equal ... "img") (and path ...)) (+org--toggle-inline-images-in-subtree (let* ... ...) (let* ... ...)) (org-open-at-point arg))))) ((eq type 'paragraph) (let nil (+org--toggle-inline-images-in-subtree))) ((org-element--property :checkbox (org-element-lineage context '(item) t) nil nil) (let nil (let ((match (and ... ...))) (org-toggle-checkbox (if (equal match "[ ]") '...))))) (t (let nil (if (or (org-in-regexp org-ts-regexp-both nil t) (org-in-regexp org-tsr-regexp-both nil t) (org-in-regexp org-link-any-re nil t)) (call-interactively #'org-open-at-point) (+org--toggle-inline-images-in-subtree (let* (...) (if parray ... ...)) (let* (...) (if parray ... ...))))))))
	(if (button-at (point)) (call-interactively #'push-button) (let* ((context (org-element-context)) (type (org-element-type context))) (while (and context (memq type '(verbatim code bold italic underline strike-through subscript superscript))) (progn (setq context (org-element--property :parent context nil nil)) (setq type (org-element-type context)))) (cond ((memq type '(citation-reference citation)) (let nil (org-cite-follow context arg))) ((eq type 'headline) (let nil (cond ((memq ... ...) (org-goto-ret)) ((and ... ...) (toc-org-insert-toc) (message "Updating table of contents")) ((string= "ARCHIVE" ...) (org-force-cycle-archived)) ((or ... ...) (org-todo ...))) (org-update-checkbox-count) (org-update-parent-todo-statistics) (if (and (fboundp ...) (member "TOC" ...)) (progn (toc-org-insert-toc) (message "Updating table of contents"))) (let* ((beg ...) (end ...) (overlays ...) (latex-overlays ...) (image-overlays ...)) (+org--toggle-inline-images-in-subtree beg end) (if (or image-overlays latex-overlays) (org-clear-latex-preview beg end) (org--latex-preview-region beg end))))) ((eq type 'clock) (let nil (org-clock-update-time-maybe))) ((eq type 'footnote-reference) (let nil (org-footnote-goto-definition (org-element--property :label context nil nil)))) ((eq type 'footnote-definition) (let nil (org-footnote-goto-previous-reference (org-element--property :label context nil nil)))) ((memq type '(timestamp planning)) (let nil (org-follow-timestamp-link))) ((memq type '(table-row table)) (let nil (if (org-at-TBLFM-p) (org-table-calc-current-TBLFM) (condition-case nil (progn ...) (error nil))))) ((eq type 'table-cell) (let nil (org-table-blank-field) (org-table-recalculate arg) (if (and (string-empty-p ...) (and ... evil-local-mode)) (progn (evil-change-state ...))))) ((eq type 'babel-call) (let nil (org-babel-lob-execute-maybe))) ((eq type 'statistics-cookie) (let nil (save-excursion (org-update-statistics-cookies arg)))) ((memq type '(inline-src-block src-block)) (let nil (org-babel-execute-src-block arg))) ((memq type '(latex-environment latex-fragment)) (let nil (org-latex-preview arg))) ((eq type 'link) (let nil (let* ((lineage ...) (path ...)) (if (or ... ...) (+org--toggle-inline-images-in-subtree ... ...) (org-open-at-point arg))))) ((eq type 'paragraph) (let nil (+org--toggle-inline-images-in-subtree))) ((org-element--property :checkbox (org-element-lineage context '(item) t) nil nil) (let nil (let ((match ...)) (org-toggle-checkbox (if ... ...))))) (t (let nil (if (or (org-in-regexp org-ts-regexp-both nil t) (org-in-regexp org-tsr-regexp-both nil t) (org-in-regexp org-link-any-re nil t)) (call-interactively #'org-open-at-point) (+org--toggle-inline-images-in-subtree (let* ... ...) (let* ... ...))))))))
	+org/dwim-at-point(nil)
	funcall-interactively(+org/dwim-at-point nil)
	command-execute(+org/dwim-at-point)