From 42e3b70fb5e96ae3ff8f2a6e785fc24080a102eb Mon Sep 17 00:00:00 2001
From: 10sr <8.slashes@gmail.com>
Date: Wed, 11 Jul 2018 17:38:16 +0900
Subject: [PATCH] Add WIP awk-preview

---
 emacs.el | 49 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 49 insertions(+)

diff --git a/emacs.el b/emacs.el
index b026b30..997dc9a 100644
--- a/emacs.el
+++ b/emacs.el
@@ -1506,4 +1506,53 @@ This mode is a simplified version of `adoc-mode'."
   (add-to-list 'auto-mode-alist
                '("\\.adoc\\'" . adoc-simple-mode)))
 
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; awk-preview
+
+(defgroup awk-preview nil
+  "Awk previewer."
+  :tag "Awk Preview"
+  :prefix "awk-preview-"
+  :group 'tools)
+
+(defcustom awk-preview-program
+  (or (executable-find "gawk")
+      (executable-find "awk")
+      "awk")
+  "Awk program to execute."
+  :type 'string
+  :group 'awk-preview)
+
+(defcustom awk-preview-switches
+  '("--sandbox" "--" "{print}")
+  "String of awk options appended when running awk preview."
+  :type '(repeat string)
+  :group 'awk-preview)
+
+(defun awk-preview--invoke (start end output)
+  "Execute awk process and get result."
+  (let ((proc (apply 'start-process
+                     "awk-preview"
+                     output
+                     awk-preview-program
+                     awk-preview-switches)))
+    (message "%S" proc)
+    (process-send-region proc start end)
+    (process-send-eof proc)
+    (accept-process-output proc)
+    )
+  output)
+
+(defun awk-preview (start end)
+  "Run awk and preview result."
+  (interactive "r")
+  (let ((output (with-current-buffer (get-buffer-create "*awk-preview output*")
+                  (erase-buffer)
+                  (current-buffer))))
+    (awk-preview--invoke start end output)
+    (message "awk-preview: %s" (with-current-buffer output
+                    (buffer-substring-no-properties (point-min) (point-max))))
+    ))
+
 ;;; emacs.el ends here