From 0bd8af410c56267a30e17615cef88ef755c3ecc6 Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Fri, 25 Nov 2022 12:28:12 -0500 Subject: agenda --- emacsconf.el | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/emacsconf.el b/emacsconf.el index b5a846d..830ba60 100644 --- a/emacsconf.el +++ b/emacsconf.el @@ -91,6 +91,24 @@ (defvar emacsconf-res-dir (format "/ssh:orga@res.emacsconf.org:/data/emacsconf/%s" emacsconf-year)) (defvar emacsconf-media-extensions '("webm" "mkv" "mp4" "webm" "avi" "ts" "ogv" "wav" "ogg" "mp3")) (defvar emacsconf-ftp-upload-dir "/ssh:orga@media.emacsconf.org:/srv/ftp/anon/upload-here") +(defvar emacsconf-notebook + (expand-file-name + "index.org" + (expand-file-name "organizers-notebook" + (expand-file-name emacsconf-year emacsconf-directory)))) + +(defun emacsconf-prep-agenda () + (interactive) + (let* ((org-agenda-custom-commands + `(("a" "Agenda" + ((tags-todo "-PRIORITY=\"C\"-SCHEDULED={.}-nextyear" + ((org-agenda-files (list ,emacsconf-notebook)))) + (agenda "" + ((org-agenda-files (list ,emacsconf-notebook)) + (org-agenda-span 7))) + ))))) + (org-agenda nil "a"))) + (defun emacsconf-ftp-upload-dired () (interactive) (dired emacsconf-ftp-upload-dir "-tl")) -- cgit v1.2.3