;; -*- mode: scheme; -*-

(use-modules (gnu)
             (gnu home)
             (gnu home services)
             (gnu home services shells)
             (gnu home services dotfiles)
             (gnu services)
             (gnu services admin)
             (guix gexp))
(use-service-modules cups
                     desktop
                     guix
                     networking
                     ssh
                     xorg)

(define user-packages
  (list "icecat"
        "mpv"
        "emacs"
        "emacs-geiser"
        "emacs-geiser-guile"
        "emacs-guix"
        "guile"
        "ripgrep"
        "fd"
        "make"
        "font-fira-sans"
        "font-fira-code"))

(define system-packages
  (list "htop" "git" "vim"))

(define muni-home
  (home-environment
    (services
     (append (list (service home-bash-service-type
                            (home-bash-configuration
                             (guix-defaults? #t)
                             (aliases '(("ll" . "ls -l")))
                             (variables `(("HISTSIZE" . "50000")))))
                   (service home-files-service-type
                            `((".guile" ,%default-dotguile)))
                   (service home-dotfiles-service-type
                            (home-dotfiles-configuration (directories '("./dotfiles"))))
                   (service home-xdg-configuration-files-service-type
                            `(("nano/nanorc" ,%default-nanorc))))
             %base-home-services))))

(operating-system
  (locale "en_US.utf8")
  (timezone "Europe/Berlin")
  (keyboard-layout (keyboard-layout "de"))
  (host-name "ashram")
  (issue "Welcome to my GNU/ashram, an ascetic's abode.")

  (users (cons* (user-account
                  (name "muni")
                  (comment "muni")
                  (group "users")
                  (home-directory "/home/muni")
                  (supplementary-groups '("wheel" "netdev" "audio" "video")))
                ;; "root" is implicit
                %base-user-accounts))

  (packages (append (map specification->package
                         (append user-packages system-packages))
                    %base-packages))

  (services
   (append (list (service openssh-service-type)
                 (service gnome-desktop-service-type)
                 (service guix-home-service-type
                          `(("muni" ,muni-home)))
                 (set-xorg-configuration
                  (xorg-configuration (keyboard-layout keyboard-layout))))
           %desktop-services))

  (bootloader (bootloader-configuration
                (bootloader grub-bootloader)
                (targets (list "/dev/sda"))
                (keyboard-layout keyboard-layout)))

  (swap-devices (list (swap-space
                        (target (uuid "e925b220-066c-45ea-9b8c-4cb6141dc6a3")))))

  (file-systems (append (list (file-system
                                (mount-point "/boot/efi")
                                (device (uuid "8066-63C2"
                                              'fat32))
                                (type "vfat"))
                              (file-system
                                (mount-point "/")
                                (device (uuid
                                         "f84f19c8-23f4-4c4a-b9cc-bc8cde2704a5"
                                         'ext4))
                                (type "ext4"))
                              (file-system
                                (mount-point "/home")
                                (device (uuid
                                         "3b69b95f-05db-47ed-b8b4-f1649ce8f6d8"
                                         'ext4))
                                (type "ext4"))) %base-file-systems)))