Current section
Files
Jump to
Current section
Files
src/rockbox@sound.erl
-module(rockbox@sound).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch, inline]).
-define(FILEPATH, "src/rockbox/sound.gleam").
-export([get_volume/1, adjust_volume/2, volume_up/1, volume_down/1]).
-if(?OTP_RELEASE >= 27).
-define(MODULEDOC(Str), -moduledoc(Str)).
-define(DOC(Str), -doc(Str)).
-else.
-define(MODULEDOC(Str), -compile([])).
-define(DOC(Str), -compile([])).
-endif.
?MODULEDOC(" Volume control.\n").
-file("src/rockbox/sound.gleam", 10).
?DOC(" Current volume with the firmware-reported `min` / `max` range.\n").
-spec get_volume(rockbox:client()) -> {ok, rockbox@types:volume_info()} |
{error, rockbox@error:error()}.
get_volume(Client) ->
Decoder = begin
gleam@dynamic@decode:field(
<<"volume"/utf8>>,
rockbox@types:volume_info_decoder(),
fun(Volume) -> gleam@dynamic@decode:success(Volume) end
)
end,
rockbox:'query'(
Client,
<<"query Volume { volume { volume min max } }"/utf8>>,
gleam@json:object([]),
Decoder
).
-file("src/rockbox/sound.gleam", 25).
?DOC(
" Adjust volume by a relative number of steps. Returns the new absolute\n"
" volume.\n"
).
-spec adjust_volume(rockbox:client(), integer()) -> {ok, integer()} |
{error, rockbox@error:error()}.
adjust_volume(Client, Steps) ->
Decoder = begin
gleam@dynamic@decode:field(
<<"adjustVolume"/utf8>>,
{decoder, fun gleam@dynamic@decode:decode_int/1},
fun(Volume) -> gleam@dynamic@decode:success(Volume) end
)
end,
rockbox:'query'(
Client,
<<"mutation AdjustVolume($steps: Int!) { adjustVolume(steps: $steps) }"/utf8>>,
gleam@json:object([{<<"steps"/utf8>>, gleam@json:int(Steps)}]),
Decoder
).
-file("src/rockbox/sound.gleam", 39).
?DOC(" Bump the volume up by one step.\n").
-spec volume_up(rockbox:client()) -> {ok, integer()} |
{error, rockbox@error:error()}.
volume_up(Client) ->
adjust_volume(Client, 1).
-file("src/rockbox/sound.gleam", 44).
?DOC(" Drop the volume down by one step.\n").
-spec volume_down(rockbox:client()) -> {ok, integer()} |
{error, rockbox@error:error()}.
volume_down(Client) ->
adjust_volume(Client, -1).