Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;; This is an operating system configuration template
- ;; for a "desktop" setup without full-blown desktop
- ;; environments.
- (use-modules (gnu) (gnu system nss) (ice-9 rdelim))
- (use-service-modules desktop networking databases)
- (use-package-modules bootloaders certs ratpoison suckless wm)
- (define 10-evdev.conf
- (call-with-input-file "/home/quiliro/guix/10-evdev.conf" read-string))
- (operating-system
- (host-name "portkomputilo")
- (timezone "America/Guayaquil")
- (locale "es_ES.utf8")
- ;; Use the UEFI variant of GRUB with the EFI System
- ;; Partition on /dev/sda1.
- (bootloader (grub-configuration (grub grub-efi)
- (device "/dev/sda1")))
- ;; Assume the target root file system is labelled "my-root".
- (file-systems (cons* (file-system
- (device "my-root")
- (title 'label)
- (mount-point "/")
- (type "ext4"))
- (file-system
- ;; Specify partition here since FAT
- ;; labels are currently unsupported.
- (device "/dev/sda1")
- (mount-point "/boot/efi")
- (type "vfat"))
- %base-file-systems))
- (swap-devices '("/dev/sda3"))
- (users (cons (user-account
- (name "quiliro")
- (comment "Quiliro Ordóñez Baca")
- (group "users")
- (supplementary-groups '("wheel" "netdev"
- "audio" "video"))
- (home-directory "/home/quiliro"))
- %base-user-accounts))
- ;; Add a bunch of window managers; we can choose one at
- ;; the log-in screen with F1.
- (packages (cons* ratpoison i3-wm i3status dmenu ;window managers
- nss-certs ;for HTTPS access
- %base-packages))
- ;; Use the "desktop" services, which include the X11
- ;; log-in service, networking with Wicd, and more.
- (services (cons*
- ;; (tor-service)
- (console-keymap-service "dvorak-es")
- (mysql-service)
- (modify-services %desktop-services
- (slim-service-type
- config => (slim-configuration
- (inherit config)
- (startx (xorg-start-command
- #:configuration-file
- (xorg-configuration-file
- #:extra-config
- (list 10-evdev.conf)))))))))
- ;; Allow resolution of '.local' host names with mDNS.
- (name-service-switch %mdns-host-lookup-nss))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement