diff options
| author | Sacha Chua <sacha@sachachua.com> | 2025-11-27 16:06:40 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2025-11-27 16:06:40 -0500 |
| commit | 36b8b1eab50dcf7a0e427bfe4668b04f9f864e1e (patch) | |
| tree | 657248e370fe96de9653cacb22f3db39034b6b24 | |
| parent | b61534b54311d625ed68f6df23bfda5e11af6213 (diff) | |
| download | emacsconf-el-36b8b1eab50dcf7a0e427bfe4668b04f9f864e1e.tar.xz emacsconf-el-36b8b1eab50dcf7a0e427bfe4668b04f9f864e1e.zip | |
| -rw-r--r-- | emacsconf.el | 14 |
1 files changed, 8 insertions, 6 deletions
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)) |