home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / elvos221.zip / lib / elvis.x11 < prev    next >
Text File  |  1998-12-10  |  3KB  |  71 lines
  1. " DEFAULT CONFIGURATION FOR THE "X11" USER INTERFACE
  2. color e darkgreen
  3. color i saddlebrown
  4. color u navyblue
  5. color f #803
  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
  45. gui Search:eval (d=="backward"?"?":"/")(quote((magic?".*/[^$":"/^$"),s))
  46. gui Search"Search for plain text -- not a regular expression
  47. gui gap
  48. gui Normal:no
  49. gui Normal=display=="normal"
  50. gui Normal"Select the normal display mode
  51. gui Hex:dis hex
  52. gui Hex=display=="hex"
  53. gui Hex"Select the hex display mode
  54. gui Syntax:dis syntax
  55. gui Syntax=display<<6=="syntax"
  56. gui Syntax"Select the syntax display mode (syntax-coloring)
  57. gui Other:eval dis (bufdisplay)
  58. gui Other=display!="normal" && display!="hex" && display<<6!="syntax"
  59. gui Other?bufdisplay!="normal" && bufdisplay!="hex" && bufdisplay<<6!="syntax"
  60. gui Other"Select the appropriate text-formatting display mode
  61. gui Display Options;"display"(oneof normal hex syntax HTML man tex)d=(display=="html"?"HTML":display);wrap;sidescroll;list;showmarkups;number;tabstop;showmatch;nonascii
  62. gui Display Options:eval dis (tolower(d))
  63. gui Display Options"Configure the display options
  64. gui gap
  65. gui XV:w !xv -
  66. gui XV"Send this buffer to the XV image viewer
  67. gui Man:sp !man \@| col -b
  68. gui Man"Create a new window, showing the man-page for this word
  69. gui Help:help
  70. gui Help"Create a new window, showing elvis' manual
  71.