manip.m

% MANIP Project manager for MATLAB
%   MANIP(cmd, projectName) manages current working directory and files
%   that are opened in MATLAB editor (but not the workspace). 
%   Available commands are: 
%     'list', 'show', 'save', 'load', 'close', 'rename', 'delete', 'active'
% 
%   MANIP or
%   MANIP('list') shows all stored manips. Arrow marks active project.
% 
%   MANIP('active') returns the name of the active project
% 
%   MANIP('show') shows information about the current project
%   MANIP('show', project_name) shows information about the project
% 
%   MANIP('close') closes all opened files
% 
%   MANIP('save'[, projectName]) saves current working directory and
%   editor state for current project or projectName
%   
%   MANIP('sethomedir' [, projectName]) set home director for current
%   project or projectName
% 
%   MANIP('load') restores the project "default" 
%   MANIP('load', projectName) restores the project with specified name
% 
%   MANIP('open') is synonym for MANIP('load')
% 
%   MANIP('rename', newName) renames the active project
%   MANIP('rename', projectName, newName) renames the project
%
%   MANIP('delete') deletes the active project, alternatives: 'del' or 'rm'
%   MANIP('delete', projectName) deletes the project with specified name
% 
%   Examples:
%       manip list
%       manip save myProject
%       manip close
%       manip load default
%       manip rename myProject myLibrary
% 
%   All manips are stored in the %userpath%/manips.mat. This file with
%   empty "default" project is created at the first run of the script. If
%   %userpath% is empty, the script will execute userpath('reset').
%   
%   First project always has name "default"

% Copyright 2012-2013, Vladimir Filimonov (ETH Zurich).
% $Date: 12-May-2012 $ 

function varargout = manip(cmd, varargin)

persistent activeProject


if verLessThan('matlab','7.12')
    error('Projects: MATLAB versions older than R2011a (7.12) are not supported')
end

if isempty(userpath)
    userpath('reset');
end

fpath = regexp(userpath,'[^:]*','match');
fpath = fpath{1};
fpath = fullfile(fpath, 'manips.mat');

if ~exist(fpath, 'file')    % first time run
    openDocuments = matlab.desktop.editor.getAll;
    filenames = {openDocuments.Filename};
    
    projectsList = [];
    projectsList(1).ProjectName = 'default';
    projectsList(1).OpenedFiles = {};
    projectsList(1).HomeDir = userpath;
    projectsList(1).HomeDir(end) = [];
    manip_sessid = round(rand*1e15);
    activeProject = 1;
    save(fpath, 'projectsList');
else
    load(fpath)
end
if isempty(activeProject)
    activeProject = 0;
end

if nargin==0
    cmd = 'list';
end

switch lower(cmd)
    case 'cd'
        if not(isempty(varargin)) && ~strcmpi(manip('active'),varargin{1})
            manip('load',varargin{1})
        end
        cd(projectsList(activeProject).HomeDir);
    case 'close'
        if nargin < 2 || ~strcmp(varargin{1},'nosave')
            manip('save')
        end
        openDocuments = matlab.desktop.editor.getAll;
        openDocuments.close;
        
        activeProject = 0;
        varargout = {true};
        
    %=========================================    
    case 'list'
