From c19758f32a54fd3ab5eae001c79e76349434664e Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Sat, 28 Sep 2024 09:30:32 -0400 Subject: add guile to schedule --- 2024/organizers-notebook/index.org | 44 +++++++++++++++++++++++++++++++++----- 1 file changed, 39 insertions(+), 5 deletions(-) (limited to '2024/organizers-notebook/index.org') diff --git a/2024/organizers-notebook/index.org b/2024/organizers-notebook/index.org index 4ac93eb7..1c70ff57 100644 --- a/2024/organizers-notebook/index.org +++ b/2024/organizers-notebook/index.org @@ -205,8 +205,9 @@ emacsconf-discuss, reddit.com/r/emacs, Emacs News, emacs-tangents, Mastodon, X rust ; Dec 7 (lunch :start "12:00") julia ; >= 13:00 - regex ; <= 12:00 sun or >= 12:00 sat + guile ; >= 12:00 (mcclim :time 60) ; >= 14:00 + regex ; <= 12:00 sun or >= 12:00 sat repro ; any ("GEN Sunday, Dec 8" :start "2024-12-08 09:00" :set-track "General") sun-open @@ -294,21 +295,22 @@ Coloring by availability: color ; <= 12:00 sat pref (lunch :start "12:00") emacs30 ; probably any - theme ; >= 12:30 water ; >= 13:00 Sat, same speaker as shell shell ; >= 13:00 Sat + theme ; >= 12:30 flp ; any, Sat pref writing ; >= 15:30 Sat - sat-close + (sat-close :start "16:50") ("DEV Saturday, Dec 7" :start "2024-12-07 10:00" :set-track "Development") gypsum ; <= 11:00 rust ; Dec 7 graph ; <= 12:00 (lunch :start "12:00") julia ; >= 13:00 + guile ; >= 12:00 regex ; <= 12:00 sun or >= 12:00 sat - secrets ; >= 13:00 (mcclim :time 60) ; >= 14:00 + secrets ; >= 13:00 repro ; any ("GEN Sunday, Dec 8" :start "2024-12-08 09:00" :set-track "General") sun-open @@ -342,7 +344,6 @@ Coloring by availability: #+RESULTS: :results: -saturday closing remarks: Starts at 16:10 before 16:30 :end: [[file:schedule-1.5-tracks.svg]] @@ -350,3 +351,36 @@ saturday closing remarks: Starts at 16:10 before 16:30 Coloring by availability: - light blue: constraint is <= a time - peach: constraint is >= a time +* Support code + +#+begin_src emacs-lisp +(defun my-ox-link-path (link _ info) + (let* ((raw-path (org-element-property :path link))) + (setq raw-path + (org-export-file-uri + (org-publish-file-relative-name raw-path info))) + ;; Possibly append `:html-link-home' to relative file + ;; name. + (let ((home (and (plist-get info :html-link-home) + (org-trim (plist-get info :html-link-home))))) + (when (and home + (plist-get info :html-link-use-abs-url) + (not (file-name-absolute-p raw-path))) + (setq raw-path (concat (file-name-as-directory home) raw-path)))) + raw-path)) + +(defun my-org-md-link (link desc info) + (if (string= (org-element-property :type link) "file") + (let ((path (my-ox-link-path link desc info))) + (if (string= (file-name-extension path) "svg") + (with-temp-buffer + (insert-file-contents-literally path) + (buffer-string)) + (org-md-link link desc info))) + (org-md-link link desc info))) + +(with-eval-after-load 'ox-md + (setf + (alist-get 'link (org-export-backend-transcoders (org-export-get-backend 'md))) + 'my-org-md-link)) +#+end_src -- cgit v1.2.3