(arguments

   `(#:modules ((guix build utils)

                (guix build gnu-build-system)

                (ice-9 rdelim)

                (ice-9 popen))

     #:make-flags (list "GUILE_AUTO_COMPILE=0")

     #:phases

     (modify-phases %standard-phases

       (add-after 'install-bin 'wrap-program

         (lambda* (#:key inputs outputs #:allow-other-keys)

           ;; Wrap the 'gitile' command to refer to the right modules.

           (let* ((out    (assoc-ref outputs "out"))

                  (commonmark (assoc-ref inputs "guile-commonmark"))

                  (git    (assoc-ref inputs "guile-git"))

                  (bytes  (assoc-ref inputs "guile-bytestructures"))

                  (fibers (assoc-ref inputs "guile-fibers"))

                  (gcrypt (assoc-ref inputs "guile-gcrypt"))

                  (syntax-highlight (assoc-ref inputs "guile-syntax-highlight"))

                  (deps   (list out commonmark git bytes fibers gcrypt

                                syntax-highlight))

                  (guile  (assoc-ref %build-inputs "guile"))

                  (effective (read-line

                              (open-pipe* OPEN_READ

                                          (string-append guile "/bin/guile")

                                          "-c" "(display (effective-version))")))

                  (mods   (string-drop-right  ;drop trailing colon

                           (string-join deps

                                        (string-append "/share/guile/site/"

                                                       effective ":")

                                        'suffix)

                           1))

                  (objs   (string-drop-right

                           (string-join deps

                                        (string-append "/lib/guile/" effective

                                                       "/site-ccache:")

                                        'suffix)

                           1)))

             (wrap-program (string-append out "/bin/gitile")

               `("GUILE_LOAD_PATH" ":" prefix (,mods))

               `("GUILE_LOAD_COMPILED_PATH" ":" prefix (,objs)))))))))