[elpa] externals/eev 6c9211708d: Added support for Raku.

[ELPA Syncer]

branch: externals/eev
commit 6c9211708df63b2c834756a2c1758189648e3de1
Author: Eduardo Ochs <eduardoochs@gmail.com>
Commit: Eduardo Ochs <eduardoochs@gmail.com>

    Added support for Raku.
---
 ChangeLog         |  6 ++++++
 VERSION           |  4 ++--
 eepitch.el        |  5 +++--
 eev-testblocks.el | 20 ++++++++++++++++++--
 4 files changed, 29 insertions(+), 6 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 2dae6f9563..a5e984629c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2023-01-21  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eepitch.el (eepitch-raku): new function.
+
+       * eev-testblocks.el (ee-insert-test-raku-mode): new function.
+
 2023-01-18  Eduardo Ochs  <eduardoochs@gmail.com>
 
        * eev-tlinks.el (find-try-sly-links): rewrote several parts.
diff --git a/VERSION b/VERSION
index 5d5e06a090..944aa30aef 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Wed Jan 18 05:54:12 GMT 2023
-Wed Jan 18 02:54:12 -03 2023
+Sun Jan 22 04:28:41 GMT 2023
+Sun Jan 22 01:28:41 -03 2023
diff --git a/eepitch.el b/eepitch.el
index b1df45e7f7..50703c6e8d 100644
--- a/eepitch.el
+++ b/eepitch.el
@@ -1,6 +1,6 @@
 ;; eepitch.el - record interactions with shells as readable notes, redo tasks. 
 -*- lexical-binding: nil; -*-
 
-;; Copyright (C) 2012,2015,2018-2022 Free Software Foundation, Inc.
+;; Copyright (C) 2012,2015,2018-2023 Free Software Foundation, Inc.
 ;;
 ;; This file is part of GNU eev.
 ;;
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20221228
+;; Version:    20230121
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eepitch.el>
@@ -1044,6 +1044,7 @@ If the mrepl doesn't start in 30 seconds this function 
yields an error."
 (defun eepitch-python3 () (interactive) (eepitch-comint "python3" "python3"))
 (defun eepitch-python  () (interactive) (eepitch-comint "python3" "python3"))
 (defun eepitch-perl () (interactive) (eepitch-comint "perl" "perl -d -e 42"))
+(defun eepitch-raku    () (interactive) (eepitch-comint "raku" "raku"))
 (defun eepitch-php     () (interactive) (eepitch-comint "php -a" "php -a"))
 (defun eepitch-ruby    () (interactive) (eepitch-ansiterm "irb" "irb"))
 (defun eepitch-irb     () (interactive) (eepitch-ansiterm "irb" "irb"))
diff --git a/eev-testblocks.el b/eev-testblocks.el
index 90319a5ff2..19596bf449 100644
--- a/eev-testblocks.el
+++ b/eev-testblocks.el
@@ -1,6 +1,6 @@
 ;;; eev-testblocks.el - create "test blocks" using multiline comments.  -*- 
lexical-binding: nil; -*-
 
-;; Copyright (C) 2019-2022 Free Software Foundation, Inc.
+;; Copyright (C) 2019-2023 Free Software Foundation, Inc.
 ;;
 ;; This file is part of GNU eev.
 ;;
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20221101
+;; Version:    20230121
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-testblocks.el>
@@ -309,6 +309,22 @@ exec(open(\"%s\").read(), globals())
 |#
 " (buffer-name)))))
 
+(defun ee-insert-test-raku-mode ()
+  (interactive)
+  (let ((libname
+        (replace-regexp-in-string
+         "\\.rakumod$" "" (buffer-name))))
+    (insert (ee-adjust-red-stars (format "
+#`(
+ (eepitch-raku)
+ (eepitch-kill)
+ (eepitch-raku)
+use lib '.'
+use %s
+
+)
+" libname)))))
+
 (defun ee-insert-test-ruby-mode ()
   (interactive)
   (insert (ee-adjust-red-stars (format "