;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>.
;;; Copyright © 2023 Bruno Victal <mirai@makinata.eu>
;;;
;;; 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 tests vnc)
  #:use-module (gnu bootloader)
  #:use-module (gnu bootloader grub)
  #:use-module (gnu packages)
  #:use-modu</td></tr></table>
<table class='tabs'><tr><td>
<a class='active' href='/guix/about/'>about</a><a href='/guix/'>summary</a><a href='/guix/refs/?id=79670e4bc6afb02d9a16d31e10ca4a31cbefff4f'>refs</a><a href='/guix/log/'>log</a><a href='/guix/tree/?id=79670e4bc6afb02d9a16d31e10ca4a31cbefff4f'>tree</a><a href='/guix/commit/?id=79670e4bc6afb02d9a16d31e10ca4a31cbefff4f'>commit</a><a href='/guix/diff/?id=79670e4bc6afb02d9a16d31e10ca4a31cbefff4f'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/'>
<input type='hidden' name='id' value='79670e4bc6afb02d9a16d31e10ca4a31cbefff4f'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='content'><div id='summary'><pre>
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 Andy Wingo &lt;wingo@igalia.com&gt;
;;; Copyright © 2013-2017, 2019-2020, 2022, 2024 Ludovic Courtès &lt;ludo@gnu.org&gt;
;;; Copyright © 2015 Sou Bunnbu &lt;iyzsong@gmail.com&gt;
;;; Copyright © 2018, 2019 Timothy Sample &lt;samplet@ngyro.com&gt;
;;; Copyright © 2019 Jan (janneke) Nieuwenhuizen &lt;janneke@gnu.org&gt;
;;; Copyright © 2019 Tim Gesthuizen &lt;tim.gesthuizen@yahoo.de&gt;
;;; Copyright © 2020 shtwzrd &lt;shtwzrd@protonmail.com&gt;
;;; Copyright © 2020 Jakub Kądziołka &lt;kuba@kadziolka.net&gt;
;;; Copyright © 2020 Alex Griffin &lt;a@ajgrf.com&gt;
;;; Copyright © 2021 Brice Waegeneire &lt;brice@waegenei.re&gt;
;;; Copyright © 2021 Oleg Pykhalov &lt;go.wigust@gmail.com&gt;
;;; Copyright © 2021 Josselin Poiret &lt;josselin.poiret@protonmail.ch&gt;
;;; Copyright © 2022 Chris Marusich &lt;cmmarusich@gmail.com&gt;
;;; Copyright © 2022 Maxim Cournoyer &lt;maxim.cournoyer@gmail.com&gt;
;;; Copyright © 2023 muradm &lt;mail@muradm.net&gt;
;;; Copyright © 2024 Zheng Junjie &lt;873216071@qq.com&gt;
;;; Copyright © 2024 Tomas Volf &lt;~@wolfsden.cz&gt;
;;;
;;; 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 &lt;http://www.gnu.org/licenses/&gt;.

