[nongnu] elpa/raku-mode 7d006af233 187/253: Simple perl6/raku repl

[ELPA Syncer]

branch: elpa/raku-mode
commit 7d006af2331f7a3c46169e89014607f9fa2b44ac
Author: Matias Linares <matiaslina@gmail.com>
Commit: Matias Linares <matiaslina@gmail.com>

    Simple perl6/raku repl
    
    This adds repl support to perl6-mode with the following actions:
    
    * Send a line to the repl
    * Send a region to the repl
    * Send the whole buffer to the repl
---
 perl6-repl.el | 116 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 116 insertions(+)

diff --git a/perl6-repl.el b/perl6-repl.el
new file mode 100644
index 0000000000..543cfe75a6
--- /dev/null
+++ b/perl6-repl.el
@@ -0,0 +1,116 @@
+(require 'term)
+
+(defun perl6-repl-send-line (astring)
+  ;;send home if we have a regular perl6 prompt this line
+  ;;otherwise, simulate "C-b" until we get to the beginning
+  (if (equal (buffer-substring (- (line-beginning-position) 2) 
(line-beginning-position)) "> ") (term-send-home)
+    (progn (while (> (- (point) (line-beginning-position)) 2) 
(term-send-string "\^b"))))
+  (term-send-raw-string astring) ;send the argument as perl6 input
+  (term-send-raw-string "\^M") ;sends a return to execute astring
+  ;;(term-send-raw-string "\^y") ;sends a C-y, which yanks the killed line
+  )
+
+
+(setq perl6-repl--buffer-name "Perl6 REPL")
+
+
+(defun perl6-repl--buffer-name-earmuf ()
+  (concat "*" perl6-repl--buffer-name "*"))
+
+
+(defun perl6-repl-other-window ()
+  "Runs Perl6 in a `term' buffer in another window."
+  (interactive)
+  (let ((termbuf (apply 'make-term perl6-repl--buffer-name "perl6" nil)))
+    (set-buffer termbuf)
+    (term-mode)
+    (term-set-escape-char 24) ;this sets the escape char to C-x instead of C-c
+    (term-char-mode)
+    (switch-to-buffer-other-window termbuf)))
+
+
+(defun perl6-create-new-repl ()
+  (progn (perl6-repl-other-window)
+         (while (or (< (point)
+                       2)
+                    (not (equal (buffer-substring (- (point)
+                                                     2)
+                                                  (point))
+                                "> ")))
+           (sit-for 0.1))))
+
+(defun perl6-send-line-to-repl (&optional line)
+  (interactive)
+  (let ((jbuf (get-buffer (perl6-repl--buffer-name-earmuf)))
+        (cbuf (current-buffer))
+        (cwin (selected-window))
+        (pos (point))
+        (linecontents
+         (progn (when line ;if a line is passed to the function, go there
+                  (goto-char (point-min))
+                  (forward-line (- line 1)))
+                (buffer-substring (line-beginning-position) 
(line-end-position))))
+        ) ;save pos of start of next line
+    (if jbuf (switch-to-buffer jbuf)
+      ;;if there is not a perl6 REPl open, open it and wait for prompt
+
+      (perl6-create-new-repl))
+    (perl6-repl-send-line linecontents)
+    (select-window cwin)
+    (switch-to-buffer cbuf)
+    (goto-char pos)))
+
+
+(defun perl6-send-region-to-repl ()
+  (interactive)
+  (let ((jbuf (get-buffer (perl6-repl--buffer-name-earmuf)))
+        (cbuf (current-buffer))
+        (cwin (selected-window))
+        (pos (mark))
+        (contents (buffer-substring (mark)
+                                    (point))))
+    (if jbuf (switch-to-buffer jbuf)
+      ;;if there is not a perl6 REPl open, open it and wait for prompt
+      (perl6-create-new-repl))
+    (set-text-properties 0 (length contents) nil contents)
+    (mapc 'perl6-repl-send-line (split-string contents "\n+"))
+    (select-window cwin)
+    (switch-to-buffer cbuf)
+    (goto-char pos)))
+
+(defun perl6-send-buffer-to-repl ()
+  (interactive)
+  (let ((jbuf (get-buffer (perl6-repl--buffer-name-earmuf)))
+        (cbuf (current-buffer))
+        (cwin (selected-window))
+        (contents (buffer-string)))
+    (if jbuf (switch-to-buffer jbuf)
+      (perl6-create-new-repl))
+    ;; Send te line to the repl
+    (set-text-properties 0 (length contents) nil contents)
+    (mapc 'perl6-repl-send-line (split-string contents "\n+"))
+    (select-window cwin)
+    (switch-to-buffer cbuf)))
+
+;; Menu for evaluation
+(defun perl6-repl--initialize-menu ()
+  (interactive)
+  (define-key-after
+    perl6-mode-map
+    [menu-bar perl6-interaction]
+    (cons "Raku Interaction" (make-sparse-keymap "Perl6 Interaction"))
+    'tools)
+  (define-key
+    perl6-mode-map
+    [menu-bar perl6-interaction eval-line]
+    '("Evaluate line" . perl6-send-line-to-repl))
+  (define-key
+    perl6-mode-map
+    [menu-bar perl6-interaction eval-region]
+    '("Evaluate region" . perl6-send-region-to-repl))
+  (define-key
+    perl6-mode-map
+    [menu-bar perl6-interaction eval-buffer]
+    '("Evaluate buffer" . perl6-send-buffer-to-repl)))
+
+(provide 'perl6-repl)