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
|
% Copyright (C) 2019-2025 Free Software Foundation, Inc.
%
% This program is free software: you can redistribute it and/or modify
% it under the terms of the GNU General Public License as published by
% the Free Software Foundation, either version 3 of the License, or
% (at your option) any later version.
%
% This program is distributed in the hope that it will be useful,
% but WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
% GNU General Public License for more details.
%
% You should have received a copy of the GNU General Public License
% along with this program. If not, see <http://www.gnu.org/licenses/>.
function set(varargin)
% emacs.set: setup an Emacs option based on Name/Value pairs.
%
% Valid options include:
%
% netshell - Initialize a netshell connection.
% clientcmd - What to use for `edit' client command
% followstack - Used by Emacs Server
% remoteLocation - Use by remote matlab-shell, see doc/remote-matlab-shell.org
P = inputParser;
addParameter(P, 'netshell', 0, @isnumeric)
addParameter(P, 'clientcmd', "", @ischar)
addParameter(P, 'followstack', -1, @isnumeric)
addParameter(P, 'remoteLocation', "", @ischar)
parse(P, varargin{:});
clientcommand = P.Results.clientcmd;
netshellport = P.Results.netshell;
followstack = P.Results.followstack;
setenv('EMACS_MATLAB_SHELL_REMOTE', P.Results.remoteLocation);
%% Client Command
if ~isempty(clientcommand)
if usejava('jvm')
% Use clientcommand (e.g. emacsclient -n) for text editing
if verLessThan('MATLAB','9.4')
% Before settings API was introduced
com.mathworks.services.Prefs.setBooleanPref('EditorBuiltinEditor',false); %#ok
else
s = settings;
s.matlab.editor.UseMATLABEditor.TemporaryValue = 0;
end
if verLessThan('MATLAB','9.9') %#ok
% Before OtherEditor was read from settings API
com.mathworks.services.Prefs.setStringPref('EditorOtherEditor', clientcommand); %#ok
else
s = settings;
s.matlab.editor.OtherEditor.TemporaryValue = clientcommand;
end
end
if isunix
% In some cases 'edit foo.m' requires EDITOR to be set so we see foo.m in Emacs.
% - Consider 'emacs -nw' which and running without Java on Linux.
% - On Mac EDITOR is always used, but it must be a single executable w/o switches
% - Any system('command') that uses opens files should open in Emacs.
setenv('EDITOR_EMACSCLIENT', clientcommand);
p1 = fileparts(mfilename('fullpath')); % p1 /path/to/matlab-emacs/toolbox/+emacs
p2 = fileparts(p1); % p2 == /path/to/matlab-emacs/toolbox/+emacs
p3 = fileparts(p2); % p3 = /path/to/matlab-emacs/
% We cannot run using the full path to matlab-emacsclient.sh because
% checkMacApp(applicationName,'emacs') will fail if the path contains the string
% "/emacs", e.g. /path/to/emacs/packages/matlab-emacs. Therefore, update PATH to make
% matlab-emacsclient.sh available.
setenv('EDITOR', 'matlab-emacsclient.sh');
setenv('PATH',[getenv('PATH'),':',p3,'/bin']);
end
end
%% Netshell Support
if netshellport
nso = emacsnetshell('init');
% Assign netshell into our reporter objects.
bp = getappdata(groot, 'EmacsBreakpoints');
bp.NetShellObject = nso;
st = getappdata(groot, 'EmacsStack');
st.NetShellObject = nso;
end
%% Follow Stack settings
if followstack == 0 || followstack == 1
EMACSSERVER = getappdata(groot, 'EmacsNetShell');
EMACSSERVER.FollowStack = followstack;
end
end
% LocalWords: netshell clientcmd followstack clientcommand emacsclient nw
|
