From d33a5923c335332f7401826e01eb2033af717a76 Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Sat, 5 Nov 2022 07:55:34 -0400 Subject: Publishing and streaming --- roles/edit/templates/emacsconf-edit.el | 21 +++++++++++++-------- 1 file changed, 13 insertions(+), 8 deletions(-) (limited to 'roles/edit/templates') diff --git a/roles/edit/templates/emacsconf-edit.el b/roles/edit/templates/emacsconf-edit.el index 481892b..e187c69 100644 --- a/roles/edit/templates/emacsconf-edit.el +++ b/roles/edit/templates/emacsconf-edit.el @@ -18,9 +18,6 @@ (modus-themes-load-vivendi) (org-babel-do-load-languages 'org-babel-load-languages '((emacs-lisp . t) (shell . t))) (setq backup-directory-alist '(("." . "~/.emacs.d/backups"))) -(find-file "{{ emacsconf_private_dir }}/conf.org") -(split-window-horizontally) -(magit-status "{{ emacsconf_edit_wiki_dir }}") (global-auto-revert-mode 1) (with-eval-after-load 'projectile (projectile-mode +1) @@ -37,12 +34,13 @@ (setq completion-category-overrides '((file (styles orderless)))) (defhydra hydra-emacsconf () + ("aa" emacsconf-agenda "agenda") + ("ad" (emacsconf-track-agenda "dev") "dev") + ("ag" (emacsconf-track-agenda "gen") "gen") ("e" embark-act "embark") ("t" emacsconf-go-to-talk "talk") - ("c" - (find-file emacsconf-org-file) "conf.org") - ("C" - (let ((default-directory (file-name-directory emacsconf-org-file))) + ("c" (find-file emacsconf-org-file) "conf.org") + ("C" (let ((default-directory (file-name-directory emacsconf-org-file))) (call-interactively #'projectile-find-file)) "org dir") ("w" @@ -51,7 +49,7 @@ "wiki") ("o" (find-file (expand-file-name (concat emacsconf-year "/organizers-notebook/index.org") emacsconf-directory)) "org notes") - ("a" (let ((default-directory emacsconf-ansible-directory)) + ("A" (let ((default-directory emacsconf-ansible-directory)) (call-interactively #'projectile-find-file)) "ansible") ("i" (switch-to-buffer (erc-get-buffer "#emacsconf-org"))) @@ -59,8 +57,15 @@ (call-interactively #'projectile-find-file)) "lisp") ("b" emacsconf-backstage-dired "backstage") + ("i" emacsconf-stream-set-talk-info "info") + ("m" emacsconf-stream-play-video "mpv") + ("p" emacsconf-stream-open-pad "pad") + ("q" emacsconf-stream-join-qa "qa") ("u" emacsconf-upload-dired "upload")) (global-set-key (kbd "C-c e") #'hydra-emacsconf/body) (require 'ox-md) (server-start) + +(find-file "{{ emacsconf_private_dir }}/conf.org") + -- cgit v1.2.3