[nongnu] elpa/julia-mode 64d86a4 215/352: Added customization options

[ELPA Syncer]

branch: elpa/julia-mode
commit 64d86a45871898d9915b9e23d82f46e175b20223
Author: Philip Woods <elzairthesorcerer@gmail.com>
Commit: Yichao Yu <yyc1992@gmail.com>

    Added customization options
---
 julia-mode.el | 28 ++++++++++++++++++++--------
 1 file changed, 20 insertions(+), 8 deletions(-)

diff --git a/julia-mode.el b/julia-mode.el
index 6ccb2cf..7507c7a 100644
--- a/julia-mode.el
+++ b/julia-mode.el
@@ -3101,9 +3101,24 @@ end"))
 ;; Code for `inferior-julia-mode'
 (require 'comint)
 
-(defvar julia-file-path "/usr/bin/julia" "Path to the program used by 
`inferior-julia'.")
+(defgroup julia
+  '()
+  "Julia Programming Language."
+  :group 'languages
+  :prefix "julia-")
 
-(defvar julia-arguments '() "Commandline arguments to pass to `julia'.")
+(defcustom julia-program "julia"
+  "Path to the program used by `inferior-julia'."
+  :type 'string
+  :group 'julia)
+
+(defcustom julia-arguments '()
+  "Commandline arguments to pass to `julia-program'."
+  :type 'string
+  :group 'julia)
+
+(defvar julia-prompt-regexp "julia>"
+  "Regexp for matching `inferior-julia' prompt.")
 
 (defvar inferior-julia-mode-map
   (let ((map (nconc (make-sparse-keymap) comint-mode-map)))
@@ -3112,13 +3127,10 @@ end"))
     map)
   "Basic mode map for `inferior-julia-mode'.")
 
-(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)
+    (let ((julia-program julia-program)
           (buffer (get-buffer-create "Julia")))
       (when (not (comint-check-proc "Julia"))
             (apply #'make-comint-in-buffer "Julia" "Julia" julia-program 
julia-arguments))
@@ -3134,10 +3146,10 @@ end"))
 
 \\<inferior-julia-mode-map>"
   nil "Julia"
-  (setq comint-prompt-regexp inferior-julia-prompt-regexp)
+  (setq comint-prompt-regexp 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)
+  (set (make-local-variable 'paragraph-start) julia-prompt-regexp)
   (set (make-local-variable 'indent-line-function) 'julia-indent-line))
 
 (add-hook 'inferior-julia-mode-hook 'inferior-julia--initialize)