cristiancmoises
/
modern_lisp-machine
mirror of https://codeberg.org/hashirama/modern_lisp-machine
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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