Save notebook specific workspaces in Mathematica

workspace.m

saveWorkspace[path_String:"/Users/niko/tmp"]:=Module[{fileName},
fileName=StringJoin[Sequence@@Riffle[{"Workspace",ToString@Hash[Flatten[List@@("FileName"/.NotebookInformation[])[[1;;2]]],"MD5"],ToString[Round[AbsoluteTime[]]],".mx"},"_"]];
DumpSave[FileNameJoin[{path,fileName}],"Global`"];
];
loadWorkspace[path_String:"/Users/niko/tmp"]:=Module[{currentNotebookHash,paths},
currentNotebookHash=ToString@Hash[Flatten[List@@("FileName"/.NotebookInformation[])[[1;;2]]],"MD5"];
paths=SortBy[ToExpression[StringSplit[#,"_"][[-2]]]->#&/@FileNames["Workspace*"<>currentNotebookHash<>"*.mx",{path}],First];
Get[paths[[-1,2]]];
];