org-roam patch guix

(define-public emacs-org-roam
  (package
    (name "emacs-org-roam")
    (version "2.1.0")
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (url "https://github.com/org-roam/org-roam")
             (commit (string-append "v" version))))
       (file-name (git-file-name name version))
       (sha256
        (base32 "092xn0sqc7b7f6pdf7m6c3giqqbh6fq02mfz8qrg0wmx4ds1isqp"))))
    (build-system emacs-build-system)
    (arguments
     `(#:phases
       (modify-phases %standard-phases
         (add-after 'install 'install-image
           (lambda* (#:key outputs #:allow-other-keys)
             (let ((out (assoc-ref outputs "out")))
               (install-file "doc/images/org-ref-citelink.png"
                             (string-append out "/share/info/images")))))

         (add-after 'install 'install-pieces
           (lambda* (#:key outputs #:allow-other-keys)
             (let* ((out (assoc-ref outputs "out"))
                    (extensions
                     (string-append out "extensions")))
               (mkdir-p extensions)
               (copy-recursively "extensions" extensions)
               #t)))

         (add-after 'install-image 'make-info
           (lambda* (#:key outputs #:allow-other-keys)
             (let ((out (assoc-ref outputs "out")))
               (with-directory-excursion "doc"
                 (invoke "makeinfo" "-o" "org-roam.info" "org-roam.texi")
                 (install-file "org-roam.info"
                               (string-append out "/share/info")))))))))
       (native-inputs
        `(("texinfo" ,texinfo)))
       (propagated-inputs
        `(("emacs-dash" ,emacs-dash)
          ("emacs-emacsql-sqlite3" ,emacs-emacsql-sqlite3)
          ("emacs-f" ,emacs-f)
          ("emacs-magit" ,emacs-magit)
          ("emacs-org" ,emacs-org)
          ("emacs-s" ,emacs-s)))
       (home-page "https://github.com/org-roam/org-roam/")
       (synopsis "Non-hierarchical note-taking with Org mode")
       (description "Emacs Org Roam is a solution for taking non-hierarchical
notes with Org mode.  Notes are captured without hierarchy and are connected
by tags.  Notes can be found and created quickly.  Org Roam should also work
as a plug-and-play solution for anyone already using Org mode for their
personal wiki.")
       (license license:gpl3+)))