16474471469

Committed 23 Jul 2025 03:06PM UTC coverage: 72.934% (-0.2%) from 73.181%

Build # 16474471469

Build Type

Pull #220

github

Committed by

web-flow

Commit Message

Merge be4117e51 into 55903cdcb

Pull Request Pull Request #220: Add nice visualisation to navigate through GPH

Run Details

0 of 82 new or added lines in 3 files covered. (0.0%)

17728 of 24307 relevant lines covered (72.93%)

0.73 hits per line

Source File
Press 'n' to go to next uncovered line, 'b' for previous

0.0

/src/GitLabHealth-Model-Visualization/GLHSpDiffView.class.st

Class {
        #name : #GLHSpDiffView,
        #superclass : #SpPresenterWithModel,
        #instVars : [
                'diff'
        ],
        #category : #'GitLabHealth-Model-Visualization'
}

{ #category : #layout }
GLHSpDiffView >> defaultLayout [

        ^ SpBoxLayout newTopToBottom
                  add: diff expand: true fill: true;
                  yourself
]

{ #category : #initialization }
GLHSpDiffView >> initializePresenters [

        | lines |
        super initializePresenters.
        diff := self newDiff.
        diff showOptions: false.
        lines := self model diffString lines.
        diff leftLabel: (lines first splitOn: '/') last.
        diff leftText: (String cr join: ((lines allButFirst: 2)
                                  reject: [ :line |
                                  (line beginsWith: '+') or: [ line beginsWith: '@@' ] ]
                                  thenCollect: [ :line | line withoutPrefix: '-' ])).
        diff rightLabel: (lines second splitOn: '/') last.
        diff rightText: (String cr join: ((lines allButFirst: 2)
                                  reject: [ :line |
                                  (line beginsWith: '-') or: [ line beginsWith: '@@' ] ]
                                  thenCollect: [ :line | line withoutPrefix: '+' ]))
]

1	Class {
2	#name : #GLHSpDiffView,
3	#superclass : #SpPresenterWithModel,
4	#instVars : [
5	'diff'
6	],
7	#category : #'GitLabHealth-Model-Visualization'
8	}
9
10	{ #category : #layout }
NEW 11	GLHSpDiffView >> defaultLayout [	×
NEW 12		×
NEW 13	^ SpBoxLayout newTopToBottom	×
NEW 14	add: diff expand: true fill: true;	×
NEW 15	yourself	×
NEW 16	]	×
17
18	{ #category : #initialization }
NEW 19	GLHSpDiffView >> initializePresenters [	×
NEW 20		×
NEW 21	\| lines \|	×
NEW 22	super initializePresenters.	×
NEW 23	diff := self newDiff.	×
NEW 24	diff showOptions: false.	×
NEW 25	lines := self model diffString lines.	×
NEW 26	diff leftLabel: (lines first splitOn: '/') last.	×
NEW 27	diff leftText: (String cr join: ((lines allButFirst: 2)	×
NEW 28	reject: [ :line \|	×
NEW 29	(line beginsWith: '+') or: [ line beginsWith: '@@' ] ]	×
NEW 30	thenCollect: [ :line \| line withoutPrefix: '-' ])).	×
NEW 31	diff rightLabel: (lines second splitOn: '/') last.	×
NEW 32	diff rightText: (String cr join: ((lines allButFirst: 2)	×
NEW 33	reject: [ :line \|	×
NEW 34	(line beginsWith: '-') or: [ line beginsWith: '@@' ] ]	×
NEW 35	thenCollect: [ :line \| line withoutPrefix: '+' ]))	×
NEW 36	]	×

moosetechnology / GitProjectHealth / 16474471469

Source File Press 'n' to go to next uncovered line, 'b' for previous

Source File
Press 'n' to go to next uncovered line, 'b' for previous