107 lines
3.4 KiB
EmacsLisp
107 lines
3.4 KiB
EmacsLisp
|
;;; feature/repl/config.el
|
||
|
|
|
||
|
|
;; + Running inline code using `quickrun'
|
||
|
|
;; + REPLs using `repl-toggle'
|
||
|
|
|
||
|
|
(defvar doom-repl-buffer nil
|
||
|
|
"The current REPL buffer.")
|
||
|
|
|
||
|
|
(defvar +eval-builders (make-hash-table :test 'equal)
|
||
|
|
"A hash-table of plists, containing functions for building source code. Used
|
||
|
|
by `+eval/build', and filled with the `:build' setting")
|
||
|
|
|
||
|
|
(defvar +eval--runners nil
|
||
|
|
"A list of `quickrun-add-command' arguments.")
|
||
|
|
|
||
|
|
(defvar +eval--repls nil
|
||
|
|
"A list of `rtog/add-repl' arguments.")
|
||
|
|
|
||
|
|
;; remove ellipsis when printing sexp in message buffer
|
||
|
|
(setq eval-expression-print-length nil
|
||
|
|
eval-expression-print-level nil)
|
||
|
|
|
||
|
|
(@def-setting :repl (mode command)
|
||
|
|
"Define a REPL for a mode. Takes same arguements as `rtog/add-repl'."
|
||
|
|
(if (featurep 'repl-toggle)
|
||
|
|
(list 'rtog/add-repl mode command)
|
||
|
|
`(push ',(list mode command) +eval--repls)))
|
||
|
|
|
||
|
|
(@def-setting :build (name mode pred-fn build-fn)
|
||
|
|
"Define a build command function (BUILD-FN) for major-mode MODE, called NAME
|
||
|
|
(a symbol). PRED-FN is a predicate function that determines this builder's
|
||
|
|
suitability for the current buffer."
|
||
|
|
`(puthash ',(cons name mode)
|
||
|
|
(list :predicate ,pred-fn :fn ,build-fn)
|
||
|
|
+eval-builders))
|
||
|
|
|
||
|
|
(@def-setting :eval (name alist &rest plist)
|
||
|
|
"Define a code evaluator for `quickrun'. Takes the same arguments as
|
||
|
|
`quickrun-add-command'."
|
||
|
|
(if (featurep 'quickrun)
|
||
|
|
(apply 'quickrun-add-command name alist plist)
|
||
|
|
`(push ',(list name alist plist) +eval--runners)))
|
||
|
|
|
||
|
|
|
||
|
|
;;
|
||
|
|
;; Packages
|
||
|
|
;;
|
||
|
|
|
||
|
|
(@def-package quickrun
|
||
|
|
:commands (quickrun
|
||
|
|
quickrun-region
|
||
|
|
quickrun-with-arg
|
||
|
|
quickrun-shell
|
||
|
|
quickrun-compile-only
|
||
|
|
quickrun-replace-region)
|
||
|
|
:init (add-hook 'quickrun/mode-hook 'linum-mode)
|
||
|
|
:config
|
||
|
|
(@set :popup "*quickrun*" :size 10)
|
||
|
|
|
||
|
|
;; don't auto-focus quickrun windows. Shackle handles that for us.
|
||
|
|
(setq quickrun-focus-p nil)
|
||
|
|
|
||
|
|
(dolist (runner +eval--runners)
|
||
|
|
(apply 'quickrun-add-command runner))
|
||
|
|
|
||
|
|
(defun +repl*quickrun-close-popup (&optional _ _ _ _)
|
||
|
|
"Allows us to re-run quickrun from inside the quickrun buffer (silently)."
|
||
|
|
(awhen (get-buffer-window quickrun/buffer-name)
|
||
|
|
(let (message-log-max)
|
||
|
|
(quickrun/kill-running-process)
|
||
|
|
(message ""))
|
||
|
|
(doom/popup-close it nil)))
|
||
|
|
|
||
|
|
(defun +repl|quickrun-scroll-to-bof ()
|
||
|
|
"Ensures window is scrolled to BOF"
|
||
|
|
(with-selected-window (get-buffer-window quickrun/buffer-name)
|
||
|
|
(goto-char (point-min))))
|
||
|
|
|
||
|
|
;;; Popup hacks
|
||
|
|
(advice-add 'quickrun :before '+repl*quickrun-close-popup)
|
||
|
|
(advice-add 'quickrun-region :before '+repl*quickrun-close-popup)
|
||
|
|
;; Ensures window is scrolled to BOF
|
||
|
|
(add-hook 'quickrun-after-run-hook '+repl|quickrun-scroll-to-bof))
|
||
|
|
|
||
|
|
|
||
|
|
(@def-package repl-toggle
|
||
|
|
:commands rtog/toggle-repl
|
||
|
|
:preface (defvar rtog/mode-repl-alist nil)
|
||
|
|
:init (@add-hook repl-toggle-mode (evil-initialize-state 'emacs))
|
||
|
|
:config
|
||
|
|
(@set :popup
|
||
|
|
(:custom (lambda (b &rest _)
|
||
|
|
(when (and (featurep 'repl-toggle)
|
||
|
|
(string-prefix-p "*" (buffer-name (get-buffer b))))
|
||
|
|
(buffer-local-value 'repl-toggle-mode b))))
|
||
|
|
:popup t :size 16)
|
||
|
|
|
||
|
|
(dolist (repl +eval--repls)
|
||
|
|
(apply 'rtog/add-repl repl))
|
||
|
|
|
||
|
|
(@map :map repl-toggle-mode-map
|
||
|
|
:ei "C-n" 'comint-next-input
|
||
|
|
:ei "C-p" 'comint-previous-input
|
||
|
|
:ei "<down>" 'comint-next-input
|
||
|
|
:ei "<up>" 'comint-previous-input))
|
||
|
|
|