26 lines
755 B
EmacsLisp
26 lines
755 B
EmacsLisp
;;; emacs-lisp.el -*- lexical-binding: t; -*-
|
|
|
|
(require 'syd-handle-repl)
|
|
|
|
(use-package ielm
|
|
:commands ielm
|
|
:hook (emacs-lisp-mode)
|
|
: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)
|