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

Starting customized buttons.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2022-08-30 20:11:03 -05:00
parent 5a685a7fca
commit 9af476f6ab
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' }
LePage >> navTop [
| topNavFile |
topNavFile := ((self optionAt: 'storage') / '_navtop.html').
topNavFile := ((self optionAt: 'storage' ifAbsentPut: [ FileLocator temp ]) / '_navtop.html').
topNavFile exists
ifFalse: [ ^ '' ]
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.
]