config.ml

type t = {
  tag : string;
  xwayland_binary : string;
  xrdb : string list;           (* Config lines for xrdb *)
  xunscale : int;
}

open Cmdliner

let clipname_envvar = "WAYLAND_PROXY_CLIPNAME"

let clipname =
  Arg.value @@
  Arg.(opt (some string)) None @@
  Arg.info
    ~doc:(Printf.sprintf "Clipboard name to use (to override %s)" clipname_envvar)
    ["clipname"]

let tag =
  Arg.value @@
  Arg.(opt string) "" @@
  Arg.info
    ~doc:"Tag to prefix to window titles"
    ["tag"]

let xwayland_binary =
  Arg.value @@
  Arg.(opt string) "Xwayland" @@
  Arg.info
    ~doc:"Xwayland binary to execute if an X11 application tries to connect"
    ["xwayland-binary"]

let xrdb =
  Arg.value @@
  Arg.(opt_all string) [] @@
  Arg.info
    ~doc:"Initial xrdb config (e.g. 'Xft.dpi:150')"
    ["xrdb"]

let xunscale =
  Arg.value @@
  Arg.(opt int) 1 @@
  Arg.info
    ~doc:"Compensate for Wayland's attempts to scale X11 apps (e.g. 2 for a HiDPI display)"
    ["x-unscale"]

let make_config clipname tag xwayland_binary xrdb xunscale =
  Option.iter (Unix.putenv clipname_envvar) clipname;
  { tag; xwayland_binary; xrdb; xunscale }

let cmdliner =
  Term.(const make_config $ clipname $ tag $ xwayland_binary $ xrdb $ xunscale)