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

View File

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