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

Improving default storage for notes.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2022-12-31 11:57:20 -05:00
parent 52eceaf1d5
commit 7ea4c54a9f
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -48,9 +48,8 @@ LePage >> asMarkdeep [
{ #category : #'*MiniDocs' }
LePage >> asMarkdeepFile [
| folder |
folder := self options at: 'storage' ifAbsent: [ FileLocator temp ].
^ self asMarkdeep exportAsFileOn: folder / self markdeepFileName
^ self asMarkdeep exportAsFileOn: self storage / self markdeepFileName
]
{ #category : #'*MiniDocs' }
@ -160,7 +159,7 @@ LePage >> metadataInit [
{ #category : #'*MiniDocs' }
LePage >> navTop [
| topNavFile |
topNavFile := ((self optionAt: 'storage' ifAbsentPut: [ FileLocator temp ]) / '_navtop.html').
topNavFile := self storage / '_navtop.html'.
topNavFile exists
ifFalse: [ ^ '' ]
ifTrue: [ ^ topNavFile contents ]
@ -212,7 +211,9 @@ LePage >> sharedVariablesBindings [
{ #category : #'*MiniDocs' }
LePage >> storage [
^ self optionAt: 'storage'
ifAbsent: [ ^ FileLocator temp ]
| temporal |
temporal := (FileLocator temp / 'lepiter') ensureCreateDirectory.
self optionAt: 'storage' ifAbsent: [ ^ temporal ].
(self optionAt: 'storage') ifNil: [ ^ temporal ].
^ self optionAt: 'storage'
]