From 36b8b1eab50dcf7a0e427bfe4668b04f9f864e1e Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Thu, 27 Nov 2025 16:06:40 -0500 Subject: Optionally refresh schedule --- emacsconf.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) (limited to 'emacsconf.el') diff --git a/emacsconf.el b/emacsconf.el index 9d3da72..7467178 100644 --- a/emacsconf.el +++ b/emacsconf.el @@ -2121,15 +2121,17 @@ With a prefix argument (\\[universal-argument]), open the general organizers not (call-interactively #'consult-org-heading)) (t (call-interactively #'org-goto)))) +(defvar emacsconf-refresh-schedule-from-org nil "Non-nil means refresh the schedule from the organizer notebook.") (defun emacsconf-current-org-notebook-refresh-schedule () "Refresh info from draft schedule." (interactive) - (save-window-excursion - (with-current-buffer (find-file-noselect (emacsconf-current-org-notebook-filename)) - (save-restriction - (widen) - (goto-char (org-find-property "CUSTOM_ID" "draft-schedule")) - (org-babel-execute-subtree))))) + (when emacsconf-refresh-schedule-from-org + (save-window-excursion + (with-current-buffer (find-file-noselect (emacsconf-current-org-notebook-filename)) + (save-restriction + (widen) + (goto-char (org-find-property "CUSTOM_ID" "draft-schedule")) + (org-babel-execute-subtree)))))) (defun emacsconf-insert-availability-comment (talk) (interactive (list (or (emacsconf-search-talk-info (thing-at-point 'symbol)) -- cgit v1.2.3