Web preview for pages not located in the default Lepiter folder.
This commit is contained in:
parent
968bfff3bb
commit
882f33859c
@ -162,7 +162,10 @@ LePage >> latestEditTime: aLeTime [
|
|||||||
LePage >> localHostAddress [
|
LePage >> localHostAddress [
|
||||||
| localUrl route |
|
| localUrl route |
|
||||||
MiniDocsServer teapot server isRunning ifFalse: [ MiniDocsServer restart ].
|
MiniDocsServer teapot server isRunning ifFalse: [ MiniDocsServer restart ].
|
||||||
route := MiniDocsServer teapot staticRouter prefix joinUsing: '/'.
|
route := self storage path segments joinUsing: '/'.
|
||||||
|
MiniDocsServer teapot
|
||||||
|
serveStatic: ('/', route, '/', self markdeepFileName)
|
||||||
|
from: self storage / self markdeepFileName.
|
||||||
localUrl := MiniDocsServer teapot server localUrl asString.
|
localUrl := MiniDocsServer teapot server localUrl asString.
|
||||||
^ localUrl, route, '/', self markdeepFileName
|
^ localUrl, route, '/', self markdeepFileName
|
||||||
]
|
]
|
||||||
|
Loading…
Reference in New Issue
Block a user