branch: externals/eev
commit 6c9211708df63b2c834756a2c1758189648e3de1
Author: Eduardo Ochs <eduardoo...@gmail.com>
Commit: Eduardo Ochs <eduardoo...@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 <eduardoo...@gmail.com>
+
+ * eepitch.el (eepitch-raku): new function.
+
+ * eev-testblocks.el (ee-insert-test-raku-mode): new function.
+
2023-01-18 Eduardo Ochs <eduardoo...@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 <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@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 <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@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 "
