;;; PantherX System Configuration Module
;;; This module supports configuration modules for PantherX OS definitions
;;;
;;; Reza Alizadeh Majd <r.majd@pantherx.org>
;;; Franz Geffke <franz@pantherx.org>
;;;

(define-module (px system config)
  #:use-module (gnu bootloader)
  #:use-module (gnu bootloader u-boot)
  #:use-module (gnu services)
  #:use-module (gnu system)
  #:use-module (gnu system accounts)
  #:use-module (gnu system nss)
  #:use-module (gnu system file-systems)
  #:use-module (gnu system shadow)
  #:use-module (nongnu packages linux)
  #:use-module (nongnu system linux-initrd)
  #:use-module (px packages base)
  #:use-module (px services base)
  #:use-module (px system os)
  #:use-module (guix gexp)
  #:use-module (guix channels)
  #:use-module (srfi srfi-1)
  #:export (px-core-os

            px-desktop-os
            px-desktop-ee-os
            px-new-desktop

            px-server-os
            px-server-ee-os

            px-core-arm-os
            px-gui-arm-os
            px-desktop-arm-os

            %px-server-open-ports-common
            %default-pantherx-channel)

  ;; Re-export for convenience
  #:re-export (%px-core-services

                px-desktop-service-type

                %px-desktop-services
                %px-desktop-ee-services

                %px-server-services
                %px-server-ee-services

                %px-core-arm-services
                %px-gui-arm-services
                %px-desktop-arm-services

                %px-core-packages

                %px-desktop-packages-gtk
                %px-desktop-packages-qt
                %px-desktop-packages
                %px-desktop-ee-packages

                %px-server-packages
                %px-server-ee-packages
                %px-core-arm-packages
                %px-gui-arm-packages))

;;;
;;; PantherX Desktop OS defintions
;;;

(define %px-desktop-swap-devices
  (list (swap-space
          (target "/swapfile"))))

(define %px-server-open-ports-common
  '(("tcp" "ssh" "http" "https")))

;; For use in unattended-upgrade-service-type
(define %default-pantherx-channel
  (channel
   (name 'pantherx)
   (branch "master")
   (url "https://channels.pantherx.org/git/panther.git")
   (introduction
    (make-channel-introduction
     "54b4056ac571611892c743b65f4c47dc298c49da"
     (openpgp-fingerprint
      "A36A D41E ECC7 A871 1003  5D24 524F EB1A 9D33 C9CB")))))

;;;
;;; CORE
;;;

(define* (px-core-os os-config
                     #:key (kernel 'libre)
                     (templates '())
                     (open-ports #f)
                     (authorized-keys '()))
  "returns operating-system definition for px-core-os, based on config"
  (make-os os-config
           #:kernel kernel
           #:open-ports open-ports
           #:authorized-keys authorized-keys
           #:templates templates
           #:default-packages %px-core-packages
           #:default-services %px-core-services))

;;;
;;; DESKTOP
;;;

(define* (px-desktop-os os-config
                        #:key (kernel 'nonlibre)
                        (templates '())
                        (open-ports #f)
                        (authorized-keys '()))
  (make-os (operating-system
             (inherit os-config)
             (swap-devices (prepare-swap-devices os-config
                                                 %px-desktop-swap-devices)))
           #:kernel kernel
           #:open-ports open-ports
           #:authorized-keys authorized-keys
           #:templates templates
           #:default-packages %px-desktop-packages
           #:default-services %px-desktop-services))

(define* (px-desktop-ee-os os-config
                           #:key (kernel 'nonlibre)
                           (templates '())
                           (open-ports #f)
                           (authorized-keys '()))
  (make-os (operating-system
             (inherit os-config)
             (swap-devices (prepare-swap-devices os-config
                                                 %px-desktop-swap-devices)))
           #:kernel kernel
           #:open-ports open-ports
           #:authorized-keys authorized-keys
           #:templates templates
           #:default-packages %px-desktop-ee-packages
           #:default-services %px-desktop-ee-services))

(define* (px-new-desktop os-config
                         #:key (kernel 'nonlibre)
                         (open-ports #f)
                         (authorized-keys '())
                         (templates '()))
  (make-os os-config
           #:kernel kernel
           #:open-ports open-ports
           #:authorized-keys authorized-keys
           #:templates templates
           #:default-packages %px-desktop-packages
           #:default-services %px-desktop-services))

;;;
;;; SERVER
;;;

(define* (px-server-os os-config
                       #:key (kernel 'libre)
                       (templates '())
                       (open-ports %px-server-open-ports-common)
                       (authorized-keys '()))
  (make-os os-config
           #:kernel kernel
           #:open-ports open-ports
           #:authorized-keys authorized-keys
           #:templates templates
           #:default-packages %px-server-packages
           #:default-services %px-server-services))

(define* (px-server-ee-os os-config
                          #:key (kernel 'libre)
                          (templates '())
                          (open-ports %px-server-open-ports-common)
                          (authorized-keys '()))
  (make-os os-config
           #:kernel kernel
           #:open-ports open-ports
           #:authorized-keys authorized-keys
           #:templates templates
           #:default-packages %px-server-ee-packages
           #:default-services %px-server-ee-services))

;;;
;;; ARM
;;;

(define px-core-arm-os
  (operating-system
    (host-name "pantherx")
    (timezone "Europe/Berlin")
    (locale "en_US.utf8")

    (bootloader (bootloader-configuration
                  (bootloader u-boot-bootloader)
                  (targets '("/dev/vda"))))

    (file-systems (cons (file-system
                          (device "/dev/sda1")
                          (mount-point "/")
                          (type "ext4")) %base-file-systems))

    (users (cons* (user-account
                    (name "panther")
                    (comment "default user")
                    (group "users")
                    (password (crypt "pantherx" "$6$abc"))
                    (supplementary-groups '("wheel" "netdev" "lp" "video"
                                            "audio"))) %base-user-accounts))

    (packages %px-core-arm-packages)
    (services
     %px-core-arm-services)
    (name-service-switch %mdns-host-lookup-nss)))

(define px-gui-arm-os
  (operating-system
    (inherit px-core-arm-os)
    (host-name "pantherx")
    (packages %px-gui-arm-packages)
    (services
     %px-gui-arm-services)))

(define (px-desktop-arm-os os-config)
  (let ((selected-packages (prepare-packages os-config
                                             %px-desktop-arm-packages))
        (selected-services (prepare-services os-config
                                             %px-desktop-arm-services)))
    (operating-system
      (inherit os-config)

      (packages selected-packages)
      (services
       selected-services)

      (name-service-switch %mdns-host-lookup-nss))))