From 7a4299e73635f0b68f548105f05cfdd6ecb234bd Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 2 Jan 2024 16:57:24 +0000
Subject: gn: genenetwork2: Install bundled fonts.

* gn/packages/genenetwork.scm (genenetwork2)[arguments]: Add
install-bundled-fonts and fix-font-paths phases.
---
 gn/packages/genenetwork.scm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/gn/packages/genenetwork.scm b/gn/packages/genenetwork.scm
index 6be016e..d499d8a 100644
--- a/gn/packages/genenetwork.scm
+++ b/gn/packages/genenetwork.scm
@@ -305,6 +305,19 @@
              #:phases
              #~(modify-phases %standard-phases
                  (delete 'reset-gzip-timestamps)
+                 (add-after 'install 'install-bundled-fonts
+                   (lambda _
+                     ;; Install bundled fonts.
+                     (for-each (lambda (font-file)
+                                 (install-file font-file (string-append #$output "/share/fonts/")))
+                               (find-files "gn2/wqflask/static/fonts"
+                                           "\\.ttf$"))))
+                 (add-after 'unpack 'fix-font-paths
+                   (lambda _
+                     ;; Set absolute store paths to installed bundled fonts.
+                     (substitute* "gn2/wqflask/marker_regression/display_mapping_results.py"
+                       (("\\./gn2/wqflask/static/fonts")
+                        (string-append #$output "/gn2/wqflask/static/fonts")))))
                  (add-after 'unpack 'fix-paths-scripts
                    (lambda _
                      (substitute* "bin/genenetwork2"
-- 
cgit v1.2.3