MetzNet
/
metznet-channel
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Changed otto to define-public

master
Noah Metz 2022-09-17 20:02:36 -06:00
parent f894e7a16a
commit 3a59b6f6e6
1 changed files with 54 additions and 53 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

107
system/clients/otto.scm
Unescape Escape View File

@ -50,57 +50,58 @@
; (list (service-extension shepherd-root-service-type nvidia-insmod-shepherd-service))) ; (list (service-extension shepherd-root-service-type nvidia-insmod-shepherd-service)))
; (default-value '()))) ; (default-value '())))
(operating-system (define-public otto-operating-system
(inherit base-desktop-system) (operating-system
(host-name "otto") (inherit base-desktop-system)
(hosts-file (host-name "otto")
(plain-file "hosts" (hosts-file
(string-append (local-host-aliases host-name) (plain-file "hosts"
"# LAN geofff.homelab ip (string-append (local-host-aliases host-name)
192.168.86.2 geofff.homelab\n"))) "# LAN geofff.homelab ip
(kernel-arguments '("modprobe.blacklist=nouveau")) 192.168.86.2 geofff.homelab\n")))
(packages (append (list blueman bluez bluez-alsa pulseaudio docker python openvswitch (kernel-arguments '("modprobe.blacklist=nouveau"))
qemu texlive firefox pavucontrol mupdf gcc-toolchain gnu-make (packages (append (list blueman bluez bluez-alsa pulseaudio docker python openvswitch
gcc-arm-none-eabi-7-2018-q2-update sane-backends-minimal xsane qemu texlive firefox pavucontrol mupdf gcc-toolchain gnu-make
cups xf86-video-nv xf86-input-libinput vulkan-loader vulkan-tools gcc-arm-none-eabi-7-2018-q2-update sane-backends-minimal xsane
(list isc-bind "utils")) %my-desktop-packages)) cups xf86-video-nv xf86-input-libinput vulkan-loader vulkan-tools
(services (append (list (list isc-bind "utils")) %my-desktop-packages))
(simple-service 'blueman dbus-root-service-type (list blueman)) (services (append (list
(bluetooth-service #:auto-enable? #t) (simple-service 'blueman dbus-root-service-type (list blueman))
(service docker-service-type) (bluetooth-service #:auto-enable? #t)
(service openvswitch-service-type) (service docker-service-type)
(set-xorg-configuration (service openvswitch-service-type)
(xorg-configuration (set-xorg-configuration
(keyboard-layout %default-keyboard-layout))) (xorg-configuration
(service sane-service-type) (keyboard-layout %default-keyboard-layout)))
(service cups-service-type (service sane-service-type)
(cups-configuration (service cups-service-type
(web-interface? #t)))) (cups-configuration
(modify-services %my-desktop-services (web-interface? #t))))
(udev-service-type config => (modify-services %my-desktop-services
(udev-configuration (inherit config) (udev-service-type config =>
(rules (append (list (udev-configuration (inherit config)
%usb-udev-rule) (rules (append (list
(udev-configuration-rules config)))))))) %usb-udev-rule)
(users (cons* (user-account (udev-configuration-rules config))))))))
(name "nmetz") (users (cons* (user-account
(comment "Noah Metz") (name "nmetz")
(group "users") (comment "Noah Metz")
(home-directory "/home/nmetz") (group "users")
(shell (file-append zsh "/bin/zsh")) (home-directory "/home/nmetz")
(supplementary-groups (shell (file-append zsh "/bin/zsh"))
`("wheel" "netdev" "audio" "video" "usb" "kvm" "lp" "docker"))) (supplementary-groups
%my-base-user-accounts)) `("wheel" "netdev" "audio" "video" "usb" "kvm" "lp" "docker")))
(file-systems %my-base-user-accounts))
(cons* (file-system (file-systems
(mount-point "/boot/efi") (cons* (file-system
(device (uuid "6E88-FE62" 'fat32)) (mount-point "/boot/efi")
(type "vfat")) (device (uuid "6E88-FE62" 'fat32))
(file-system (type "vfat"))
(mount-point "/") (file-system
(device (mount-point "/")
(uuid "ba93a043-9e58-466f-b90f-bf2a6bbf91fe" (device
'ext4)) (uuid "ba93a043-9e58-466f-b90f-bf2a6bbf91fe"
(type "ext4")) 'ext4))
%base-file-systems))) (type "ext4"))
%base-file-systems))))