summaryrefslogtreecommitdiffstats
path: root/2024/organizers-notebook/index.org
diff options
context:
space:
mode:
authorSacha Chua <sacha@sachachua.com>2024-09-28 09:30:32 -0400
committerSacha Chua <sacha@sachachua.com>2024-09-28 09:30:32 -0400
commitc19758f32a54fd3ab5eae001c79e76349434664e (patch)
treef823257c1794b5776e70540ab7e2ec1f433ad2d0 /2024/organizers-notebook/index.org
parent4bfae2711851df595828652e3752e836e8be8051 (diff)
downloademacsconf-wiki-c19758f32a54fd3ab5eae001c79e76349434664e.tar.xz
emacsconf-wiki-c19758f32a54fd3ab5eae001c79e76349434664e.zip
add guile to schedule
Diffstat (limited to '')
-rw-r--r--2024/organizers-notebook/index.org44
1 files changed, 39 insertions, 5 deletions
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