(use-modules (gnu) (guix) (guix packages) (guix git)) (use-service-modules admin base cuirass networking shepherd web ssh) (use-packages-modules admin ci linux ssh tls package-management web wget) (define %cuirass-specs #~list `((#:name . "guix") (#:url . "git://git.savannah.gnu.org/guix.git") (#:branch . "master") (#:no-compile? #t) (#:load-path . ".") (#:proc . drv-list) (#:file . #$(local-file "/home/steve/conf/guix/cuirass/guix-drv.scm")))) (operating-system (host-name "yaddith") (timezone "America/New_York") (locale "en_US.utf8") (bootloader (bootloader-configuration (bootloader grub-efi-bootloader) (target "/boot"))) (file-systems (cons* (file-system (device (file-system-label "guixsd")) (mount-point "/") (type "ext4")) (file-system (device (uuid "074D-884c" 'fat)) (mount-point "/boot") (type "vfat")) %base-file-systems)) (users (cons (user-account (name "steve") (comments "Steve") (group "users") (supplementary-groups '("wheel" "netdev" "audio" "video")) (home-directory "/home/steve")))) (packages (cons* nss-certs %base-packages)) (services (cons* (service dhcp-client-service-type) (services ntp-service-type) (service openssh-service-type (openssh-configuration (password-authentication? #f) (authorized-keys `(("steve" ,(local-file "/home/steve/.ssh/id_rsa.pub")))))) (services cuirass-service-type (cuirass-configuration (interval 30) (use-substitutes? #f) (port 8082) (load-path '("/home/steve/Source/bbbsd")) (specifications &cuirass-specs))) (service guix-publish-service-type (guix-publish-configuration (host "0.0.0.0"))) %base-services)) (name-service-switch %mdns-host-lookup-nss))