From 83af482268180cefba4162722d99a8390802e030 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Fri, 17 Jan 2020 17:39:03 +0000
Subject: [PATCH] Support for commit.

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

diff --git a/repository/Fossil/FossilRepo.class.st b/repository/Fossil/FossilRepo.class.st
index 29b68db..034b19c 100644
--- a/repository/Fossil/FossilRepo.class.st
+++ b/repository/Fossil/FossilRepo.class.st
@@ -60,6 +60,21 @@ FossilRepo >> checkinsFor: relativeFilePath [
 	^ payload at: 'checkins'
 ]
 
+{ #category : #'as yet unclassified' }
+FossilRepo >> commit: message [
+	"I add a file to the working Fossil repository, given that both, the file and the repositor,
+	share the same root directory/folder."
+	
+	OSSUnixSubprocess new 
+		command: '/usr/bin/fossil';
+		arguments: { 'commit' . '--no-warnings' . '-m' . message };
+		workingDirectory: self localFolderName;
+		redirectStdout;
+		runAndWaitOnExitDo: [ :process :outString | 
+			Transcript show: message.
+			^ outString ] 
+]
+
 { #category : #wiki }
 FossilRepo >> createPage: pageName [
 	^ NeoJSONReader fromString: (self jsonWikiDataFor: 'create/', pageName)