; Folio Start Up Script
.key file
.default file "x_@Tvq(,f.9T3k@KUMn@EnUuVRb.Lfu{(s!!"
if exists T:folio.document
delete T:folio.document quiet
endif
if "" eq "x_@Tvq(,f.9T3k@KUMn@EnUuVRb.Lfu{(s!!"
echo "var userdoc = '';" > T:folio.document
else
if exists ""
copy "" to T:folio.html.unprocessed quiet
echo "var fileName =''; var userdoc ='" noline >T:folio.html.start
join T:folio.html.start T:folio.html.unprocessed TO T:folio.document
echo "';" >> T:folio.document
delete T:folio.html.unprocessed quiet
delete T:folio.html.start quiet
else
echo "File not found."
quit
endif
endif
; Create configuration
; Searching for default system and user installed fonts
list sys:fonts PAT #?.otag SORT name >T:folio.fonts.system LFORMAT "fonts += '%M=%M:|';"
list sys:fonts PAT #?.otag SORT name >T:folio.fonts.user LFORMAT "fonts += '%M=%M:|';"
join T:folio.fonts.system T:folio.fonts.user TO T:folio.fonts.combined
; Checking for partially installed fonts (Odyssey)
If Exists sys:fonts/_ttf/AndaleMo.ttf
echo >>T:folio.fonts.combined "fonts += 'Andale Mono=Andale Mono:|';"
Endif
If Exists sys:fonts/_ttf/Comic.ttf
echo >>T:folio.fonts.combined "fonts += 'ComicSans=Comic Sans:|';"
Endif
If Exists sys:fonts/_ttf/Georgia.ttf
echo >>T:folio.fonts.combined "fonts += 'Georgia=Georgia:|';"
Endif
If Exists sys:fonts/_ttf/Impact.ttf
echo >>T:folio.fonts.combined "fonts += 'Impact=Impact:|';"
Endif
If Exists sys:fonts/_ttf/trebuc.ttf
echo >>T:folio.fonts.combined "fonts += 'Trebuchet=Trebuchet:|';"
Endif
If Exists sys:fonts/_ttf/Verdana.ttf
echo >>T:folio.fonts.combined "fonts += 'Verdana=Verdana:|';"
Endif
If Exists sys:fonts/_ttf/Webdings.ttf
echo >>T:folio.fonts.combined "fonts += 'Webdings=Webdings:|';"
Endif
; Cleaning up font files
sort T:folio.fonts.combined TO T:folio.fonts.sorted
echo "var fonts ='';" >T:folio.fonts.start
join T:folio.fonts.start T:folio.fonts.sorted TO T:folio.fonts
delete T:folio.fonts.#? quiet
; Install Ambient File Type & Icon
;If Not Exists sys:prefs/ambient/filetypes/text/x-folio
; copy system/text/ sys:prefs/ambient/filetypes/text/ QUIET
;Endif
;If Not Exists sys:prefs/presets/deficons/text/x-folio.info
; copy system/deficon/ sys:prefs/presets/deficons/text/ QUIET
;Endif
; Initiating editor instance
;C:openurl dh1:Outils/TdT/Folio/folio.html NEWWIN FILE
La commande OpenURL ouvre une page blanche, donc après le lancement du script il suffit d'ouvrir folio.html à la main et ça marche.
Chiotte, le forum fait n'importe quoi avec la mise en page (Elwood ?).