Auteur
K-L
K-L
Forum » » Logiciels » » Petit traitement de texte WebKit
Posté : 13-04-2020 17:07 
; 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
< br>
; 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.
Si quelqu'un est capable de faire plus automatisé 
Chiotte, le forum fait n'importe quoi avec la mise en page (Elwood ?).
--
AmigaONE X1000/1,8 Ghz (A-Eon), Radeon RX560, 2 Go de Ram et OS4.1 FE
AmigaONE X1000/1,8 Ghz (A-Eon), Radeon RX560, 2 Go de Ram et OS4.1 FE
Message édité par : K-L / 13-04-2020 17:09
Cet article provient de Le site des utilisateurs francophones actuels et futurs d'AmigaOS 4.x
https://amiga-ng.org/viewtopic.php?topic=2450&forum=4