summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--emacsconf-publish.el17
1 files changed, 10 insertions, 7 deletions
diff --git a/emacsconf-publish.el b/emacsconf-publish.el
index 7c72a51..23fbb0b 100644
--- a/emacsconf-publish.el
+++ b/emacsconf-publish.el
@@ -649,11 +649,6 @@ Back to the [[talks]] \n"
"Sunday closing remarks"))
))))
-(defun emacsconf-publish-schedule ()
- (interactive)
- (emacsconf-publish-with-wiki-change
- (emacsconf-generate-main-schedule-with-tracks)))
-
(defun emacsconf-publish-format-interleaved-schedule (&optional info)
"Return a list with the schedule for INFO.
Entries are sorted chronologically, with different tracks interleaved."
@@ -691,7 +686,7 @@ Entries are sorted chronologically, with different tracks interleaved."
by-day
"\n\n")))
-(defun emacsconf-generate-main-schedule (&optional info)
+(defun emacsconf-publish-schedule (&optional info)
(interactive)
(emacsconf-publish-schedule-svg-snippets)
(with-temp-file (expand-file-name "schedule-details.md" (expand-file-name emacsconf-year emacsconf-directory))
@@ -1384,7 +1379,15 @@ Entries are sorted chronologically, with different tracks interleaved."
(magit-with-toplevel
(magit-stage-1 "-u" magit-buffer-diff-files))
(magit-status-setup-buffer))
- (shell-command "git add -u")))))
+ (shell-command "git add -u"))
+ ;; (when noninteractive
+ ;; (call-process "git" nil nil nil "commit" "-m" (if (stringp (car body))
+ ;; (car body)
+ ;; "Automated commit"))
+ ;; (call-process "git" nil nil nil "commit" "-m" (if (stringp (car body))
+ ;; (car body)
+ ;; "Automated commit")))
+ )))
(defun emacsconf-publish-schedule-svg-snippets ()
(interactive)