(define-module (gnu services xorg)
  #:autoload   (gnu services sddm) (sddm-service-type)
  #:use-module (gnu artwork)
  #:use-module (gnu services)
  #:use-module (gnu services configuration)
  #:use-module (gnu services shepherd)
  #:use-module (gnu system keyboard)
  #:use-module (gnu system pam)
  #:use-module (gnu system privilege)
  #:use-module (gnu services base)
  #:use-module (gnu services dbus)
  #:use-module (gnu packages base)
  #:use-module (gnu packages guile)
  #:use-module (gnu packages xorg)
  #:use-module (gnu packages fonts)
  #:use-module (gnu packages gl)
  #:use-module (gnu packages glib)
  #:use-module (gnu packages display-managers)
  #:use-module (gnu packages freedesktop)
  #:use-module (gnu packages gnustep)
  #:use-module (gnu packages gnome)
  #:use-module (gnu packages admin)
  #:use-module (gnu packages bash)
  #:use-module (gnu packages linux)
  #:use-module (gnu system shadow)
  #:use-module (guix build-system glib-or-gtk)
  #:use-module (guix build-system trivial)
  #:use-module (guix gexp)
  #:use-module (guix store)
  #:use-module ((guix modules) #:select (source-module-closure))
  #:use-module (guix packages)
  #:use-module (guix derivations)
  #:use-module (guix records)
  #:use-module (guix deprecation)
  #:use-module (guix utils)
  #:use-module (srfi srfi-1)
  #:use-module (srfi srfi-9)
  #:use-module (srfi srfi-26)
  #:use-module (ice-9 format)
  #:use-module (ice-9 match)
  #:export (xorg-configuration
            xorg-configuration?
            xorg-configuration-modules
            xorg-configuration-fonts
            xorg-configuration-drivers
            xorg-configuration-resolutions
            xorg-configuration-extra-config
            xorg-configuration-server
            xorg-configuration-server-arguments
            xorg-configuration-keyboard-layout

            %default-xorg-modules
            %default-xorg-fonts
            %default-xorg-server-arguments

            xorg-wrapper
            xorg-start-command
            xorg-start-command-xinit
            xinitrc
            xorg-server-service-type
            startx-command-service-type

            %default-slim-theme
            %default-slim-theme-name

            slim-configuration
            slim-configuration?
            slim-configuration-slim
            slim-configuration-allow-empty-passwords?
            slim-configuration-auto-login?
            slim-configuration-default-user
            slim-configuration-theme
            slim-configuration-theme-name
            slim-configuration-xauth
            slim-configuration-shepherd
            slim-configuration-auto-login-session
            slim-configuration-xorg
            slim-configuration-display
            slim-configuration-vt
            slim-configuration-sessreg

            slim-service-type

            screen-locker-configuration
            screen-locker-configuration?
            screen-locker-configuration-name
            screen-locker-configuration-program
            screen-locker-configuration-allow-empty-password?
            screen-locker-configuration-using-pam?
            screen-locker-configuration-using-setuid?
            screen-locker-service-type
            screen-locker-service  ; deprecated

            localed-configuration
            localed-configuration?
            localed-service-type

            dconf-keyfile
            dconf-profile
            dconf-profile-name
            dconf-profile-content
            dconf-profile-keyfile
            dconf-service-type

            gdm-configuration
            gdm-service-type

            handle-xorg-configuration
            set-xorg-configuration))

;;; Commentary:
;;;
;;; Services that relate to the X Window System.
;;;
;;; Code:

(define %default-xorg-modules
  ;; Default list of modules loaded by the server.  When multiple drivers
  ;; match, the first one in the list is loaded.
  (list xf86-video-vesa
        xf86-video-fbdev
        xf86-video-amdgpu
        xf86-video-ati
        xf86-video-cirrus
        xf86-video-intel
        xf86-video-mach64
        xf86-video-nouveau
        xf86-video-nv
        xf86-video-sis

        ;; Libinput is the new thing and is recommended over evdev/synaptics:
        ;; &lt;http://who-t.blogspot.fr/2015/01/xf86-input-libinput-compatibility-with.html&gt;.
        xf86-input-libinput
        xf86-input-evdev
        xf86-input-mouse))

(define %default-xorg-fonts
  ;; Default list of fonts available to the X server.
  (list (file-append font-alias &quot;/share/fonts/X11/75dpi&quot;)
        (file-append font-alias &quot;/share/fonts/X11/100dpi&quot;)
        (file-append font-alias &quot;/share/fonts/X11/misc&quot;)
        (file-append font-alias &quot;/share/fonts/X11/cyrillic&quot;)
        (file-append font-misc-misc               ;default fonts for xterm
                     &quot;/share/fonts/X11/misc&quot;)
        (file-append font-adobe75dpi &quot;/share/fonts/X11/75dpi&quot;)))

(define %default-xorg-server-arguments
  ;; Default command-line arguments