GTK: add "New -> Terminal" to right-click menu

src/HSFM/GUI/Gtk/Callbacks.hs

@@ -296,6 +296,8 @@ setViewCallbacks mygui myview = do
         liftIO $ newDir mygui myview
       _ <- (rcFileNewTab . rcmenu) myview `on` menuItemActivated $
         liftIO $ newTab' mygui myview
+      _ <- (rcFileNewTerm . rcmenu) myview `on` menuItemActivated $
+        liftIO $ void $ openTerminalHere myview
       _ <- (rcFileCopy . rcmenu) myview `on` menuItemActivated $
         liftIO $ withItems mygui myview copyInit
       _ <- (rcFileRename . rcmenu) myview `on` menuItemActivated $

src/HSFM/GUI/Gtk/Data.hs

@@ -108,6 +108,7 @@ data RightClickMenu = MkRightClickMenu {
   , rcFileNewRegFile :: !ImageMenuItem
   , rcFileNewDir     :: !ImageMenuItem
   , rcFileNewTab     :: !ImageMenuItem
+  , rcFileNewTerm    :: !ImageMenuItem
   , rcFileCut        :: !ImageMenuItem
   , rcFileCopy       :: !ImageMenuItem
   , rcFileRename     :: !ImageMenuItem

src/HSFM/GUI/Gtk/MyView.hs

@@ -163,6 +163,8 @@ createMyView mygui iofmv = do
                        "rcFileNewDir"
   rcFileNewTab      <- builderGetObject builder castToImageMenuItem
                        "rcFileNewTab"
+  rcFileNewTerm     <- builderGetObject builder castToImageMenuItem
+                       "rcFileNewTerm"
   rcFileCut         <- builderGetObject builder castToImageMenuItem
                        "rcFileCut"
   rcFileCopy        <- builderGetObject builder castToImageMenuItem