From 9276c26f4c3fe2ace111393282ad7b885e065181 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 26 Feb 2018 17:29:10 -0800 Subject: [PATCH] help.pdf: use tilde paths. --- extra/help/pdf/pdf.factor | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/extra/help/pdf/pdf.factor b/extra/help/pdf/pdf.factor index 04ced9a67b..9c2ad031c6 100644 --- a/extra/help/pdf/pdf.factor +++ b/extra/help/pdf/pdf.factor @@ -29,7 +29,7 @@ IN: help.pdf [ topic>pdf ] map 1array join ; : write-pdf ( pdf name -- ) - [ pdf>string ] dip home prepend-path utf8 set-file-contents ; + [ pdf>string ] dip utf8 set-file-contents ; PRIVATE> @@ -41,19 +41,19 @@ PRIVATE> ] [ write-pdf ] bi* ; : cookbook-pdf ( -- ) - "cookbook" "cookbook.pdf" article-pdf ; + "cookbook" "~/cookbook.pdf" article-pdf ; : first-program-pdf ( -- ) - "first-program" "first-program.pdf" article-pdf ; + "first-program" "~/first-program.pdf" article-pdf ; : handbook-pdf ( -- ) - "handbook-language-reference" "handbook.pdf" article-pdf ; + "handbook-language-reference" "~/handbook.pdf" article-pdf ; : system-pdf ( -- ) - "handbook-system-reference" "system.pdf" article-pdf ; + "handbook-system-reference" "~/system.pdf" article-pdf ; : tools-pdf ( -- ) - "handbook-tools-reference" "tools" article-pdf ; + "handbook-tools-reference" "~/tools.pdf" article-pdf ; : index-pdf ( -- ) { @@ -62,13 +62,13 @@ PRIVATE> "primitive-index" "error-index" "class-index" - } topics>pdf "index.pdf" write-pdf ; + } topics>pdf "~/index.pdf" write-pdf ; : furnace-pdf ( -- ) - "furnace" "furnace.pdf" article-pdf ; + "furnace" "~/furnace.pdf" article-pdf ; : alien-pdf ( -- ) - "alien" "alien.pdf" article-pdf ; + "alien" "~/alien.pdf" article-pdf ; : io-pdf ( -- ) - "io" "io.pdf" article-pdf ; + "io" "~/io.pdf" article-pdf ;