From e347da4c15671a05b864eb3f73bcbff5437226bd Mon Sep 17 00:00:00 2001
From: "Collin J. Doering" <collin@rekahsoft.ca>
Date: Sun, 5 Sep 2021 03:18:25 -0400
Subject: [PATCH] rekahsoft-gnu: emacs-org-html-themes: adjust setup file paths

---
 rekahsoft-gnu/packages/emacs-xyz.scm | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/rekahsoft-gnu/packages/emacs-xyz.scm b/rekahsoft-gnu/packages/emacs-xyz.scm
index 00d0bbb..c84747c 100644
--- a/rekahsoft-gnu/packages/emacs-xyz.scm
+++ b/rekahsoft-gnu/packages/emacs-xyz.scm
@@ -818,7 +818,22 @@ dashboard!")
                   "1jzkfsq4i4w2cgnlaw8cxa0b33rf8gy82bkbvl52hzlzhp68krgv"))))
       (build-system copy-build-system)
       (arguments
-       `(#:install-plan
+       `(#:phases
+         (modify-phases %standard-phases
+           (add-after 'install 'hardcode-setup-file-paths
+             (lambda* (#:key outputs #:allow-other-keys)
+               (let* ((out (assoc-ref outputs "out"))
+                      (src (string-append out "/var/org-themes/org-html-themes/src/")))
+                 (for-each
+                  (lambda (setup-file)
+                    (substitute* setup-file
+                      (("src=\"src/")
+                       (string-append "src=\"" src))
+                      (("href=\"src/")
+                       (string-append "href=\"" src))))
+                  (find-files out "\\.setup$"))
+                 #t))))
+         #:install-plan
          '(("src" "var/org-themes/org-html-themes/src")
            ("org/" "var/org-themes/org-html-themes"
             #:include-regexp ("-local\\.setup$")))))