From 3dfe58246ac5b32386dd253b81bdb689133ffc06 Mon Sep 17 00:00:00 2001
From: defanor <defanor@uberspace.net>
Date: Sun, 26 Nov 2017 13:36:04 +0300
Subject: Add file saving

User commands are adjusted, and the code is slightly refactored in
order to fit this better.
---
 pancake.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'pancake.el')

diff --git a/pancake.el b/pancake.el
index 46d0ddb..d217c4a 100644
--- a/pancake.el
+++ b/pancake.el
@@ -325,7 +325,7 @@ the list's `car' if it is already present."
 (defun pancake-reload ()
   "Reload the current document."
   (interactive)
-  (pancake-process-send "r"))
+  (pancake-process-send ","))
 
 (defun pancake-display-current-uri ()
   "Display current URI and put it into the kill ring."
@@ -389,7 +389,7 @@ it to `pancake-process' as input."
 
 (defvar pancake-mode-map
   (let ((map (make-sparse-keymap))
-        (chars (append (list ?? ?. ?/ ?# ?*)
+        (chars (append (list ?? ?. ?/ ?# ?* ?,)
                        (number-sequence ?0 ?9)
                        (number-sequence ?a ?z))))
     (dolist (char chars)
-- 
cgit v1.2.3