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

PRAISE BE TO THE BYTE COMPILER FOR THY SHARP QUOTES

Browse source
This commit is contained in:
Henrik Lissner 2017-04-17 02:17:10 -04:00
parent ef88d30b73
commit 5ae94b765c
79 changed files with 798 additions and 795 deletions
Download patch file Download diff file Expand all files Collapse all files

2
modules/feature/eval/autoload/build.el
View file

@ -23,7 +23,7 @@ functions.")
(if (= (length builders) 1)
(car builders)
(when-let (builder (completing-read "Build: "
(mapcar 'car builders)
(mapcar #'car builders)
nil t))
(assq (intern builder) builders)))))

8
modules/feature/eval/config.el
View file

@ -87,7 +87,7 @@ invokes the repl. Takes the same arguements as `rtog/add-repl'."
:init
;; Use standard linum-mode for quickrun eval windows; so we can have different
;; rules for it.
(add-hook 'quickrun/mode-hook 'linum-mode)
(add-hook 'quickrun/mode-hook #'linum-mode)
:config
(set! :popup "*quickrun*" :size 10)
@ -102,12 +102,12 @@ invokes the repl. Takes the same arguements as `rtog/add-repl'."
(quickrun--kill-running-process)
(message ""))
(delete-window win)))
(advice-add 'quickrun :before '+eval*quickrun-auto-close)
(advice-add 'quickrun-region :before '+eval*quickrun-auto-close)
(advice-add #'quickrun :before #'+eval*quickrun-auto-close)
(advice-add #'quickrun-region :before #'+eval*quickrun-auto-close)
(defun +eval|quickrun-scroll-to-bof ()
"Ensures window is scrolled to BOF on invocation."
(with-selected-window (get-buffer-window quickrun--buffer-name)
(goto-char (point-min))))
(add-hook 'quickrun-after-run-hook '+eval|quickrun-scroll-to-bof))
(add-hook 'quickrun-after-run-hook #'+eval|quickrun-scroll-to-bof))