;;; Tyreunom's system administration and configuration tools.

;;;

;;; Copyright © 2019 Julien Lepiller <julien@lepiller.eu>

;;;

;;; This program 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 program 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 program.  If not, see <http://www.gnu.org/licenses/>.

(use-modules (gnu))

(use-modules (gnu system))

(use-modules (gnu bootloader) (gnu bootloader grub))

(use-modules (gnu services dns))

(use-modules (gnu services web))

(use-modules (config os))

(let ((system (tyreunom-desktop-os "tachikoma")))

  (operating-system

    (inherit system)

    (bootloader

      (bootloader-configuration

        (target "/dev/sda")

        (bootloader grub-bootloader)))

    (mapped-devices

      (list (mapped-device

	      (source (uuid "858ad8c7-beea-4bd7-97f2-097456e18722"))

	      (target "my-root")

	      (type luks-device-mapping))))

    (file-systems (cons (file-system

			  (device (file-system-label "my-root"))

                          (mount-point "/")

                          (type "ext4")

			  (dependencies mapped-devices))

                        %base-file-systems))

    (users (map

	     (lambda (user)

	       (if (equal? (user-account-name user) "tyreunom")

		 (user-account

		   (inherit user)

		   (supplementary-groups

		     (cons "libvirt" (user-account-supplementary-groups user))))

		 user))

	     (operating-system-users system)))

    (services

      (cons*

	(service libvirt-service-type

		 (libvirt-configuration

		   (unix-sock-group "libvirt")))

	(service virtlog-service-type

		 (virtlog-configuration

		   (max-clients 1000)))

        desktop-services))))