From ef65d6f373f8b4739d694be71681001c2332df93 Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Wed, 21 Sep 2022 14:08:37 -0400 Subject: Move hook code to bottom --- 2022/organizers-notebook.org | 74 +++++++++++++++++++++++--------------------- 1 file changed, 39 insertions(+), 35 deletions(-) (limited to '2022/organizers-notebook.org') diff --git a/2022/organizers-notebook.org b/2022/organizers-notebook.org index 84726b01..49262d9b 100644 --- a/2022/organizers-notebook.org +++ b/2022/organizers-notebook.org @@ -17,46 +17,17 @@ You can open these links (~C-c C-o~) to run their associated actions: - [[elisp:(org-babel-ref-resolve "md-export-on-save-toggle-on()")][Export on save]] - [[elisp:(org-babel-ref-resolve "md-export-on-save-toggle-off()")][Stop exporting on save]] -** Code -#+name: md-export-on-save-setup -#+begin_src emacs-lisp :eval query -(defun emacsconf-export-md-on-save () - "Export markdown on save. -Meant to be used with `after-save-hook'." - (org-md-export-to-markdown) - (org-babel-tangle)) - -(defvar emacsconf-export-md-on-save-configured t - "Non-nil when the setup code-block has been executed.") -#+end_src - -#+name: md-export-on-save-toggle-on -#+BEGIN_SRC emacs-lisp :eval query -(unless (bound-and-true-p emacsconf-export-md-on-save-configured) - (org-babel-ref-resolve "md-export-on-save-setup()")) - -(add-hook 'after-save-hook #'emacsconf-export-md-on-save nil t) - -(when (memq #'emacsconf-export-md-on-save after-save-hook) - (message "Hook is active")) -#+END_SRC - -#+name: md-export-on-save-toggle-off -#+begin_src emacs-lisp :eval query :outputs none -(remove-hook 'after-save-hook #'emacsconf-export-md-on-save t) - -(unless (memq #'emacsconf-export-md-on-save after-save-hook) - (message "Hook is no longer active")) -#+end_src - * Current tasks / status +:PROPERTIES: +:CUSTOM_ID: current +:END: Planned dates and phases: | [2022-09-26] | Yes/no decisions for original submissions | | [2022-09-30] | Original speaker notification date | | [2022-09-26] | Yes/no decisions for original submissions | -| [2022-09-??] | Early speaker notification for original submissions | -| [2022-10-??] | Yes/no decisions for late submissions | +| [2022-09-30] | Early speaker notification for original submissions | +| [2022-10-07] | Yes/no decisions for late submissions | | [2022-10-15] | New speaker notification date (possibly only for late submissions) | | [2022-10-30] | Ask early submitters if they can start | | [2022-10-31] | Schedule published | @@ -66,7 +37,7 @@ Planned dates and phases: | | volunteers: tech checks, captions | | 2022-12-03, 2022-12-04 | Conference | -** TODO Organizers: Review the submissions in emacsconf-2022-private and e-mail emacsconf-org-private with any objections or comments by Sept 26 for possible [[*Early speaker notification][early speaker notification]], Oct 7 for everything +** TODO Organizers: Review the submissions in the pad (see emacsconf-org-private or conf.org for the link) and add any objections or comments by Sept 26 for possible [[*Early speaker notification][early speaker notification]], Oct 7 for everything DEADLINE: <2022-09-26 Mon> - zaeph: will start reviewing on Sep 21 ** TODO zaeph: Write preparation instructions and decide on deadline for prerecs :zaeph: @@ -1386,6 +1357,39 @@ chatter in the other lists Cc'd on this message. Thank you. (magit-commit-create (list "-m" (read-string "Commit message: "))) (call-interactively #'magit-push-current-to-pushremote)) #+end_src + +** Tangle and publish on save +#+name: md-export-on-save-setup +#+begin_src emacs-lisp :eval query +(defun emacsconf-export-md-on-save () + "Export markdown on save. +Meant to be used with `after-save-hook'." + (org-md-export-to-markdown) + (org-babel-tangle)) + +(defvar emacsconf-export-md-on-save-configured t + "Non-nil when the setup code-block has been executed.") +#+end_src + +#+name: md-export-on-save-toggle-on +#+BEGIN_SRC emacs-lisp :eval query +(unless (bound-and-true-p emacsconf-export-md-on-save-configured) + (org-babel-ref-resolve "md-export-on-save-setup()")) + +(add-hook 'after-save-hook #'emacsconf-export-md-on-save nil t) + +(when (memq #'emacsconf-export-md-on-save after-save-hook) + (message "Hook is active")) +#+END_SRC + +#+name: md-export-on-save-toggle-off +#+begin_src emacs-lisp :eval query :outputs none +(remove-hook 'after-save-hook #'emacsconf-export-md-on-save t) + +(unless (memq #'emacsconf-export-md-on-save after-save-hook) + (message "Hook is no longer active")) +#+end_src + * Lessons learned for next year - Ask for public e-mail or contact information, IRC handle in CFP -- cgit v1.2.3