gitback/doomemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

quickrun: more sensible setup for *eval* buffers

Browse Source
This commit is contained in:
Henrik Lissner 2016-04-12 15:51:26 -04:00
parent 8fa7dc7802
commit 0bf14ac7f5
2 changed files with 7 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
core/core-popup.el
View File

@ -21,8 +21,8 @@
(" ?\\*Flycheck.+\\*" :regexp t :align below :size 15 :noselect t)
(" *NeoTree*" :align left :select t)
("*evil-registers*" :align below :size 0.3)
("*quickrun*" :align below :size 15 :noselect t)
("*eval*" :align below :size 15)
("*quickrun*" :align below :size 10)
("*eval*" :align below :size 12)
("*esup*" :align below :size 30 :noselect t)
("*ert*" :align below :size 20 :noselect t)
@ -162,18 +162,11 @@
(defun narf|quickrun-after-run ()
(let ((window (get-buffer-window quickrun/buffer-name)))
(with-selected-window window
(make-variable-buffer-local 'nlinum-format)
(setq nlinum-format "%3d ")
(narf|nlinum-enable)
(narf|hide-mode-line)
(let* ((lines (count-lines (point-min) (point-max)))
(act-lines (max 5 (min 30 lines))))
(set-window-start window (evil-line-position (+ 2 (- lines act-lines))))
(evil-resize-window act-lines)))))
(goto-char (point-min)))))
(defun narf|quickrun-hook ()
(narf|hide-mode-line))
(add-hook 'quickrun-after-run-hook 'narf|quickrun-after-run)
;; I let `narf|quickrun-after-run' handle scrolling, so quickrun shouldn't have to!
(advice-add 'quickrun/recenter :override 'ignore))
(add-hook 'quickrun/mode-hook 'narf|quickrun-hook))
(after! repl-toggle
(map! :map repl-toggle-mode-map

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

@ -58,6 +58,7 @@ If ARG is nil this function calls `recompile', otherwise it calls
(insert out)
(goto-char (point-min))
(read-only-mode 1)
(narf|hide-mode-line)
(narf/popup-buffer buf))))))
(t (quickrun-region beg end))))