summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSacha Chua <sacha@sachachua.com>2022-11-25 12:28:12 -0500
committerSacha Chua <sacha@sachachua.com>2022-11-25 12:28:12 -0500
commit0bd8af410c56267a30e17615cef88ef755c3ecc6 (patch)
tree7f03c38a09c564982451da4bc90f583247ed02cc
parentfb2f3ef90804b854ccd9ad3061b32fff906fa945 (diff)
downloademacsconf-el-0bd8af410c56267a30e17615cef88ef755c3ecc6.tar.xz
emacsconf-el-0bd8af410c56267a30e17615cef88ef755c3ecc6.zip
agenda
Diffstat (limited to '')
-rw-r--r--emacsconf.el18
1 files changed, 18 insertions, 0 deletions
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"))