%         openDocuments = matlab.desktop.editor.getAll;
%         alldocs = {projectsList.OpenedFiles};
%         comp = ismember(openDocuments,
        disp('List of available manips:')
        for ii = 1:length(projectsList)
            if ii == activeProject
                str = '-> ';
            else
                str = '   ';
            end
            disp([str num2str(ii) ': ' projectsList(ii).ProjectName])
        end
        varargout = {projectsList.ProjectName};
        
    %=========================================    
    case {'show', 'info'}
        if nargin==1
            ind = activeProject;
        else
            prjname = varargin{1};
            ind = find(strcmpi(prjname, {projectsList.ProjectName}), 1);
            if isempty(ind)
                error('Projects: unknown project name')
            end
        end
        if ~ind
            varargout = {[]};
        else
            projectsList(ind)
            varargout{1} = projectsList(ind);
        end
        
    %=========================================    
    case 'active'
        if ~activeProject
            if nargout == 1
                varargout = {''};
            end
            return
        end
        varargout{1} = projectsList(activeProject).ProjectName;
        if nargout == 0
            disp(['Active project is "' varargout{1} '"'])
        end
    %=========================================    
    case 'save'
        if nargin==1
            ind = activeProject;
            if ~ind
                disp('No active project. Nothing to save.')
                return
            else
                prjname = projectsList(ind).ProjectName;
            end
        else
            prjname = varargin{1};
            ind = find(strcmpi(prjname, {projectsList.ProjectName}), 1);
            if isempty(ind)
                ind = length(projectsList) + 1;
            end
        end
        
        openDocuments = matlab.desktop.editor.getAll;
        filenames = {openDocuments.Filename};
        
        projectsList(ind).ProjectName = prjname;
        projectsList(ind).OpenedFiles = filenames;
        if isempty(projectsList(ind).HomeDir)
            projectsList(ind).HomeDir = pwd;
        end
        activeProject = ind;
        
        save(fpath, 'projectsList');
        disp(['Manip "' prjname '" was saved'])
        
    %=========================================    
    case {'sethomedir'}
        if nargin==1
            ind = activeProject;
            if ~ind
                disp('No active project. Nothing do.')
                return
            else
                prjname = projectsList(ind).ProjectName;
            end
        else
            prjname = varargin{1};
            ind = find(strcmpi(prjname, {projectsList.ProjectName}), 1);
            if isempty(ind)
                error(['unknown project ' prjname])
            end
        end
        projectsList(ind).HomeDir = pwd;
        
        save(fpath, 'projectsList');
        disp(['HomeDir set for "' prjname '"'])
    case {'open', 'load'}
        if nargin==1
            error('no project to open')
        else
            prjname = varargin{1};
            if ~isnan(str2double(prjname))
                prjname = projectsList(str2double(prjname)).ProjectName;
            end
        end
        ind = find(strcmpi(prjname, {projectsList.ProjectName}), 1);
        if isempty(ind)
            error(['unknown project ' prjname])
        end
        manip close
        load(fpath)
        
        % switch getenv('computername')
        %     case 'maxinux'
        %         projectsList(ind).HomeDir = strrep(projectsList(ind).HomeDir,'/home/maximilien.chaumon/','/home/maxi/');
        %     case 'labinux'
        %         projectsList(ind).HomeDir = strrep(projectsList(ind).HomeDir,'/home/maxi/','/home/maximilien.chaumon/');
        % end
                
        try
            cd(projectsList(ind).HomeDir);
        catch
            warning(['Directory "' projectsList(ind).HomeDir '" does not exist.'])
        end
        
        filenames = projectsList(ind).OpenedFiles;
        % switch getenv('computername')
        %     case 'maxinux'
        %         filenames = strrep(filenames,'/home/maximilien.chaumon/','/home/maxi/');
        %     case 'labinux'
        %         filenames = strrep(filenames,'/home/maxi/','/home/maximilien.chaumon/');
        % end
        for ii = 1:length(filenames)
            if exist(filenames{ii}, 'file')
                matlab.desktop.editor.openDocument(filenames{ii});
            else
                warning(['File "' filenames{ii} '" was not found'])
            end
        end
        od = matlab.desktop.editor.getAll;
        projectsList(ind).OpenedFiles = {od.Filename};
        
        activeProject = ind;
        save(fpath, 'projectsList');
        disp(['Manip "' prjname '" was restored'])
        commandwindow
    %=========================================    
    case 'rename' 
        if nargin==1
            error('Projects: project name was not specified')
        elseif nargin==2
            ind = activeProject;
            if ~ind
                error('No active project to rename')
            else
                prjold = projectsList(ind).ProjectName;
                prjnew = varargin{1};
                if strcmp(prjnew,'default')
                    error('cannot rename project to "default"')
                end
            end
        elseif nargin==3
            prjold = varargin{1};
            prjnew = varargin{2};
        end
        ind = find(strcmpi(prjold, {projectsList.ProjectName}), 1);
        if isempty(ind)
            error(['unknown project name ' prjold])
        end
        
        projectsList(ind).ProjectName = prjnew;
        
        save(fpath, 'projectsList');
        disp(['Manip "' prjold '" was renamed to "' prjnew '"'])
        
        
    %=========================================    
    case {'delete' 'del' 'rm'}
        if nargin==1
            todel = activeProject;
            if ~todel
                error('could not delete "default" project')
            end
        else
            todel = find(strcmpi(varargin{1}, {projectsList.ProjectName}), 1);
            if isempty(todel)
                error('Projects: required project was not found')
            end
            active_name = projectsList(activeProject).ProjectName;
        end
        
        todelname = projectsList(todel).ProjectName;
        projectsList(todel) = [];
        if todel == activeProject
            activeProject = 0;
        else
            activeProject = find(strcmpi(active_name, {projectsList.ProjectName}), 1);
        end
        
        save(fpath, 'projectsList');
        disp(['Manip "' todelname '" was deleted'])

    %=========================================    
    otherwise 
        try
            if strcmp(manip('active'),cmd)
                disp(['manip ' cmd ' already active'])
                manip('cd',cmd)
                return
            else
                manip('load',cmd)
            end
        catch ME
            disp(ME)
            error(['Manip: unknown command: ' cmd '.'])
        end
end

if nargout==0
    varargout = {};
end