nix-archive-1(type directoryentry(namesharenode(type directoryentry(nameemacsnode(type directoryentry(name site-lispnode(type directoryentry(nameeval-in-repl-ielm-0.9.7node(type directoryentry(nameeval-in-repl-ielm.elnode(typeregularcontents ;;; eval-in-repl-ielm.el --- ESS-like eval for ielm -*- lexical-binding: t; -*- ;; Copyright (C) 2014- Kazuki YOSHIDA ;; Author: Kazuki YOSHIDA ;; Keywords: tools, convenience ;; URL: https://github.com/kaz-yos/eval-in-repl ;; Version: 0.9.4 ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see . ;;; Commentary: ;; ielm-specific file for eval-in-repl ;; See below for configuration ;; https://github.com/kaz-yos/eval-in-repl/ ;;; Code: ;;; ;;; Require dependencies (require 'eval-in-repl) (require 'ielm) ;;; ;;; CUSTOMIZATION VARIABLES ;; ;;; If true, always change ielm (defcustom eir-ielm-eval-in-current-buffer nil "When t, change ielm's working buffer to current. If true, invokes ielm-change-working-buffer to set the ielm-working-buffer variable to the current buffer." :group 'eval-in-repl :type 'boolean) ;;; ;;; EMACS LISP RELATED ;;; eir-send-to-ielm (defalias 'eir-send-to-ielm (apply-partially 'eir-send-to-repl ;; fun-change-to-repl #'(lambda () (when eir-ielm-eval-in-current-buffer (ielm-change-working-buffer (buffer-name))) (switch-to-buffer-other-window "*ielm*")) ;; fun-execute #'ielm-return) "Send expression to *ielm* and have it evaluated.") ;;; eir-eval-in-ielm ;;;###autoload (defun eir-eval-in-ielm () "eval-in-repl for IELM." (interactive) (eir-eval-in-repl-lisp ;; repl-buffer-regexp "\\*ielm\\*" ;; fun-repl-start #'ielm ;; fun-repl-send #'eir-send-to-ielm ;; defun-string "(defun ")) ;; (provide 'eval-in-repl-ielm) ;;; eval-in-repl-ielm.el ends here ))entry(nameeval-in-repl-ielm.elcnode(typeregularcontentsę;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307DD\310\311\301\312\313&\210\314\315\316\317\320\321#\322#\207" [require eval-in-repl ielm custom-declare-variable eir-ielm-eval-in-current-buffer funcall function #[0 "\300\207" [nil] 1 ""] "When t, change ielm's working buffer to current.\n\nIf true, invokes ielm-change-working-buffer to set\nthe ielm-working-buffer variable to the current buffer." :group :type boolean defalias eir-send-to-ielm apply-partially eir-send-to-repl #[0 "\203 \301\302 !\210\303\304!\207" [eir-ielm-eval-in-current-buffer ielm-change-working-buffer buffer-name switch-to-buffer-other-window "*ielm*"] 2] ielm-return "Send expression to *ielm* and have it evaluated."] 8)#@24 eval-in-repl for IELM. (defalias 'eir-eval-in-ielm #[0 "\300\301\302\303\304$\207" [eir-eval-in-repl-lisp "\\*ielm\\*" ielm eir-send-to-ielm "(defun "] 5 (#$ . 797) nil]) (provide 'eval-in-repl-ielm) )))))))))))