(define-module (xdg)
  #:use-module (guix gexp)
  #:use-module (gnu services)
  #:use-module (gnu home services)
  #:use-module (xdg)
  #:use-module (gnu home services xdg))


(define-public xdg-service
  (list
   (service home-xdg-user-directories-service-type
            (home-xdg-user-directories-configuration
             (desktop "$HOME")
             (documents "$HOME")
             (download "$HOME/dl")
             (music "$HOME/media")
             (pictures "$HOME/media")
             (publicshare "$HOME")
             (templates "$HOME")
             (videos "$HOME/media")))
   (service home-xdg-mime-applications-service-type
    (home-xdg-mime-applications-configuration
     (default
       '((application/x-bittorrent . torrent.desktop)
         (x-scheme-handler/magnet  . torrent.desktop)))
	     (desktop-entries
	      (list
	       (xdg-desktop-entry
		(file "torrent")
		(name "Torrent")
		(type 'application)
		(config '((exec . "transmission-remote -a %u"))))))))))