[bug#57737] [PATCH 4/6] gnu: Add emacs-eval-in-repl packages.

[Nicolas Graves]

* gnu/packages/emacs-xyz.scm
  (emacs-eval-in-repl): New variable.
  (emacs-eval-in-repl-ielm): New variable.
  (emacs-eval-in-repl-cider): New variable.
  (emacs-eval-in-repl-slime): New variable.
  (emacs-eval-in-repl-geiser): New variable.
  (emacs-eval-in-repl-racket): New variable.
  (emacs-eval-in-repl-scheme): New variable.
  (emacs-eval-in-repl-hy): New variable.
  (emacs-eval-in-repl-python): New variable.
  (emacs-eval-in-repl-ruby): New variable.
  (emacs-eval-in-repl-sml): New variable.
  (emacs-eval-in-repl-ocaml): New variable.
  (emacs-eval-in-repl-prolog): New variable.
  (emacs-eval-in-repl-javascript): New variable.
  (emacs-eval-in-repl-shell): New variable.
  (emacs-eval-in-repl-iex): New variable.
  (emacs-eval-in-repl-erlang): New variable.
  (emacs-eval-in-repl-elm): New variable.
---
 gnu/packages/emacs-xyz.scm | 77 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 77 insertions(+)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 9dfb2cfdb7..d7b79d30b8 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -27110,6 +27110,83 @@ (define-public emacs-eval-in-repl
 @item eval-in-repl-elm        for Elm
 @end itemize")
     (license license:expat)))
+
+(define (repl->lang s)
+    (cond
+     ((string= s "ielm") "Emacs Lisp")
+     ((string= s "cider") "Clojure")
+     ((string= s "slime") "Common Lisp")
+     ((string= s "geiser") "Racket/Scheme")
+     ((string= s "sml") "Standard ML")
+     ((string= s "iex") "Elixir")
+     ((string= s "ocaml") "OCaml")
+     (else (string-capitalize s))))
+
+(define (lang->inputs s)
+    (cond
+     ((string= s "Clojure") (list emacs-cider))
+     ((string= s "Common Lisp") (list emacs-slime))
+     ((string= s "Racket/Scheme") (list emacs-geiser))
+     ((string= s "Racket") (list emacs-racket-mode))
+     ((string= s "Hy") (list emacs-hy-mode))
+     ((string= s "Ruby") (list emacs-inf-ruby))
+     ((string= s "Standard ML") (list emacs-sml-mode))
+     ((string= s "OCaml") (list emacs-tuareg))
+     ((string= s "Javascript") (list emacs-js2-mode emacs-js-comint))
+     ((string= s "Elixir") (list emacs-elixir-mode emacs-alchemist))
+     ((string= s "Erlang") (list emacs-erlang))
+     ((string= s "Elm") (list emacs-elm-mode))
+     (else '())))
+
+(define (pack-eval-in-repl repl)
+  (let* ((lang (repl->lang repl))
+         (inputs (lang->inputs lang)))
+    (package
+      (name (string-append "emacs-eval-in-repl-" repl))
+      (version "0.9.7")
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/kaz-yos/eval-in-repl";)
+               (commit (string-append "v" version))))
+
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "1mrssbl0wyc6iij8zk1y3h9bd3rv53nnrxsij7fn67l1m4z0clyn"))))
+      (build-system emacs-build-system)
+      (arguments
+       `(#:include (list (string-append "eval-in-repl-" ,repl "\\.el"))))
+      (propagated-inputs (append (list emacs-eval-in-repl) inputs))
+      (home-page "https://github.com/kaz-yos/eval-in-repl";)
+      (synopsis "Consistent evaluation interface for Emacs Lisp REPLs for 
emacs")
+      (description (string-append "\
+This package provides a consistent ESS-like evaluation interface for
+" lang " REPLs.  Emacs Speaks Statistics (ESS) package has a nice function
+called @code{ess-eval-region-or-line-and-step}, which is assigned to
+C-RET.  This function sends a line or a selected region to the corresponding
+shell (R, Julia, Stata, etc) visibly.  It also start up a shell if there is
+none."))
+      (license license:expat))))
+
+(define-public emacs-eval-in-repl-ielm       (pack-eval-in-repl "ielm"))
+(define-public emacs-eval-in-repl-cider      (pack-eval-in-repl "cider"))
+(define-public emacs-eval-in-repl-slime      (pack-eval-in-repl "slime"))
+(define-public emacs-eval-in-repl-geiser     (pack-eval-in-repl "geiser"))
+(define-public emacs-eval-in-repl-racket     (pack-eval-in-repl "racket"))
+(define-public emacs-eval-in-repl-scheme     (pack-eval-in-repl "scheme"))
+(define-public emacs-eval-in-repl-hy         (pack-eval-in-repl "hy"))
+(define-public emacs-eval-in-repl-python     (pack-eval-in-repl "python"))
+(define-public emacs-eval-in-repl-ruby       (pack-eval-in-repl "ruby"))
+(define-public emacs-eval-in-repl-sml        (pack-eval-in-repl "sml"))
+(define-public emacs-eval-in-repl-ocaml      (pack-eval-in-repl "ocaml"))
+(define-public emacs-eval-in-repl-prolog     (pack-eval-in-repl "prolog"))
+(define-public emacs-eval-in-repl-javascript (pack-eval-in-repl "javascript"))
+(define-public emacs-eval-in-repl-shell      (pack-eval-in-repl "shell"))
+(define-public emacs-eval-in-repl-iex        (pack-eval-in-repl "iex"))
+(define-public emacs-eval-in-repl-erlang     (pack-eval-in-repl "erlang"))
+(define-public emacs-eval-in-repl-elm        (pack-eval-in-repl "elm"))
+
 (define-public emacs-eval-sexp-fu-el
   (package
     (name "emacs-eval-sexp-fu-el")
-- 
2.37.3