Browse Source

Make awk-preview-commit work

master
10sr 6 years ago
parent
commit
3d1bf12502
Signed by: 10sr GPG Key ID: 7BEC428194130EB2
1 changed files with 20 additions and 11 deletions
  1. +20
    -11
      emacs.el

+ 20
- 11
emacs.el View File

@@ -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


Loading…
Cancel
Save