#pragma TextEncoding = "UTF-8"
#pragma rtGlobals=3				// Use modern global access method and strict wave access
#pragma DefaultTab={3,20,4}		// Set default tab width in Igor Pro 9 and later
#pragma version = 1.0

// written by https://www.wavemetrics.com/user/chozo
// quickly transfer the top graph between experiments
// original idea from the Transfer Graphs project by user wings:
// https://www.wavemetrics.com/project/TransferGrpahs

Menu "Windows"
	"Save Top Graph",/Q, SaveTopGraph()
	"Load Saved Graph",/Q, LoadSavedGraph()
End

Function SaveTopGraph()
	String expName = IgorInfo(12)
	if (!strlen(expName))
		Abort "You need to save the experiment before using this functionality."
	endif
	PathInfo home
	String saveRec = "TransferGraph@"+S_Path+expName+"@"+WinName(0,1)+"@"
	GetWindow kwTopWin, wavelist
	Variable i
	Wave/T wList=W_WaveList
	for (i=0; i<DimSize(wList,0); i++)
		saveRec += wList[i][1]+";"
	endfor
	saveRec += "@"+ReplaceString("root:",WinRecreation("",0),":")
	PutScrapText saveRec
	KillWaves wList
	return 0
End

Function LoadSavedGraph()
	String loadRec = GetScrapText()
	if (CmpStr(StringFromList(0,loadRec,"@"),"TransferGraph"))
		Abort "You need to first save a graph."
	endif
	String filePath	= StringFromList(1,loadRec,"@")
	String grName	= StringFromList(2,loadRec,"@")
	String wList	= StringFromList(3,loadRec,"@")
	String grRec	= StringFromList(4,loadRec,"@")
	
	DFREF saveDFR = GetDataFolderDFR()
	SetDataFolder root:
	NewDataFolder/O/S $grName
	DFREF base = root:$grName
	
	Variable i, j
	for (i=0; i<ItemsInList(wList); i++)
		String curr = ReplaceString("'",StringFromList(i,wList),"")
		String path = ParseFilePath(1, curr, ":", 1, 0)
		if (strlen(path))
			for (j = 0; j < ItemsInList(path,":"); j++)
				NewDataFolder/O/S $StringFromList(j,path,":")
			endfor
		endif
		
		DebuggerOptions
		Variable DebugOn = V_debugOnError, err = 0
		DebuggerOptions debugOnError=0
		try
			LoadData/Q/O/S=path/J=ParseFilePath(0, curr, ":", 1, 0)+";" filePath;	AbortOnRTE
		catch
			err = GetRTError(1)
			Print "Could not load the data for the graph. Maybe the source experiment was not saved in its current state. Error: " + GetErrMessage(err, 3)
		endtry
		DebuggerOptions debugOnError=DebugOn
		if (err)
			SetDataFolder saveDFR
			return -1
		endif
		
		SetDataFolder base
	endfor
	
	for (i=2; i<ItemsInList(grRec,"\r")-1; i++)
		String cmd = StringFromList(i,grRec,"\r")
		if(StringMatch(cmd,"*String*"))
			continue
		endif
		if(StringMatch(cmd,"*SetDataFolder fldrSav*"))
			SetDataFolder base
			continue
		endif
		Execute cmd
	endfor
	
	SetDataFolder saveDFR
	return 0
End