9 lines
240 B
Smalltalk
9 lines
240 B
Smalltalk
|
Extension { #name : #LePage }
|
||
|
|
||
|
{ #category : #'*Markdeep' }
|
||
|
LePage >> markdeepFileName [
|
||
|
| sanitized |
|
||
|
sanitized := self title asDashedLowercase copyWithoutAll: #($/).
|
||
|
^ sanitized, '--',(self uidString copyFrom: 1 to: 5), '.md.html'.
|
||
|
]
|