Renaming files to improve Windows naming support and folder naming consistency.
This commit is contained in:
Offray Vladimir Luna Cárdenas 2022-09-01 12:32:48 -05:00
commit 789dfae85e
2 changed files with 15 additions and 1 deletions

View File

@ -153,7 +153,7 @@ LePage >> metadataInit [
{ #category : #'*MiniDocs' }
LePage >> navTop [
| topNavFile |
topNavFile := ((self optionAt: 'storage') / '_navtop.html').
topNavFile := ((self optionAt: 'storage' ifAbsentPut: [ FileLocator temp ]) / '_navtop.html').
topNavFile exists
ifFalse: [ ^ '' ]
ifTrue: [ ^ topNavFile contents ]

View File

@ -0,0 +1,14 @@
Extension { #name : #LePageHeaderBuilder }
{ #category : #'*MiniDocs' }
LePageHeaderBuilder >> addExportPageButton [
<leHeaderAction>
| newButton |
newButton := BrButton new
aptitude: BrGlamorousButtonWithIconAptitude;
label: 'Export Page';
icon: BrGlamorousVectorIcons down;
action: [ :aButton | self page asMarkdeepFile ].
self toolbarElement addItem: newButton.
]