diff options
| -rw-r--r-- | emacsconf-publish.el | 17 |
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) |