;;; SPDX-License-Identifier: GPL-3.0-or-later
;;; SPDX-FileCopyrightText: 2026 Marek Paśnikowski <marek@marekpasnikowski.pl>

;;; COPYRIGHT NOTICE
;;;
;;; Copyright 2026, Marek Paśnikowski <marek@marekpasnikowski.pl>

;;; LICENSE NOTICE
;;;
;;; This library 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.
;;;
;;; This library 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 this library.
;;; If not, see <https://www.gnu.org/licenses/>.

(define-module (users id1001)
  #:use-module ( (gnu home)
                 #:prefix gnu:home:)
  #:use-module ( (gnu system accounts)
                 #:prefix gnu:system:accounts:)
  #:use-module ( (nongnu packages mozilla)
                 #:prefix nongnu:packages:mozilla:)
  #:use-module ( (sovereign services admin)
                 #:prefix sovereign:services:admin:)
  #:use-module ( (sovereign services fontutils)
                 #:prefix sovereign:services:fontutils:)
  #:use-module ( (sovereign systems)
                 #:prefix sovereign:systems:))

(define name
  "janusz")

(define home-environment
  (let
    ( (l-fontconfig (sovereign:services:fontutils:home-fontconfig-service-type #t
                                                                               #t
                                                                               "Noto")))
    (let
      ( (l-services (list sovereign:systems:bash-configuration
                          sovereign:services:admin:update-commands
                          l-fontconfig)))
      (gnu:home:home-environment
        (packages (cons* nongnu:packages:mozilla:firefox
                         sovereign:systems:common-home-environment-packages))
        (services l-services)))))

(define-public named-home-environment
  (list name
        home-environment))

(define-public user-account
  (gnu:system:accounts:user-account
    (name                 name)
    (password             #f)
    (group                "users")
    (supplementary-groups (list "wheel"))))