From 8fc476a22b53047e1e93c58b538fe733f0c87b42 Mon Sep 17 00:00:00 2001
From: Sacha Chua <sacha@sachachua.com>
Date: Wed, 5 Oct 2022 12:14:40 -0400
Subject: Add emacsconf-publish-add-talk function
---
emacsconf-publish.el | 22 ++++++++++++++++------
1 file changed, 16 insertions(+), 6 deletions(-)
diff --git a/emacsconf-publish.el b/emacsconf-publish.el
index ef50d04..5fb470b 100644
--- a/emacsconf-publish.el
+++ b/emacsconf-publish.el
@@ -50,6 +50,14 @@
(emacsconf-generate-after-page info))
(emacsconf-generate-main-schedule))
+(defun emacsconf-publish-add-talk ()
+ "Add the current talk to the wiki."
+ (interactive)
+ (emacsconf-update-talk)
+ (emacsconf-generate-info-pages)
+ (emacsconf-generate-main-schedule)
+ (magit-status-setup-buffer emacsconf-directory))
+
(defun emacsconf-update-conf-html ()
"Update the schedules and export the page so I can easily review it."
(interactive)
@@ -69,13 +77,15 @@
(org-html-export-to-html))))
-(defun emacsconf-regenerate-wiki ()
+(defun emacsconf-regenerate-wiki (&optional force)
(interactive)
- (let ((info (emacsconf-get-talk-info)))
- (emacsconf-generate-info-pages info)
- (emacsconf-generate-main-schedule info)
- (emacsconf-generate-talk-pages info t)
- (magit-status emacsconf-directory)))
+ (when
+ (let ((info (emacsconf-get-talk-info))
+ (force (or force (yes-or-no-p "Overwrite existing talk pages? "))))
+ (emacsconf-generate-info-pages info)
+ (emacsconf-generate-main-schedule info)
+ (emacsconf-generate-talk-pages info force)
+ (magit-status emacsconf-directory))))
(defun emacsconf-update-schedules-in-wiki ()
(emacsconf-generate-info-pages)
--
cgit v1.2.3