machines/marvin.scm

   1 ;; This is an operating system configuration template
   2 ;; for a "desktop" setup without full-blown desktop
   3 ;; environments.
   4
   5 (use-modules (gnu)
   6              (gnu system nss)
   7              (srfi srfi-1) ; for remove
   8              (gnu services base) ; for syslog service type
   9              (james linux-nonfree)) ; for blobs
  10 (use-service-modules ssh desktop cups admin mcron)
  11 (use-package-modules certs
  12                      fonts
  13                      lisp ;; for stumpwm
  14                      xorg)
  15
  16 (define garbage-collector-job
  17   #~(job "5 0 * * *"
  18          "guix gc -F 1G"))
  19
  20 (operating-system
  21   (host-name "marvin")
  22   (timezone "US/Eastern")
  23   (locale "en_US.UTF-8")
  24
  25   ;; Assuming /dev/sdX is the target hard disk, and "my-root"
  26   ;; is the label of the target root file system.
  27   (bootloader (grub-configuration (device "/dev/sda")))
  28
  29   (file-systems (cons (file-system
  30                         (device "root")
  31                         (title 'label)
  32                         (mount-point "/")
  33                         (type "ext4"))
  34                       %base-file-systems))
  35   (swap-devices '("/dev/sda3"))
  36   (users (cons (user-account
  37                 (name "james")
  38                 (comment "James Richardson")
  39                 (group "users")
  40                 (supplementary-groups '("wheel" "netdev"
  41                                         "audio" "video" "kvm"))
  42                 (home-directory "/home/james"))
  43                %base-user-accounts))
  44   (kernel linux-nonfree)
  45   (firmware (cons* iwlwifi-firmware-non-free %base-firmware))
  46   ;; Add a bunch of window managers; we can choose one at
  47   ;; the log-in screen with F1.
  48   (packages (cons* (list sbcl-stumpwm "bin") ;stumpwm
  49                    nss-certs               ;for HTTPS access
  50                    font-adobe100dpi
  51                    font-adobe75dpi
  52                    font-alias
  53                    font-dec-misc
  54                    font-misc-misc
  55                    font-terminus
  56                    font-util
  57                    %base-packages))
  58
  59
  60   ;; Use the "desktop" services, which include the X11
  61   ;; log-in service, networking with Wicd, and more.
  62   (services (cons* (service openssh-service-type (openssh-configuration))
  63                    (service cups-service-type (cups-configuration))
  64                    (service syslog-service-type (syslog-configuration
  65                                                   (config-file (plain-file "syslog.conf" "
  66                                                                            *.debug /var/log/debug
  67                                                                            "))))
  68                    (mcron-service (list garbage-collector-job))
  69                    ;(service rottlog-service-type (roittlog-configuration))
  70                    (remove (lambda (service)
  71                              (or (eq? (service-kind service)
  72                                       syslog-service-type)))
  73                    %desktop-services)))
  74
  75   ;; Allow resolution of '.local' host names with mDNS.
  76   (name-service-switch %mdns-host-lookup-nss))