rearrange imports

src/Termonad/Preferences.hs

@@ -7,121 +7,44 @@ module Termonad.Preferences
 
 import Termonad.Prelude
 
-import Control.Lens ((^.), (^..), over, set, view, ix)
-import Data.FileEmbed (embedFile)
-import Data.FocusList (focusList, moveFromToFL, updateFocusFL)
+import Control.Lens ((^.), over, set, view)
 import qualified Data.List as List
-import Data.Sequence (findIndexR)
 import qualified Data.Text as Text
-import Data.Text.Encoding (encodeUtf8)
-import GI.Gdk (castTo, managedForeignPtr, screenGetDefault)
-import GI.Gio
-  ( ApplicationFlags(ApplicationFlagsFlagsNone)
-  , MenuModel(MenuModel)
-  , actionMapAddAction
-  , applicationQuit
-  , applicationRun
-  , onApplicationActivate
-  , onApplicationStartup
-  , onSimpleActionActivate
-  , simpleActionNew
-  )
 import GI.Gtk
-  ( Application
-  , ApplicationWindow(ApplicationWindow)
-  , Box(Box)
-  , CheckButton(CheckButton)
+  ( CheckButton(CheckButton)
   , ComboBoxText(ComboBoxText)
   , Dialog(Dialog)
   , Entry(Entry)
   , FontButton(FontButton)
   , Label(Label)
   , PolicyType(PolicyTypeAutomatic)
-  , PositionType(PositionTypeRight)
-  , ResponseType(ResponseTypeAccept, ResponseTypeNo, ResponseTypeYes)
-  , ScrolledWindow(ScrolledWindow)
+  , ResponseType(ResponseTypeAccept)
   , SpinButton(SpinButton)
-  , pattern STYLE_PROVIDER_PRIORITY_APPLICATION
-  , aboutDialogNew
   , adjustmentNew
-  , applicationAddWindow
   , applicationGetActiveWindow
-  , applicationSetAccelsForAction
-  , applicationSetMenubar
   , applicationWindowSetShowMenubar
-  , boxPackStart
   , builderNewFromString
-  , builderSetApplication
   , comboBoxGetActiveId
   , comboBoxSetActiveId
   , comboBoxTextAppend
-  , containerAdd
-  , cssProviderLoadFromData
-  , cssProviderNew
-  , dialogAddButton
-  , dialogGetContentArea
-  , dialogNew
-  , dialogResponse
   , dialogRun
   , entryBufferGetText
   , entryBufferSetText
-  , entryGetText
-  , entryNew
   , fontChooserSetFontDesc
   , fontChooserGetFontDesc
   , getEntryBuffer
-  , gridAttachNextTo
-  , gridNew
-  , labelNew
-  , notebookGetNPages
-  , notebookNew
-  , notebookSetShowBorder
-  , onEntryActivate
-  , onNotebookPageRemoved
-  , onNotebookPageReordered
-  , onNotebookSwitchPage
-  , onWidgetDeleteEvent
   , scrolledWindowSetPolicy
-  , setWidgetMargin
   , spinButtonGetValueAsInt
   , spinButtonSetAdjustment
   , spinButtonSetValue
-  , styleContextAddProviderForScreen
   , toggleButtonGetActive
   , toggleButtonSetActive
   , widgetDestroy
-  , widgetGrabFocus
-  , widgetSetCanFocus
   , widgetSetVisible
-  , widgetShow
-  , widgetShowAll
-  , windowPresent
-  , windowSetDefaultIcon
-  , windowSetTitle
   , windowSetTransientFor
   )
-import qualified GI.Gtk as Gtk
-import GI.Pango
-  ( FontDescription
-  , pattern SCALE
-  , fontDescriptionGetFamily
-  , fontDescriptionGetSize
-  , fontDescriptionGetSizeIsAbsolute
-  , fontDescriptionNew
-  , fontDescriptionSetFamily
-  , fontDescriptionSetSize
-  , fontDescriptionSetAbsoluteSize
-  )
 import GI.Vte
   ( CursorBlinkMode(..)
-  , catchRegexError
-  , regexNewForSearch
-  , terminalCopyClipboard
-  , terminalPasteClipboard
-  , terminalSearchFindNext
-  , terminalSearchFindPrevious
-  , terminalSearchSetRegex
-  , terminalSearchSetWrapAround
   , terminalSetBoldIsBright
   , terminalSetCursorBlinkMode
   , terminalSetFont
@@ -131,9 +54,7 @@ import GI.Vte
   )
 import System.Environment (getExecutablePath)
 import System.FilePath (takeFileName)
-import System.IO.Error (doesNotExistErrorType, ioeGetErrorType, ioeGetFileName, tryIOError)
-import Termonad.Gtk (appNew, imgToPixbuf, objFromBuildUnsafe, terminalSetEnableSixelIfExists)
-import Termonad.Keys (handleKeyPress)
+import Termonad.Gtk (objFromBuildUnsafe, terminalSetEnableSixelIfExists)
 import Termonad.Lenses
   ( lensBoldIsBright
   , lensEnableSixel
@@ -147,41 +68,26 @@ import Termonad.Lenses
   , lensShowTabBar
   , lensScrollbackLen
   , lensTMNotebookTabTermContainer
-  , lensTMNotebookTabs
   , lensTMNotebookTabTerm
   , lensTMStateApp
   , lensTMStateConfig
   , lensTMStateFontDesc
   , lensTerm
-  , lensWordCharExceptions, lensTMStateWindows, lensTMWindowNotebook
+  , lensWordCharExceptions
   )
 import Termonad.Preferences.File (saveToPreferencesFile, tmConfigFromPreferencesFile)
 import Termonad.Term
-  ( createTerm
-  , relabelTabs
-  , termNextPage
-  , termPrevPage
-  , termExitFocused
-  , setShowTabs
+  ( setShowTabs
   , showScrollbarToPolicy
   )
 import Termonad.Types
   ( ConfigOptions(..)
-  , FontConfig(..)
-  , FontSize(FontSizePoints, FontSizeUnits)
   , ShowScrollbar(..)
   , ShowTabBar(..)
-  , TMConfig
   , TMNotebookTab
   , TMState
-  , TMState'
   , TMWindowId
-  , getFocusedTermFromState
-  , getTMNotebookFromTMState
-  , getTMNotebookFromTMState'
   , getTMWindowFromTMState'
-  , modFontSize
-  , newEmptyTMState
   , tmNotebook
   , tmNotebookTabTermContainer
   , tmNotebookTabs
@@ -190,8 +96,7 @@ import Termonad.Types
   , tmWindowAppWin
   , tmWindowNotebook, fontConfigFromFontDescription
   )
-import Termonad.XML (interfaceText, menuText, preferencesText)
-import Termonad.Cli (parseCliArgs, applyCliArgs)
+import Termonad.XML (preferencesText)
 import Termonad.IdMap (keysIdMap)
 
 -- | Fill a combo box with ids and labels