(define-module (wed system pc)
  #:use-module (wed packages linux-custom)
  #:use-module (srfi srfi-1)
  #:use-module (gnu)
  #:use-module (gnu system nss)
  #:use-module (gnu system keyboard)
  #:use-module (gnu system locale)
  #:use-module (gnu services audio)
  #:use-module (gnu services sddm)
  #:use-module (gnu services xorg)
  #:use-module (gnu services desktop)
  #:use-module (gnu services networking)
  #:use-module (gnu services ssh)
  #:use-module (gnu services dbus)
  #:use-module (gnu services avahi)
  #:use-module (gnu services sound))
(use-package-modules libusb python guile xorg)

(define %base-services
  (modify-services %base-services
    (udev-service-type config =>
                       (udev-configuration
            (inherit config)
            (udev wed-eudev)))
    ;; (guix-service-type config =>
    ;;                   (guix-configuration
    ;;                    (inherit config)
    ;;                    (use-substitutes? #f)
    ;;                    ;(extra-options '("--gc-keep-derivations"))
    ;;          ))
    ))

;; (define %desktop-services-without-gdm
;;   (remove (lambda (service)
;;             (eq? (service-kind service) gdm-service-type))
;;           %desktop-services))

(define %base-packages
  (lset-difference eq? %base-packages
           (map specification->package
            '("nano" "zile" "iw" "wireless-tools"
              "info-reader" "isc-dhcp" "bash-completion"))))

(operating-system
  (host-name "ur.mom.lol")
  (timezone "Europe/London")
  (locale-definitions `(,(locale-definition
              (name "en_GB.UTF-8")
              (source "en_GB")
              (charset "UTF-8"))))
  (locale "en_GB.utf8")

  (initrd-modules '("ahci" "usbhid"))
  (firmware '())
  (kernel-arguments '("iommu=soft,rootflags=compress=lzo,autodefrag"))
  (skeletons '())

  (bootloader (bootloader-configuration
           (bootloader grub-efi-bootloader)
           (target "/boot/efi")
           (timeout 2)))
  (file-systems (cons* (file-system
             (device (file-system-label "root"))
             (mount-point "/")
             (options "compress=lzo,autodefrag")
             (type "btrfs"))
               (file-system
             ;;(device (uuid "9A02-78AB" 'fat))
             (device (file-system-label "EFI"))
             (mount-point "/boot/efi")
             (type "vfat"))
               %base-file-systems))
  (swap-devices '("/dev/sda2"))

  (keyboard-layout (keyboard-layout "us" "dvp"
                    #:options
                    '("ctrl:swap_lalt_lctl"
                      "caps:swapescape"
                      "keypad:pointerkeys"
                      "terminate:ctrl_alt_bksp")))

  (users (cons (user-account
        (name "wednesday")
        (group "users")
        (supplementary-groups '("wheel" "audio" "video" "netdev"))
        (home-directory "/home/wednesday"))
           %base-user-accounts))

  (name-service-switch %mdns-host-lookup-nss) ;; look into
  (packages (append (map specification->package
             (append
              ;; misc
              '("nss-certs" "emacs" "glibc-utf8-locales" "git" "python" "guile-colorized" "guile-readline")
              ;; x
              '("emacs-exwm" "font-dejavu" "xmodmap" "xrandr")))
            %base-packages))
  (services (append
         ;; net
         `(,(service ntp-service-type)
           ,(static-networking-service "enp3s0" "192.168.0.20"
                       #:gateway "192.168.0.1"
                       #:name-servers '("1.1.1.1" "8.8.8.8" "4.4.4.4"))
           ,(service openssh-service-type
             (openssh-configuration
              (permit-root-login 'without-password)
              (password-authentication? #f)
              (use-pam? #f)
              (port-number 2222))))
         ;; dbus
         `(,(service avahi-service-type
             (avahi-configuration (host-name #f)
                          (publish? #t)
                          (ipv4? #t)
                          (ipv6? #f)
                          (wide-area? #f)
                          (domains-to-browse '())))
           ,(accountsservice-service)
           ,(service polkit-service-type)
           ,(dbus-service))
         ;; x
         `(,(sddm-service (sddm-configuration
                       (auto-login-user "wednesday")
                       (auto-login-session "exwm.desktop")
                       (relogin? #t)
                   (xorg-configuration (xorg-configuration
                                (modules (list xf86-video-nouveau xf86-input-evdev))
                            (drivers '("nouveau"))
                            (resolutions '((1920 1080) (1440 900)))
                            (extra-config '("Section \"InputClass\"
    Identifier      \"evdev keyboard catchall\"
    MatchIsKeyboard \"on\"
    Option          \"AutoRepeat\" \"250 10\"
EndSection\n"
                                    "Section \"InputClass\"
    Identifier      \"evdev mouse pointer catchall\"
    MatchIsPointer  \"yes\"
    Option          \"AccelerationProfile\" \"-1\"
    Option          \"AccelerationScheme\" \"none\"
    Option          \"AccelSpeed\" \"-1\"
    #Option          \"AccelerationProfile\" \"7\"
    #Option          \"AdaptiveDeceleration\" \"10\"
    #Option          \"AccelerationProfileAveraging\" \"false\"
EndSection\n"
                                    "Section \"Screen\"
    Identifier      \"screen-nouveau\"
    Option         \"metamodes\" \"VGA-0: 1920x1080_75.00 +0+0 {ForceCompositionPipeline=on, ForceFullCompositionPipeline=on}, DVI-D-0: 1440x900 +1920+56 {ForceCompositionPipeline=on, ForceFullCompositionPipeline=on}\"
    Option          \"HWCursor\" \"on\"
    Option          \"AccelMethod\" \"exa\"
    Option          \"NoAccel\" \"off\"
    Option          \"ShadowFB\" \"off\"
    Option          \"WrappedFB\" \"off\"
    Option          \"GLXVBlank\" \"off\"
    Option          \"ZaphodHeads\" \"VGA-1,DVI-D-1\"
    Option          \"PageFlip\" \"on\"
    Option          \"SwapLimit\" \"3\"
    Option          \"DRI\" \"3\"
    SubSection      \"Display\"
        Depth       24
    EndSubSection
EndSection\n"
                                    "Section \"Monitor\"
    Identifier      \"VGA-1\"
Modeline \"1920x1080_75.00\" 220.64 1920 2056 2264 2608 1080 1081 1084 1128 -HSync +Vsync
EndSection\n"
                                    "Section \"Monitor\"
    Identifier      \"DVI-D-1\"
    Option          \"RightOf\" \"VGA-1\"
EndSection\n"))
                                (keyboard-layout keyboard-layout)))))
           ,x11-socket-directory-service)

         ;; misc
         `(,(extra-special-file "/usr/bin/env"
                    (file-append coreutils "/bin/env"))
           ,(extra-special-file "/usr/local/bin/guile"
                    (file-append guile-2.2 "/bin/guile"))
           ,(extra-special-file "/usr/local/bin/python"
                    (file-append python "/bin/python3.7"))
           ,(simple-service 'mtp udev-service-type (list libmtp))
           ,(service alsa-service-type)
           ,(service mpd-service-type
             (mpd-configuration
              (user "wednesday")
              (music-dir "/home/wednesday/Music/")
              (playlist-dir "/home/wednesday/.config/mpd/playlists")
                          (db-file "/home/wednesday/.config/mpd/db")
                          (state-file "/home/wednesday/.config/mpd/state")
                          (sticker-file "/home/wednesday/.config/mpd/sticker.sql")
                          (port "6600")
                          (address "localhost"))))
         %base-services)))