Offray/MiniDocs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Starting customized buttons. #1

Merged
Offray merged 1 commits from detached into master 2022-08-31 01:08:21 +00:00
Conversation 0 Commits 1 Files Changed 2 +15 -1
2 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/MiniDocs/LePage.extension.st
View File

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

14
src/MiniDocs/LePageHeaderBuilder.extension.st Normal file
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 | Clipboard clipboardText: self page asMarkdeepFile ].
self toolbarElement addItem: newButton.
]