diff options
| author | Sacha Chua <sacha@sachachua.com> | 2022-11-13 13:44:04 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2022-11-13 13:44:04 -0500 |
| commit | 36b01a7223c568f00352f7fb8cc33684952c842c (patch) | |
| tree | 03d77e55d14178c2805229f3bfa042f4a5249193 /emacsconf.el | |
| parent | 0d1c45f9cfd3c8054cf7c73474df554d15d630f4 (diff) | |
| download | emacsconf-el-36b01a7223c568f00352f7fb8cc33684952c842c.tar.xz emacsconf-el-36b01a7223c568f00352f7fb8cc33684952c842c.zip | |
Shift info
Diffstat (limited to 'emacsconf.el')
| -rw-r--r-- | emacsconf.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/emacsconf.el b/emacsconf.el index c16f657..36d21b2 100644 --- a/emacsconf.el +++ b/emacsconf.el @@ -138,8 +138,9 @@ (copy-file file (expand-file-name (file-name-nondirectory file) emacsconf-backstage-dir) t) - (when (and emacsconf-cache-dir (not (string= (expand-file-name default-directory) - (expand-file-name emacsconf-cache-dir)))) + (when (and emacsconf-cache-dir + (not (string= (expand-file-name (file-name-nondirectory file) default-directory) + (expand-file-name (file-name-nondirectory file) emacsconf-cache-dir)))) (copy-file file (expand-file-name (file-name-nondirectory file) emacsconf-cache-dir) t))) @@ -944,6 +945,9 @@ (:name "Development" :color "skyblue" :id "dev" :channel "emacsconf-dev" :tramp "/ssh:emacsconf-dev@res.emacsconf.org#46668:"))) +(defvar emacsconf-shifts (list (list :id "sat-am-gen" :track "General" :start "2022-12-03T08:00:00-0500" :end "2022-12-03T12:00:00-0500" :host "zaeph" :streamer "corwin" :checkin "sachac" :irc "sachac" :pad "publicvoit") (list :id "sat-pm-gen" :track "General" :start "2022-12-03T13:00:00-0500" :end "2022-12-03T18:00:00-0500" :host "zaeph" :streamer "corwin" :checkin "FlowyCoder" :irc "dto" :pad "publicvoit") (list :id "sat-am-dev" :track "Development" :start "2022-12-03T08:00:00-0500" :end "2022-12-03T12:00:00-0500" :host "bandali" :streamer "bandali" :checkin "sachac" :irc "dto") (list :id "sat-pm-dev" :track "Development" :start "2022-12-03T13:00:00-0500" :end "2022-12-03T18:00:00-0500" :host "vetrivln" :streamer "bandali" :checkin "FlowyCoder" :irc "vetrivln") (list :id "sun-am-gen" :track "General" :start "2022-12-04T08:00:00-0500" :end "2022-12-04T12:00:00-0500" :host "zaeph" :streamer "corwin" :checkin "sachac" :irc "sachac" :pad "publicvoit") (list :id "sun-pm-gen" :track "General" :start "2022-12-04T13:00:00-0500" :end "2022-12-04T18:00:00-0500" :host "zaeph" :streamer "jman" :checkin "FlowyCoder" :irc "dto" :pad "publicvoit") (list :id "sun-am-dev" :track "Development" :start "2022-12-04T08:00:00-0500" :end "2022-12-04T12:00:00-0500" :host "bandali" :streamer "bandali" :checkin "sachac" :irc "dto") (list :id "sun-pm-dev" :track "Development" :start "2022-12-04T13:00:00-0500" :end "2022-12-04T18:00:00-0500" :host "vetrivln" :streamer "bandali" :checkin "FlowyCoder" :irc "vetrivln")) + "Shift information derived from the organizer's notebook.") + (defun emacsconf-get-track (name) (when (listp name) (setq name (plist-get name :track))) (seq-find (lambda (track) (or (string= name (plist-get track :name)) |