27 lines
886 B
EmacsLisp
27 lines
886 B
EmacsLisp
;;; emacs-lisp.el -*- lexical-binding: t; -*-
|
|
|
|
(require 'syd-handle-repl)
|
|
|
|
;; Don't `use-package' `ielm', since it's loaded by Emacs. You'll get weird
|
|
;; autoload errors if you do.
|
|
;; https://www.reddit.com/r/emacs/comments/q7fjbi/comment/lml127d
|
|
(use-package emacs
|
|
:custom ((ielm-history-file-name ; Stay out of my config dir!
|
|
(file-name-concat syd-cache-dir "ielm-history.eld"))))
|
|
|
|
(defun syd/open-emacs-lisp-repl ()
|
|
(interactive)
|
|
(pop-to-buffer
|
|
(or (get-buffer "*ielm*")
|
|
(progn (ielm) ; Creates the *ielm* buffer.
|
|
(let ((b (get-buffer "*ielm*")))
|
|
;; We leave it to the enclosing `pop-to-buffer' to display the
|
|
;; buffer.
|
|
(bury-buffer b)
|
|
b)))))
|
|
|
|
(add-to-list '+syd-major-mode-repl-alist
|
|
'(emacs-lisp-mode syd/open-emacs-lisp-repl))
|
|
|
|
(provide 'syd-lang-emacs-lisp)
|