diff --git a/src/Iceberg-Git-CLI/PureGitFile.class.st b/src/Iceberg-Git-CLI/PureGitFile.class.st index 922b526..5d95cde 100644 --- a/src/Iceberg-Git-CLI/PureGitFile.class.st +++ b/src/Iceberg-Git-CLI/PureGitFile.class.st @@ -130,6 +130,18 @@ PureGitFile >> logPatchReverse [ yourself ] ] +{ #category : #accessing } +PureGitFile >> logReverse [ + | commits | + commits := self repository queries + log: { '--first-parent' . '--reverse' . 'HEAD' . '--' . self path }. + ^ commits collect: [ :each | + PureGitFileCommit new + copyFrom: each; + path: self path; + yourself ] +] + { #category : #accessing } PureGitFile >> parent [ ^ self repository resolveFileReference: self fileReference parent