home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / elvis22g.zip / lib / elvis.ini < prev    next >
Text File  |  2002-04-10  |  3KB  |  99 lines
  1. """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
  2. " CHOOSE A LOCALE
  3. try let! locale= $LC_ALL ? $LC_ALL : $LANG
  4. "
  5. """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
  6. " DEFINE SOME DIGRAPHS
  7. if os == "msdos" || os == "os2" || (os == "win32" && gui != "windows")
  8. then source! (elvispath("elvis.pc8"))
  9. else source! (elvispath("elvis.lat"))
  10. "
  11. """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
  12. " CHOOSE SOME DEFAULT OPTION VALUES BASED ON THE INVOCATION NAME
  13. switch tolower(basename(program))
  14. case ex
  15. case edit set! initialstate=ex
  16. case view set! defaultreadonly
  17. case edit
  18. case vedit set! novice
  19. if home == ""
  20. then let home=dirdir(program)
  21. "
  22. """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
  23. " IF SPELL-CHECKING IS SUPPORTED, THEN LOAD THE DEFAULTS
  24. if feature("spell")
  25. then source! (elvispath("elvis.spe"))
  26. "
  27. """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
  28. " IF ALIASES ARE SUPPORTED, THEN LOAD THE DEFAULT ALIASES
  29. if feature("alias") && !safer
  30. then source! (elvispath("elvis.ali"))
  31. "
  32. """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
  33. " SYSTEM TWEAKS GO HERE
  34. "
  35. " The Linux console can't handle colors and underlining.  Neither can MS-DOS
  36. " with any of the ANSI drivers.
  37. if gui=="termcap"
  38. then {
  39.  if term=="linux" || (os=="msdos" && (term>>4)=="ansi")
  40.  then set! nottyunderline
  41.  if term=="linux"
  42.  then set! nottyitalic
  43. }
  44. "
  45. """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
  46. " Gnome default setup goes here (may be overridden in .exrc file)
  47. if gui=="gnome"
  48. then so! (elvispath("elvis.gnome"))
  49. "
  50. """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
  51. " X11 DEFAULT COLORS AND TOOLBAR GO HERE (may be overridden in .exrc file)
  52. if gui=="x11"
  53. then so! (elvispath("elvis.x11"))
  54. "
  55. """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
  56. " SOME MAPS THAT MAKE HTML BROWSING EASIER
  57. if feature("html")
  58. then {
  59.  " <Space> jumps forward one page
  60.  map mode=html command   
  61.  " <Enter> follows a hypertext link
  62.  map mode=html command  
  63. }
  64. """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
  65. " EXECUTE THE STANDARD CUSTOMIZATION SCRIPTS
  66. let f=(os=="unix" ? ".elvisrc" : "elvis.rc")
  67. if $EXINIT
  68. then eval $EXINIT
  69. else source! (exists(home/f)?home/f:home/".exrc")
  70. source! ~/.elvislib/elvis.rc
  71. if exrc && getcwd()!=home
  72. then safer! (exists(f)?f:".exrc")
  73. set f=""
  74. "
  75. """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
  76. " X11 INTERFACE DEFAULT FONTS GO HERE
  77. if gui == "x11"
  78. then {
  79.  if font == "" && xrootwidth >= 1024
  80.  then {
  81.   set! font="*-courier-medium-r-*-18-*" 
  82.   set! boldfont="*-courier-bold-r-*-18-*" 
  83.   set! italicfont="*-courier-medium-o-*-18-*" 
  84.  }
  85.  if font == "" && xrootwidth >= 800
  86.  then {
  87.   set! font="*-courier-medium-r-*-14-*" 
  88.   set! boldfont="*-courier-bold-r-*-14-*" 
  89.   set! italicfont="*-courier-medium-o-*-14-*" 
  90.  }
  91.  if font == ""
  92.  then {
  93.   set! font="*-courier-medium-r-*-12-*" 
  94.   set! boldfont="*-courier-bold-r-*-12-*" 
  95.   set! italicfont="*-courier-medium-o-*-12-*" 
  96.  }
  97. }
  98. "
  99.