1 files changed, 12 insertions, 9 deletions
diff --git a/src/main.adb b/src/main.adb
index f917081..266beb7 100644
--- a/src/main.adb
+++ b/src/main.adb
@@ -1,18 +1,21 @@
 
 
-with FLTK.Images.RGB.PNG;
-with Adapad;
-with Ada.Command_Line;
-with Ada.Directories;
+with
 
+    FLTK.Images.RGB.PNG,
+    Adapad,
+    Ada.Command_Line,
+    Ada.Directories;
 
-function Main return Integer
+
+function Main
+    return Integer
 is
-    Containing_Dir : String :=
-        Ada.Directories.Containing_Directory
-            (Ada.Directories.Full_Name (Ada.Command_Line.Command_Name));
+    Origin : String := Ada.Directories.Containing_Directory
+        (Ada.Directories.Full_Name (Ada.Command_Line.Command_Name));
+
     Logo : FLTK.Images.RGB.PNG.PNG_Image :=
-        FLTK.Images.RGB.PNG.Create (Containing_Dir & "/../share/adapad/logo.png");
+        FLTK.Images.RGB.PNG.Create (Origin & "/../share/adapad/logo.png");
 begin
     Adapad.Set_Logo (Logo);
     Adapad.Show;