X-Git-Url: https://git.korewanetadesu.com/?p=pelican-mode.git;a=blobdiff_plain;f=pelican-mode.el;h=2cfa3be8cb3e7a838374b8b5a05d0de1378436e9;hp=9886e8c43fd1a04c838e513f42445eb7a8e5c42a;hb=refs%2Fheads%2Fmaster;hpb=c48bd6c3b7369787a09923c53b452d9ec460399c

diff --git a/pelican-mode.el b/pelican-mode.el
index 9886e8c..2cfa3be 100644
--- a/pelican-mode.el
+++ b/pelican-mode.el
@@ -1,9 +1,9 @@
 ;;; pelican-mode.el --- Minor mode for editing Pelican sites -*- lexical-binding: t -*-
 ;;
-;; Copyright 2013-2017 Joe Wreschnig
+;; Copyright 2013-2018 Joe Wreschnig
 ;;
 ;; Author: Joe Wreschnig <joe.wreschnig@gmail.com>
-;; Package-Version: 20170808
+;; Package-Version: 20180605.1
 ;; Package-Requires: ((emacs "25"))
 ;; URL: https://git.korewanetadesu.com/pelican-mode.git
 ;; Keywords: convenience, editing
@@ -120,6 +120,7 @@ arguments, field and value strings."
     (define-key map (kbd "n") #'pelican-mode-insert-header)
     (define-key map (kbd "p") #'pelican-mode-publish)
     (define-key map (kbd "u") #'pelican-make-rsync-upload)
+    (define-key map (kbd "g") #'pelican-make-github)
     map)
   "Keymap for Pelican commands after ‘pelican-mode-keymap-prefix’.")
 (fset 'pelican-mode-command-map pelican-mode-command-map)
@@ -285,6 +286,11 @@ has no status."
   (interactive)
   (pelican-make "rsync_upload"))
 
+(defun pelican-make-github ()
+  "Upload to GitHub Pages via a Makefile at the root of the site."
+  (interactive)
+  (pelican-make "github"))
+
 
 
 (defun pelican-mode-set-fields (&rest fields)