1 files changed, 14 insertions, 0 deletions
diff --git a/sdl2/bindings.scm b/sdl2/bindings.scm
index a9fa17c..c46af8b 100644
--- a/sdl2/bindings.scm
+++ b/sdl2/bindings.scm
@@ -1301,3 +1301,17 @@ RETURN-TYPE and accept arguments of ARG-TYPES."
 
 (define-foreign sdl-has-clipboard-text
   int "SDL_HasClipboardText" '())
+
+;;;
+;;; Hints
+;;;
+
+(define-public SDL_HINT_DEFAULT 0)
+(define-public SDL_HINT_NORMAL 1)
+(define-public SDL_HINT_OVERRIDE 2)
+
+(define-foreign sdl-set-hint-with-priority
+  sdl-bool "SDL_SetHintWithPriority" (list '* '* int))
+
+(define-foreign sdl-get-hint
+  '* "SDL_GetHint" (list '*))