From 2f2b03f74fdbc9f22ce60b85f507ec620b3d0f28 Mon Sep 17 00:00:00 2001
From: 10sr <8.slashes@gmail.com>
Date: Tue, 6 Nov 2018 20:03:31 +0900
Subject: [PATCH] Fix region

---
 emacs.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/emacs.el b/emacs.el
index a0e555c..9f83c1b 100644
--- a/emacs.el
+++ b/emacs.el
@@ -1930,7 +1930,11 @@ DISPLAY non-nil means redisplay buffer as output is inserted."
 
 (defun awk-preview (beg end)
   "Run awk and preview result."
-  (interactive "r")
+  (interactive (if (use-region-p)
+                   (list (region-beginning)
+                         (region-end))
+                 (list (point-min)
+                       (point-max))))
   (when (and awk-preview--env
              (awk-preview--env-running-p awk-preview--env))
     (error "AWK-Preview already running"))
@@ -2020,6 +2024,9 @@ DISPLAY non-nil means redisplay buffer as output is inserted."
     (define-key map (kbd "C-c C-l") 'awk-preview-update-preview)
     (define-key map (kbd "C-c C-k") 'awk-preview-abort)
     (define-key map (kbd "C-c C-c") 'awk-preview-commit)
+    ;; TODO: Implement
+    ;; Back preview buffer to original content
+    (define-key map (kbd "C-c C-r") 'awk-preview-clear)
     map)
   "Keymap for `awk-preview-program-mode'.")