Update home-configuration/home-configuration.scm

home-configuration/home-configuration.scm

@@ -8,7 +8,9 @@
              (gnu packages)
              (gnu services)
 	     (gnu packages haskell)
+             (gnu packages ebook)
 	     (gnu home services syncthing)
+	     (gnu packages package-management)
 	     (gnu packages syncthing)
              (guix gexp)
 	     (gnu home services)
@@ -72,7 +74,7 @@
               (prefer (family "Motomachi")))))))
 
 (define-syntax-rule
-   (associate-right (association keys) ...)
+  (associate-right (association keys) ...)
   `(,@(map (cut cons <> association) keys) ...))
 
 
@@ -84,6 +86,9 @@
                   lf
                   ranger
                   emacs-org-roam
+		  ;; multimonitor
+		  xset
+                  arandr
                   ;;
                   ;;
                   ;;
@@ -138,27 +143,20 @@
                   xclip
                   emacs-nerd-icons
                   emacs-telega
+		  ;; anki
+		  flatpak
+		  flatpak-xdg-utils
+		  ;;----
                   htop
                   cl-clx
                   neofetch
                   kitty
-                  sbcl-stumpwm-ttf-fonts
-                  cl-clx-truetype
                   picom
+		  calibre
                   feh
-                  xmodmap
+                  xsel
                   rofi
 		  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
 	          ;; xmonad
 		  xmonad
@@ -189,6 +187,7 @@
 			 "nicotine+"
 			 "foliate"
 			 "make"
+			 "calibre"
 			 "element-desktop"
 			 "font-apple-color-emoji"))))
 
@@ -203,6 +202,7 @@
                              ("lf" . "~/.local/bin/lf/lfrun")
                              ("ll" . "ls -l")
                              ("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")
                              ("revive" . "xmodmap -e '\\''clear mod4'\\'' && xmodmap -e '\\''keycode 133 = F20'\\''")))
                   (bashrc (list (local-file
@@ -322,7 +322,7 @@
                           ("PAGER"    . "less")
                           ("READER"   . "emacs")
                           ("SHELL"    . "bash")
-                          ("TERMINAL" . "kitty")
+                          ("TERMINAL" . "alacritty")
                           ("VISUAL"   . "emacs")
                           ("WM"       . "xmonad")))))