tissue.scm: Prefix paths with /tissue.

* tissue.scm (%css): Prefix with /tissue.
(#:indexed-documents): Prefix web-uri with /tissue.
* website/style.css (@font-face): Prefix font paths with /tissue.
* website/index.skb (Documentation): Prefix path to manual with
/tissue.
(Download): Prefix path to release tarballs and search with /tissue.

3 files changed, 13 insertions, 12 deletions

diff --git a/tissue.scm b/tissue.scm
index eb31c45..414acad 100644
--- a/tissue.scm
+++ b/tissue.scm
@@ -6,7 +6,7 @@
 (add-to-load-path (dirname (current-filename)))
 
 (define %css
-  "/style.css")
+  "/tissue/style.css")
 
 (define %engine
   (html-engine #:css %css))
@@ -15,7 +15,8 @@
  #:indexed-documents (append (map (lambda (filename)
                                     (slot-set (read-gemtext-issue filename)
                                               'web-uri
-                                              (string-append "/" (string-remove-suffix ".gmi" filename))))
+                                              (string-append "/tissue/"
+                                                             (string-remove-suffix ".gmi" filename))))
                                   (gemtext-files-in-directory "issues"))
                              (map (lambda (identifier)
                                     (slot-set (document-fragment "doc/tissue.skb" identifier)
diff --git a/website/index.skb b/website/index.skb
index 309b6ac..3eafc82 100644
--- a/website/index.skb
+++ b/website/index.skb
@@ -43,9 +43,9 @@ servers])))
     (p [Download release tarballs.])
     ;; TODO: Auto-generate this list from git tags.
     (itemize
-     (item [2023-01-27 ,(ref :url "/releases/tissue-0.1.0.tar.lz"
-:text "tissue-0.1.0.tar.lz") ,(ref :url
-"/releases/tissue-0.1.0.tar.lz.asc" :text
+     (item [2023-01-27 ,(ref :url
+"/tissue/releases/tissue-0.1.0.tar.lz" :text "tissue-0.1.0.tar.lz")
+,(ref :url "/tissue/releases/tissue-0.1.0.tar.lz.asc" :text
 "tissue-0.1.0.tar.lz.asc")]))
     (p [Download ,(ref :url
 "https://systemreboot.net/about/arunisaac.pub" :text "public signing
@@ -53,10 +53,10 @@ key").])
     (p [Browse the tissue ,(ref :url
 "https://git.systemreboot.net/tissue/" :text "git repository").]))
   (section :title "Documentation" :number #f
-    (p [The ,(ref :url "/manual/dev/en/" :text "tissue manual") is
-available online.])
+    (p [The ,(ref :url "/tissue/manual/dev/en/" :text "tissue manual")
+is available online.])
     (p [We eat our own dog food too! Search through issues,
-documentation and more using our own ,(ref :url "/search" :text
+documentation and more using our own ,(ref :url "/tissue/search" :text
 "self-hosted tissue instance").]))
   (section :title "Contributors" :number #f
     (p [Thanks to these wonderful people!])
diff --git a/website/style.css b/website/style.css
index be88f34..9712139 100644
--- a/website/style.css
+++ b/website/style.css
@@ -1,27 +1,27 @@
 @font-face {
     font-family: 'IBM Plex Sans';
-    src: url('/fonts/IBMPlexSans-Regular-Latin1.woff2') format('woff2');
+    src: url('/tissue/fonts/IBMPlexSans-Regular-Latin1.woff2') format('woff2');
     font-weight: normal;
     font-style: normal;
 }
 
 @font-face {
     font-family: 'IBM Plex Sans';
-    src: url('/fonts/IBMPlexSans-Bold-Latin1.woff2') format('woff2');
+    src: url('/tissue/fonts/IBMPlexSans-Bold-Latin1.woff2') format('woff2');
     font-weight: bold;
     font-style: normal;
 }
 
 @font-face {
     font-family: 'IBM Plex Mono';
-    src: url('/fonts/IBMPlexMono-Regular-Latin1.woff2') format('woff2');
+    src: url('/tissue/fonts/IBMPlexMono-Regular-Latin1.woff2') format('woff2');
     font-weight: normal;
     font-style: normal;
 }
 
 @font-face {
     font-family: 'IBM Plex Mono';
-    src: url('/fonts/IBMPlexMono-Bold-Latin1.woff2') format('woff2');
+    src: url('/tissue/fonts/IBMPlexMono-Bold-Latin1.woff2') format('woff2');
     font-weight: bold;
     font-style: normal;
 }