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

add bluetooth support

main
hashirama 2024-09-13 02:39:47 +00:00
parent cb0e91a51c
commit bc1ea12933
1 changed files with 201 additions and 192 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

393
config.scm
View File

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