netsurf/amiga/dist/Install

159 lines
3.3 KiB
Plaintext
Raw Normal View History

; Installation script for NetSurf
(procedure p_setmimetype #type #mimetype
(transcript "Setting MIME Type " #mimetype " for default " #type " icon")
(set #fullpath (cat "ENVARC:Sys/def_" #type))
(tooltype
(prompt "Setting MIME type")
(help @tooltype-help)
(dest #fullpath)
(settooltype "MIMETYPE" #mimetype)
)
)
(if (= @app-name "NetSurfAutoInstall") (set #AutoInstall 1))
(if (<> #AutoInstall 1) (welcome))
(complete 0)
(set @default-dest (getenv "AppPaths/NetSurf"))
(set @default-dest
(askdir
(prompt "Where would you like to install NetSurf?")
(help @askdir-help)
(default @default-dest)
)
)
(set #icon-exists (exists (tackon @default-dest "NetSurf.info")))
(copylib
(prompt "Please check the version of NetSurf you are copying against "
"any which might already be installed.")
(help @copylib-help)
(source "NetSurf")
(dest @default-dest)
(infos)
(optional "askuser" "force" "oknodelete")
(confirm "expert")
)
(complete 20)
(copyfiles
(prompt "Copying files")
(source "")
(choices "Resources" "Rexx" "NetSurf.guide" "NetSurf.readme")
(help @copyfiles-help)
(dest @default-dest)
(infos)
; (all)
)
(complete 70)
(set #options-exist (exists (tackon @default-dest "Resources/Options")))
(if (= #options-exist 0)
(
(set #screen-width ;(querydisplay "screen" "width"))
(asknumber
(prompt "Enter desired screen width")
(help @asknumber-help)
(default 1024)
)
)
(set #screen-height ;(querydisplay "screen" "height"))
(asknumber
(prompt "Enter desired screen height")
(help @asknumber-help)
(default 768)
)
)
(set #depth ;(querydisplay "screen" "depth"))
(askchoice
(prompt "Enter desired screen depth")
(help @asknumber-help)
(choices "16" "24" "32")
(default 2)
)
)
(select #depth
(set #screen-depth "16")
(set #screen-depth "24")
(set #screen-depth "32")
)
(set #themename
(askchoice
(prompt "Please select theme")
(help @askchoice-help)
(choices "Default" "AISS")
(default 0)
)
)
(select #themename
(set #theme "Resources/Themes/Default")
(set #theme "Resources/Themes/AISS")
)
(set #theme-icon (tackon @default-dest (tackon #theme "NetSurf.info")))
(set #options-exist (exists #theme-icon))
(copyfiles
(prompt "Copying theme icon")
(source #theme-icon)
(help @copyfiles-help)
(dest @default-dest)
)
(textfile
(prompt "Setting default options")
(help @textfile-help)
(dest (tackon @default-dest "Resources/Options"))
(append "font_min_size:12\n"
"window_x:0\n"
"window_y:24\n"
"window_width:" #screen-width "\n"
"window_height:" (- #screen-height 24) "\n"
"window_screen_width:" #screen-width "\n"
"window_screen_height:" #screen-height "\n"
"theme:" #theme "\n")
)
)
)
(complete 90)
(working "Setting MIME types")
(p_setmimetype "css" "text/css")
(p_setmimetype "html" "text/html")
(p_setmimetype "ascii" "text/plain")
(p_setmimetype "jpeg" "image/jpeg")
(p_setmimetype "gif" "image/gif")
(p_setmimetype "png" "image/png")
(p_setmimetype "jng" "image/jng")
(p_setmimetype "mng" "image/mng")
(p_setmimetype "svg" "image/svg")
(p_setmimetype "bmp" "image/bmp")
(p_setmimetype "ico" "image/ico")
(p_setmimetype "sprite" "image/x-riscos-sprite")
(complete 100)
(if (= #AutoInstall 1)
(
(exit (quiet))
)
(
(exit)
)
)