emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Extract advice functions for core-eval

Browse source
This commit is contained in:
Henrik Lissner 2016-06-06 23:49:12 -04:00
parent ca517d9df5
commit bdf9616f80
3 changed files with 92 additions and 43 deletions
Download patch file Download diff file Expand all files Collapse all files

16
core/defuns/defuns-quickrun.el
View file

@ -79,5 +79,21 @@ elisp buffer). Otherwise forward the region to Quickrun."
(insert (current-kill 0)))))
(t (quickrun-replace-region beg end))))
;;;###autoload
(defun doom*quickrun-close-popup (&optional _ _ _ _)
"Allows us to re-run quickrun from inside the quickrun buffer."
(let ((buffer (get-buffer quickrun/buffer-name))
window)
(when buffer
(setq window (get-buffer-window buffer))
(shut-up! (quickrun/kill-running-process))
(doom/popup-close window nil t))))
;;;###autoload
(defun doom|quickrun-after-run ()
"Ensures window is scrolled to BOF"
(with-selected-window (get-buffer-window quickrun/buffer-name)
(goto-char (point-min))))
(provide 'defuns-quickrun)
;;; defuns-quickrun.el ends here