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 home-configuration/home-configuration.scm

main
hashirama 2024-10-30 01:15:05 +00:00
parent 404098b6b8
commit 4d0e40d051
1 changed files with 179 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

217
home-configuration/home-configuration.scm
View File

@ -5,12 +5,17 @@
;; See the "Replicating Guix" section in the manual. ;; See the "Replicating Guix" section in the manual.
(use-modules (gnu home) (use-modules (gnu home)
(kisshot haskell-packages)
(radix packages) (radix packages)
(gnu packages file)
(ajatt packages haskell)
(radix packages image-viewers) (radix packages image-viewers)
(gnu home services desktop) (gnu home services desktop)
(gnu home services gnupg)
(gnu packages) (gnu packages)
(gnu services) (gnu services)
(gnu packages java) (gnu packages java)
(gnu packages mate)
(gnu packages librewolf) (gnu packages librewolf)
(gnu packages guile-xyz) (gnu packages guile-xyz)
(gnu packages haskell) (gnu packages haskell)
@ -66,12 +71,10 @@
(gnu packages version-control) (gnu packages version-control)
(gnu packages lxqt) (gnu packages lxqt)
(gnu packages emacs) (gnu packages emacs)
(gnu packages haskell-xyz)
(srfi srfi-26)) (srfi srfi-26))
(define fontconfig (define fontconfig
'(fontconfig '(fontconfig
(comment " Set subpixel arrangement for all fonts ") (comment " Set subpixel arrangement for all fonts ")
@ -94,8 +97,9 @@
(home-environment (home-environment
(packages (cons* flameshot (packages (cons* flameshot
pinentry-gtk2
ncmpcpp ncmpcpp
;; gd-tools ;; gd-tools
wmctrl wmctrl
lf lf
ranger ranger
@ -104,6 +108,7 @@
emacs-arei emacs-arei
;; multimonitor ;; multimonitor
xset xset
file
librewolf librewolf
arandr arandr
;; ;;
@ -114,10 +119,11 @@
nano nano
gimp gimp
thunar thunar
;;
net-tools net-tools
mcomix mcomix
atril
pinentry pinentry
;; goldendict-ng
xdg-utils xdg-utils
font-google-material-design-icons font-google-material-design-icons
gst-plugins-good-qt gst-plugins-good-qt
@ -144,6 +150,7 @@
nyxt nyxt
sbcl-coleslaw sbcl-coleslaw
emacs-nyxt emacs-nyxt
pinentry-emacs
tmux tmux
alacritty alacritty
lm-sensors lm-sensors
@ -192,8 +199,7 @@
xmonad xmonad
ghc ghc
xmobar xmobar
ghc-xmonad-contrib ;;-----
;;-----------------
zstd zstd
;; suckless-dictpopup ;; suckless-dictpopup
scrot scrot
@ -204,27 +210,32 @@
gstreamer gstreamer
pavucontrol-qt pavucontrol-qt
mpv mpv
;; N64
mupen64plus-ui-console
;;
emacs emacs
ueberzug++ ueberzug++
(specifications->packages (specifications->packages
(list "steam" (append haskell-packages-list
"guile" (list
;; "ueberzug++" "steam"
"fcitx5-gtk4" "guile"
"fcitx5-qt" ;; "ueberzug++"
"fcitx5-gtk" "fcitx5-gtk4"
"navidrome-bin" "fcitx5-qt"
"torbrowser" "fcitx5-gtk"
"unrar" "navidrome-bin"
"nicotine+" "torbrowser"
"librewolf" "unrar"
"zpaq" "nicotine+"
"gimp" "librewolf"
"foliate" "zpaq"
"tor-client" "gimp"
"make" "foliate"
"element-desktop" "tor-client"
"font-apple-color-emoji")))) "make"
"element-desktop"
"font-apple-color-emoji")))))
;; Below is the list of Home services. To search for available ;; Below is the list of Home services. To search for available
;; services, run 'guix home search KEYWORD' in a terminal. ;; services, run 'guix home search KEYWORD' in a terminal.
@ -239,6 +250,8 @@
("ps2" . "nohup flatpak run --filesystem=/mnt/Data net.pcsx2.PCSX2 > /dev/null 2>&1 &") ("ps2" . "nohup flatpak run --filesystem=/mnt/Data net.pcsx2.PCSX2 > /dev/null 2>&1 &")
("ocr" . "sudo /nix/var/nix/profiles/default/bin/manga_ocr") ("ocr" . "sudo /nix/var/nix/profiles/default/bin/manga_ocr")
("ll" . "ls -l") ("ll" . "ls -l")
("codiff" . "git diff HEAD~1 HEAD")
("pkg-build" . "guix build --check --no-grafts ")
("ls" . "ls -p --color=auto") ("ls" . "ls -p --color=auto")
("run_code" . "g++ -o main main.cc -Ofast -std=c++23 -s -flto -march=native -I ~/dev/ajatt/hakurei/include/ && ./main") ("run_code" . "g++ -o main main.cc -Ofast -std=c++23 -s -flto -march=native -I ~/dev/ajatt/hakurei/include/ && ./main")
("rgf" . "rg --files | rg") ("rgf" . "rg --files | rg")
@ -272,7 +285,7 @@
("GLFW_IM_MODULE" ("GLFW_IM_MODULE"
. "ibus") . "ibus")
("GUILE_LOAD_PATH" ("GUILE_LOAD_PATH"
. "$HOME/dev/guix_channel/ajatt-tools-guix:$GUILE_LOAD_PATH") . "$HOME/dev/guix_channel/ajatt-tools-guix:$HOME/src/guix-config:$GUILE_LOAD_PATH")
("XMONAD_CONFIG_DIR" ("XMONAD_CONFIG_DIR"
. "$HOME/.xmonad") . "$HOME/.xmonad")
("GUIX_PROFILE=$HOME/.config/guix/current" ("GUIX_PROFILE=$HOME/.config/guix/current"
@ -284,7 +297,12 @@
(for-home (for-home
(syncthing-configuration (syncthing-configuration
(user "hashirama")))) (user "hashirama"))))
(service home-gpg-agent-service-type
(home-gpg-agent-configuration
(pinentry-program
(file-append gpa "/bin/pinentry-gtk-2"))
(ssh-support? #t)))
(service home-xdg-mime-applications-service-type (service home-xdg-mime-applications-service-type
(home-xdg-mime-applications-configuration (home-xdg-mime-applications-configuration
@ -297,6 +315,7 @@
"application/x-extension-xht" "application/x-extension-xht"
"x-scheme-handler/http" "x-scheme-handler/http"
"x-scheme-handler/https")) "x-scheme-handler/https"))
('emacs.desktop ('emacs.desktop
`("text/plain" `("text/plain"
"text/troff" "text/troff"
@ -316,25 +335,147 @@
"x-scheme-handler/ssh" "x-scheme-handler/ssh"
"application/x-directory")) "application/x-directory"))
('mpv.desktop ('mpv.desktop
`("image/gif" `("application/mxf"
"application/ogg"
"application/sdp"
"application/smil"
"application/streamingmedia"
"application/vnd.apple.mpegurl"
"application/vnd.ms-asf"
"application/vnd.rn-realmedia"
"application/vnd.rn-realmedia-vbr"
"application/x-cue"
"application/x-extension-m4a"
"application/x-extension-mp4"
"application/x-matroska"
"application/x-mpegurl"
"application/x-ogg"
"application/x-ogm"
"application/x-ogm-audio"
"application/x-ogm-video"
"application/x-shorten"
"application/x-smil"
"application/x-streamingmedia"
"audio/3gpp"
"audio/3gpp2"
"audio/AMR"
"audio/aac"
"audio/ac3"
"audio/aiff"
"audio/amr-wb"
"audio/dv"
"audio/eac3"
"audio/flac"
"audio/m3u"
"audio/m4a"
"audio/mp1"
"audio/mp2"
"audio/mp3"
"audio/mp4"
"audio/mpeg" "audio/mpeg"
"audio/mpeg2"
"audio/mpeg3"
"audio/mpegurl"
"audio/mpg"
"audio/musepack"
"audio/ogg" "audio/ogg"
"audio/opus" "audio/opus"
"audio/x-opus+ogg" "audio/rn-mpeg"
"audio/flac" "audio/scpls"
"audio/vnd.dolby.heaac.1"
"audio/vnd.dolby.heaac.2"
"audio/vnd.dts"
"audio/vnd.dts.hd"
"audio/vnd.rn-realaudio"
"audio/vorbis"
"audio/wav"
"audio/webm"
"audio/x-aac"
"audio/x-adpcm"
"audio/x-aiff"
"audio/x-ape"
"audio/x-m4a"
"audio/x-matroska"
"audio/x-mp1"
"audio/x-mp2"
"audio/x-mp3"
"audio/x-mpegurl"
"audio/x-mpg"
"audio/x-ms-asf"
"audio/x-ms-wma"
"audio/x-musepack"
"audio/x-pls"
"audio/x-pn-au"
"audio/x-pn-realaudio"
"audio/x-pn-wav"
"audio/x-pn-windows-pcm"
"audio/x-realaudio"
"audio/x-scpls"
"audio/x-shorten"
"audio/x-tta"
"audio/x-vorbis"
"audio/x-vorbis+ogg"
"audio/x-wav"
"audio/x-wavpack"
"video/3gp"
"video/3gpp"
"video/3gpp2"
"video/avi"
"video/divx"
"video/dv"
"video/fli"
"video/flv"
"video/mkv"
"video/mp2t"
"video/mp4" "video/mp4"
"application/octet-stream" "video/mp4v-es"
"video/mp2t" "video/mpeg"
"video/msvideo"
"video/ogg"
"video/quicktime"
"video/vnd.divx"
"video/vnd.mpegurl"
"video/vnd.rn-realvideo"
"video/webm"
"video/x-avi"
"video/x-flc"
"video/x-flic"
"video/x-flv"
"video/x-m4v"
"video/x-matroska" "video/x-matroska"
"video/webm")) "video/x-mpeg2"
"video/x-mpeg3"
"video/x-ms-afs"
"video/x-ms-asf"
"video/x-ms-wmv"
"video/x-ms-wmx"
"video/x-ms-wvxvideo"
"video/x-msvideo"
"video/x-ogm"
"video/x-ogm+ogg"
"video/x-theora"
"video/x-theora+ogg"))
('nsxiv.desktop ('nsxiv.desktop
`("image/avif" `("image/bmp"
"image/bmp" "image/gif"
"image/jpeg" "image/jpeg"
"image/jpg"
"image/pjpeg"
"image/png" "image/png"
"image/svg+xml" "image/tiff"
"image/webp")) "image/x-bmp"
('emacs.desktop "image/x-pcx"
"image/x-png"
"image/x-portable-anymap"
"image/x-portable-bitmap"
"image/x-portable-graymap"
"image/x-portable-pixmap"
"image/x-tga"
"image/x-xbitmap"
"image/heif"
"image/avif"
"image/x-icon"))
('atril.desktop
`("image/vnd.djvu")) `("image/vnd.djvu"))
('foliate.desktop ('foliate.desktop
`("application/epub+zip")) `("application/epub+zip"))