path_management.m

%% Copyright 2014 MERCIER David
function path_management(varargin)
%% Set Matlab search path
%
%TODO: checkout addpath_recurse which mtex uses
% http://www.mathworks.com/matlabcentral/fileexchange/21086-recursive-addpath/content/addpath_recurse.m
%
% http://www.mathworks.de/de/help/matlab/ref/addpath.html
commandwindow;
% http://stackoverflow.com/questions/2720140/find-location-of-current-m-file-in-matlab
S = dbstack('-completenames');
[folder, name, ext] = fileparts(S(1).file);

path_to_add = genpath(folder);

% Add path for 'util' folder to use 'cells_filter', 'cell2path' and
% 'path2cell' functions
util_path = fullfile(folder, 'matlab_code/util');
addpath(util_path);

path_cell = path2cell(path_to_add);
% Do not put version control metadata on the search path

if ispc
    psep = '\';
else
    psep = '/';
end
   
path_cell_filtered = cellstr_filter(path_cell, {[psep, '.git']});
%path_cell_filtered = cellstr_filter(path_cell, {[psep, '.']}); % all dot dirs?
%path_cell_filtered = path_cell; % no filter

n_dirs = numel(path_cell_filtered);
%n_filtered_entries = numel(path_cell) - n_dirs;

path_to_add = cell2path(path_cell_filtered);

fprintf('%s\n', folder)
if nargin > 0 && ischar(varargin{1})
    answer = varargin{1};
else
    display(['Add the above folder with subfolders ' ...
        'to the Matlab search path?'])
    fprintf('(%i items)\n', n_dirs)
    answer = input('([y](default)/n/rm(remove))','s');
end

root_var = 'SCRATCH_TBX_ROOT';
if strcmpi(answer, 'y') || isempty(answer)
    fprintf('Adding %i entries to the Matlab search path\n', n_dirs);
    addpath(path_to_add);
    %savepath;
    setenv(root_var, folder)
elseif strcmpi(answer, 'rm')
    fprintf('Removing %i entries from Matlab search path\n', n_dirs);
    rmpath(path_to_add);
    % delete environment variable, TODO: works on Linux?
    setenv(root_var, '') 
else
    display('doing nothing');
end

%% Optionally display the matlab search path after modifications with the 'path' command
%path
end