Support for commit.
This commit is contained in:
parent
47b39df9ca
commit
83af482268
@ -60,6 +60,21 @@ FossilRepo >> checkinsFor: relativeFilePath [
|
|||||||
^ payload at: 'checkins'
|
^ 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 }
|
{ #category : #wiki }
|
||||||
FossilRepo >> createPage: pageName [
|
FossilRepo >> createPage: pageName [
|
||||||
^ NeoJSONReader fromString: (self jsonWikiDataFor: 'create/', pageName)
|
^ NeoJSONReader fromString: (self jsonWikiDataFor: 'create/', pageName)
|
||||||
|
Loading…
Reference in New Issue
Block a user