Added local keymap

Local keymap allows to quit current buffer or query for new place.

2 files changed, 9 insertions, 0 deletions

diff --git a/README.md b/README.md
index 762cd26..ca18128 100644
--- a/README.md
+++ b/README.md
@@ -16,6 +16,8 @@ Set a default cities list for completion:
 
 Then run `M-x wttrin` to get the information.
 
+When the weather is displayed you can press `q` to quit the buffer or `g` to query for another city.
+
 ![screenshot]
 
 ## LICENSE
diff --git a/wttrin.el b/wttrin.el
index b44554d..a8d9b85 100644
--- a/wttrin.el
+++ b/wttrin.el
@@ -36,6 +36,10 @@
          (lambda (status) (switch-to-buffer (current-buffer))))
       (decode-coding-string (buffer-string) 'utf-8))))
 
+(defun wttrin-exit ()
+  (interactive)
+  (quit-window t))
+
 (defun wttrin-query (city-name)
   "Query weather of CITY-NAME via wttrin, and display the result in new buffer."
   (let ((raw-string (wttrin-fetch-raw-string city-name)))
@@ -49,6 +53,9 @@
         (goto-char (point-min))
         (re-search-forward "^$")
         (delete-region (point-min) (1+ (point)))
+        (use-local-map (make-sparse-keymap))
+        (local-set-key "q" 'wttrin-exit)
+        (local-set-key "g" 'wttrin)
         (setq buffer-read-only t)))))
 
 ;;;###autoload