awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

quickrun: kill temp buffer and refactor doom*quickrun-close-popup

Browse Source
This commit is contained in:
Henrik Lissner
2016-06-17 23:49:17 -04:00
parent 8ab09996ba
commit 9cf8d08ac4
1 changed files with 5 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
core/defuns/defuns-quickrun.el
View File

@ -62,7 +62,8 @@ elisp buffer). Otherwise forward the region to Quickrun."
(setq lines (count-lines (point-min) (point-max))) (setq lines (count-lines (point-min) (point-max)))
(goto-char (point-min)) (goto-char (point-min))
(when (< lines 5) (when (< lines 5)
(message "%s" (buffer-substring (point-min) (point-max))))) (message "%s" (buffer-substring (point-min) (point-max)))
(kill-buffer buf)))
(unless (< lines 5) (unless (< lines 5)
(doom/popup-buffer buf))))) (doom/popup-buffer buf)))))
(t (quickrun-region beg end)))) (t (quickrun-region beg end))))
@ -82,12 +83,9 @@ elisp buffer). Otherwise forward the region to Quickrun."
;;;###autoload ;;;###autoload
(defun doom*quickrun-close-popup (&optional _ _ _ _) (defun doom*quickrun-close-popup (&optional _ _ _ _)
"Allows us to re-run quickrun from inside the quickrun buffer." "Allows us to re-run quickrun from inside the quickrun buffer."
(let ((buffer (get-buffer quickrun/buffer-name)) (awhen (get-buffer-window quickrun/buffer-name)
window) (shut-up! (quickrun/kill-running-process))
(when buffer (doom/popup-close it nil t)))
(setq window (get-buffer-window buffer))
(shut-up! (quickrun/kill-running-process))
(doom/popup-close window nil t))))
;;;###autoload ;;;###autoload
(defun doom|quickrun-after-run () (defun doom|quickrun-after-run ()