diff --git a/config.scm b/config.scm index b8540bd..1bea1c0 100644 --- a/config.scm +++ b/config.scm @@ -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)))