Support for commit.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2020-01-17 17:39:03 +00:00
parent 47b39df9ca
commit 83af482268

View File

@ -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)