From 07b3fced0a33a2a4311978f0e16c90183bf1ad0d Mon Sep 17 00:00:00 2001
From: ruidajo <diegoruidajo@gmail.com>
Date: Fri, 11 Mar 2022 08:48:44 -0500
Subject: [PATCH] Adding unversioned export and sync functionality.

---
 repository/Fossil/FossilRepo.class.st | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/repository/Fossil/FossilRepo.class.st b/repository/Fossil/FossilRepo.class.st
index 3661299..7b6fed1 100644
--- a/repository/Fossil/FossilRepo.class.st
+++ b/repository/Fossil/FossilRepo.class.st
@@ -204,6 +204,16 @@ FossilRepo >> diff [
 	^ self command: 'diff'
 ]
 
+{ #category : #accessing }
+FossilRepo >> exportHTMLUnversioned [
+
+	| htmlFileReferenceFullName |
+	htmlFileReferenceFullName := (self listUnversioned) 
+		select: [ :each | each endsWith: '.html' ].
+	htmlFileReferenceFullName do: [ :each | self exportUnversioned: each ].
+	^ htmlFileReferenceFullName
+]
+
 { #category : #accessing }
 FossilRepo >> exportSTONUnversioned [
 
@@ -443,6 +453,18 @@ FossilRepo >> repository: aFossilRepoFile [
 	repository := aFossilRepoFile "fullName"
 ]
 
+{ #category : #accessing }
+FossilRepo >> revertRemoteUnversioned [
+
+	OSSUnixSubprocess new
+		command: 'fossil';
+		arguments: { 'uv' . 'revert' };
+		workingDirectory: self localRoot;
+		redirectStdout;
+		redirectStderr;
+		runAndWaitOnExitDo: [ :process :outString | ^ outString ]
+]
+
 { #category : #utilities }
 FossilRepo >> sanitize: aFileNameWithRelativePath [
 	"I dicern if my argument concerns to a versioned or an unversioned file,