Add ‘pelican-make-github’ (`C-c = g`) to run `make github`

Thanks to Azzam S.A for implementing this feature.

diff --git a/README.md b/README.md
index 65c21d4a86b4b064a79a4976aec8c1df782d0ec2..68d0b3596eb499decfebe48fdc4d78c05b4deeaa 100644 (file)
--- a/README.md
+++ b/README.md
@@ -42,6 +42,7 @@ as hook functions for more direct control.
 * `C-c = n` - Insert a post or page header
 * `C-c = p` - Remove draft status from a post (i.e. publish it)
 * `C-c = u` - Upload a site using rsync (equivalent to `make rsync_upload`)
+* `C-c = g` - Upload a site to GitHub Pages (equivalent to `make github`)
 
 
 ## Troubleshooting

diff --git a/pelican-mode.el b/pelican-mode.el
index 418a82531f0887f9bc20152419ec287c5c93c7bc..2cfa3be8cb3e7a838374b8b5a05d0de1378436e9 100644 (file)
--- a/pelican-mode.el
+++ b/pelican-mode.el
@@ -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"))
+
 \f
 
 (defun pelican-mode-set-fields (&rest fields)