guixsd-configuration/config.scm

(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)
 (srfi srfi-1)
 (linux-nonfree)
; (wkhtmltopdf)
; (etc-symlinks)
; (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
 ssh linux disk file gnuzilla version-control maths guile crypto gnupg
 password-utils rsync suckless gnome video xdisorg
 terminals ssh image-viewers web-browsers pulseaudio
 tex tor readline adns fontutils gnunet package-management
 networking connman lisp certs cryptsetup fonts python
 bittorrent password-utils engineering graphviz shells compression
 gnome enlightenment dns ghostscript)

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

(define tms-desktop-services
  (remove (lambda (service)
            (eq? (service-kind service) wicd-service-type))
          %desktop-services))

(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 "Mercury.\n")

;;  (groups (cons (user-group (name "nixbld")) %base-groups))
  (users (list (user-account
                (name "thomas")
                (comment "This should be interesting...")
                (group "users")
                (supplementary-groups '("wheel" "netdev" "audio" "video"
                                        "lp" "tor" "lpadmin" "avahi"
                                        "users" "kvm" ;"nixbld"
                                        ))
                (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 hicolor-icon-theme   ;desktop environment

                                        ;useful tools
    avahi zip unzip tmux htop tree mosh unrar
    the-silver-searcher psmisc wget file strace
    inotify-tools wgetpaste rsync dmenu openssh lsh
    feh stow mcelog readline libcap wcalc graphviz xdotool
    ;; gvfs ; for automounting as user, check gvfsd as a service before
    ;; enabling

                                        ; fstools
    dosfstools
    
                                        ; 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 xfontsel

                                        ; audio
    pulseaudio

                                        ; font
    fontconfig xlsfonts
    font-inconsolata font-google-noto
    gs-fonts font-dejavu font-gnu-freefont-ttf
    font-adobe-source-han-sans font-wqy-zenhei
    ;;font-google-material-design-icons
    ;;font-gnu-unifont

                                        ; laptop specific
    acpi freefall

                                        ; dev
    git gnu-make python-3 binutils
    guile-lib

                                        ; misc tools
    units gnuplot

					; terminals and emulators
    st termite xonsh

                                        ; Networking, crypto & security
    ;;tomb
    gnupg pwgen tor torsocks nmap adns iodine
    connman transmission password-store
    ;;gnunet gnunet-gtk
    ;;isc-bind:utils
    ;;onionshare

                                        ;for HTTPS access
    nss-certs

                                        ; 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.2 paredit

    %base-packages))

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

    (modify-services tms-desktop-services
      (dbus-service config =>
                    #:services (list connman
                                     avahi))
      (slim-service-type config =>
                         (slim-configuration
                          (inherit config)
                          (startx (xorg-start-command
                                   #:configuration-file
                                   (xorg-configuration-file
                                    #:extra-config
                                    (list hp-laptop-monitor-settings))))))

      (guix-service-type config =>
                         (guix-configuration
                          (inherit config)
                          (extra-options '("--max-jobs=2" "--cores=2")))))

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