Update config.scm

main
hashirama 2024-05-02 16:37:36 +00:00
parent bf382486b8
commit bd5d5cb285
1 changed files with 139 additions and 108 deletions

View File

@ -1,32 +1,31 @@
;; This is an operating system configuration generated
;; by the graphical installer.
;;
;; Once installation is complete, you can learn and modify
;; this file to tweak the system configuration, and pass it
;; to the 'guix system reconfigure' command to effect your
;; changes.
;; Indicate which modules to import to access the variables
;; used in this configuration.
(use-modules
(gnu)
(gnu)
(guix packages)
(guix transformations)
(gnu packages audio)
(gnu packages java)
(gnu packages fcitx5)
(gnu packages ibus)
(gnu packages gnuzilla)
(gnu packages haskell)
(gnu packages ebook)
(gnu packages lisp-xyz)
(gnu packages rust-apps)
(rde features bluetooth)
(gnu packages gcc)
(gnu packages pulseaudio)
(gnu packages tor)
(gnu packages commencement)
(gnu packages guile-xyz)
(gnu packages freedesktop)
(gnu packages image)
(gnu packages image-viewers)
(gnu packages xfce)
(srfi srfi-1)
;; for nyxt
;; for nyxt
(gnu packages gstreamer)
(gnu packages web-browsers)
;;---------
;;---------
(gnu services)
(gnu packages terminals)
(gnu packages music)
@ -53,13 +52,13 @@
(gnu packages gnupg)
(gnu packages haskell-apps)
(gnu packages imagemagick)
(gnu packages java)
(gnu packages libreoffice)
(gnu packages linux)
(gnu packages lisp)
(gnu packages mpd)
(gnu packages package-management)
(gnu packages rsync)
(gnu packages gimp)
(gnu packages ssh)
(gnu packages telegram)
(gnu packages video)
@ -70,47 +69,53 @@
(gnu home services xdg)
(guix channels)
(guix inferior)
(gnu packages networking)
(nongnu packages compression)
(nongnu packages linux))
(nongnu packages linux))
(use-service-modules cups desktop networking ssh xorg linux certbot shepherd configuration web)
(use-package-modules version-control gcc bash certs admin linux )
(use-service-modules cups desktop networking ssh xorg linux)
(use-package-modules linux )
(define my-kernel linux-6.1)
(define my-zfs
(package
(inherit zfs)
(arguments
(cons* #:linux my-kernel
(package-arguments zfs)))))
(inherit zfs)
(arguments
(cons* #:linux my-kernel
(package-arguments zfs)))))
(operating-system
(kernel my-kernel)
(initrd base-initrd)
(firmware (list linux-firmware))
(kernel my-kernel)
(initrd base-initrd)
(firmware (list linux-firmware))
(locale "en_US.utf8")
(timezone "America/Manaus")
(keyboard-layout (keyboard-layout "us"))
(host-name "lisp-machine")
(kernel-loadable-modules (list (list my-zfs "module")))
(locale "en_US.utf8")
(timezone "America/Manaus")
(keyboard-layout (keyboard-layout "us"))
(host-name "lisp-machine")
(kernel-loadable-modules (list (list my-zfs "module")))
;; The list of user accounts ('root' is implicit).
(users (cons* (user-account
(name "hashirama")
(comment "Hashirama")
(group "users")
(home-directory "/home/hashirama")
(supplementary-groups '("wheel" "netdev" "audio" "video")))
%base-user-accounts))
;; The list of user accounts ('root' is implicit).
(users (cons* (user-account
(name "hashirama")
(comment "Hashirama")
(group "users")
(home-directory "/home/hashirama")
(supplementary-groups '("wheel" "netdev" "audio" "video" "lp")))
%base-user-accounts))
;; Packages installed system-wide. Users can also install packages
;; under their own account: use 'guix search KEYWORD' to search
;; for packages and 'guix install PACKAGE' to install a package.
(packages (append (list
;; Packages installed system-wide. Users can also install packages
;; under their own account: use 'guix search KEYWORD' to search
;; for packages and 'guix install PACKAGE' to install a package.
(packages (append (list
my-zfs
;;emacs-org-roam
;;emacs-org-roam-ui
@ -123,14 +128,25 @@
nyxt
;;------
cmus
emacs-ox-hugo
sbcl-coleslaw
tor
ibus
dconf
gimp
gimp-resynthesizer
wmctrl
libreoffice
;; audio
ardour
noise-repellent
;;
xprop
fzf
zstd
aria2
xrdb
calibre
;;make
noisetorch
mpv
xdg-user-dirs
xdg-desktop-portal-gtk
@ -140,9 +156,7 @@
gnupg
sdcv
alacritty
;; stumpwm-test
font-dejavu
stumpwm
;;------
higan
maim
@ -152,13 +166,19 @@
flameshot
neofetch
pfetch
;;element-desktop
openjdk
;;element-desktop
;; bluetooth
bluez
blueman
;; ime
fcitx5
fcitx5-gtk
fcitx5-qt
fcitx5-anthy
fcitx5-gtk4
fcitx5-configtool
;;
icecat
ffmpeg
nsxiv
@ -166,21 +186,30 @@
git
pavucontrol-qt
emacs
emacs-bluetooth
xrandr
ungoogled-chromium
qbittorrent
emacs-rainbow-delimiters
emacs-olivetti
emacs-telega
emacs-slime
emacs-sly
emacs-ccls
sbcl
emacs-nerd-icons
emacs-esxml
ripgrep
emacs-olivetti
emacs-deadgrep
emacs-rg
emacs-dumb-jump
emacs-circe
zip
thunar
unzip
;;emacs-nov-el
fontconfig
;; font-apple-color-emoji
;; font-apple-color-emoji
picom
feh
xmodmap
@ -196,67 +225,69 @@
linux-libre-headers
;;--------
yt-dlp
;; nicotine+
;; nicotine+
linux-firmware
(specification->package "nss-certs"))
%base-packages))
(specification->package "jami")
)
%base-packages))
;;(home-environment (packages (cons* anki ))) ;; figure out how to install it from here
;;(home-environment (packages (cons* anki ))) ;; figure out how to install it from here
;; Below is the list of system services. To search for available
;; services, run 'guix system search KEYWORD' in a terminal.
(services
(append (list (simple-service 'my-zfs-loader
kernel-module-loader-service-type
'("zfs"))
(service zram-device-service-type
(zram-device-configuration
(size "3G")
(compression-algorithm 'lz4)
(priority 100)))
;; (service oci-forgejo-service-type)
(set-xorg-configuration
(xorg-configuration (keyboard-layout keyboard-layout))))
%desktop-services)
)
;; Below is the list of system services. To search for available
;; services, run 'guix system search KEYWORD' in a terminal.
(services
(append (list (simple-service 'my-zfs-loader
kernel-module-loader-service-type
'("zfs"))
(service zram-device-service-type
(zram-device-configuration
(size "3G")
(compression-algorithm 'lz4)
(priority 100)))
(set-xorg-configuration
(xorg-configuration (keyboard-layout keyboard-layout))))
%desktop-services))
(bootloader (bootloader-configuration
(bootloader grub-efi-bootloader)
(targets (list "/boot/efi"))
(keyboard-layout keyboard-layout)))
(swap-devices (list (swap-space
(target (uuid
"4f829a61-6f51-435b-bade-2991c094080f")))))
(bootloader (bootloader-configuration
(bootloader grub-efi-bootloader)
(targets (list "/boot/efi"))
(keyboard-layout keyboard-layout)))
(swap-devices (list (swap-space
(target (uuid
"4f829a61-6f51-435b-bade-2991c094080f")))))
;; The list of file systems that get "mounted". The unique
;; file system identifiers there ("UUIDs") can be obtained
;; by running 'blkid' in a terminal.
(file-systems (cons* (file-system
(mount-point "/boot/efi")
(device (uuid "7C90-0F50"
'fat32))
(type "vfat"))
(file-system
(mount-point "/")
(device (uuid
"ef8ef1c0-99bd-431a-abde-e2fc6421da60"
'ext4))
(type "ext4"))
;; (file-system
;; (mount-point "/mnt/Reading")
;; (device (uuid
;; "223baecf-e5f4-453f-90c7-d33edbbae145"
;; 'ext4))
;; (type "ext4"))
(file-system
(mount-point "/mnt/Quartz")
(device (uuid
"b0e97572-255c-4f6e-9a0a-9a89ae99f1a5"
'ext4))
(type "ext4"))
(file-system
(mount-point "/mnt/Sources")
(device (uuid
"c01d762b-0c91-43c0-9c80-e048c4abe939"
'ext4))
(type "ext4"))
%base-file-systems)))
;; The list of file systems that get "mounted". The unique
;; file system identifiers there ("UUIDs") can be obtained
;; by running 'blkid' in a terminal.
(file-systems (cons* (file-system
(mount-point "/boot/efi")
(device (uuid "7C90-0F50"
'fat32))
(type "vfat"))
(file-system
(mount-point "/")
(device (uuid
"ef8ef1c0-99bd-431a-abde-e2fc6421da60"
'ext4))
(type "ext4"))
;; (file-system
;; (mount-point "/mnt/Reading")
;; (device (uuid
;; "223baecf-e5f4-453f-90c7-d33edbbae145"
;; 'ext4))
;; (type "ext4"))
(file-system
(mount-point "/mnt/Quartz")
(device (uuid
"b0e97572-255c-4f6e-9a0a-9a89ae99f1a5"
'ext4))
(type "ext4"))
(file-system
(mount-point "/mnt/Sources")
(device (uuid
"c01d762b-0c91-43c0-9c80-e048c4abe939"
'ext4))
(type "ext4"))
%base-file-systems)))