Support for commit.
This commit is contained in:
parent
47b39df9ca
commit
83af482268
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user