Allow setting a startFile via cli

Gtk.hs

@@ -10,8 +10,8 @@ import Graphics.UI.Gtk.Windows.MessageDialog
 import System.Directory
 
 
-startGUI :: IO ()
+startGUI :: FilePath -> IO ()
-startGUI = do
+startGUI startFile = do
   homedir <- getHomeDirectory
 
   -- init gui
@@ -53,6 +53,7 @@ startGUI = do
   _ <- windowSetTypeHint window WindowTypeHintDialog
   containerSetBorderWidth box2 10
   _ <- fileChooserSetCurrentFolder fileButton homedir
+  _ <- fileChooserSetFilename fileButton startFile
 
   -- callbacks
   _ <- onDestroy window mainQuit

Main.hs

@@ -1,4 +1,8 @@
 import Gtk
+import System.Environment
+
 
 main :: IO ()
-main = startGUI
+main = do
+  [a] <- getArgs
+  startGUI a