branch: elpa/raku-mode
commit 7d006af2331f7a3c46169e89014607f9fa2b44ac
Author: Matias Linares <[email protected]>
Commit: Matias Linares <[email protected]>
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)
