Make awk-preview-commit work

emacs.el

@@ -1855,11 +1855,13 @@ This mode is a simplified version of `adoc-mode'."
      'permanent-local
      t)
 
-(defun awk-preview--invoke-awk (buf beg end progfile output &optional delete)
+(defun awk-preview--invoke-awk (buf beg end progfile output &optional delete display)
   "Execute PROGFILE awk process with BEG and END input and output to OUTPUT buffer.
 
 When OUTPUT is t the result will be output to BUF.
-Delete the text between BEG and END when DELETE is non-nil."
+Delete the text between BEG and END when DELETE is non-nil.
+
+DISPLAY non-nil means redisplay buffer as output is inserted."
   (with-current-buffer buf
     (let ((status (apply 'call-process-region
                          beg
@@ -1867,7 +1869,7 @@ Delete the text between BEG and END when DELETE is non-nil."
                          awk-preview-program
                          delete
                          output
-                         nil
+                         display
                          `(,@awk-preview-switches "-f" ,progfile))))
       (unless (eq status
                   0)
@@ -1993,13 +1995,14 @@ Delete the text between BEG and END when DELETE is non-nil."
 (defun awk-preview-commit ()
   "Exit awk-preview and update buffer."
   (interactive)
-  ;; (with-current-buffer awk-preview--source-buffer
-  ;;   (awk-preview--invoke-awk (current-buffer)
-  ;;                            awk-preview--point-beg
-  ;;                            awk-preview--point-end
-  ;;                            progfile
-  ;;                            t
-  ;;                            t))
+  (cl-assert awk-preview--env)
+  (awk-preview--invoke-awk (awk-preview--env-source-buffer awk-preview--env)
+                           (awk-preview--env-point-beg awk-preview--env)
+                           (awk-preview--env-point-end awk-preview--env)
+                           (awk-preview--env-program-filename awk-preview--env)
+                           t
+                           t
+                           t)
   (awk-preview--cleanup))
 
 (defun awk-preview-abort ()
@@ -2008,7 +2011,9 @@ Delete the text between BEG and END when DELETE is non-nil."
   (awk-preview--cleanup))
 
 (defun awk-preview--cleanup()
-  "Cleanup awk preview buffers and variables.")
+  "Cleanup awk preview buffers and variables."
+  (setf (awk-preview--env-running-p awk-preview--env) nil)
+  (set-window-configuration (awk-preview--env-window-configuration awk-preview--env)))
 
 (defvar awk-preview-program-mode-map
   (let ((map (make-sparse-keymap)))
@@ -3030,6 +3035,10 @@ If target path is not found in COMMITISH tree, go up path and try again until fo
       trees)))
 
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; j2-mode jinja2-mmm-mode?
+
+
 ;; Local Variables:
 ;; flycheck-disabled-checkers: (emacs-lisp-checkdoc)
 ;; flycheck-checker: emacs-lisp