(add-to-load-path "/home/thomas/guixsd/modules/tms")
(use-modules
 (gnu)
 (gnu system)
 (gnu system nss)
 (gnu packages libusb)
 (guix monads)
 (guix store)
 (ice-9 rdelim)
 (linux-nonfree)
 (fpm2))

(use-service-modules
 desktop base xorg ssh avahi dbus xorg networking cups)

(use-package-modules
 avahi xorg certs wm zip code wget admin emacs tmux haskell
 ssh linux disk file gnuzilla version-control maths guile crypto gnupg
 password-utils pdf mail rsync suckless gnome video xdisorg
 terminals ssh music conkeror image-viewers package-management dillo 
 tex tor libreoffice readline scribus adns games fontutils gnunet
 networking connman lisp certs cryptsetup)

(define hp-laptop-monitor-settings
  (call-with-input-file "/home/thomas/guixsd/dotfiles/etc/X11/xorg.conf.d/90-monitor.conf" read-string))

(define %guix-daemon-config
  (guix-configuration
   (extra-options '("--max-jobs=2" "--cores=2"))))

(operating-system
  (host-name "hitpoints")
  (timezone "Europe/Oslo")
  (locale "en_US.UTF-8")

  (kernel linux-nonfree)
  (firmware (cons* intel-iwlwifi-firmware-non-free %base-firmware))

  (bootloader (grub-configuration (device "/dev/disk/by-id/ata-INTEL_SSDSC2CT240A4_CVKI246301DN240DGN")))
  (swap-devices '("/dev/disk/by-label/swap"))
  (file-systems (cons* (file-system
                        (device "rootfs")
                        (title 'label)
                        (mount-point "/")
                        (type "ext4"))
                       (file-system
                        (device "nixos-root")
                        (title 'label)
                        (mount-point "/home/thomas/disk")
                        (type "ext4")
                        (create-mount-point? #t))
                      %base-file-systems))

  (issue "Remember Mercury.")
  
  (users (list (user-account
                (name "thomas")
                (comment "This should be interesting...")
                (group "users")
                (supplementary-groups '("wheel" "netdev" "audio" "video"
                                        "lp" "tor" "lpadmin" "avahi"
                                        "users"))
                (home-directory "/home/thomas"))))

  ;;; Maybe use or adapt alezost-guile al/places.scm?
  ;;; Add visudo check into sudoers-file PROC - patch into GuixSD.
  (sudoers-file (local-file "/home/thomas/guixsd/dotfiles/etc/sudoers"))
  (hosts-file (local-file "/home/thomas/guixsd/dotfiles/etc/hosts"))

  (packages
   (cons*
    i3-wm i3status 		     ;desktop environments
                                        ;useful tools
    avahi zip unzip tar tmux htop tree mosh ;wicd
    the-silver-searcher psmisc wget file strace
    inotify-tools wgetpaste rsync dmenu openssh lsh
    feh stow mcelog readline libcap wcalc fontconfig

                                        ; X
    xbindkeys xterm  xmodmap setxkbmap  xclip xkill xbacklight
    xorg-server xf86-input-evdev xf86-video-fbdev xf86-video-intel
    xf86-input-synaptics xev xdpyinfo xrdb xrandr

                                        ; laptop specific
    acpi freefall

                                        ; dev
    git gnu-make

                                        ; misc tools
    units gnuplot

					; media video audio music images
    mps-youtube mpv alsa-utils moc

					; terminal emulators
    st termite

                                        ; Networking, crypto & security
    tomb gnupg pwgen tor torsocks onionshare nmap adns iodine gnunet
    gnunet-gtk connman
    ;;fpm2

                                        ;for HTTPS access
    nss-certs

                                        ; web browser
    icecat conkeror dillo

					; email
    claws-mail

                                        ; document conversion and office
    ghc-pandoc texlive libreoffice scribus

                                        ; emacs
    emacs emacs-guix emacs-magit-popup emacs-smart-mode-line
    emacs-rainbow-delimiters emacs-rainbow-identifiers
    emacs-scheme-complete emacs-neotree emacs-ag flycheck
    emacs-undo-tree emacs-fill-column-indicator
    emacs-scheme-complete emacs-pdf-tools emacs-solarized-theme
    geiser guile-2.0 paredit


                                        ; pdf
    zathura zathura-cb zathura-djvu zathura-pdf-poppler
    zathura-ps qpdf

                                        ; Games
    hyperrogue minetest laby
    %base-packages))

  (services
   (cons*
    (console-keymap-service "us")
    (service cups-service-type
             (cups-configuration
              (web-interface? #t)
              (browsing? #t)
              (default-paper-size "a4")))
    ;;(dhcp-client-service)
    ;;(connman)
    (service connman-service-type
             (connman-configuration
              (disable-vpn? #f)))
    (service wpa-supplicant-service-type wpa-supplicant);connman) ; ??
    (tor-service (local-file "/home/thomas/guixsd/dotfiles/etc/tor/torrc"))

    (screen-locker-service xlockmore "xlock -mode blank")

    ;; Desktop services, with some changes.
    ;;(slim-service)
    (slim-service-type config =>
                       (slim-configuration
                        (inherit config)
                        (startx (xorg-start-command
                                 #:configuration-file
                                 (xorg-configuration-file
                                  #:extra-config
                                  (list hp-laptop-monitor-settings))))))
    (simple-service 'mtp udev-service-type (list libmtp))

    ;; The D-Bus clique.
    (avahi-service)
    ;(wicd-service)
    (udisks-service)
    (upower-service)
    (colord-service)
    (geoclue-service)
    (polkit-service)
    (elogind-service)
    (dbus-service)

    (ntp-service)

    (modify-services
     %base-services
     ;; Disable substitutes altogether.
     (guix-service-type config => %guix-daemon-config))))

  ;; Allow resolution of '.local' host names with mDNS.
  (name-service-switch %mdns-host-lookup-nss)
  )