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

Remove yascroll

Browse source
This commit is contained in:
Henrik Lissner 2016-03-04 22:37:51 -05:00
parent c64efcf4aa
commit b2346c7e4c
6 changed files with 2 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

8
core/core-popup.el
View file

@ -142,20 +142,16 @@
(advice-add 'quickrun :before 'narf*quickrun-close-popup)
(advice-add 'quickrun-region :before 'narf*quickrun-close-popup)
;; Turns on `yascroll-bar-mode' and `nlinum-mode', and ensures window is scrolled to
;; EOF and that the scrollbar is showing.
;; Turns on `nlinum-mode', and ensures window is scrolled to EOF
(defun narf|quickrun-after-run ()
(let ((window (get-buffer-window quickrun/buffer-name)))
(with-selected-window window
(yascroll-bar-mode +1)
(narf|nlinum-enable)
(setq mode-line-format nil)
(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)
(yascroll:safe-show-scroll-bar) ; scroll-bar starts hidden, but not anymore!
))))
(evil-resize-window act-lines)))))
(add-hook 'quickrun-after-run-hook 'narf|quickrun-after-run)
;; I let `narf|quickrun-after-run' handle scrolling, so quickrun shouldn't have to!