hob-0.0.1.0: src/lib/Hob/Command/FocusSidebar.hs

module Hob.Command.FocusSidebar (
    focusSidebarCommandHandler,
    syncFocusSidebarCommandHandler
    ) where

import Control.Monad.Reader
import Graphics.UI.Gtk

import Hob.Context
import Hob.Context.UiContext
import Hob.Control
import Hob.Ui.Editor         (getActiveEditor, getEditorFilePath)
import Hob.Ui.Sidebar        (syncPathToSidebar)

focusSidebarCommandHandler :: CommandHandler
focusSidebarCommandHandler = CommandHandler Nothing focusSidebar

syncFocusSidebarCommandHandler :: CommandHandler
syncFocusSidebarCommandHandler = CommandHandler Nothing syncFocusSidebar

focusSidebar :: App()
focusSidebar = do
    ctx <- ask
    liftIO $ widgetGrabFocus . sidebarTree . uiContext $ ctx

syncActiveEditorPathToSidebar :: App()
syncActiveEditorPathToSidebar = do
    ctx <- ask
    editor <- liftIO $ getActiveEditor ctx
    maybeDo syncToEditor editor
    where syncToEditor editor = maybeDo syncPathToSidebar =<< liftIO (getEditorFilePath editor)


syncFocusSidebar :: App()
syncFocusSidebar = syncActiveEditorPathToSidebar >> focusSidebar