+ (arguments
+ '(#:phases
+ (modify-phases %standard-phases
+ (add-after 'install 'install-xsession
+ (lambda* (#:key inputs outputs #:allow-other-keys)
+ (let ((rpd "ratpoison.desktop")
+ (dst (string-append (assoc-ref outputs "out")
+ "/share/xsessions/")))
+ (mkdir-p dst)
+ (copy-file (assoc-ref inputs rpd)
+ (string-append dst rpd))))))))