Factored out some trivial bits into Misc, made coding style more consistent

1 files changed, 2 insertions, 5 deletions

diff --git a/src/sokoban.adb b/src/sokoban.adb
index e70d1d6..de5601d 100644
--- a/src/sokoban.adb
+++ b/src/sokoban.adb
@@ -9,8 +9,7 @@ with
     Things,
     Moves,
     Pathfinding,
-    Ada.Command_Line,
-    Ada.Directories,
+    Misc,
     Ada.Text_IO,
     Ada.Strings.Fixed,
     Ada.Strings.Maps;
@@ -41,9 +40,7 @@ package body Sokoban is
 
     type Game_State is (Loading, Play, Complete);
 
-    Origin : String := Ada.Directories.Containing_Directory
-        (Ada.Directories.Full_Name (Ada.Command_Line.Command_Name));
-    Level_Dir : String := Origin & "/../share/sokoban/level";
+    Level_Dir : String := Misc.Origin & "/../share/sokoban/level";
 
     Loading_Message : String := "Loading...";