From 3c9a0247861ad8f7002cb38c48227901fd98de3e Mon Sep 17 00:00:00 2001
From: defanor <defanor@uberspace.net>
Date: Tue, 31 Oct 2017 03:23:38 +0300
Subject: Implement document reloading

---
 pancake.el | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'pancake.el')

diff --git a/pancake.el b/pancake.el
index c23b19e..392ccaa 100644
--- a/pancake.el
+++ b/pancake.el
@@ -269,6 +269,11 @@
   (interactive)
   (pancake-process-send "q"))
 
+(defun pancake-reload ()
+  "Reload the current document."
+  (interactive)
+  (pancake-process-send "r"))
+
 (defun pancake-input (string)
   "Pancake input handler: opens minibuffer for input.
 Sets the initial contents to STRING, reads the rest, and passes
@@ -291,6 +296,7 @@ it to `pancake-process' as input."
     (define-key map (kbd "B") 'pancake-go-backward)
     (define-key map (kbd "F") 'pancake-go-forward)
     (define-key map (kbd "Q") 'pancake-quit)
+    (define-key map (kbd "R") 'pancake-reload)
     map)
   "Keymap for `pancake-mode'.")
 
-- 
cgit v1.2.3