Move code away from the top of the file

1 files changed, 106 insertions, 101 deletions

diff --git a/2022/organizers-notebook.org b/2022/organizers-notebook.org
index 316f3966..b6395efe 100644
--- a/2022/organizers-notebook.org
+++ b/2022/organizers-notebook.org
@@ -9,7 +9,8 @@
 #+TOC: headlines 4
 
 * Working with this file                                           :noexport:
-You can open the following links (~C-c C-o~ or ~<mouse-1>~) to run the associated actions:
+You can open the following links (~C-c C-o~ or ~<mouse-1>~) to run the
+associated actions:
 
 General:
 - [[elisp:(org-babel-ref-resolve "general-setup()")][General setup]] (to get the main function definitions)
@@ -22,107 +23,10 @@ Export:
 - [[elisp:(emacsconf-org-publish-this-page)][Export, tangle, commit, push]]
 - [[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
-*** General
-#+name: general-setup
-#+begin_src emacs-lisp :eval query
-(defvar emacsconf-danger-allow-dangerous-stuff nil
-  "When non-nil, trade safety for convenience.")
-
-(defvar emacsconf-danger-asked nil
-  "When non-nil, user has already been asked for security trade-off.")
-
-(defun emacsconf-danger--ask (forms)
-  "Ask to run dangerous FORMS.
-Return t if the answer is “yes”."
-  (when (y-or-n-p (format "FORMS:\n%s\n\nThis is dangerous.  Run anyway? "
-                          (prin1-to-string forms)))
-    (unless emacsconf-danger-asked
-      (if (y-or-n-p "Would you like to trade security for convenience for the rest of the session? ")
-          (setq-local emacsconf-danger-allow-dangerous-stuff t)
-        (setq-local emacsconf-danger-asked t)))
-    t))
-
-(defmacro emacsconf-danger--shield (error &rest forms)
-  "Protect user from dangerous FORMS.
-Throw an error if ERROR is non-nil, skip otherwise."
-  `(let ((shield (not (or emacsconf-danger-allow-dangerous-stuff
-                          (emacsconf-danger--ask ',@forms)))))
-     (if shield
-         ,(when error
-            '(user-error "Dangerous action cancelled by user"))
-       ,@forms)))
-
-(defmacro emacsconf-danger-shield (&rest forms)
-  "Protect user from dangerous FORMS by throwing an ERROR."
-  `(emacsconf-danger--shield t ,@forms))
-
-(defmacro emacsconf-danger-skip (&rest forms)
-  "Protect user from dangerous FORMS by skipping them."
-  `(emacsconf-danger--shield nil ,@forms))
-
-(message "General setup has been loaded")
-#+end_src
-
-#+name: elisp-no-confirmation
-#+begin_src emacs-lisp
-(emacsconf-danger-shield
- (setq-local org-confirm-babel-evaluate nil
-             org-confirm-elisp-link-function nil))
-(message "No longer asking for confirmation in this buffer")
-#+end_src
-
-#+name: i-like-danger
-#+begin_src emacs-lisp
-(setq-local emacsconf-danger-allow-dangerous-stuff t)
 
-(org-babel-ref-resolve "elisp-no-confirmation()")
-
-(message "Now allowing dangerous stuff.  Buckle up, buckaroo!")
-#+end_src
-
-#+name: back-to-safety
-#+begin_src emacs-lisp
-(kill-local-variable 'emacsconf-danger-allow-dangerous-stuff)
-(kill-local-variable 'emacsconf-danger-asked)
-(kill-local-variable 'org-confirm-babel-evaluate)
-(kill-local-variable 'org-confirm-elisp-link-function)
-
-(message "Back to safety.  Phew!")
-#+end_src
-
-*** Export
-#+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
+You can use ~C-c /~ (~org-sparse-tree~) to filter this for TODOs,
+or ~C-c \~ (~org-match-sparse-tree~) to see anything tagged with your tag.
+~org-agenda~ with ~<~ for the file restriction may also be handy.
   
 * Current tasks / status
 :PROPERTIES:
@@ -1462,6 +1366,74 @@ emacsconf-discuss list, so as to help avoid generating extra off-topic
 chatter in the other lists Cc'd on this message.  Thank you.
 
 * Supporting code
+** General
+#+name: general-setup
+#+begin_src emacs-lisp :eval query
+(defvar emacsconf-danger-allow-dangerous-stuff nil
+  "When non-nil, trade safety for convenience.")
+
+(defvar emacsconf-danger-asked nil
+  "When non-nil, user has already been asked for security trade-off.")
+
+(defun emacsconf-danger--ask (forms)
+  "Ask to run dangerous FORMS.
+Return t if the answer is “yes”."
+  (when (y-or-n-p (format "FORMS:\n%s\n\nThis is dangerous.  Run anyway? "
+                          (prin1-to-string forms)))
+    (unless emacsconf-danger-asked
+      (if (y-or-n-p "Would you like to trade security for convenience for the rest of the session? ")
+          (setq-local emacsconf-danger-allow-dangerous-stuff t)
+        (setq-local emacsconf-danger-asked t)))
+    t))
+
+(defmacro emacsconf-danger--shield (error &rest forms)
+  "Protect user from dangerous FORMS.
+Throw an error if ERROR is non-nil, skip otherwise."
+  `(let ((shield (not (or emacsconf-danger-allow-dangerous-stuff
+                          (emacsconf-danger--ask ',@forms)))))
+     (if shield
+         ,(when error
+            '(user-error "Dangerous action cancelled by user"))
+       ,@forms)))
+
+(defmacro emacsconf-danger-shield (&rest forms)
+  "Protect user from dangerous FORMS by throwing an ERROR."
+  `(emacsconf-danger--shield t ,@forms))
+
+(defmacro emacsconf-danger-skip (&rest forms)
+  "Protect user from dangerous FORMS by skipping them."
+  `(emacsconf-danger--shield nil ,@forms))
+
+(message "General setup has been loaded")
+#+end_src
+
+#+name: elisp-no-confirmation
+#+begin_src emacs-lisp
+(emacsconf-danger-shield
+ (setq-local org-confirm-babel-evaluate nil
+             org-confirm-elisp-link-function nil))
+(message "No longer asking for confirmation in this buffer")
+#+end_src
+
+#+name: i-like-danger
+#+begin_src emacs-lisp
+(setq-local emacsconf-danger-allow-dangerous-stuff t)
+
+(org-babel-ref-resolve "elisp-no-confirmation()")
+
+(message "Now allowing dangerous stuff.  Buckle up, buckaroo!")
+#+end_src
+
+#+name: back-to-safety
+#+begin_src emacs-lisp
+(kill-local-variable 'emacsconf-danger-allow-dangerous-stuff)
+(kill-local-variable 'emacsconf-danger-asked)
+(kill-local-variable 'org-confirm-babel-evaluate)
+(kill-local-variable 'org-confirm-elisp-link-function)
+
+(message "Back to safety.  Phew!")
+#+end_src
+
 ** Publish this page
 #+begin_src emacs-lisp
 (defun emacsconf-org-publish-this-page ()
@@ -1473,6 +1445,39 @@ chatter in the other lists Cc'd on this message.  Thank you.
   (call-interactively #'magit-push-current-to-pushremote))
 #+end_src
 
+*** Export to markdown
+
+#+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
+
 ** Tangle and publish on save
 #+name: md-export-on-save-setup
 #+begin_src emacs-lisp :eval query