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
千住柱間 2024-03-15 19:24:58 +00:00
parent d0c7f7343f
commit 8e31dad071
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -8,7 +8,9 @@
(gnu packages) (gnu packages)
(gnu services) (gnu services)
(gnu packages haskell) (gnu packages haskell)
(gnu packages ebook)
(gnu home services syncthing) (gnu home services syncthing)
(gnu packages package-management)
(gnu packages syncthing) (gnu packages syncthing)
(guix gexp) (guix gexp)
(gnu home services) (gnu home services)
@ -72,7 +74,7 @@
(prefer (family "Motomachi"))))))) (prefer (family "Motomachi")))))))
(define-syntax-rule (define-syntax-rule
(associate-right (association keys) ...) (associate-right (association keys) ...)
`(,@(map (cut cons <> association) keys) ...)) `(,@(map (cut cons <> association) keys) ...))
@ -84,6 +86,9 @@
lf lf
ranger ranger
emacs-org-roam emacs-org-roam
;; multimonitor
xset
arandr
;; ;;
;; ;;
;; ;;
@ -138,27 +143,20 @@
xclip xclip
emacs-nerd-icons emacs-nerd-icons
emacs-telega emacs-telega
;; anki
flatpak
flatpak-xdg-utils
;;----
htop htop
cl-clx cl-clx
neofetch neofetch
kitty kitty
sbcl-stumpwm-ttf-fonts
cl-clx-truetype
picom picom
calibre
feh feh
xmodmap xsel
rofi rofi
sbcl sbcl
stumpwm `(,stumpwm "lib")
emacs-stumpwm-mode
sbcl-stumpwm-net
sbcl-stumpwm-cpu
sbcl-stumpwm-mem
sbcl-stumpwm-disk
sbcl-stumpwm-screenshot
sbcl-stumpwm-pamixer
sbcl-clx
sbcl-stumpwm-swm-gaps
cmus cmus
;; xmonad ;; xmonad
xmonad xmonad
@ -189,6 +187,7 @@
"nicotine+" "nicotine+"
"foliate" "foliate"
"make" "make"
"calibre"
"element-desktop" "element-desktop"
"font-apple-color-emoji")))) "font-apple-color-emoji"))))
@ -203,6 +202,7 @@
("lf" . "~/.local/bin/lf/lfrun") ("lf" . "~/.local/bin/lf/lfrun")
("ll" . "ls -l") ("ll" . "ls -l")
("ls" . "ls -p --color=auto") ("ls" . "ls -p --color=auto")
;; todo fix this ("size" . "dured_func(){ du -sh \"$1\" | awk '{printf \"\\\\033[31m%s\\\\033[0m%s\\\\n\", \\$1, substr(\\$0, length(\\$1)+1)}'; unset -f dured_func; }; dured_func")
("record" . "ffmpeg -f x11grab -r 25 -s 1366x768 -i $DISPLAY -c:v libx264 -pix_fmt yuv420p -preset ultrafast -crf 23 -y /tmp/output.mp4") ("record" . "ffmpeg -f x11grab -r 25 -s 1366x768 -i $DISPLAY -c:v libx264 -pix_fmt yuv420p -preset ultrafast -crf 23 -y /tmp/output.mp4")
("revive" . "xmodmap -e '\\''clear mod4'\\'' && xmodmap -e '\\''keycode 133 = F20'\\''"))) ("revive" . "xmodmap -e '\\''clear mod4'\\'' && xmodmap -e '\\''keycode 133 = F20'\\''")))
(bashrc (list (local-file (bashrc (list (local-file
@ -322,7 +322,7 @@
("PAGER" . "less") ("PAGER" . "less")
("READER" . "emacs") ("READER" . "emacs")
("SHELL" . "bash") ("SHELL" . "bash")
("TERMINAL" . "kitty") ("TERMINAL" . "alacritty")
("VISUAL" . "emacs") ("VISUAL" . "emacs")
("WM" . "xmonad"))))) ("WM" . "xmonad")))))