linode-guix-system-configuration/gnucode.me-initial-config.scm

;; this was the original file that I used to create my remote linode

(add-to-load-path (dirname (current-filename)))

(use-modules (gnu)
             (guix modules)
             (public-keys))
(use-service-modules networking
                     ssh)
(use-package-modules admin
                     certs
                     package-management
                     ssh
                     tls)

(operating-system
 (host-name "locke-lamora")
 (timezone "America/Chicago")
 (locale "en_US.UTF-8")
 ;; This goofy code will generate the grub.cfg
 ;; without installing the grub bootloader on disk.
 (bootloader (bootloader-configuration
              (bootloader
               (bootloader
                (inherit grub-bootloader)
                (installer #~(const #t))))))
 (file-systems (cons (file-system
                      (device "/dev/sda")
                      (mount-point "/")
                      (type "ext4"))
                     %base-file-systems))

 (swap-devices (list
                (swap-space (target "/dev/sdb"))))

 (initrd-modules (cons "virtio_scsi"    ; Needed to find the disk
                       %base-initrd-modules))

 (users (cons (user-account
               (name "joshua")
               (group "users")
               ;; Adding the account to the "wheel" group
               ;; makes it a sudoer.
               (supplementary-groups '("wheel"))
               (home-directory "/home/joshua"))
              %base-user-accounts))

 (sudoers-file
  (plain-file "sudoers"
              (string-append (plain-file-content %sudoers-specification)
                             (format #f "~a ALL = NOPASSWD: ALL~%"
                                     "joshua"))))

 (packages (cons* nss-certs             ;for HTTPS access
                  openssh-sans-x
                  %base-packages))

 (services (cons*
            (service dhcp-client-service-type)
            (service openssh-service-type
                     (openssh-configuration
                      (openssh openssh-sans-x)
                      (password-authentication? #f)
                      (authorized-keys
                       `(("joshua" ,(plain-file "id_rsa.pub" %joshua-ssh-key))
                         ("root" ,(plain-file "id_rsa.pub" %joshua-ssh-key))))))
            %base-services)))