From bc1ea12933879dbd3adc2f76ac723de883b7db85 Mon Sep 17 00:00:00 2001 From: hashirama Date: Fri, 13 Sep 2024 02:39:47 +0000 Subject: [PATCH] add bluetooth support --- config.scm | 393 +++++++++++++++++++++++++++-------------------------- 1 file changed, 201 insertions(+), 192 deletions(-) diff --git a/config.scm b/config.scm index 77fd1cd..fa4e07a 100644 --- a/config.scm +++ b/config.scm @@ -25,6 +25,7 @@ (gnu packages java) (gnu packages fcitx5) (gnu packages ibus) + (gnu services dbus) (gnu packages gnuzilla) (gnu services mcron) (gnu packages haskell) @@ -132,9 +133,9 @@ KERNEL==\"xpad\", SUBSYSTEM==\"drivers\", ACTION==\"add\", ATTR{new_id}=\"2dc8 3 (locale "en_US.utf8") (kernel-arguments (list "modprobe.blacklist=hid-nintendo" - "noatime" + "noatime" - )) + )) (timezone "America/Manaus") (keyboard-layout (keyboard-layout "us")) (host-name "lisp-machine") @@ -155,152 +156,153 @@ KERNEL==\"xpad\", SUBSYSTEM==\"drivers\", ACTION==\"add\", ATTR{new_id}=\"2dc8 3 ;; 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 - ;; ----- - ;;necessary for nyxt - gstreamer - gst-plugins-bad - gst-plugins-good - ;;------ - nyxt - ;;------ - cmus - emacs-ox-hugo - sbcl-coleslaw - numix-gtk-theme - tor - python-psutil - python-schedule - xsel - gerbera - ibus - dconf - gimp - blender - gimp-resynthesizer - wmctrl - imagemagick - zpaq - libwebp - libreoffice - librewolf - ;; audio - ardour - noise-repellent - ;; + my-zfs + ;;emacs-org-roam + ;;emacs-org-roam-ui + ;; ----- + ;;necessary for nyxt + gstreamer + gst-plugins-bad + gst-plugins-good + ;;------ + nyxt + ;;------ + cmus + emacs-ox-hugo + sbcl-coleslaw + numix-gtk-theme + tor + python-psutil + python-schedule + xsel + gerbera + ibus + dconf + gimp + blender + gimp-resynthesizer + wmctrl + imagemagick + zpaq + libwebp + libreoffice + librewolf + ;; audio + ardour + noise-repellent + ;; ;; nextcloud-client - xprop - fzf - zstd - aria2 - ;; wakatime - wakapi-bin + xprop + fzf + zstd + aria2 + ;; wakatime + wakapi-bin wakatime-cli-bin - emacs-wakatime-mode - ;; - xrdb - noisetorch - mpv - qtwebengine ;; required by some applications, like anki - ;;emasc-everywhere - xdotool - xprop - xclip - xwininfo - ;; - xdg-user-dirs - xdg-desktop-portal-gtk - xdg-desktop-portal - tmux - polybar - gnupg - sdcv - alacritty - font-dejavu - ;;------ - higan - maim - p7zip - htop - scrot - flameshot - neofetch - pfetch - openjdk - ;;element-desktop - ;; bluetooth - bluez - blueman - ;; ime - enchant - hunspell - fcitx5 - fcitx5-gtk - fcitx5-qt - fcitx5-anthy - fcitx5-gtk4 - fcitx5-configtool - ;; - icecat - ffmpeg - nsxiv - pinentry - git - pavucontrol-qt - emacs - emacs-bluetooth - xrandr - qbittorrent - emacs-rainbow-delimiters - emacs-olivetti - emacs-telega - emacs-sly - emacs-ccls - emacs-lsp-mode - emacs-lsp-ui - emacs-rmsbolt - sbcl - emacs-nerd-icons - emacs-esxml - ripgrep - gdb - emacs-olivetti - emacs-deadgrep - emacs-realgud - emacs-rg - emacs-dumb-jump - emacs-circe - zip - thunar - unzip - ;;emacs-nov-el + emacs-wakatime-mode + ;; + xrdb + noisetorch + mpv + qtwebengine ;; required by some applications, like anki + ;;emasc-everywhere + xdotool + xprop + xclip + xwininfo + ;; + xdg-user-dirs + xdg-desktop-portal-gtk + xdg-desktop-portal + tmux + polybar + gnupg + sdcv + alacritty + font-dejavu + ;;------ + higan + maim + p7zip + htop + scrot + flameshot + neofetch + pfetch + openjdk + ;;element-desktop + ;; bluetooth + bluez + bluez-alsa + blueman + ;; ime + enchant + hunspell + fcitx5 + fcitx5-gtk + fcitx5-qt + fcitx5-anthy + fcitx5-gtk4 + fcitx5-configtool + ;; + icecat + ffmpeg + nsxiv + pinentry + git + pavucontrol-qt + emacs + emacs-bluetooth + xrandr + qbittorrent + emacs-rainbow-delimiters + emacs-olivetti + emacs-telega + emacs-sly + emacs-ccls + emacs-lsp-mode + emacs-lsp-ui + emacs-rmsbolt + sbcl + emacs-nerd-icons + emacs-esxml + ripgrep + gdb + emacs-olivetti + emacs-deadgrep + emacs-realgud + emacs-rg + emacs-dumb-jump + emacs-circe + zip + thunar + unzip + ;;emacs-nov-el fontconfig - ;; font-apple-color-emoji - picom - feh - ;; ================ - ;; haskell - cabal-install - ;; deps for xmonad - xmonad - xmobar - ghc ;; ridiculous, gcc and ghc are runtime dependencies , yet people didnt put in the package description - ghc-xmonad-contrib - ;; ================== - gcc - gcc-toolchain - xmessage - xmodmap - rofi - linux-libre-headers - ;;-------- - yt-dlp - ;; nicotine+ - linux-firmware - (specification->package "jami") - ) + ;; font-apple-color-emoji + picom + feh + ;; ================ + ;; haskell + cabal-install + ;; deps for xmonad + xmonad + xmobar + ghc ;; ridiculous, gcc and ghc are runtime dependencies , yet people didnt put in the package description + ghc-xmonad-contrib + ;; ================== + gcc + gcc-toolchain + xmessage + xmodmap + rofi + linux-libre-headers + ;;-------- + yt-dlp + ;; nicotine+ + linux-firmware + (specification->package "jami") + ) %base-packages)) ;;(home-environment (packages (cons* anki ))) ;; figure out how to install it from here @@ -310,40 +312,47 @@ KERNEL==\"xpad\", SUBSYSTEM==\"drivers\", ACTION==\"add\", ATTR{new_id}=\"2dc8 3 (services (append (list (simple-service 'my-zfs-loader - kernel-module-loader-service-type - '("zfs")) - (simple-service 'my-jp-ime-env session-environment-service-type - '(("GTK_IM_MODULE" . "fcitx") - ("QT_IM_MODULE" . "fcitx") - ("GUIX_GTK2_IM_MODULE_FILE" . "/run/current-system/profile/lib/gtk-2.0/2.10.0/immodules-gtk2.cache") - ("GUIX_GTK3_IM_MODULE_FILE" . "/run/current-system/profile/lib/gtk-3.0/3.0.0/immodules-gtk3.cache") - ("XMODIFIERS=@im=" . "fcitx") - ("INPUT_METHOD" . "fcitx") - ("XIM_PROGRAM" . "fcitx") - ("GLFW_IM_MODULE" . "ibus"))) - (service zram-device-service-type - (zram-device-configuration - (size "6G") - (compression-algorithm 'xz) - (priority 100))) - ;; (service oci-forgejo-service-type) - (set-xorg-configuration - (xorg-configuration - - (keyboard-layout keyboard-layout))) - (udev-rules-service '8bitdo %8bitdo-udev-rules) - - (service nix-service-type) + kernel-module-loader-service-type + '("zfs")) + (simple-service 'my-jp-ime-env session-environment-service-type + '(("GTK_IM_MODULE" . "fcitx") + ("QT_IM_MODULE" . "fcitx") + ("GUIX_GTK2_IM_MODULE_FILE" . "/run/current-system/profile/lib/gtk-2.0/2.10.0/immodules-gtk2.cache") + ("GUIX_GTK3_IM_MODULE_FILE" . "/run/current-system/profile/lib/gtk-3.0/3.0.0/immodules-gtk3.cache") + ("XMODIFIERS=@im=" . "fcitx") + ("INPUT_METHOD" . "fcitx") + ("XIM_PROGRAM" . "fcitx") + ("GLFW_IM_MODULE" . "ibus"))) + (service zram-device-service-type + (zram-device-configuration + (size "6G") + (compression-algorithm 'xz) + (priority 100))) + ;; (service oci-forgejo-service-type) + (set-xorg-configuration + (xorg-configuration + + (keyboard-layout keyboard-layout))) + (udev-rules-service '8bitdo %8bitdo-udev-rules) + + (service nix-service-type) - #| Compress my mpv screenshots periodically |# - (service mcron-service-type - (mcron-configuration - (jobs (list #~(job "10 15 * * *" - "find /mnt/Data/mpv-screenshots/ -type f \\( -iname '*.png' -o -iname '*.jpg' \\) -exec sh -c 'cwebp -q 80 \"$0\" -o \"${0%.*}.webp\" && rm \"$0\"' {} \\;"))))) - - ) + ;; bluetooth + (service bluetooth-service-type + (bluetooth-configuration + (auto-enable? #t))) + + (simple-service 'blueman dbus-root-service-type (list blueman)) + + #| Compress my mpv screenshots periodically |# + (service mcron-service-type + (mcron-configuration + (jobs (list #~(job "10 15 * * *" + "find /mnt/Data/mpv-screenshots/ -type f \\( -iname '*.png' -o -iname '*.jpg' \\) -exec sh -c 'cwebp -q 80 \"$0\" -o \"${0%.*}.webp\" && rm \"$0\"' {} \\;"))))) + + ) - %desktop-services) + %desktop-services) ) @@ -353,28 +362,28 @@ KERNEL==\"xpad\", SUBSYSTEM==\"drivers\", ACTION==\"add\", ATTR{new_id}=\"2dc8 3 (keyboard-layout keyboard-layout))) (swap-devices (list (swap-space (target (uuid - "4f829a61-6f51-435b-bade-2991c094080f"))))) + "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" + (mount-point "/boot/efi") + (device (uuid "7C90-0F50" 'fat32)) - (type "vfat")) + (type "vfat")) (file-system - (mount-point "/") - (device (uuid + (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")) - + (type "ext4")) + ;; (file-system + ;; (mount-point "/mnt/Reading") + ;; (device (uuid + ;; "223baecf-e5f4-453f-90c7-d33edbbae145" + ;; 'ext4)) + ;; (type "ext4")) + - %base-file-systems))) + %base-file-systems))) \ No newline at end of file