branch: elpa/julia-mode
commit f3b490bd752d51c714c6617baf372ba32abf2a5a
Author: Philip Woods <elzairthesorce...@gmail.com>
Commit: Yichao Yu <yyc1...@gmail.com>
Added inferior-julia comint mode
---
julia-mode.el | 35 +++++++++++++++++++++++++++++++++++
1 file changed, 35 insertions(+)
diff --git a/julia-mode.el b/julia-mode.el
index 9b10370..6f52ff8 100644
--- a/julia-mode.el
+++ b/julia-mode.el
@@ -3098,6 +3098,41 @@ end"))
(puthash "\\mtteight" "𝟾" julia-latexsubs)
(puthash "\\mttnine" "𝟿" julia-latexsubs)
+;; Code for `inferior-julia-mode'
+(require 'comint)
+
+(defvar julia-file-path "/usr/bin/julia" "Path to the program used by
`inferior-julia'.")
+
+(defvar julia-arguments '() "Commandline arguments to pass to `julia'.")
+
+(defvar inferior-julia-prompt-regexp "julia>"
+ "Prompt for `inferior-julia'.")
+
+(defun inferior-julia ()
+ "Run an inferior instance of `julia' inside Emacs."
+ (interactive)
+ (let ((julia-program julia-file-path)
+ (buffer (get-buffer-create "Julia")))
+ (when (not (comint-check-proc "Julia"))
+ (make-comint-in-buffer "Julia" "Julia" julia-program
julia-arguments))
+ (pop-to-buffer-same-window "Julia")
+ (inferior-julia-mode)))
+
+(defun inferior-julia--initialize ()
+ "Helper function to initialize `inferior-julia'."
+ (setq comint-process-echoes t)
+ (setq comint-use-prompt-regexp t))
+
+(define-derived-mode inferior-julia-mode comint-mode "Julia"
+ "Major mode for `inferior-julia'."
+ nil "Julia"
+ (setq comint-prompt-regexp inferior-julia-prompt-regexp)
+ (setq comint-prompt-read-only t)
+ (set (make-local-variable 'font-lock-defaults) '(julia-font-lock-keywords t))
+ (set (make-local-variable 'paragraph-start) inferior-julia-prompt-regexp))
+
+(add-hook 'inferior-julia-mode-hook 'inferior-julia--initialize)
+
(provide 'julia-mode)
;; Local Variables:
