home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / elvis22g.zip / lib / elvis.x11 < prev    next >
Text File  |  2002-04-10  |  3KB  |  75 lines
  1. " DEFAULT CONFIGURATION FOR THE "X11" USER INTERFACE
  2. color! statusbar like toolbar
  3. color! status like tool
  4. color! scrollbar like toolbar
  5. color! scroll like tool
  6. gui Quit:q
  7. gui Quit?!modified
  8. gui Quit"Close this window, and maybe exit elvis
  9. gui Edit;"File to load:" (file) f = filename
  10. gui Edit:e (f)
  11. gui Edit"Open a file in this window
  12. gui Split;"File to load:" (file) f = filename
  13. gui Split:sp (f)
  14. gui Split"Open a file in a new window
  15. gui Save:w
  16. gui Save?modified && edited && !readonly
  17. gui Save"Write this buffer out to its file
  18. gui Save as;"File to write:"(file)f=dirfile(filename);="The default is in the current directory!"
  19. gui Save as:w (f)
  20. gui Save as"Write this buffer out to a different file
  21. gui Reload:e!%
  22. gui Reload"Re-read this file, discarding all changes
  23. gui Reload;="Are you sure you want to do this?"
  24. gui gap
  25. gui Prev:N
  26. gui Prev?!modified && current("previous")
  27. gui Prev"Switch to the previous file in the args list
  28. gui Next:n
  29. gui Next?!modified && current("next")
  30. gui Next"Switch to the next file in the args list
  31. gui Alt:e#
  32. gui Alt?!modified && previousfile
  33. gui Alt"Switch to the alternate file
  34. gui Back:pop
  35. gui Back?current("tagstack")
  36. gui Back"Return to previous position via the tagstack
  37. gui gap
  38. gui Make:make
  39. gui Make?!modified
  40. gui Make"Compile the program, and collect error messages
  41. gui Err:errlist
  42. gui Err?buffer("Elvis error list")
  43. gui Err"Move to the next error
  44. gui Search;"plain text to find"s;"direction"(oneof forward backward)d=(d=="backward")?"backward":"forward";ignorecase;wrapscan;autoselect;hlsearch
  45. if feature("normal")
  46. then gui Search:eval normal (d=="backward" ? ("?";quote(("?"; magic?magicchar:"^$"), s); "\r") : ("/";quote(("/"; magic?magicchar:"^$"), s); "\r"))
  47. else gui Search:eval (d=="backward"?"?":"/")(quote((magic?".*/[^$":"/^$"),s))
  48. gui Search"Search for plain text -- not a regular expression
  49. gui gap
  50. gui Normal:no
  51. gui Normal=display=="normal"
  52. gui Normal"Select the normal display mode
  53. gui Hex:dis hex
  54. gui Hex=display=="hex"
  55. gui Hex"Select the hex display mode
  56. gui Syntax:dis syntax
  57. gui Syntax=display<<6=="syntax"
  58. gui Syntax"Select the syntax display mode (syntax-coloring)
  59. gui Other:eval dis (bufdisplay)
  60. gui Other=display!="normal" && display!="hex" && display<<6!="syntax"
  61. gui Other?bufdisplay!="normal" && bufdisplay!="hex" && bufdisplay<<6!="syntax"
  62. gui Other"Select the appropriate text-formatting display mode
  63. gui Display Options;"display"(oneof normal hex syntax HTML man tex)d=(display=="html"?"HTML":display);wrap;sidescroll;list;showmarkups;number;tabstop;showmatch;nonascii;prefersyntax;hlspell
  64. gui Display Options:eval dis (tolower(d))
  65. gui Display Options"Configure the display options
  66. gui gap
  67. gui XV:w !cat >tmp$$; (xv tmp$$; rm tmp$$) >/dev/null 2>&1 &
  68. gui XV"Send this buffer to the XV image viewer
  69. if alias("man")
  70. then gui Man:man \@
  71. else gui Man:sp !man \@| col -b
  72. gui Man"Create a new window, showing the man-page for this word
  73. gui Help:help
  74. gui Help"Create a new window, showing elvis' manual
  75.