-
Notifications
You must be signed in to change notification settings - Fork 19
/
Copy pathwolfram-mode.elc
108 lines (91 loc) · 14.7 KB
/
wolfram-mode.elc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
;ELC
;;; Compiled
;;; in Emacs version 25.1.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310%\210\311\312\313\314\315DD\316\317\320\307\304&\210\311\321\313\314\322DD\323\317\324\307\304&\210\311\325\313\314\326DD\327\317\330\307\304&\210\311\331\313\314\332DD\333\317\334\307\304&\210\311\335\313\314\336DD\337\317\324\307\304&\207" [require comint smie custom-declare-group wolfram-mode nil "Editing Wolfram Language code" :group languages custom-declare-variable wolfram-mode-hook funcall function #[0 "\300\207" [nil] 1] "Normal hook run when entering `wolfram-mode'.\nSee `run-hooks'." :type hook wolfram-program #[0 "\300\207" [#1="math"] 1 #1#] "Command to invoke at `run-wolfram'." string wolfram-program-arguments #[0 "\300\207" [nil] 1] "Additional arguments to `wolfram-program'." (repeat string) wolfram-indent #[0 "\300\207" [8] 1] "Basic Indentation for newline." integer wolfram-path #[0 "\300\207" [nil] 1] "Directory in Mathematica $Path. Emacs has to be able to write in this directory."] 8)
#@28 Keymap for `wolfram-mode'.
(defvar wolfram-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\315#\210\211\207" [make-sparse-keymap define-key "" newline-and-indent "]" wolfram-electric-braket ")" wolfram-electric-paren "}" wolfram-electric-brace "" wolfram-send-region "" wolfram-send-last-mathexp ""] 5) (#$ . 1395))
#@38 Syntax table used in `wolfram-mode'.
(defvar wolfram-mode-syntax-table (byte-code "\300 \301\302\303#\210\301\304\303#\210\301\305\303#\210\301\306\303#\210\301\307\303#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\323#\210\301\324\325#\210\301\326\327#\210\301\330\327#\210\301\331\327#\210\301\332\327#\210\301\333\327#\210\301\334\327#\210\301\335\327#\210\301\336\327#\210\301\337\327#\210\301\340\327#\210\301\341\327#\210\301\342\327#\210\301\343\327#\210\301\344\345#\210\301\346\347#\210\301\350\351#\210\301\352\351#\210\301\353\351#\210\301\354\351#\210\301\355\351#\210\301\356\351#\210\211\207" [make-syntax-table modify-syntax-entry 32 " " 9 12 10 13 40 "()1n" 41 ")(4n" 42 "_ 23n" 91 "(]" 93 ")[" 123 "(}" 125 "){" 61 "." 58 37 60 62 38 124 95 47 33 64 35 39 92 "\\" 34 "\"" 45 "_" 46 96 94 36 43] 5) (#$ . 1820))
(define-abbrev-table 'wolfram-mode-abbrev-table nil)
(defvar wolfram-syntax-propertize-function #[514 "b\210`W\205 \300\301\302#\205 \303\304\224\304\225\305\306$\210\202 \207" [re-search-forward "\\\\[[A-Z][A-Za-z]*]" t put-text-property 0 syntax-table (3)] 7 "\n\n(fn START END)"])
(defvar wolfram-font-lock-keywords '(("^In[[0-9]+]:=" . font-lock-keyword-face) ("^Out[[0-9]+]=" . font-lock-keyword-face) ("^Out[[0-9]+]//[A-Za-z][A-Za-z0-9]*=" . font-lock-keyword-face) ("\\([A-Za-z][A-Za-z0-9`]*\\)[ ]*[[][ ]*[[]" 1 "default") ("\\([A-Za-z][A-Za-z0-9`]*\\)[ ]*[[]" 1 font-lock-function-name-face) ("//[ \f\n]*\\([A-Za-z][A-Za-z0-9`]*\\)" 1 font-lock-function-name-face) ("\\([A-Za-z][A-Za-z0-9`]*\\)[ \f\n]*/@" 1 font-lock-function-name-face) ("\\([A-Za-z][A-Za-z0-9`]*\\)[ \f\n]*//@" 1 font-lock-function-name-face) ("\\([A-Za-z][A-Za-z0-9`]*\\)[ \f\n]*@@" 1 font-lock-function-name-face) ("~[ ]*\\([A-Za-z][A-Za-z0-9`]*\\)[ ]*~" 1 font-lock-function-name-face) ("_[) ]*\\?\\([A-Za-z][A-Za-z0-9`]*\\)" 1 font-lock-function-name-face) ("\\(&&\\)" 1 "default") ("&" . font-lock-function-name-face) ("\\\\[[A-Za-z][A-Za-z0-9]*]" . font-lock-constant-face) ("$[A-Za-z0-9]+" . font-lock-variable-name-face) ("\\([A-Za-z0-9]+\\)[ ]*\\->" 1 font-lock-type-face) ("<<[ \f\n]*[A-Za-z][A-Za-z0-9]*`[ \f\n]*[A-Za-z][A-Za-z0-9]*[ \f\n]*`" . font-lock-type-face) ("[A-Za-z][A-Za-z0-9]*::[A-Za-z][A-Za-z0-9]*" . font-lock-warning-face) ("\\[Calculating\\.\\.\\.\\]" . font-lock-warning-face) ("\\[Mathematica.*\\]" . font-lock-warning-face) ("^Interrupt>" . font-lock-warning-face) ("-Graphics-" . font-lock-type-face) ("-DensityGraphics-" . font-lock-type-face) ("-ContourGraphics-" . font-lock-type-face) ("-SurfaceGraphics-" . font-lock-type-face) ("-Graphics3D-" . font-lock-type-face) ("-GraphicsArray-" . font-lock-type-face) ("-Sound-" . font-lock-type-face) ("-CompiledCode-" . font-lock-type-face)))
(defvar wolfram-outline-regexp "\\((\\*\\|.+?:=\\)")
(defvar wolfram-smie-grammar '((:smie-closer-alist (#6="{" . #3="}") (#5="(" . #2=")") (#4="<|" . #1="|>")) (#1# 1 (160)) (#2# 2 (161)) (#3# 3 (162)) ("]]" 4 (163)) ("]" 5 (164)) ("," 16 27) ("//" 72 72) ("/;" 72 72) (":" 72 72) ("^" 138 138) ("/" 127 127) ("*" 127 127) ("-" 116 116) ("+" 116 116) ("&&" 105 105) ("||" 105 105) ("==" 94 94) ("@@" 94 94) ("~" 83 83) ("/=" 61 61) ("*=" 61 61) ("-=" 61 61) ("+=" 61 61) ("/:" 165 0) ("=" 61 61) (":=" 61 61) ("&" 49 (166)) (";" 38 38) ("::" 50 167) (#4# (168) 1) (#5# (169) 2) (#6# (170) 3) ("[[" 149 4) ("[" 171 5)))
#@81 Wolfram Language SMIE indentation function for KIND and TOKEN.
(fn KIND TOKEN)
(defalias 'wolfram-smie-rules #[514 "B\211:\205\261 \211@\211\301=\203; A\211\302\232\203# \212\303 \210\304i)B\2026 \211\305\232\204/ \211\306\232\2035 \307!\2026 \310\262\202\257 \211\311=\203\210 A\211\312\232\203O \304B\202\203 \211\313\235\203Y \314\202\203 \211\315\235\203p \212\316 \210\317\310w\210\304i\\)B\202\203 \211\305\232\204| \211\306\232\203\202 \307!\202\203 \310\262\202\257 A\211\305\232\203\226 \307!\202\255 \211\306\232\203\242 \307!\202\255 \320=\203\254 \321\202\255 \310\262\262\207" [wolfram-indent :before "[" smie-default-backward-token column ";" "," smie-rule-separator nil :after ":=" ("|>" ")" "}" "]") (column . 0) ("<|" "(" "{" "[") beginning-of-line " " :elem 0] 8 (#$ . 5278)])
(byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias wolfram-smie-forward-token smie-default-forward-token wolfram-smie-backward-token smie-default-backward-token] 3)
#@168 Hook run after entering Mathematica mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar wolfram-mode-hook nil (#$ . 6272))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp wolfram-mode-map put definition-name wolfram-mode] 4)
(defvar wolfram-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [wolfram-mode-map variable-documentation put purecopy "Keymap for `wolfram-mode'." wolfram-mode derived-mode-parent prog-mode] 5)
#@162 Major mode for editing Mathematica text files in Emacs.
\{wolfram-mode-map}
Entry to this mode calls the value of `wolfram-mode-hook'
if that value is non-nil.
(defalias 'wolfram-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320 !\210\321\f!\210\322 \323\324\325\326\327&\210\330 \210)\331\332!\207" [delay-mode-hooks major-mode mode-name wolfram-mode-map wolfram-mode-syntax-table wolfram-mode-abbrev-table make-local-variable t prog-mode wolfram-mode "Mathematica" mode-class put keymap-parent set-keymap-parent current-local-map use-local-map set-syntax-table smie-setup wolfram-smie-rules :forward-token wolfram-smie-forward-token :backward-token wolfram-smie-backward-token wolfram-mode-variables run-mode-hooks wolfram-mode-hook local-abbrev-table wolfram-smie-grammar] 7 (#$ . 6863) nil])
#@51 Local variables for both Major and Inferior mode.
(defalias 'wolfram-mode-variables #[0 "\306!\210\307\301!\210\310\307\302!\210\311\307\303!\210\312\307\305!\210\f\307\313!\210\314 \307\315!\210\211\207" [wolfram-mode-syntax-table comment-start comment-end comment-start-skip wolfram-syntax-propertize-function syntax-propertize-function set-syntax-table make-local-variable "(*" "*)" "(\\*" font-lock-defaults (wolfram-font-lock-keywords nil nil) outline-regexp wolfram-outline-regexp] 2 (#$ . 7742)])
#@52 Indent on closing a CHAR ARG times.
(fn CHAR ARG)
(defalias 'wolfram-electric #[514 "\211\204 \301\262\211\302\211W\203 \211c\266\211T\262\202 \266 \210\303 \207" [indent-line-function 1 0 blink-matching-open] 6 (#$ . 8262)])
#@48 Indent on closing a paren ARG times.
(fn ARG)
(defalias 'wolfram-electric-paren #[257 "\300\301\"\207" [wolfram-electric ")"] 4 (#$ . 8505) "p"])
#@49 Indent on closing a braket ARG times.
(fn ARG)
(defalias 'wolfram-electric-braket #[257 "\300\301\"\207" [wolfram-electric "]"] 4 (#$ . 8659) "p"])
#@48 Indent on closing a brace ARG times.
(fn ARG)
(defalias 'wolfram-electric-brace #[257 "\300\301\"\207" [wolfram-electric "}"] 4 (#$ . 8815) "p"])
#@54 Indent on closing a association ARG times.
(fn ARG)
(defalias 'wolfram-electric-assoc #[257 "\300\301\"\207" [wolfram-electric "|>"] 4 (#$ . 8969) "p"])
(defalias 'wolfram-proc #[0 "\301\302=\203 p\202\f \303!\211\206 \304\305!\207" [major-mode get-buffer-process inferior-wolfram-mode "*wolfram*" error "No current process. Do M-x `run-wolfram'"] 3])
#@78 Send the current region to the inferior Mathematica process.
(fn START END)
(defalias 'wolfram-send-region #[514 "\300\301 #\210\302\301 \303\"\207" [comint-send-region wolfram-proc comint-send-string "\n"] 6 (#$ . 9333) "r"])
#@177 Hook run after entering Inferior Mathematica mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar inferior-wolfram-mode-hook nil (#$ . 9570))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp inferior-wolfram-mode-map put definition-name inferior-wolfram-mode] 4)
(defvar inferior-wolfram-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [inferior-wolfram-mode-map variable-documentation put purecopy "Keymap for `inferior-wolfram-mode'." boundp inferior-wolfram-mode-syntax-table definition-name inferior-wolfram-mode] 5)
(defvar inferior-wolfram-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [inferior-wolfram-mode-syntax-table variable-documentation put purecopy "Syntax table for `inferior-wolfram-mode'." inferior-wolfram-mode derived-mode-parent comint-mode] 5)
#@262 Major mode for interacting with an inferior Mathematica process
In addition to any hooks its parent mode `comint-mode' might have run,
this mode runs the hook `inferior-wolfram-mode-hook', as the final step
during initialization.
\{inferior-wolfram-mode-map}
(defalias 'inferior-wolfram-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324 !\210\325\f!\210\326 \327 \210\330 \307 )\331\332!\207" [delay-mode-hooks major-mode mode-name inferior-wolfram-mode-map inferior-wolfram-mode-syntax-table wolfram-mode-abbrev-table make-local-variable t comint-mode inferior-wolfram-mode "Inferior Mathematica" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table use-local-map set-syntax-table "^(In|Out)[[0-9]*]:?= *" wolfram-mode-variables (":%s") run-mode-hooks inferior-wolfram-mode-hook local-abbrev-table comint-prompt-regexp mode-line-process comint-process-echoes] 5 (#$ . 10598) nil])
#@91 Run an inferior Mathematica process CMD, input and output via buffer *wolfram*.
(fn CMD)
(defalias 'run-wolfram #[257 "\211\302\303! \"\304\305\306\307\310\311!@\312A&q!\266\313 \207" [wolfram-program wolfram-program-arguments append split-string-and-unquote pop-to-buffer-same-window apply make-comint-in-buffer "wolfram" get-buffer "*wolfram*" nil inferior-wolfram-mode] 10 (#$ . 11706) (byte-code "\203 \302\303 \"\202\f C\207" [current-prefix-arg wolfram-program read-string "Run Mathematica: "] 3)])
(defalias 'wolfram-here-is-space #[0 "\300f`Sf\205 \211\205 \301\302\303!\"\205 \301\302\303!\"\207" [nil string-match "[ \n]" char-to-string] 6])
(defalias 'wolfram-moveto-last-content #[0 "\300 \205 \301u\210\202 \207" [wolfram-here-is-space -1] 1])
(defalias 'wolfram-moveto-first-content #[0 "\300 \205 \301u\210\202 \207" [wolfram-here-is-space 1] 1])
(defalias 'wolfram-beginning-of-cell #[0 "\300 \210\301\302\303\304#\203 \305u\207eb\207" [wolfram-moveto-last-content re-search-backward "^$" nil t 1] 4])
(defalias 'wolfram-end-of-cell #[0 "\300 \210\301\302\303\304#\203 \305u\207db\207" [wolfram-moveto-first-content re-search-forward "^$" nil t -1] 4])
#@68 Send the last math expression to the inferior Mathematica process.
(defalias 'wolfram-send-last-mathexp #[0 "\212\300 \210`\301 \210`\302\303 #\210\304\303 \305\"\266\202)\207" [wolfram-beginning-of-cell wolfram-end-of-cell comint-send-region wolfram-proc comint-send-string "\n"] 6 (#$ . 12905) nil])
#@25 Execute and update file
(defalias 'wolfram-run-script #[0 "\300 \210\301\302 !\303\302 !\304\302 !\305\306!\307\211rq\210ed|\210)\310 \210\311\312\313R\307#\210\314\315R\262\316\317\"\262\320!\210rq\210\321\322\323Q!\210\324\307\317\307#\210eb\210\325 \210\326 \210db)\207" [save-buffer file-name-base buffer-file-name file-name-nondirectory file-name-directory get-buffer-create "*MathematicaOutput*" nil wolfram-run-check-or-make-eprint-package call-process-shell-command "cd " "; MathKernel -script " ".pprint_" ".org" find-file-noselect t display-buffer rename-buffer "*MathematicaPrettyPrint_" "*" revert-buffer org-remove-latex-fragment-image-overlays org-toggle-latex-fragment] 11 (#$ . 13215) nil])
#@155 Checks if EPrint.m package exists in `wolfram-path'. The packed will be created it it is does not exists.
Also returns an error if `wolfram-path' is nil
(defalias 'wolfram-run-check-or-make-eprint-package #[0 "\204 \301\302!\210\303\304P!?\205 \305\306\307\304P#\207" [wolfram-path error "Please set `wolfram-path', so package EPrint.m can be created in that directory" file-exists-p "/EPrint.m" write-region "\nBeginPackage[ \"EPrint`\"]\n\nEPrint::usage =\n\"EPrint[ expr ] does pretty prints of expresion `expr` in emacs. You have to run *.m script in emacs via function `wolfram-run-script`.\"\n\nBegin[ \"Private`\"]\n\nn = 0;\n\nEPrint[ expr_ ] :=\n Module[ {file,dir},\n file = $InputFileName;\n dir = DirectoryName[file];\n name = FileBaseName[file];\n ppfile = FileNameJoin[{dir,\".pprint_\"<>name<>\".org\"}];\n WriteString[ ppfile, StringForm[\"#`1`:\\n\",n]];\n WriteString[ ppfile, \"\\\\begin{equation*}\\n\" ];\n WriteString[ ppfile, TeXForm[expr]];\n WriteString[ ppfile, \"\\n\\\\end{equation*}\"];\n WriteString[ ppfile, \"\\n\\n\"];\n n = n + 1\n ]\nEnd[]\n\nEndPackage[]\n" nil] 5 (#$ . 13944)])
(provide 'wolfram-mode)