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)