Bug fixed

Author: Seng-Jik

Example.dgml

@@ -1,20 +1,20 @@
 <?xml version="1.0" encoding="utf-8"?>
 <DirectedGraph xmlns="http://schemas.microsoft.com/vs/2009/dgml">
   <Nodes>
-    <Node Id="chapter1.ykm" Group="Expanded" />
+    <Node Id="chapter1" Group="Expanded" />
     <Node Id="第一章" />
-    <Node Id="chapter2.ykm" Group="Expanded" />
+    <Node Id="chapter2" Group="Expanded" />
     <Node Id="第二章 开始" />
     <Node Id="第二章 分支A" />
     <Node Id="第二章 分支B" />
     <Node Id="第二章 结束" />
   </Nodes>
   <Links>
-    <Link Source="chapter1.ykm" Target="第一章" Category="Contains" />
-    <Link Source="chapter2.ykm" Target="第二章 开始" Category="Contains" />
-    <Link Source="chapter2.ykm" Target="第二章 分支A" Category="Contains" />
-    <Link Source="chapter2.ykm" Target="第二章 分支B" Category="Contains" />
-    <Link Source="chapter2.ykm" Target="第二章 结束" Category="Contains" />
+    <Link Source="chapter1" Target="第一章" Category="Contains" />
+    <Link Source="chapter2" Target="第二章 开始" Category="Contains" />
+    <Link Source="chapter2" Target="第二章 分支A" Category="Contains" />
+    <Link Source="chapter2" Target="第二章 分支B" Category="Contains" />
+    <Link Source="chapter2" Target="第二章 结束" Category="Contains" />
     <Link Source="第一章" Target="第二章 开始" />
     <Link Source="第二章 开始" Target="第二章 分支A" />
     <Link Source="第二章 开始" Target="第二章 分支B" />

YukimiScript.Parser/Diagram.fs

@@ -3,6 +3,7 @@ module YukimiScript.Parser.Diagram
 open YukimiScript.Parser.Elements
 open YukimiScript.Parser.Dom
 open YukimiScript.Parser.Macro
+open System.IO
 
 
 type SceneNode =
@@ -53,7 +54,8 @@ let analyze (files: (string * Dom) list) : Result<Diagram> =
                         { Name = scene.Name }, linkTo
                     )
 
-                { Name = fileName; Scenes = List.map fst scenes },
+                { Name = Path.GetFileNameWithoutExtension fileName
+                  Scenes = List.map fst scenes },
                 scenes)
             |> List.unzip