| 1 | (use-modules (gnu) (gnu system nss)
|
|---|
| 2 | (srfi srfi-1))
|
|---|
| 3 |
|
|---|
| 4 | (use-service-modules xorg
|
|---|
| 5 | networking
|
|---|
| 6 | desktop
|
|---|
| 7 | databases
|
|---|
| 8 | web
|
|---|
| 9 | docker)
|
|---|
| 10 |
|
|---|
| 11 | (use-package-modules geo
|
|---|
| 12 | linux)
|
|---|
| 13 |
|
|---|
| 14 | ;; Run powertop --autotune on boot
|
|---|
| 15 | (define %powertop-service
|
|---|
| 16 | (simple-service 'powertop activation-service-type
|
|---|
| 17 | #~(zero? (system* #$(file-append powertop "/sbin/powertop")
|
|---|
| 18 | "--auto-tune"))))
|
|---|
| 19 |
|
|---|
| 20 | ;; My modification of %desktop-services
|
|---|
| 21 | (define %my-services
|
|---|
| 22 | (cons*
|
|---|
| 23 | (service slim-service-type)
|
|---|
| 24 |
|
|---|
| 25 | (service inputattach-service-type
|
|---|
| 26 | (inputattach-configuration
|
|---|
| 27 | (device "/dev/ttyS4")
|
|---|
| 28 | (device-type "wacom")))
|
|---|
| 29 | (postgresql-service #:extension-packages (list postgis))
|
|---|
| 30 | (service docker-service-type)
|
|---|
| 31 | (service tor-service-type)
|
|---|
| 32 | (extra-special-file "/usr/bin/env"
|
|---|
| 33 | (file-append coreutils "/bin/env"))
|
|---|
| 34 | %powertop-service
|
|---|
| 35 | %desktop-services))
|
|---|
| 36 |
|
|---|
| 37 | ;; Remove gdm
|
|---|
| 38 | (set! %my-services
|
|---|
| 39 | (remove (lambda (service)
|
|---|
| 40 | (eq? (service-kind service) gdm-service-type))
|
|---|
| 41 | %my-services))
|
|---|
| 42 |
|
|---|
| 43 | (operating-system
|
|---|
| 44 | (host-name "Libreboot")
|
|---|
| 45 | (timezone "Europe/Moscow")
|
|---|
| 46 | (locale "ru_RU.utf8")
|
|---|
| 47 | (kernel-arguments '("processor.max_cstate=2"))
|
|---|
| 48 | (bootloader (bootloader-configuration
|
|---|
| 49 | (bootloader grub-bootloader)
|
|---|
| 50 | (target "/dev/sda")))
|
|---|
| 51 |
|
|---|
| 52 | (file-systems (cons* (file-system
|
|---|
| 53 | (device (file-system-label "root"))
|
|---|
| 54 | (mount-point "/")
|
|---|
| 55 | (type "ext4"))
|
|---|
| 56 | %base-file-systems))
|
|---|
| 57 |
|
|---|
| 58 | (swap-devices `("/dev/sda5"))
|
|---|
| 59 |
|
|---|
| 60 | (users (cons (user-account
|
|---|
| 61 | (name "w96k")
|
|---|
| 62 | (group "users")
|
|---|
| 63 | (supplementary-groups '("wheel" "netdev"
|
|---|
| 64 | "audio" "video"
|
|---|
| 65 | "docker"))
|
|---|
| 66 | (home-directory "/home/w96k"))
|
|---|
| 67 | %base-user-accounts))
|
|---|
| 68 |
|
|---|
| 69 | (packages
|
|---|
| 70 | (append
|
|---|
| 71 | (map specification->package
|
|---|
| 72 | '(
|
|---|
| 73 | "curl"
|
|---|
| 74 | "stow"
|
|---|
| 75 | "icecat"
|
|---|
| 76 | "next"
|
|---|
| 77 | "ratpoison"
|
|---|
| 78 | "stumpwm"
|
|---|
| 79 | "i3-wm"
|
|---|
| 80 | "inputattach"
|
|---|
| 81 | "font-dejavu"
|
|---|
| 82 | "mailutils"
|
|---|
| 83 | "font-terminus"
|
|---|
| 84 | "emacs-no-x-toolkit"
|
|---|
| 85 | "emacs-use-package"
|
|---|
| 86 | "emacs-guix"
|
|---|
| 87 | "emacs-pdf-tools"
|
|---|
| 88 | "lilypond"
|
|---|
| 89 | "fontconfig"
|
|---|
| 90 | "git"
|
|---|
| 91 | "darcs"
|
|---|
| 92 | "htop"
|
|---|
| 93 | "netcat"
|
|---|
| 94 | "nss-certs"
|
|---|
| 95 | "openssh"
|
|---|
| 96 | "vim"
|
|---|
| 97 | "xinit"
|
|---|
| 98 | "xf86-video-intel"
|
|---|
| 99 | "x86-energy-perf-policy"
|
|---|
| 100 | "xterm"
|
|---|
| 101 | "xinit"
|
|---|
| 102 | "rxvt-unicode"
|
|---|
| 103 | "node"
|
|---|
| 104 | "ruby"
|
|---|
| 105 | "bundler"
|
|---|
| 106 | "sbcl"
|
|---|
| 107 | "docker"
|
|---|
| 108 | "docker-cli"
|
|---|
| 109 | "nix"
|
|---|
| 110 | "postgresql"
|
|---|
| 111 | "ghc"
|
|---|
| 112 | "cabal-install"
|
|---|
| 113 | "php"
|
|---|
| 114 | "alsa-utils"
|
|---|
| 115 | "mc"
|
|---|
| 116 | "dmidecode"
|
|---|
| 117 | "xorg-server"
|
|---|
| 118 | "xorg-server-xwayland"
|
|---|
| 119 | "wayland"
|
|---|
| 120 | "gnunet"
|
|---|
| 121 | "adwaita-icon-theme"
|
|---|
| 122 | "mesa"
|
|---|
| 123 | "glibc-utf8-locales"))
|
|---|
| 124 | %base-packages))
|
|---|
| 125 |
|
|---|
| 126 | ;; Use the "desktop" services, which include the X11
|
|---|
| 127 | ;; log-in service, networking with NetworkManager, and more.
|
|---|
| 128 |
|
|---|
| 129 | (services %my-services)
|
|---|
| 130 |
|
|---|
| 131 | ;; Allow resolution of '.local' host names with mDNS.
|
|---|
| 132 | (name-service-switch %mdns-host-lookup-nss))
|
|---|
