;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2024, 2025 Tomas Volf <~@wolfsden.cz>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu home services mpv)
#:use-module ((gnu services configuration) #:select (%unset-value
maybe-value-set?))
#:use-module (gnu home services)
#:autoload (guix diagnostics) (formatted-message)
#:autoload (guix i18n) (G_)
#:use-module (guix gexp)
#:use-module (ice-9 match)
#:use-module (ice-9 regex)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-2)
#:use-module (srfi srfi-9)
#:use-module (srfi srfi-26)
#:use-module (srfi srfi-71)
#:export (make-home-mpv-configuration
home-mpv-configuration?
home-mpv-configuration-global
home-mpv-configuration-profiles
home-mpv-configuration-extra-config
home-mpv-configuration-source-location
serialize-home-mpv-configuration
make-mpv-profile-configuration
mpv-profile-configuration?
;; Field accessor procedures are exported by a syntax form when
;; they are defined, so they are not listed here.
home-mpv-service-type))
;;;
;;; Basic types.
;;;
(define (serialize-mpv/boolean field-name value)
#~(string-append (string-trim-right #$(symbol->string field-name) #\?)
"="
#$(if value "yes" "no")
"\n"))
(define mpv/boolean? boolean?)
(define (serialize-mpv/integer field-name value)
#~(string-append #$(symbol->string field-name)
"="
#$(number->string value)
"\n"))
(define (mpv/integer? n)
;; We assume integer is a signed 32bit number.
(and-let* (((integer? n))
((>= n (* -1 (expt 2 (1- 32)))))
((<= n (1- (expt 2 (1- 32))))))))
(define (serialize-mpv/integer64 field-name value)
#~(string-append #$(symbol->string field-name)
"="
#$(number->string value)
"\n"))
(define (mpv/integer64? n)
;; We assume integer is a signed 64bit number.
(and-let* (((integer? n))
((>= n (* -1 (expt 2 (1- 64)))))
((<= n (1- (expt 2 (1- 64))))))))
(define (serialize-mpv/string field-name value)
#~(string-append #$(symbol->string field-name)
"="
#$value
"\n"))
(define mpv/string?
string?)
(define (serialize-mpv/float field-name value)
#~(string-append #$(symbol->string field-name)
"="
#$(number->string (exact->inexact value))
"\n"))
(define mpv/float?
;; I am not sure how to validate floats.
real?)
(define (serialize-mpv/double field-name value)
#~(string-append #$(symbol->string field-name)
"="
#$(number->string (exact->inexact value))
"\n"))
(define mpv/double?
;; I am not sure how to validate doubles.
real?)
;;;
;;; Additional types (possible based on the basic ones).
;;;
;;; Aspect seems to be treated as an integer, so define it in terms of it.
(define serialize-mpv/aspect serialize-mpv/integer)
(define mpv/aspect? mpv/integer?)
;;; `Audio channels or channel map' seems to be basically a free form string
;;; with no way to validate.
(define serialize-mpv/audio-channels-or-channel-map serialize-mpv/string)
(define mpv/audio-channels-or-channel-map? mpv/string?)
;;; Does not seem possible to validate.
(define serialize-mpv/audio-format serialize-mpv/string)
(define mpv/audio-format? mpv/string?)
;;; While most options list 4.6116860184274e+18 as a maximum value, we will
;;; use integer64 here. That should be enough for everyone for few more
;;; years.
(define serialize-mpv/byte-size serialize-mpv/integer64)
(define mpv/byte-size? mpv/integer64?)
(define (serialize-mpv/color field-name value)
#~(string-append #$(symbol->string field-name)
"="
#$(if (list? value)
(string-join (map number->string value) "/")
value)
"\n"))
(define (mpv/color? value)
(define (ok-num? n)
(and (number? n)
(>= n 0)
(<= n 1)))
(if (list? value)
;; Either a list of 3(4) numbers encoding RGB(A) on range from 0 to 1...
(match value
(((? ok-num? r) (? ok-num? g) (? ok-num? b))
#t)
(((? ok-num? r) (? ok-num? g) (? ok-num? b) (? ok-num? alpha))
#t)
(_
#f))
;; ... or RGB(A) hex encoding.
(string-match "^#([A-Fa-f0-9]{2})?[A-Fa-f0-9]{6}$" value)))
;;; I do not see value mirroring fourcc.org's database here. It is further
;;; complicated by arbitrary hex being accepted as well. So string it is.
(define serialize-mpv/fourcc serialize-mpv/string)
(define mpv/fourcc? mpv/string?)
;;; No way to validate.
(define serialize-mpv/image-format serialize-mpv/string)
(define mpv/image-format? mpv/string?)
;;; Looking at the documentation for --start, there is no way to make this
;;; bullet-proof, especially since even chapter numbers are accepted.
(define serialize-mpv/relative-time-or-percent-position serialize-mpv/string)
(define mpv/relative-time-or-percent-position? mpv/string?)
(define serialize-mpv/time serialize-mpv/string)
(define mpv/time? mpv/string?)
(define serialize-mpv/video-rectangle serialize-mpv/string)
(define (mpv/video-rectangle? value)
(or (string-match "-?[0-9]+%?:-?[0-9]+%?" value)
(string-match
"^(-?[0-9]+%?(x-?[0-9]+%?)?)?([+-]-?[0-9]+%?[+-]-?[0-9]+%?)?$"
value)))
(define serialize-mpv/window-geometry serialize-mpv/string)
(define (mpv/window-geometry? value)
(or (string-match "-?[0-9]+%?:-?[0-9]+%?" value)
(string-match
"^(-?[0-9]+%?(x-?[0-9]+%?)?)?([+-]-?[0-9]+%?[+-]-?[0-9]+%?)?(/[0-9]+)?$"
value)))
(define serialize-mpv/window-size serialize-mpv/string)
(define (mpv/window-size? value)
(string-match "^([0-9]+%?(x[0-9]+%?)?)?$" value))
(define (serialize-mpv/enumeration field-name value)
#~(string-append #$(symbol->string field-name)
"="
;; This could be either symbol or (in case of enumerations
;; with alternate type) anything. So just use `format'.
#$(format #f "~s" value)
"\n"))
(define (mpv/enumeration? value)
;; There is no general way to check enumerations. The field always has to
;; define custom sanitizer.
#t)
;;;
;;; List types.
;;;
(define (serialize-mpv/list-of-string field-name lst)
#~(string-append #$(symbol->string field-name)
"="
#$(string-join lst ",")
"\n"))
(define (mpv/list-of-string? lst)
(every mpv/string? lst))
(define (serialize-mpv/list-of-key-value field-name lst)
#~(string-append #$(symbol->string field-name)
"="
#$(string-join (map (match-lambda
((k . v) (format #f "~a=~a" k v)))
lst)
",")
"\n"))
(define (mpv/list-of-key-value? lst)
(every (match-lambda
(((? string?) . (? string?)) #t)
(_ #f))
lst))
(define serialize-mpv/list-of-object-setting serialize-mpv/list-of-string)
(define mpv/list-of-object-setting? mpv/list-of-string?)
(define serialize-mpv/list-of-output-verbosity serialize-mpv/list-of-key-value)
(define mpv/list-of-output-verbosity? mpv/list-of-key-value?)
;;;
;;; Actual configuration record. Contains a lot of generated code.
;;;
(define-record-type <profile-option>
(make-profile-option name type-check serializer)
profile-option?
(name profile-option-name)
(type-check profile-option-type-check)
(serializer profile-option-serializer))
(define %opts (make-hash-table))
(define-syntax define-opt
(lambda (x)
(syntax-case x ()
((_ name type extra-checks ...)
(let* ((d/n (syntax->datum #'name))
(d/t (syntax->datum #'type))
(d/accessor (string->symbol
(format #f "mpv-profile-configuration-~a" d/n)))
(d/type-check (string->symbol
(format #f "mpv/~a?" d/t)))
(d/serializer (string->symbol
(format #f "serialize-mpv/~a" d/t))))
(with-syntax
((kw (datum->syntax x (symbol->keyword d/n)))
(accessor (datum->syntax x d/accessor))
(type-check (datum->syntax x d/type-check))
(serializer (datum->syntax x d/serializer))
(val (datum->syntax x 'val)))
#'(begin
(hashq-set! %opts 'name
(make-profile-option (symbol->string 'name)
(lambda (val)
(and (type-check val)
extra-checks ...))
serializer))
(define-public (accessor cfg)
(let ((x (hashq-ref (%mpv-profile-configuration-data cfg)
'name
%unset-value)))
(if (eq? x %unset-value)
%unset-value
(car x)))))))))))
;;; Generated by: https://git.wolfsden.cz/guix/tree/etc/update-mpv-configuration
;;; Generated code - START.
(define-opt ab-loop-a time)
(define-opt ab-loop-b time)
(define-opt
ab-loop-count
enumeration
(or (memq val '(inf))
(and (integer? val)
(>= val 0)
(<= val 2147483647))))
(define-opt access-references? boolean)
(define-opt ad string)
(define-opt
ad-lavc-ac3drc
float
(>= val 0)
(<= val 6))
(define-opt ad-lavc-downmix? boolean)
(define-opt ad-lavc-o list-of-key-value)
(define-opt
ad-lavc-threads
integer
(>= val 0)
(<= val 16))
(define-opt ad-queue-enable? boolean)
(define-opt
ad-queue-max-bytes
byte-size
(>= val 0)
(<= val 4.6116860184274e18))
(define-opt
ad-queue-max-samples
integer64
(>= val 0))
(define-opt ad-queue-max-secs double (>= val 0))
(define-opt af list-of-object-setting)
(define-opt
audio
enumeration
(or (memq val '(no auto))
(and (integer? val) (>= val 0) (<= val 8190))))
(define-opt alang list-of-string)
(define-opt allow-delayed-peak-detect? boolean)
(define-opt
alsa-buffer-time
integer
(>= val 0)
(<= val 2147483647))
(define-opt alsa-ignore-chmap? boolean)
(define-opt alsa-mixer-device string)
(define-opt
alsa-mixer-index
integer
(>= val 0)
(<= val 99))
(define-opt alsa-mixer-name string)
(define-opt alsa-non-interleaved? boolean)
(define-opt
alsa-periods
integer
(>= val 0)
(<= val 2147483647))
(define-opt alsa-resample? boolean)
(define-opt ao list-of-object-setting)
(define-opt ao-null-broken-delay? boolean)
(define-opt ao-null-broken-eof? boolean)
(define-opt
ao-null-buffer
float
(>= val 0)
(<= val 100))
(define-opt
ao-null-channel-layouts
audio-channels-or-channel-map)
(define-opt ao-null-format audio-format)
(define-opt
ao-null-latency
float
(>= val 0)
(<= val 100))
(define-opt
ao-null-outburst
integer
(>= val 1)
(<= val 100000))
(define-opt
ao-null-speed
float
(>= val 0)
(<= val 10000))
(define-opt ao-null-untimed? boolean)
(define-opt ao-pcm-append? boolean)
(define-opt ao-pcm-file string)
(define-opt ao-pcm-waveheader? boolean)
(define-opt
audio-backward-batch
integer
(>= val 0)
(<= val 1024))
(define-opt
audio-backward-overlap
enumeration
(or (memq val '(auto))
(and (integer? val) (>= val 0) (<= val 1024))))
(define-opt
audio-buffer
double
(>= val 0)
(<= val 10))
(define-opt
audio-channels
audio-channels-or-channel-map)
(define-opt audio-client-name string)
(define-opt audio-delay float)
(define-opt audio-demuxer string)
(define-opt audio-device string)
(define-opt
audio-display
enumeration
(memq val '(no embedded-first external-first)))
(define-opt audio-exclusive? boolean)
(define-opt audio-exts list-of-string)
(define-opt audio-fallback-to-null? boolean)
(define-opt
audio-file-auto
enumeration
(memq val '(no exact fuzzy all)))
(define-opt audio-file-paths list-of-string)
(define-opt audio-files list-of-string)
(define-opt audio-format audio-format)
(define-opt audio-normalize-downmix? boolean)
(define-opt audio-pitch-correction? boolean)
(define-opt
audio-resample-cutoff
double
(>= val 0)
(<= val 1))
(define-opt
audio-resample-filter-size
integer
(>= val 0)
(<= val 32))
(define-opt audio-resample-linear? boolean)
(define-opt
audio-resample-max-output-size
double)
(define-opt
audio-resample-phase-shift
integer
(>= val 0)
(<= val 30))
(define-opt
audio-reversal-buffer
byte-size
(>= val 0)
(<= val 4.6116860184274e18))
(define-opt
audio-samplerate
integer
(>= val 0)
(<= val 768000))
(define-opt audio-spdif string)
(define-opt audio-stream-silence? boolean)
(define-opt audio-swresample-o list-of-key-value)
(define-opt
audio-wait-open
float
(>= val 0)
(<= val 60))
(define-opt auto-window-resize? boolean)
(define-opt
autocreate-playlist
enumeration
(memq val '(no filter same)))
(define-opt autofit window-size)
(define-opt autofit-larger window-size)
(define-opt autofit-smaller window-size)
(define-opt autoload-files? boolean)
(define-opt
autosync
enumeration
(or (memq val '(no))
(and (integer? val) (>= val 0) (<= val 10000))))
(define-opt
background
enumeration
(memq val '(none color tiles)))
(define-opt background-color color)
(define-opt
blend-subtitles
enumeration
(memq val '(no yes video)))
(define-opt bluray-device string)
(define-opt border? boolean)
(define-opt
border-background
enumeration
(memq val '(none color tiles)))
(define-opt
brightness
float
(>= val -100)
(<= val 100))
(define-opt
cache
enumeration
(memq val '(no auto yes)))
(define-opt cache-on-disk? boolean)
(define-opt cache-pause? boolean)
(define-opt cache-pause-initial? boolean)
(define-opt cache-pause-wait float (>= val 0))
(define-opt cache-secs double (>= val 0))
(define-opt cdda-cdtext? boolean)
(define-opt cdda-device string)
(define-opt
cdda-overlap
integer
(>= val 0)
(<= val 75))
(define-opt
cdda-paranoia
integer
(>= val 0)
(<= val 2))
(define-opt
cdda-sector-size
integer
(>= val 1)
(<= val 100))
(define-opt cdda-skip? boolean)
(define-opt cdda-span-a integer)
(define-opt cdda-span-b integer)
(define-opt
cdda-speed
integer
(>= val 1)
(<= val 100))
(define-opt cdda-toc-offset integer)
(define-opt
chapter-merge-threshold
integer
(>= val 0)
(<= val 10000))
(define-opt chapter-seek-threshold double)
(define-opt chapters-file string)
(define-opt config? boolean)
(define-opt
container-fps-override
double
(>= val 0))
(define-opt
contrast
float
(>= val -100)
(<= val 100))
(define-opt cookies? boolean)
(define-opt cookies-file string)
(define-opt
corner-rounding
float
(>= val 0)
(<= val 1))
(define-opt correct-downscaling? boolean)
(define-opt correct-pts? boolean)
(define-opt
cover-art-auto
enumeration
(memq val '(no exact fuzzy all)))
(define-opt cover-art-files list-of-string)
(define-opt cover-art-whitelist list-of-string)
(define-opt
cscale
enumeration
(memq val
'(bilinear
bicubic_fast
oversample
spline16
spline36
spline64
sinc
lanczos
ginseng
bicubic
hermite
catmull_rom
mitchell
robidoux
robidouxsharp
box
nearest
triangle
gaussian
jinc
ewa_lanczos
ewa_hanning
ewa_ginseng
ewa_lanczossharp
ewa_lanczos4sharpest
ewa_lanczossoft
haasnsoft
ewa_robidoux
ewa_robidouxsharp
bartlett
cosine
hanning
tukey
hamming
quadric
welch
kaiser
blackman
sphinx)))
(define-opt
cscale-antiring
float
(>= val 0)
(<= val 1))
(define-opt cscale-blur float)
(define-opt
cscale-clamp
float
(>= val 0)
(<= val 1))
(define-opt cscale-param1 float)
(define-opt cscale-param2 float)
(define-opt
cscale-radius
float
(>= val 0.5)
(<= val 16))
(define-opt
cscale-taper
float
(>= val 0)
(<= val 1))
(define-opt
cscale-window
enumeration
(memq val
'(bartlett
cosine
hanning
tukey
hamming
quadric
welch
kaiser
blackman
sphinx
jinc)))
(define-opt cscale-wparam float)
(define-opt
cscale-wtaper
float
(>= val 0)
(<= val 1))
(define-opt
cursor-autohide
enumeration
(or (memq val '(no always))
(and (integer? val) (>= val 0) (<= val 30000))))
(define-opt cursor-autohide-fs-only? boolean)
(define-opt deband? boolean)
(define-opt
deband-grain
float
(>= val 0)
(<= val 4096))
(define-opt
deband-iterations
integer
(>= val 0)
(<= val 16))
(define-opt
deband-range
float
(>= val 1)
(<= val 64))
(define-opt
deband-threshold
float
(>= val 0)
(<= val 4096))
(define-opt
deinterlace
enumeration
(memq val '(no yes auto)))
(define-opt
deinterlace-field-parity
enumeration
(memq val '(tff bff auto)))
(define-opt demuxer string)
(define-opt
demuxer-backward-playback-step
double
(>= val 0))
(define-opt demuxer-cache-dir string)
(define-opt
demuxer-cache-unlink-files
enumeration
(memq val '(immediate whendone no)))
(define-opt demuxer-cache-wait? boolean)
(define-opt demuxer-donate-buffer? boolean)
(define-opt
demuxer-hysteresis-secs
double
(>= val 0))
(define-opt demuxer-lavf-allow-mimetype? boolean)
(define-opt
demuxer-lavf-analyzeduration
float
(>= val 0)
(<= val 3600))
(define-opt
demuxer-lavf-buffersize
integer
(>= val 1)
(<= val 10485760))
(define-opt demuxer-lavf-format string)
(define-opt demuxer-lavf-hacks? boolean)
(define-opt
demuxer-lavf-linearize-timestamps
enumeration
(memq val '(no auto yes)))
(define-opt demuxer-lavf-o list-of-key-value)
(define-opt
demuxer-lavf-probe-info
enumeration
(memq val '(no yes auto nostreams)))
(define-opt
demuxer-lavf-probescore
integer
(>= val 1)
(<= val 100))
(define-opt
demuxer-lavf-probesize
integer
(>= val 32)
(<= val 2147483647))
(define-opt demuxer-lavf-propagate-opts? boolean)
(define-opt
demuxer-max-back-bytes
byte-size
(>= val 0)
(<= val 4.6116860184274e18))
(define-opt
demuxer-max-bytes
byte-size
(>= val 0)
(<= val 4.6116860184274e18))
(define-opt
demuxer-mkv-probe-start-time?
boolean)
(define-opt
demuxer-mkv-probe-video-duration
enumeration
(memq val '(no yes full)))
(define-opt
demuxer-mkv-subtitle-preroll
enumeration
(memq val '(no yes index)))
(define-opt
demuxer-mkv-subtitle-preroll-secs
double
(>= val 0))
(define-opt
demuxer-mkv-subtitle-preroll-secs-index
double
(>= val 0))
(define-opt
demuxer-rawaudio-channels
audio-channels-or-channel-map)
(define-opt
demuxer-rawaudio-format
enumeration
(memq val
'(u8 s8
u16le
u16be
s16le
s16be
u24le
u24be
s24le
s24be
u32le
u32be
s32le
s32be
floatle
floatbe
doublele
doublebe
u16
s16
u24
s24
u32
s32
float
double)))
(define-opt
demuxer-rawaudio-rate
integer
(>= val 1000)
(<= val 384000))
(define-opt demuxer-rawvideo-codec string)
(define-opt demuxer-rawvideo-format fourcc)
(define-opt
demuxer-rawvideo-fps
float
(>= val 0.001)
(<= val 1000))
(define-opt
demuxer-rawvideo-h
integer
(>= val 1)
(<= val 8192))
(define-opt
demuxer-rawvideo-mp-format
image-format)
(define-opt
demuxer-rawvideo-size
integer
(>= val 1)
(<= val 268435456))
(define-opt
demuxer-rawvideo-w
integer
(>= val 1)
(<= val 8192))
(define-opt
demuxer-readahead-secs
double
(>= val 0))
(define-opt
demuxer-seekable-cache
enumeration
(memq val '(auto no yes)))
(define-opt demuxer-termination-timeout double)
(define-opt demuxer-thread? boolean)
(define-opt
directory-filter-types
list-of-string)
(define-opt
directory-mode
enumeration
(memq val '(auto lazy recursive ignore)))
(define-opt
display-fps-override
double
(>= val 0))
(define-opt display-tags list-of-string)
(define-opt
dither
enumeration
(memq val '(fruit ordered error-diffusion no)))
(define-opt
dither-depth
enumeration
(or (memq val '(no auto))
(and (integer? val) (>= val -1) (<= val 16))))
(define-opt
dither-size-fruit
integer
(>= val 2)
(<= val 8))
(define-opt
drag-and-drop
enumeration
(memq val '(no auto replace append insert-next)))
(define-opt drm-connector string)
(define-opt drm-device string)
(define-opt
drm-draw-plane
enumeration
(or (memq val '(primary overlay))
(and (integer? val)
(>= val 0)
(<= val 2147483647))))
(define-opt drm-draw-surface-size window-size)
(define-opt
drm-drmprime-video-plane
enumeration
(or (memq val '(primary overlay))
(and (integer? val)
(>= val 0)
(<= val 2147483647))))
(define-opt
drm-format
enumeration
(memq val
'(xrgb8888 xrgb2101010 xbgr8888 xbgr2101010 yuyv)))
(define-opt drm-mode string)
(define-opt
drm-vrr-enabled
enumeration
(memq val '(no yes auto)))
(define-opt
dscale
enumeration
(memq val
'(bilinear
bicubic_fast
oversample
spline16
spline36
spline64
sinc
lanczos
ginseng
bicubic
hermite
catmull_rom
mitchell
robidoux
robidouxsharp
box
nearest
triangle
gaussian
jinc
ewa_lanczos
ewa_hanning
ewa_ginseng
ewa_lanczossharp
ewa_lanczos4sharpest
ewa_lanczossoft
haasnsoft
ewa_robidoux
ewa_robidouxsharp
bartlett
cosine
hanning
tukey
hamming
quadric
welch
kaiser
blackman
sphinx)))
(define-opt
dscale-antiring
float
(>= val 0)
(<= val 1))
(define-opt dscale-blur float)
(define-opt
dscale-clamp
float
(>= val 0)
(<= val 1))
(define-opt dscale-param1 float)
(define-opt dscale-param2 float)
(define-opt
dscale-radius
float
(>= val 0.5)
(<= val 16))
(define-opt
dscale-taper
float
(>= val 0)
(<= val 1))
(define-opt
dscale-window
enumeration
(memq val
'(bartlett
cosine
hanning
tukey
hamming
quadric
welch
kaiser
blackman
sphinx
jinc)))
(define-opt dscale-wparam float)
(define-opt
dscale-wtaper
float
(>= val 0)
(<= val 1))
(define-opt dump-stats string)
(define-opt
dvbin-card
integer
(>= val 0)
(<= val 15))
(define-opt dvbin-channel-switch-offset integer)
(define-opt dvbin-file string)
(define-opt dvbin-full-transponder? boolean)
(define-opt dvbin-prog string)
(define-opt
dvbin-timeout
integer
(>= val 1)
(<= val 30))
(define-opt
dvd-angle
integer
(>= val 1)
(<= val 99))
(define-opt dvd-device string)
(define-opt dvd-speed integer)
(define-opt
edition
enumeration
(or (memq val '(auto))
(and (integer? val) (>= val 0) (<= val 8190))))
(define-opt egl-config-id integer)
(define-opt
egl-output-format
enumeration
(memq val
'(auto rgb8
rgba8
rgb10
rgb10_a2
rgb16
rgba16
rgb16f
rgba16f
rgb32f
rgba32f)))
(define-opt embeddedfonts? boolean)
(define-opt
end
relative-time-or-percent-position)
(define-opt error-diffusion string)
(define-opt external-files list-of-string)
(define-opt fbo-format string)
(define-opt
focus-on
enumeration
(memq val '(never open all)))
(define-opt force-media-title string)
(define-opt force-render? boolean)
(define-opt force-rgba-osd-rendering? boolean)
(define-opt force-seekable? boolean)
(define-opt
force-window
enumeration
(memq val '(no yes immediate)))
(define-opt force-window-position? boolean)
(define-opt
framedrop
enumeration
(memq val '(no vo decoder decoder+vo)))
(define-opt
frames
enumeration
(or (memq val '(all))
(and (integer? val)
(>= val 0)
(<= val 2147483647))))
(define-opt
fs-screen
enumeration
(or (memq val '(all current))
(and (integer? val) (>= val 0) (<= val 32))))
(define-opt fs-screen-name string)
(define-opt fullscreen? boolean)
(define-opt
gamma
float
(>= val -100)
(<= val 100))
(define-opt gamma-auto? boolean)
(define-opt
gamma-factor
float
(>= val 0.1)
(<= val 2))
(define-opt
gamut-mapping-mode
enumeration
(memq val
'(auto clip
perceptual
relative
saturation
absolute
desaturate
darken
warn
linear)))
(define-opt
gapless-audio
enumeration
(memq val '(no yes weak)))
(define-opt geometry window-geometry)
(define-opt glsl-shader-opts list-of-key-value)
(define-opt glsl-shaders list-of-string)
(define-opt gpu-api list-of-object-setting)
(define-opt gpu-context list-of-object-setting)
(define-opt gpu-debug? boolean)
(define-opt
gpu-dumb-mode
enumeration
(memq val '(auto yes no)))
(define-opt gpu-hwdec-interop string)
(define-opt gpu-shader-cache? boolean)
(define-opt gpu-shader-cache-dir string)
(define-opt gpu-sw? boolean)
(define-opt
gpu-tex-pad-x
integer
(>= val 0)
(<= val 4096))
(define-opt
gpu-tex-pad-y
integer
(>= val 0)
(<= val 4096))
(define-opt
hdr-compute-peak
enumeration
(memq val '(auto yes no)))
(define-opt
hdr-contrast-recovery
float
(>= val 0)
(<= val 2))
(define-opt
hdr-contrast-smoothness
float
(>= val 1)
(<= val 100))
(define-opt
hdr-peak-decay-rate
float
(>= val 0)
(<= val 1000))
(define-opt
hdr-peak-percentile
float
(>= val 0)
(<= val 100))
(define-opt
hdr-scene-threshold-high
float
(>= val 0)
(<= val 20))
(define-opt
hdr-scene-threshold-low
float
(>= val 0)
(<= val 20))
(define-opt hidpi-window-scale? boolean)
(define-opt
hls-bitrate
enumeration
(or (memq val '(no min max))
(and (integer? val)
(>= val 0)
(<= val 2147483647))))
(define-opt
hr-seek
enumeration
(memq val '(no absolute yes always default)))
(define-opt hr-seek-demuxer-offset float)
(define-opt hr-seek-framedrop? boolean)
(define-opt http-header-fields list-of-string)
(define-opt http-proxy string)
(define-opt hue float (>= val -100) (<= val 100))
(define-opt hwdec list-of-string)
(define-opt hwdec-codecs string)
(define-opt
hwdec-extra-frames
integer
(>= val 0)
(<= val 256))
(define-opt hwdec-image-format image-format)
(define-opt icc-3dlut-size string)
(define-opt icc-cache? boolean)
(define-opt icc-cache-dir string)
(define-opt
icc-force-contrast
enumeration
(or (memq val '(no inf))
(and (integer? val) (>= val 0) (<= val 1000000))))
(define-opt icc-intent integer)
(define-opt icc-profile string)
(define-opt icc-profile-auto? boolean)
(define-opt icc-use-luma? boolean)
(define-opt
idle
enumeration
(memq val '(no once yes)))
(define-opt
ignore-path-in-watch-later-config?
boolean)
(define-opt
image-display-duration
double
(>= val 0))
(define-opt image-exts list-of-string)
(define-opt image-lut string)
(define-opt
image-lut-type
enumeration
(memq val '(auto native normalized conversion)))
(define-opt image-subs-video-resolution? boolean)
(define-opt include string)
(define-opt
index
enumeration
(memq val '(default recreate)))
(define-opt initial-audio-sync? boolean)
(define-opt input-ar-delay integer)
(define-opt input-ar-rate integer)
(define-opt input-builtin-bindings? boolean)
(define-opt input-builtin-dragging? boolean)
(define-opt input-commands list-of-string)
(define-opt input-conf string)
(define-opt input-cursor? boolean)
(define-opt input-cursor-passthrough? boolean)
(define-opt input-default-bindings? boolean)
(define-opt
input-doubleclick-time
integer
(>= val 0)
(<= val 1000))
(define-opt input-dragging-deadzone integer)
(define-opt input-ipc-client string)
(define-opt input-ipc-server string)
(define-opt
input-key-fifo-size
integer
(>= val 2)
(<= val 65000))
(define-opt input-media-keys? boolean)
(define-opt input-preprocess-wheel? boolean)
(define-opt input-right-alt-gr? boolean)
(define-opt input-terminal? boolean)
(define-opt input-test? boolean)
(define-opt input-touch-emulate-mouse? boolean)
(define-opt input-vo-keyboard? boolean)
(define-opt interpolation? boolean)
(define-opt interpolation-preserve? boolean)
(define-opt interpolation-threshold float)
(define-opt inverse-tone-mapping? boolean)
(define-opt jack-autostart? boolean)
(define-opt jack-connect? boolean)
(define-opt jack-name string)
(define-opt jack-port string)
(define-opt
jack-std-channel-layout
enumeration
(memq val '(waveext any)))
(define-opt
keep-open
enumeration
(memq val '(no yes always)))
(define-opt keep-open-pause? boolean)
(define-opt keepaspect? boolean)
(define-opt keepaspect-window? boolean)
(define-opt lavfi-complex string)
(define-opt
length
relative-time-or-percent-position)
(define-opt libplacebo-opts list-of-key-value)
(define-opt linear-downscaling? boolean)
(define-opt linear-upscaling? boolean)
(define-opt
load-auto-profiles
enumeration
(memq val '(no yes auto)))
(define-opt load-osd-console? boolean)
(define-opt load-scripts? boolean)
(define-opt load-select? boolean)
(define-opt load-stats-overlay? boolean)
(define-opt load-unsafe-playlists? boolean)
(define-opt log-file string)
(define-opt
loop-file
enumeration
(or (memq val '(no inf yes))
(and (integer? val) (>= val 0) (<= val 10000))))
(define-opt
loop-playlist
enumeration
(or (memq val '(no inf yes force))
(and (integer? val) (>= val 1) (<= val 10000))))
(define-opt lut string)
(define-opt
lut-type
enumeration
(memq val '(auto native normalized conversion)))
(define-opt mc float (>= val 0) (<= val 100))
(define-opt
media-controls
enumeration
(memq val '(no player yes)))
(define-opt merge-files? boolean)
(define-opt metadata-codepage string)
(define-opt mf-fps double)
(define-opt mf-type string)
(define-opt
monitoraspect
float
(>= val 0)
(<= val 9))
(define-opt
monitorpixelaspect
float
(>= val 0.03125)
(<= val 32))
(define-opt msg-color? boolean)
(define-opt msg-level list-of-output-verbosity)
(define-opt msg-module? boolean)
(define-opt msg-time? boolean)
(define-opt mute? boolean)
(define-opt native-fs? boolean)
(define-opt native-keyrepeat? boolean)
(define-opt native-touch? boolean)
(define-opt network-timeout double (>= val 0))
(define-opt oac string)
(define-opt oacopts list-of-key-value)
(define-opt ocopy-metadata? boolean)
(define-opt of string)
(define-opt ofopts list-of-key-value)
(define-opt on-all-workspaces? boolean)
(define-opt ontop? boolean)
(define-opt
ontop-level
enumeration
(or (memq val '(window system desktop))
(and (integer? val)
(>= val 0)
(<= val 2147483647))))
(define-opt opengl-check-pattern-a integer)
(define-opt opengl-check-pattern-b integer)
(define-opt
opengl-early-flush
enumeration
(memq val '(no yes auto)))
(define-opt
opengl-es
enumeration
(memq val '(auto yes no)))
(define-opt opengl-glfinish? boolean)
(define-opt opengl-pbo? boolean)
(define-opt opengl-rectangle-textures? boolean)
(define-opt opengl-swapinterval integer)
(define-opt opengl-waitvsync? boolean)
(define-opt orawts? boolean)
(define-opt ordered-chapters? boolean)
(define-opt ordered-chapters-files string)
(define-opt oremove-metadata list-of-string)
(define-opt osc? boolean)
(define-opt
osd-align-x
enumeration
(memq val '(left center right)))
(define-opt
osd-align-y
enumeration
(memq val '(top center bottom)))
(define-opt osd-back-color color)
(define-opt osd-bar? boolean)
(define-opt
osd-bar-align-x
float
(>= val -1)
(<= val 1))
(define-opt
osd-bar-align-y
float
(>= val -1)
(<= val 1))
(define-opt
osd-bar-h
float
(>= val 0.1)
(<= val 50))
(define-opt
osd-bar-outline-size
float
(>= val 0)
(<= val 1000))
(define-opt
osd-bar-w
float
(>= val 1)
(<= val 100))
(define-opt
osd-blur
float
(>= val 0)
(<= val 20))
(define-opt osd-bold? boolean)
(define-opt
osd-border-style
enumeration
(memq val
'(outline-and-shadow opaque-box background-box)))
(define-opt osd-color color)
(define-opt
osd-duration
integer
(>= val 0)
(<= val 3600000))
(define-opt osd-font string)
(define-opt
osd-font-provider
enumeration
(memq val '(auto none fontconfig)))
(define-opt
osd-font-size
float
(>= val 1)
(<= val 9000))
(define-opt osd-fonts-dir string)
(define-opt osd-fractions? boolean)
(define-opt osd-italic? boolean)
(define-opt
osd-justify
enumeration
(memq val '(auto left center right)))
(define-opt
osd-level
enumeration
(memq val '(#{0}# #{1}# #{2}# #{3}#)))
(define-opt
osd-margin-x
integer
(>= val 0)
(<= val 300))
(define-opt
osd-margin-y
integer
(>= val 0)
(<= val 600))
(define-opt osd-msg1 string)
(define-opt osd-msg2 string)
(define-opt osd-msg3 string)
(define-opt
osd-on-seek
enumeration
(memq val '(no bar msg msg-bar)))
(define-opt osd-outline-color color)
(define-opt osd-outline-size float)
(define-opt osd-playing-msg string)
(define-opt
osd-playing-msg-duration
integer
(>= val 0)
(<= val 3600000))
(define-opt
osd-playlist-entry
enumeration
(memq val '(title filename both)))
(define-opt
osd-scale
float
(>= val 0)
(<= val 100))
(define-opt osd-scale-by-window? boolean)
(define-opt osd-shadow-offset float)
(define-opt
osd-spacing
float
(>= val -10)
(<= val 10))
(define-opt osd-status-msg string)
(define-opt oset-metadata list-of-key-value)
(define-opt ovc string)
(define-opt ovcopts list-of-key-value)
(define-opt panscan float (>= val 0) (<= val 1))
(define-opt pause? boolean)
(define-opt
pipewire-buffer
enumeration
(or (memq val '(native))
(and (integer? val) (>= val 1) (<= val 2000))))
(define-opt pipewire-remote string)
(define-opt
pipewire-volume-mode
enumeration
(memq val '(channel global)))
(define-opt
pitch
double
(>= val 0.01)
(<= val 100))
(define-opt
play-direction
enumeration
(memq val '(forward + backward -)))
(define-opt
player-operation-mode
enumeration
(memq val '(cplayer pseudo-gui)))
(define-opt
playlist-start
enumeration
(or (memq val '(auto no))
(and (integer? val)
(>= val 0)
(<= val 2147483647))))
(define-opt prefetch-playlist? boolean)
(define-opt profile list-of-string)
(define-opt pulse-allow-suspended? boolean)
(define-opt
pulse-buffer
enumeration
(or (memq val '(native))
(and (integer? val) (>= val 1) (<= val 2000))))
(define-opt pulse-host string)
(define-opt pulse-latency-hacks? boolean)
(define-opt quiet? boolean)
(define-opt really-quiet? boolean)
(define-opt rebase-start-time? boolean)
(define-opt referrer string)
(define-opt
replaygain
enumeration
(memq val '(no track album)))
(define-opt replaygain-clip? boolean)
(define-opt
replaygain-fallback
float
(>= val -200)
(<= val 60))
(define-opt
replaygain-preamp
float
(>= val -150)
(<= val 150))
(define-opt reset-on-next-file list-of-string)
(define-opt resume-playback? boolean)
(define-opt resume-playback-check-mtime? boolean)
(define-opt
rtsp-transport
enumeration
(memq val '(lavf udp tcp http udp_multicast)))
(define-opt
saturation
float
(>= val -100)
(<= val 100))
(define-opt save-position-on-quit? boolean)
(define-opt
scale
enumeration
(memq val
'(bilinear
bicubic_fast
oversample
spline16
spline36
spline64
sinc
lanczos
ginseng
bicubic
hermite
catmull_rom
mitchell
robidoux
robidouxsharp
box
nearest
triangle
gaussian
jinc
ewa_lanczos
ewa_hanning
ewa_ginseng
ewa_lanczossharp
ewa_lanczos4sharpest
ewa_lanczossoft
haasnsoft
ewa_robidoux
ewa_robidouxsharp
bartlett
cosine
hanning
tukey
hamming
quadric
welch
kaiser
blackman
sphinx)))
(define-opt
scale-antiring
float
(>= val 0)
(<= val 1))
(define-opt scale-blur float)
(define-opt
scale-clamp
float
(>= val 0)
(<= val 1))
(define-opt scale-param1 float)
(define-opt scale-param2 float)
(define-opt
scale-radius
float
(>= val 0.5)
(<= val 16))
(define-opt
scale-taper
float
(>= val 0)
(<= val 1))
(define-opt
scale-window
enumeration
(memq val
'(bartlett
cosine
hanning
tukey
hamming
quadric
welch
kaiser
blackman
sphinx
jinc)))
(define-opt scale-wparam float)
(define-opt
scale-wtaper
float
(>= val 0)
(<= val 1))
(define-opt scaler-resizes-only? boolean)
(define-opt
screen
enumeration
(or (memq val '(default))
(and (integer? val) (>= val 0) (<= val 32))))
(define-opt screen-name string)
(define-opt screenshot-avif-encoder string)
(define-opt
screenshot-avif-opts
list-of-key-value)
(define-opt screenshot-avif-pixfmt string)
(define-opt screenshot-directory string)
(define-opt
screenshot-format
enumeration
(memq val '(jpg jpeg png webp jxl avif)))
(define-opt screenshot-high-bit-depth? boolean)
(define-opt
screenshot-jpeg-quality
integer
(>= val 0)
(<= val 100))
(define-opt
screenshot-jpeg-source-chroma?
boolean)
(define-opt
screenshot-jxl-distance
double
(>= val 0)
(<= val 15))
(define-opt
screenshot-jxl-effort
integer
(>= val 1)
(<= val 9))
(define-opt
screenshot-png-compression
integer
(>= val 0)
(<= val 9))
(define-opt
screenshot-png-filter
integer
(>= val 0)
(<= val 5))
(define-opt screenshot-sw? boolean)
(define-opt screenshot-tag-colorspace? boolean)
(define-opt screenshot-template string)
(define-opt
screenshot-webp-compression
integer
(>= val 0)
(<= val 6))
(define-opt screenshot-webp-lossless? boolean)
(define-opt
screenshot-webp-quality
integer
(>= val 0)
(<= val 100))
(define-opt script-opts list-of-key-value)
(define-opt scripts list-of-string)
(define-opt
secondary-sid
enumeration
(or (memq val '(no auto))
(and (integer? val) (>= val 0) (<= val 8190))))
(define-opt
secondary-sub-ass-override
enumeration
(memq val '(no yes scale force strip)))
(define-opt secondary-sub-delay float)
(define-opt
secondary-sub-pos
float
(>= val 0)
(<= val 150))
(define-opt secondary-sub-visibility? boolean)
(define-opt sharpen float)
(define-opt show-in-taskbar? boolean)
(define-opt shuffle? boolean)
(define-opt
sub
enumeration
(or (memq val '(no auto))
(and (integer? val) (>= val 0) (<= val 8190))))
(define-opt
sigmoid-center
float
(>= val 0)
(<= val 1))
(define-opt
sigmoid-slope
float
(>= val 1)
(<= val 20))
(define-opt sigmoid-upscaling? boolean)
(define-opt slang list-of-string)
(define-opt snap-window? boolean)
(define-opt
speed
double
(>= val 0.01)
(<= val 100))
(define-opt
spirv-compiler
enumeration
(memq val '(auto)))
(define-opt sstep double (>= val 0))
(define-opt
start
relative-time-or-percent-position)
(define-opt
stop-playback-on-init-failure?
boolean)
(define-opt
stop-screensaver
enumeration
(memq val '(no yes always)))
(define-opt
stream-buffer-size
byte-size
(>= val 4096)
(<= val 536870912))
(define-opt stream-dump string)
(define-opt stream-lavf-o list-of-key-value)
(define-opt stream-record string)
(define-opt stretch-dvd-subs? boolean)
(define-opt
stretch-image-subs-to-screen?
boolean)
(define-opt
sub-align-x
enumeration
(memq val '(left center right)))
(define-opt
sub-align-y
enumeration
(memq val '(top center bottom)))
(define-opt sub-ass? boolean)
(define-opt sub-ass-force-margins? boolean)
(define-opt
sub-ass-hinting
enumeration
(memq val '(none light normal native)))
(define-opt sub-ass-justify? boolean)
(define-opt
sub-ass-line-spacing
float
(>= val -1000)
(<= val 1000))
(define-opt
sub-ass-override
enumeration
(memq val '(no yes scale force strip)))
(define-opt sub-ass-scale-with-window? boolean)
(define-opt
sub-ass-shaper
enumeration
(memq val '(simple complex)))
(define-opt
sub-ass-style-overrides
list-of-string)
(define-opt sub-ass-styles string)
(define-opt
sub-ass-use-video-data
enumeration
(memq val '(none aspect-ratio all)))
(define-opt
sub-ass-video-aspect-override
aspect
(>= val 0)
(<= val 10))
(define-opt
sub-ass-vsfilter-color-compat
enumeration
(memq val '(no basic full force-601)))
(define-opt
sub-auto
enumeration
(memq val '(no exact fuzzy all)))
(define-opt sub-auto-exts list-of-string)
(define-opt sub-back-color color)
(define-opt
sub-blur
float
(>= val 0)
(<= val 20))
(define-opt sub-bold? boolean)
(define-opt
sub-border-style
enumeration
(memq val
'(outline-and-shadow opaque-box background-box)))
(define-opt sub-clear-on-seek? boolean)
(define-opt sub-codepage string)
(define-opt sub-color color)
(define-opt sub-create-cc-track? boolean)
(define-opt sub-delay float)
(define-opt sub-demuxer string)
(define-opt sub-file-paths list-of-string)
(define-opt sub-files list-of-string)
(define-opt sub-filter-jsre list-of-string)
(define-opt sub-filter-regex list-of-string)
(define-opt sub-filter-regex-enable? boolean)
(define-opt sub-filter-regex-plain? boolean)
(define-opt sub-filter-regex-warn? boolean)
(define-opt sub-filter-sdh? boolean)
(define-opt sub-filter-sdh-enclosures string)
(define-opt sub-filter-sdh-harder? boolean)
(define-opt sub-fix-timing? boolean)
(define-opt sub-font string)
(define-opt
sub-font-provider
enumeration
(memq val '(auto none fontconfig)))
(define-opt
sub-font-size
float
(>= val 1)
(<= val 9000))
(define-opt sub-fonts-dir string)
(define-opt sub-forced-events-only? boolean)
(define-opt sub-fps float)
(define-opt
sub-gauss
float
(>= val 0)
(<= val 3))
(define-opt sub-gray? boolean)
(define-opt sub-italic? boolean)
(define-opt
sub-justify
enumeration
(memq val '(auto left center right)))
(define-opt sub-lavc-o list-of-key-value)
(define-opt
sub-margin-x
integer
(>= val 0)
(<= val 300))
(define-opt
sub-margin-y
integer
(>= val 0)
(<= val 600))
(define-opt sub-outline-color color)
(define-opt sub-outline-size float)
(define-opt sub-past-video-end? boolean)
(define-opt
sub-pos
float
(>= val 0)
(<= val 150))
(define-opt
sub-scale
float
(>= val 0)
(<= val 100))
(define-opt sub-scale-by-window? boolean)
(define-opt sub-scale-with-window? boolean)
(define-opt sub-shadow-offset float)
(define-opt
sub-spacing
float
(>= val -10)
(<= val 10))
(define-opt sub-speed float)
(define-opt sub-stretch-durations? boolean)
(define-opt sub-use-margins? boolean)
(define-opt sub-visibility? boolean)
(define-opt sub-vsfilter-bidi-compat? boolean)
(define-opt
subs-fallback
enumeration
(memq val '(no default yes)))
(define-opt
subs-fallback-forced
enumeration
(memq val '(no yes always)))
(define-opt subs-match-os-language? boolean)
(define-opt
subs-with-matching-audio
enumeration
(memq val '(no forced yes)))
(define-opt
swapchain-depth
integer
(>= val 1)
(<= val 8))
(define-opt sws-allow-zimg? boolean)
(define-opt sws-bitexact? boolean)
(define-opt
sws-cgb
float
(>= val 0)
(<= val 100))
(define-opt sws-chs integer)
(define-opt
sws-cs
float
(>= val -100)
(<= val 100))
(define-opt sws-cvs integer)
(define-opt sws-fast? boolean)
(define-opt
sws-lgb
float
(>= val 0)
(<= val 100))
(define-opt
sws-ls
float
(>= val -100)
(<= val 100))
(define-opt
sws-scaler
enumeration
(memq val
'(fast-bilinear
bilinear
bicubic
x
point
area
bicublin
gauss
sinc
lanczos
spline)))
(define-opt target-colorspace-hint? boolean)
(define-opt
target-contrast
enumeration
(or (memq val '(auto inf))
(and (integer? val) (>= val 10) (<= val 1000000))))
(define-opt
target-gamut
enumeration
(memq val
'(auto bt.601-525
bt.601-625
bt.709
bt.2020
bt.470m
apple
adobe
prophoto
cie1931
dci-p3
display-p3
v-gamut
s-gamut
ebu3213
film-c
aces-ap0
aces-ap1)))
(define-opt target-lut string)
(define-opt
target-peak
enumeration
(or (memq val '(auto))
(and (integer? val) (>= val 10) (<= val 10000))))
(define-opt
target-prim
enumeration
(memq val
'(auto bt.601-525
bt.601-625
bt.709
bt.2020
bt.470m
apple
adobe
prophoto
cie1931
dci-p3
display-p3
v-gamut
s-gamut
ebu3213
film-c
aces-ap0
aces-ap1)))
(define-opt
target-trc
enumeration
(memq val
'(auto bt.1886
srgb
linear
gamma1.8
gamma2.0
gamma2.2
gamma2.4
gamma2.6
gamma2.8
prophoto
pq
hlg
v-log
s-log1
s-log2
st428)))
(define-opt taskbar-progress? boolean)
(define-opt
teletext-page
integer
(>= val -1)
(<= val 999))
(define-opt temporal-dither? boolean)
(define-opt
temporal-dither-period
integer
(>= val 1)
(<= val 128))
(define-opt
term-osd
enumeration
(memq val '(force auto no)))
(define-opt term-osd-bar? boolean)
(define-opt term-osd-bar-chars string)
(define-opt term-playing-msg string)
(define-opt term-status-msg string)
(define-opt term-title string)
(define-opt terminal? boolean)
(define-opt title string)
(define-opt title-bar? boolean)
(define-opt tls-ca-file string)
(define-opt tls-cert-file string)
(define-opt tls-key-file string)
(define-opt tls-verify? boolean)
(define-opt
tone-mapping
enumeration
(memq val
'(auto clip
mobius
reinhard
hable
gamma
linear
spline
bt.2390
bt.2446a
st2094-40
st2094-10)))
(define-opt
tone-mapping-max-boost
float
(>= val 1)
(<= val 10))
(define-opt tone-mapping-param float)
(define-opt tone-mapping-visualize? boolean)
(define-opt track-auto-selection? boolean)
(define-opt
tscale
enumeration
(memq val
'(oversample
linear
spline16
spline36
spline64
sinc
lanczos
ginseng
bicubic
hermite
catmull_rom
mitchell
robidoux
robidouxsharp
box
nearest
triangle
gaussian
bartlett
cosine
hanning
tukey
hamming
quadric
welch
kaiser
blackman
sphinx
jinc)))
(define-opt
tscale-antiring
float
(>= val 0)
(<= val 1))
(define-opt tscale-blur float)
(define-opt
tscale-clamp
float
(>= val 0)
(<= val 1))
(define-opt tscale-param1 float)
(define-opt tscale-param2 float)
(define-opt
tscale-radius
float
(>= val 0.5)
(<= val 16))
(define-opt
tscale-taper
float
(>= val 0)
(<= val 1))
(define-opt
tscale-window
enumeration
(memq val
'(bartlett
cosine
hanning
tukey
hamming
quadric
welch
kaiser
blackman
sphinx
jinc)))
(define-opt tscale-wparam float)
(define-opt
tscale-wtaper
float
(>= val 0)
(<= val 1))
(define-opt untimed? boolean)
(define-opt use-embedded-icc-profile? boolean)
(define-opt use-filedir-conf? boolean)
(define-opt user-agent string)
(define-opt vaapi-device string)
(define-opt vd string)
(define-opt vd-apply-cropping? boolean)
(define-opt vd-lavc-assume-old-x264? boolean)
(define-opt vd-lavc-bitexact? boolean)
(define-opt vd-lavc-check-hw-profile? boolean)
(define-opt
vd-lavc-dr
enumeration
(memq val '(auto no yes)))
(define-opt vd-lavc-fast? boolean)
(define-opt
vd-lavc-film-grain
enumeration
(memq val '(auto cpu gpu)))
(define-opt
vd-lavc-framedrop
enumeration
(memq val
'(none default nonref bidir nonkey all)))
(define-opt vd-lavc-o list-of-key-value)
(define-opt vd-lavc-show-all? boolean)
(define-opt
vd-lavc-skipframe
enumeration
(memq val
'(none default nonref bidir nonkey all)))
(define-opt
vd-lavc-skipidct
enumeration
(memq val
'(none default nonref bidir nonkey all)))
(define-opt
vd-lavc-skiploopfilter
enumeration
(memq val
'(none default nonref bidir nonkey all)))
(define-opt
vd-lavc-software-fallback
enumeration
(or (memq val '(no yes))
(and (integer? val)
(>= val 1)
(<= val 2147483647))))
(define-opt vd-lavc-threads integer (>= val 0))
(define-opt vd-queue-enable? boolean)
(define-opt
vd-queue-max-bytes
byte-size
(>= val 0)
(<= val 4.6116860184274e18))
(define-opt
vd-queue-max-samples
integer64
(>= val 0))
(define-opt vd-queue-max-secs double (>= val 0))
(define-opt vf list-of-object-setting)
(define-opt
video
enumeration
(or (memq val '(no auto))
(and (integer? val) (>= val 0) (<= val 8190))))
(define-opt
video-align-x
float
(>= val -1)
(<= val 1))
(define-opt
video-align-y
float
(>= val -1)
(<= val 1))
(define-opt
video-aspect-method
enumeration
(memq val '(bitstream container)))
(define-opt
video-aspect-override
aspect
(>= val -1)
(<= val 10))
(define-opt
video-backward-batch
integer
(>= val 0)
(<= val 1024))
(define-opt
video-backward-overlap
enumeration
(or (memq val '(auto))
(and (integer? val) (>= val 0) (<= val 1024))))
(define-opt video-crop video-rectangle)
(define-opt video-exts list-of-string)
(define-opt video-latency-hacks? boolean)
(define-opt
video-margin-ratio-bottom
float
(>= val 0)
(<= val 1))
(define-opt
video-margin-ratio-left
float
(>= val 0)
(<= val 1))
(define-opt
video-margin-ratio-right
float
(>= val 0)
(<= val 1))
(define-opt
video-margin-ratio-top
float
(>= val 0)
(<= val 1))
(define-opt video-osd? boolean)
(define-opt
video-output-levels
enumeration
(memq val '(auto limited full)))
(define-opt video-pan-x float)
(define-opt video-pan-y float)
(define-opt
video-reversal-buffer
byte-size
(>= val 0)
(<= val 4.6116860184274e18))
(define-opt
video-rotate
enumeration
(or (memq val '(no))
(and (integer? val) (>= val 0) (<= val 359))))
(define-opt
video-scale-x
float
(>= val 0)
(<= val 10000))
(define-opt
video-scale-y
float
(>= val 0)
(<= val 10000))
(define-opt
video-sync
enumeration
(memq val
'(audio display-resample
display-resample-vdrop
display-resample-desync
display-tempo
display-adrop
display-vdrop
display-desync
desync)))
(define-opt
video-sync-max-audio-change
double
(>= val 0)
(<= val 1))
(define-opt
video-sync-max-factor
integer
(>= val 1)
(<= val 10))
(define-opt
video-sync-max-video-change
double
(>= val 0))
(define-opt
video-timing-offset
double
(>= val 0)
(<= val 1))
(define-opt
video-unscaled
enumeration
(memq val '(no yes downscale-big)))
(define-opt
video-zoom
float
(>= val -20)
(<= val 20))
(define-opt vlang list-of-string)
(define-opt vo list-of-object-setting)
(define-opt vo-image-avif-encoder string)
(define-opt vo-image-avif-opts list-of-key-value)
(define-opt vo-image-avif-pixfmt string)
(define-opt
vo-image-format
enumeration
(memq val '(jpg jpeg png webp jxl avif)))
(define-opt vo-image-high-bit-depth? boolean)
(define-opt
vo-image-jpeg-quality
integer
(>= val 0)
(<= val 100))
(define-opt vo-image-jpeg-source-chroma? boolean)
(define-opt
vo-image-jxl-distance
double
(>= val 0)
(<= val 15))
(define-opt
vo-image-jxl-effort
integer
(>= val 1)
(<= val 9))
(define-opt vo-image-outdir string)
(define-opt
vo-image-png-compression
integer
(>= val 0)
(<= val 9))
(define-opt
vo-image-png-filter
integer
(>= val 0)
(<= val 5))
(define-opt vo-image-tag-colorspace? boolean)
(define-opt
vo-image-webp-compression
integer
(>= val 0)
(<= val 6))
(define-opt vo-image-webp-lossless? boolean)
(define-opt
vo-image-webp-quality
integer
(>= val 0)
(<= val 100))
(define-opt vo-kitty-alt-screen? boolean)
(define-opt vo-kitty-cols integer)
(define-opt vo-kitty-config-clear? boolean)
(define-opt vo-kitty-height integer)
(define-opt vo-kitty-left integer)
(define-opt vo-kitty-rows integer)
(define-opt vo-kitty-top integer)
(define-opt vo-kitty-use-shm? boolean)
(define-opt vo-kitty-width integer)
(define-opt
vo-null-fps
double
(>= val 0)
(<= val 10000))
(define-opt vo-sixel-alt-screen? boolean)
(define-opt vo-sixel-buffered? boolean)
(define-opt vo-sixel-cols integer)
(define-opt vo-sixel-config-clear? boolean)
(define-opt
vo-sixel-dither
enumeration
(memq val
'(auto none
atkinson
fs
jajuni
stucki
burkes
arithmetic
xor)))
(define-opt vo-sixel-fixedpalette? boolean)
(define-opt vo-sixel-height integer)
(define-opt vo-sixel-left integer)
(define-opt vo-sixel-pad-x integer)
(define-opt vo-sixel-pad-y integer)
(define-opt vo-sixel-reqcolors integer)
(define-opt vo-sixel-rows integer)
(define-opt vo-sixel-threshold integer)
(define-opt vo-sixel-top integer)
(define-opt vo-sixel-width integer)
(define-opt vo-tct-256? boolean)
(define-opt
vo-tct-algo
enumeration
(memq val '(plain half-blocks)))
(define-opt
vo-tct-buffering
enumeration
(memq val '(pixel line frame)))
(define-opt vo-tct-height integer)
(define-opt vo-tct-width integer)
(define-opt vo-vaapi-scaled-osd? boolean)
(define-opt
vo-vaapi-scaling
enumeration
(memq val '(default fast hq nla)))
(define-opt vo-vdpau-chroma-deint? boolean)
(define-opt vo-vdpau-colorkey color)
(define-opt vo-vdpau-composite-detect? boolean)
(define-opt
vo-vdpau-denoise
float
(>= val 0)
(<= val 1))
(define-opt vo-vdpau-force-yuv? boolean)
(define-opt vo-vdpau-fps double)
(define-opt
vo-vdpau-hqscaling
integer
(>= val 0)
(<= val 9))
(define-opt
vo-vdpau-output-surfaces
integer
(>= val 2)
(<= val 15))
(define-opt vo-vdpau-pullup? boolean)
(define-opt vo-vdpau-queuetime-fs integer)
(define-opt vo-vdpau-queuetime-windowed integer)
(define-opt
vo-vdpau-sharpen
float
(>= val -1)
(<= val 1))
(define-opt
volume
float
(>= val -1)
(<= val 1000))
(define-opt
volume-gain
float
(>= val -150)
(<= val 150))
(define-opt
volume-gain-max
float
(>= val 0)
(<= val 150))
(define-opt
volume-gain-min
float
(>= val -150)
(<= val 0))
(define-opt
volume-max
float
(>= val 100)
(<= val 1000))
(define-opt vulkan-async-compute? boolean)
(define-opt vulkan-async-transfer? boolean)
(define-opt vulkan-device string)
(define-opt vulkan-display-display integer)
(define-opt vulkan-display-mode integer)
(define-opt vulkan-display-plane integer)
(define-opt
vulkan-queue-count
integer
(>= val 1)
(<= val 8))
(define-opt
vulkan-swap-mode
enumeration
(memq val
'(auto fifo fifo-relaxed mailbox immediate)))
(define-opt watch-later-directory string)
(define-opt watch-later-options list-of-string)
(define-opt wayland-app-id string)
(define-opt
wayland-configure-bounds
enumeration
(memq val '(auto no yes)))
(define-opt
wayland-content-type
enumeration
(memq val '(auto none photo video game)))
(define-opt wayland-disable-vsync? boolean)
(define-opt
wayland-edge-pixels-pointer
integer
(>= val 0)
(<= val 2147483647))
(define-opt
wayland-edge-pixels-touch
integer
(>= val 0)
(<= val 2147483647))
(define-opt wayland-present? boolean)
(define-opt wid integer64)
(define-opt window-dragging? boolean)
(define-opt window-maximized? boolean)
(define-opt window-minimized? boolean)
(define-opt
window-scale
double
(>= val 0.001)
(<= val 100))
(define-opt
write-filename-in-watch-later-config?
boolean)
(define-opt
x11-bypass-compositor
enumeration
(memq val '(no yes fs-only never)))
(define-opt x11-name string)
(define-opt
x11-netwm
enumeration
(memq val '(auto no yes)))
(define-opt
x11-present
enumeration
(memq val '(no auto yes)))
(define-opt x11-wid-title? boolean)
(define-opt xv-adaptor integer (>= val -1))
(define-opt
xv-buffers
integer
(>= val 1)
(<= val 10))
(define-opt
xv-ck
enumeration
(memq val '(use set cur)))
(define-opt
xv-ck-method
enumeration
(memq val '(none bg man auto)))
(define-opt xv-colorkey integer)
(define-opt xv-port integer (>= val 0))
(define-opt ytdl? boolean)
(define-opt ytdl-format string)
(define-opt ytdl-raw-options list-of-key-value)
(define-opt
zimg-dither
enumeration
(memq val '(no ordered random error-diffusion)))
(define-opt zimg-fast? boolean)
(define-opt
zimg-scaler
enumeration
(memq val
'(point bilinear
bicubic
spline16
spline36
lanczos)))
(define-opt
zimg-scaler-chroma
enumeration
(memq val
'(point bilinear
bicubic
spline16
spline36
lanczos)))
(define-opt zimg-scaler-chroma-param-a double)
(define-opt zimg-scaler-chroma-param-b double)
(define-opt zimg-scaler-param-a double)
(define-opt zimg-scaler-param-b double)
(define-opt
zimg-threads
enumeration
(or (memq val '(auto))
(and (integer? val) (>= val 1) (<= val 64))))
;;; Generated code - END.
(define-record-type <mpv-profile-configuration>
(%make-mpv-profile-configuration data)
mpv-profile-configuration?
(data %mpv-profile-configuration-data))
(define (make-mpv-profile-configuration . args)
;; I am not sure how can I copy a hash-map. Documentation does not mention
;; anything.
(let ((new (make-hash-table)))
(let loop ((args args))
(match args
((#:inherit cfg . tail)
(hash-for-each (lambda (key val)
(hashq-set! new key val))
(%mpv-profile-configuration-data cfg))
(loop tail))
(((? keyword? key) val . tail)
(let* ((key (keyword->symbol key))
(opt (hashq-ref %opts key)))
(unless opt
(raise-exception
(formatted-message
(G_ "option ~a not found for mpv-profile-configuration") key)))
(if (maybe-value-set? val)
(if ((profile-option-type-check opt) val)
(hashq-set! new key (cons val
(profile-option-serializer opt)))
(raise-exception
(formatted-message
(G_ "invalid mpv configuration for ~a: ~a~%")
key val)))
(hashq-remove! new key)))
(loop tail))
(()
(%make-mpv-profile-configuration new))))))
(define (serialize-mpv-profile-configuration _ cfg)
(let ((sorted (sort
(hash-map->list cons (%mpv-profile-configuration-data cfg))
(lambda (a b)
(string<? (symbol->string (car a))
(symbol->string (car b)))))))
#~(string-append
#$@(map (match-lambda
((field-name . value)
((cdr value) field-name (car value))))
sorted))))
;;;
;;; Configuration base.
;;;
(define (serialize-mpv/mpv-profile-configurations _ profiles)
#~(string-append
#$@(map (match-lambda
((name . config)
#~(string-append
#$(format #f "[~a]~%" name)
#$(serialize-mpv-profile-configuration _ config))))
profiles)))
(define (mpv/mpv-profile-configurations? alist)
(and (list? alist)
(every (match-lambda
(((? symbol?) . (? mpv-profile-configuration?)) #t)
(_ #f))
alist)))
(define (serialize-mpv/extra _ value)
(if value
#~(string-append #$value
;; Ensure the extra content ends in a new line.
#$(if (string-suffix? "\n" value)
"" "\n"))
#~""))
(define (mpv/extra? val)
(or (string? val)
(gexp? val)))
(define-record-type <home-mpv-configuration>
(%make-home-mpv-configuration global profiles extra-config)
home-mpv-configuration?
(global home-mpv-configuration-global)
(profiles home-mpv-configuration-profiles)
(extra-config home-mpv-configuration-extra-config))
(define* (make-home-mpv-configuration
#:key
(inherit #f)
(global (if inherit
(home-mpv-configuration-global inherit)
(make-mpv-profile-configuration)))
(profiles (if inherit
(home-mpv-configuration-profiles inherit)
'()))
(extra-config (if inherit
(home-mpv-configuration-extra-config inherit)
#f)))
(unless (mpv-profile-configuration? global)
(raise-exception
(formatted-message
(G_ "global must satisfy mpv-profile-configuration?"))))
(unless (mpv/mpv-profile-configurations? profiles)
(raise-exception
(formatted-message
(G_ "profiles must be an alist of mpv-profile-configuration?"))))
(unless (or (not extra-config) (mpv/extra? extra-config))
(raise-exception
(formatted-message
(G_ "extra-config must be a string or a gexp"))))
(%make-home-mpv-configuration global profiles extra-config))
(define (serialize-home-mpv-configuration cfg)
#~(string-append #$(serialize-mpv-profile-configuration
'global
(home-mpv-configuration-global cfg))
#$(serialize-mpv/mpv-profile-configurations
'profiles
(home-mpv-configuration-profiles cfg))
#$(serialize-mpv/extra
'extra-config
(home-mpv-configuration-extra-config cfg))))
(define (mpv-configuration-files cfg)
`(("mpv/mpv.conf" ,(mixed-text-file "mpv.conf"
(serialize-home-mpv-configuration cfg)))))
(define home-mpv-service-type
(service-type
(name 'home-mpv)
(extensions
(list (service-extension home-xdg-configuration-files-service-type
mpv-configuration-files)))
(description
"Install configuration files for mpv into XDG configuration directory.")))
