(define remember-this-filename (current-filename))

(define lukejw-home-environment
  (home-environment
...
    (services
      (append
        (list
          (service home-dbus-service-type)
          (service home-bash-service-type
                   (home-bash-configuration
                     (guix-defaults? #f)
                     (aliases `(("gs" . "git status")
                                ("ga" . "git add")
                                ("gc" . "git commit")
                                ("gl" . "git log")
                                ("guix-hr" . ,(string-append "guix home reconfigure -L " (dirname (remember-this-filename)) "/../.. " (remember-this-filename)))
                                ("camera" . "ffplay -fflags nobuffer /dev/video0")
                                ("record" . "wf-recorder --audio -c h264_vaapi -d /dev/dri/renderD128")))
...