.

1 files changed, 61 insertions, 2 deletions

diff --git a/home/config.scm b/home/config.scm
index 85cc4ef..fd461e9 100644
--- a/home/config.scm
+++ b/home/config.scm
@@ -29,13 +29,15 @@
   #:use-module (gnu packages aspell)
   #:use-module (gnu packages sqlite)
   #:use-module (gnu packages gcc)
-  #:use-module (gnu packages commencement)  
+  #:use-module (gnu packages commencement)
+  #:use-module (gnu packages freedesktop)    
   #:use-module (gnu packages base)
   #:use-module (gnu packages golang-crypto)  
   #:use-module (gnu packages linux)
   #:use-module (gnu packages image)
   #:use-module (gnu packages xdisorg)    
   #:use-module (gnu packages databases)
+  #:use-module (gnu packages package-management)  
   #:use-module (gnu packages compression)   
   #:use-module (gnu system shadow)
   #:use-module (gnu services xorg)
@@ -44,6 +46,7 @@
   #:use-module (gnu home services dotfiles)
   #:use-module (gnu home services gnupg)
   #:use-module (gnu home services desktop)
+  #:use-module (gnu home services fontutils)  
   #:use-module (gnu packages ssh)
   #:use-module (gnu packages pdf)
   #:use-module (gnu packages texinfo)
@@ -51,8 +54,11 @@
   #:use-module (guix gexp)
   #:use-module (guix packages)
   #:use-module (guix download)
+  #:use-module (gnu packages video)
   #:use-module (guix build-system go)          
   #:use-module (gnu home services pm)
+  #:use-module (gnu home services xdg)
+  #:use-module (nongnu packages game-client)
   #:use-module (nongnu packages mozilla))
 
 
@@ -80,6 +86,8 @@
 	      man-pages
 	      mandoc
 
+	      steam
+
 	      ;; gsettings
 	      (specification->package+output "glib:bin")
 
@@ -98,6 +106,7 @@
 	      emacs-geiser	      
 	      emacs-geiser-guile
 	      emacs-pinentry
+;	      emacs-hyperbole
 	      emacs-pdf-tools
 	      emacs-alsamixer-el
 	      mu
@@ -113,7 +122,12 @@
 	      pinentry
 	      openssh
 
+;	      flatpak
+;	      flatpak-xdg-utils
+
+
 	      firefox
+	      librewolf
 
 	      xsetroot
 	      xhost
@@ -140,6 +154,10 @@
                     (key-map '(("remove Lock" . "Caps_Lock")
                                ("keysym Caps_Lock" . "Control_L")))))
 
+     (simple-service 'additional-fonts-service
+                          home-fontconfig-service-type
+                          (list "~/.local/extra/fonts"))
+
      (service home-gpg-agent-service-type
               (home-gpg-agent-configuration
                (pinentry-program
@@ -148,6 +166,45 @@
 	       (max-cache-ttl 99999)
 	       (default-cache-ttl 99999)))
 
+     (service home-xdg-user-directories-service-type
+              (home-xdg-user-directories-configuration
+               (desktop "$HOME/desktop")
+               (documents "$HOME/docs")
+               (download "$HOME/download")
+               (music "$HOME/music")
+               (pictures "$HOME/pictures")
+               (publicshare "$HOME/public")
+               (templates "$HOME/templates")
+               (videos "$HOME/videos")))
+
+     (service home-xdg-mime-applications-service-type
+              (home-xdg-mime-applications-configuration
+               (default
+                 '(("application/mp4" . "mpv.desktop")
+
+
+                   ("application/x-shellscript" . "emacsclient.desktop")
+                   ("text/javascript" . "emacsclient.desktop")
+                   ("text/markdown" . "emacsclient.desktop")
+                   ("text/plain" . "emacsclient.desktop")
+                   ("text/x-python3" . "emacsclient.desktop")
+
+                   ("video/h264" . "mpv.desktop")
+                   ("video/h265" . "mpv.desktop")
+                   ("video/h266" . "mpv.desktop")
+                   ("video/mpeg" . "mpv.desktop")
+
+                   ("x-scheme-handler/mailto" . "emacs-mail.desktop")
+
+                   ("x-www-browser" . "librewolf.desktop")
+                   ("text/html" . "librewolf.desktop")
+                   ("x-scheme-handler/about" . "librewolf.desktop")
+                   ("x-scheme-handler/chrome" . "librewolf.desktop")
+                   ("x-scheme-handler/file" . "emacsclient.desktop")
+                   ("x-scheme-handler/http" . "librewolf.desktop")
+                   ("x-scheme-handler/https" . "librewolf.desktop")
+                   ("x-scheme-handler/unknown" . "librewolf.desktop")))))
+
 	       
      (service home-files-service-type
               `((".guile" ,%default-dotguile)
@@ -157,9 +214,11 @@
 	      (home-dotfiles-configuration
 	       (directories '("./dots"))))
 
+     (service home-dbus-service-type)
+
      (simple-service 'extend-home
       home-environment-variables-service-type
-      `(("PATH" . "${PATH}:~/home/go/bin")))
+      `(("PATH" . "${PATH}:~/go/bin:~/.cargo/bin:~/.local/bin")))
 
      (service home-xdg-configuration-files-service-type
               `(("gdb/gdbinit" ,%default-gdbinit)))))))