From 1c98321c9ca1d7d7e32bf0bbf4d2a38980cb5e29 Mon Sep 17 00:00:00 2001
From: fox <fox@eb64cd80-c68d-6f47-b6a3-0ada418499da>
Date: Tue, 21 Jun 2022 17:22:12 +0000
Subject: [PATCH] Tilde compatible publication dirs, public_*/txt

git-svn-id: file:///srv/svn/repo/kosuzu/trunk@12 eb64cd80-c68d-6f47-b6a3-0ada418499da
---
 cli/publish.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/cli/publish.ml b/cli/publish.ml
index 29b1c82..0e39ac8 100644
--- a/cli/publish.ml
+++ b/cli/publish.ml
@@ -6,9 +6,9 @@ let targets () =
 	List.filter
 		(fun x -> try Sys.is_directory (snd x) with Sys_error _ -> false)
 		[
-			"htm", home ^ "/public/html";
-			"gmi", home ^ "/public/gemini";
-			"", home ^ "/public/gopher";
+			"htm", home ^ "/public_html/txt";
+			"gmi", home ^ "/public_gemini/txt";
+			"", home ^ "/public_gopher/txt";
 		]
 
 open Logarion