Quick graph transfer between experiment sessions

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