;; This is an operating system configuration template
;; for a "bare bones" setup, with no X11 display server.

(use-modules (gnu))
(use-service-modules networking
                     dbus
                     ssh
                     sysctl)
(use-package-modules certs
                     curl
                     ssh
                     rsync
                     tmux
                     version-control
                     vim)

(operating-system
  (host-name "computer")
  (timezone "America/New_York")
  (locale "en_US.UTF-8")

  (kernel-arguments
   '(;; Console resolution
     "gfxpayload=1440x900x16,1440x900"

     ;; console cursor. stops the blinking but the colors are bad
     "vt.cur.default=0x520032"

     "consoleblank=120"
     "quiet"))

  ;; Assuming /dev/sdX is the target hard disk, and "my-root" is
  ;; the label of the target root file system.
  (bootloader (grub-configuration (target "/dev/sda")
                                  (terminal-outputs '(console))))
  (file-systems (cons* (file-system
                        (device "my-root")
                        (title 'label)
                        (mount-point "/")
                        (type "ext4"))
                       (file-system
                        (device "home")
                        (title 'label)
                        (mount-point "/home")
                        (type "ext4"))
                      %base-file-systems))

  ;; This is where user accounts are specified.  The "root"
  ;; account is implicit, and is initially created with the
  ;; empty password.
  (users (cons (user-account
                (name "leo")
                (comment "")
                (group "users")

                ;; Adding the account to the "wheel" group
                ;; makes it a sudoer.  Adding it to "audio"
                ;; and "video" allows the user to play sound
                ;; and access the webcam.
                (supplementary-groups '("wheel" "netdev" "audio"))
                (home-directory (string-append "/home/" name)))
               %base-user-accounts))

  ;; Globally-installed packages.
  (packages (cons* curl
                   git
                   openssh
                   mosh
                   nss-certs
                   rsync
                   tmux
                   vim
                   %base-packages))

  (services
    (cons* (dbus-service)
           (gpm-service)
           (service openssh-service-type
                      (openssh-configuration
                        (password-authentication? #f)))
           (ntp-service)
           (wicd-service)
           (modify-services %base-services
             (guix-service-type config =>
                                (guix-configuration
                                  (inherit config)
                                  (substitute-urls '("https://berlin.guixsd.org https://mirror.hydra.gnu.org"))))))))