From e942dad737297b2b64eb76f994fefbae7e13c22b Mon Sep 17 00:00:00 2001 From: Tim McCarthy Date: Fri, 19 Jul 2024 14:23:03 -0700 Subject: [PATCH] Tweaks to org screenshot timings --- thoom-emacs/modules/thoom-org.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/thoom-emacs/modules/thoom-org.el b/thoom-emacs/modules/thoom-org.el index baf19d9..64091a1 100644 --- a/thoom-emacs/modules/thoom-org.el +++ b/thoom-emacs/modules/thoom-org.el @@ -53,8 +53,8 @@ (_ (set-text-properties 0 (length heading-name) nil heading-name)) (_ (shell-command (concat org-screenshot-exec-path " " org-screenshot-exec-args))) ;; shell-command returns immediately, so wait until the screenshot is likely to have been taken - (_ (sit-for 0.25)) - (in-file (car (nreverse (directory-files org-screenshot-import-path 'full "GameNotes.*.png")))) + (_ (sit-for 0.35)) + (in-file (car (nreverse (directory-files org-screenshot-import-path 'full "GameNotes")))) (out-dir-name (file-name-sans-extension (file-name-nondirectory buffer-file-name))) (out-dir (file-name-as-directory (concat (file-name-as-directory org-screenshot-export-path) out-dir-name))) (out-file (concat out-dir heading-name "-" (org-id-uuid) ".png"))) @@ -67,4 +67,5 @@ (org-next-visible-heading 1) (org-open-line 1) (org-insert-link nil out-file)) - (message "Failed to find saved screenshot.")))) + (progn + (message "Failed to find saved screenshot.")))))