| 1 | ;; This is an operating system configuration template
|
| 2 | ;; for a "desktop" setup with Plasma.
|
| 3 |
|
| 4 | (use-modules (gnu) (gnu system nss) (srfi srfi-1))
|
| 5 | (use-service-modules desktop sddm xorg ssh)
|
| 6 | (use-package-modules gnome ssh admin fonts)
|
| 7 | (use-package-modules qt xorg tmux linux)
|
| 8 |
|
| 9 | (operating-system
|
| 10 | (host-name "plasma")
|
| 11 | (timezone "Asia/Shanghai")
|
| 12 | (locale "en_US.utf8")
|
| 13 |
|
| 14 | ;; Assuming /dev/sdX is the target hard disk, and "my-root"
|
| 15 | ;; is the label of the target root file system.
|
| 16 | (bootloader (bootloader-configuration
|
| 17 | (bootloader grub-bootloader)
|
| 18 | (targets (list "/dev/sdX"))))
|
| 19 |
|
| 20 | (file-systems (cons (file-system
|
| 21 | (device "my-root")
|
| 22 | (mount-point "/")
|
| 23 | (type "ext4"))
|
| 24 | %base-file-systems))
|
| 25 |
|
| 26 | (users (cons (user-account
|
| 27 | (name "plasma")
|
| 28 | (password (crypt "plasma" "$6$abc"))
|
| 29 | (group "users")
|
| 30 | (supplementary-groups '("wheel" "netdev"
|
| 31 | "audio" "video")))
|
| 32 | %base-user-accounts))
|
| 33 |
|
| 34 | ;; This is where we specify system-wide packages.
|
| 35 | (packages (cons* neofetch
|
| 36 | htop
|
| 37 | tmux
|
| 38 | xprop
|
| 39 | strace
|
| 40 | %base-packages))
|
| 41 |
|
| 42 | (services (cons*
|
| 43 | ;; for debug
|
| 44 | ;; (simple-service
|
| 45 | ;; 'add-qt-debug-env
|
| 46 | ;; session-environment-service-type
|
| 47 | ;; '(("QT_MESSAGE_PATTERN"
|
| 48 | ;; . "[[%{time process} %{type}] %{appname}: %{category} %{function} - %{message}]")
|
| 49 | ;; ("QT_DEBUG_PLUGINS" . "1")
|
| 50 | ;; ("QML_IMPORT_TRACE" . "1")))
|
| 51 | (service openssh-service-type
|
| 52 | (openssh-configuration
|
| 53 | (openssh openssh-sans-x)
|
| 54 | (port-number 2222)))
|
| 55 | (service plasma-desktop-service-type)
|
| 56 | (service sddm-service-type
|
| 57 | (sddm-configuration
|
| 58 | (theme "breeze")))
|
| 59 |
|
| 60 | ;; Remove GDM if it's among %DESKTOP-SERVICES; on other
|
| 61 | ;; architectures, %DESKTOP-SERVICES contains SDDM instead.
|
| 62 | (remove (lambda (service)
|
| 63 | (memq (service-kind service)
|
| 64 | (list gdm-service-type sddm-service-type)))
|
| 65 | %desktop-services)))
|
| 66 | ;; Allow resolution of '.local' host names with mDNS.
|
| 67 | (name-service-switch %mdns-host-lookup-nss))
|
| 68 |
|
| 69 | ;; Local Variables:
|
| 70 | ;; mode: scheme
|
| 71 | ;; End:
|