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