From d6fb651c8d0a9bc6e18d3e940dd0db9c74e8e09c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= <essen@ninenines.eu>
Date: Thu, 18 Jan 2018 11:04:11 +0100
Subject: Add screensaver functions

---
 src/sdl_video.erl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'src/sdl_video.erl')

diff --git a/src/sdl_video.erl b/src/sdl_video.erl
index 958d928..abf60d3 100644
--- a/src/sdl_video.erl
+++ b/src/sdl_video.erl
@@ -14,6 +14,8 @@
 
 -module(sdl_video).
 
+-export([disable_screensaver/0]).
+-export([enable_screensaver/0]).
 -export([get_closest_display_mode/2]).
 -export([get_current_display_mode/1]).
 -export([get_current_driver/0]).
@@ -27,6 +29,7 @@
 -export([get_num_display_modes/1]).
 -export([get_num_displays/0]).
 -export([get_num_drivers/0]).
+-export([is_screensaver_enabled/0]).
 -export([start/1]).
 -export([stop/0]).
 
@@ -38,6 +41,14 @@
 }.
 -export_type([display_mode/0]).
 
+-spec disable_screensaver() -> ok.
+disable_screensaver() ->
+	esdl2:disable_screensaver().
+
+-spec enable_screensaver() -> ok.
+enable_screensaver() ->
+	esdl2:enable_screensaver().
+
 -spec get_closest_display_mode(integer(), display_mode()) -> display_mode() | undefined.
 get_closest_display_mode(DisplayIndex, Mode) ->
 	esdl2:get_closest_display_mode(DisplayIndex, Mode),
@@ -103,6 +114,11 @@ get_num_displays() ->
 get_num_drivers() ->
 	esdl2:get_num_video_drivers().
 
+-spec is_screensaver_enabled() -> boolean().
+is_screensaver_enabled() ->
+	esdl2:is_screensaver_enabled(),
+	receive {'_nif_thread_ret_', Ret} -> Ret end.
+
 -spec start(binary()) -> ok | sdl:error().
 start(DriverName) ->
 	esdl2:video_init(DriverName),
-- 
cgit v1.2.3