Merge remote-tracking branch 'origin/main' into sdl3

Author: Ecialo

dear-imgui.cabal

@@ -345,21 +345,21 @@ library dear-imgui-generator
       template-haskell
         >= 2.15 && < 2.24
     , containers
-        >= 0.6.2.1 && < 0.8
+        >= 0.6.2.1 && < 1.0
     , directory
-        >= 1.3 && < 1.4
+        >= 1.3 && < 2
     , filepath
-        >= 1.4 && < 1.6
+        >= 1.4 && < 2
     , inline-c
         >= 0.9.0.0 && < 0.10
     , megaparsec
-        >= 9.0 && < 9.8
+        >= 9.0 && < 10
     , parser-combinators
         >= 1.2.0 && < 1.4
     , scientific
         >= 0.3.6.2 && < 0.4
     , text
-        >= 1.2.4 && < 2.2
+        >= 1.2.4 && < 3
     , th-lift
         >= 0.7 && < 0.9
     , transformers
@@ -438,17 +438,17 @@ executable vulkan
     build-depends:
         dear-imgui
       , bytestring
-          >= 0.10.10.0 && < 0.13
+          >= 0.10.10.0
       , containers
-          >= 0.6.2.1 && < 0.7
+          >= 0.6.2.1
       , logging-effect
           >= 1.3.12 && < 1.5
       , resourcet
           >= 1.2.4.2 && < 1.3
       , sdl2
           >= 2.5.3.0 && < 2.6
       , text
-          >= 1.2.4 && < 2.2
+          >= 1.2.4 && < 3
       , transformers
           >= 0.5.6 && < 0.7
       , unliftio

src/DearImGui.hs

@@ -29,6 +29,11 @@ module DearImGui
   , Raw.DrawData(..)
   , Raw.getDrawData
   , Raw.checkVersion
+ 
+    -- * Configuration
+  , enableKeyboardNav 
+  , disableKeyboardNav
+  , isKeyboardNavEnabled
 
     -- * Demo, Debug, Information
   , Raw.showDemoWindow
@@ -457,6 +462,7 @@ import Control.Monad
 import Data.Bool
 import Data.Foldable
   ( foldl', for_, traverse_ )
+import Data.Bits ((.&.))
 import Foreign
 import Foreign.C
 
@@ -496,6 +502,23 @@ getVersion :: MonadIO m => m Text
 getVersion = liftIO do
   Raw.getVersion >>= Text.peekCString
 
+-- | Enable keyboard navigation
+enableKeyboardNav :: MonadIO m => m ()
+enableKeyboardNav = 
+  Raw.addConfigFlags Raw.ImGuiConfigFlags_NavEnableKeyboard
+
+-- | Disable keyboard navigation
+disableKeyboardNav :: MonadIO m => m ()
+disableKeyboardNav = 
+  Raw.removeConfigFlags Raw.ImGuiConfigFlags_NavEnableKeyboard
+
+-- | Check if keyboard navigation is enabled
+isKeyboardNavEnabled :: MonadIO m => m Bool
+isKeyboardNavEnabled = liftIO do
+  Raw.ImGuiConfigFlags flags <- Raw.getConfigFlags
+  let Raw.ImGuiConfigFlags navFlag = Raw.ImGuiConfigFlags_NavEnableKeyboard
+  pure $ (flags .&. navFlag) /= 0
+
 -- | Send text to logs.
 logText :: MonadIO m => Text -> m ()
 logText t = liftIO do

src/DearImGui/Raw.hs

@@ -32,6 +32,12 @@ module DearImGui.Raw
   , getDrawData
   , checkVersion
 
+    -- ** Configuration
+  , getConfigFlags
+  , setConfigFlags
+  , addConfigFlags
+  , removeConfigFlags
+
     -- * Demo, Debug, Information
   , showDemoWindow
   , showMetricsWindow
@@ -451,6 +457,27 @@ checkVersion = liftIO do
   [C.exp| void { IMGUI_CHECKVERSION(); } |]
 
 
+-- | Get the current ImGuiIO ConfigFlags
+getConfigFlags :: MonadIO m => m ImGuiConfigFlags
+getConfigFlags = liftIO do
+  [C.exp| ImGuiConfigFlags { GetIO().ConfigFlags } |]
+
+-- | Set the ImGuiIO ConfigFlags
+setConfigFlags :: MonadIO m => ImGuiConfigFlags -> m ()
+setConfigFlags flags = liftIO do
+  [C.block| void { GetIO().ConfigFlags = $(ImGuiConfigFlags flags); } |]
+
+-- | Modify ConfigFlags by OR-ing with additional flags
+addConfigFlags :: MonadIO m => ImGuiConfigFlags -> m ()
+addConfigFlags flags = liftIO do
+  [C.block| void { GetIO().ConfigFlags |= $(ImGuiConfigFlags flags); } |]
+
+-- | Remove flags from ConfigFlags
+removeConfigFlags :: MonadIO m => ImGuiConfigFlags -> m ()
+removeConfigFlags flags = liftIO do
+  [C.block| void { GetIO().ConfigFlags &= ~$(ImGuiConfigFlags flags); } |]
+
+
 -- | Create demo window. Demonstrate most ImGui features. Call this to learn
 -- about the library! Try to make it always available in your application!
 showDemoWindow :: (MonadIO m) => m ()