home *** CD-ROM | disk | FTP | other *** search
/ Amiga Elysian Archive / AmigaElysianArchive.iso / wp_dtp / jed207.lha / macros / jed-menus < prev    next >
Text File  |  1993-01-16  |  5KB  |  104 lines
  1.  
  2. MENU "Project"
  3.   ITEM "Open file..."       "o" "(openfile (freq `r' `file...' (info `fullname')))"
  4.   ITEM "Open new file..."   "/" "(newfile (freq `r' `new file...' (info `dirname')))"
  5.   ITEM "Open new view"      "d" "(newview)"
  6.   ITEM "Include file..."    "O" "(insert `f' (freq `r' `include file...' (info `dirname')))"
  7.   BAR
  8.   ITEM "Save"               "w" "(savefile)"
  9.   ITEM "Save as..."         "W" "(savefileas (freq `w' `save file as...' (info `fullname')))"
  10.   ITEM "Clear text"         "C" "(clear)"
  11.   ITEM "Rename file..."     ""  "(rename (getstr `newname> '))"
  12.   ITEM "Print file..."      "P" "(savesection `f' `prt:')"
  13.   BAR
  14.   ITEM "Sleep window"       ""  "(sleep)"
  15.   ITEM "Quit window"        "q" "(close)"
  16.  
  17. MENU "Edit"
  18.   ITEM "Mark block"         "b" "(block `t')"
  19.   BAR
  20.   ITEM "Copy block"         "c" "(copy `b' 0)"
  21.   ITEM "Cut block"          "x" "(cut `b' 0)"
  22.   ITEM "Insert clip"        "v" "(insert `cb' 0)"
  23.   ITEM "Erase block"        "z" "(delete `b')"
  24.   ITEM "Insert block"       "i" "(insert `b')"
  25.   ITEM "Save block..."      "n" "(savesection `b' (freq `w' `save block as...' (info `dirname')))"
  26.   ITEM "Print block..."     "p" "(savesection `b' `prt:')"
  27.   BAR
  28.   ITEM "Delete line"        ""  "(cut `l' -1)"
  29.   ITEM "Delete to EOL"      ""  "(cut `el' -1)"
  30.   ITEM "Undelete line"      ""  "(insert `cb' -1)"
  31.  
  32. MENU "Find"
  33.   ITEM "Search for..."      "S" "(if (find `s' (getstr `find> ')) `(find `n')')"
  34.   ITEM "Repeat search"      "s" "(find `n')"
  35.   ITEM "Replace..."         "R" "(if (replace `s' (getstr `replace> ')) `(if (replace `r') `(find `n')')')"
  36.   ITEM "Repeat replace"     "r" "(if (replace `r') `(find `n')')"
  37.   ITEM "Global replace"     ""  "(dlock 1)(move `sm' 0)(move `sf')(move `sl')(while `(find `n')' `(replace `r')')(move `bm' 0)(dlock 0)"
  38.   ITEM "Regular Expressions" "" ""
  39.     SUB     "on"               ""  "(find `r' 1)"
  40.     SUB     "off"              ""  "(find `r' 0)"
  41.   ITEM "Case significant"   ""  ""
  42.     SUB     "on"               ""  "(find `c' 1)"
  43.     SUB     "off"              ""  "(find `c' 0)"
  44.   ITEM "Use wildcards"      ""  ""
  45.     SUB     "on"               ""  "(find `w' 1)"
  46.     SUB     "off"              ""  "(find `w' 0)"
  47.   BAR
  48.   ITEM "Line..."            "j" "(move `ln' (getnum `line> '))"
  49.   ITEM "Matching bracket"   "h" "(move `mb')"
  50.   ITEM "Reference"          ""  "(getref)"
  51.   BAR
  52.   ITEM "Auto-mark"          "#" "(move `am')"
  53.   ITEM "Bookmark"           ""  ""
  54.     SUB     "Mark 1"           ""  "(move `bm' 1)"
  55.     SUB     "Mark 2"           ""  "(move `bm' 2)"
  56.     SUB     "Mark 3"           ""  "(move `bm' 3)"
  57.   ITEM "Set bookmark"       ""  ""
  58.     SUB     "Mark 1"           ""  "(move `sm' 1)"
  59.     SUB     "Mark 2"           ""  "(move `sm' 2)"
  60.     SUB     "Mark 3"           ""  "(move `sm' 3)"
  61.  
  62. MENU "Other"
  63.   ITEM "Cycle windows"      "." "(nextwind `a')"
  64.   ITEM "Expand window"      "[" "(position 0 0 (info `screenx') (info `screeny'))"
  65.   BAR
  66.   ITEM "Enter command"      ""  "(cli)"
  67.   ITEM "AmigaDOS command"   ""  "(system (getstr `system> '))"
  68.   ITEM "Insert date"        ""  "(insert `s' (info `date'))"
  69.   BAR
  70.   ITEM "Undo line"          "l" "(undo `l')"
  71.   ITEM "Undo any line"      "L" "(undo `L')"
  72.   ITEM "Store file"         "U" "(global (format `%s_chg' (info `filename')) (info `changes'))(savesection `f' (format `t:%s' (info `filename')))"
  73.   ITEM "Restore file"       "u" "(changes 0)(openfile (format `t:%s' (info `filename')))(changes (script `s' (format `(%s_chg)' (info `filename'))))"
  74.  
  75. MENU "Settings"
  76.   ITEM "Set screen tab..."  ""  "(setpref `tabsize' (getnum `tabs> '))"
  77.   ITEM "Set disk tab..."    ""  "(setpref `disktab' (getnum `dtabs> '))"
  78.   ITEM "Set left margin..." ""  "(setpref `leftmargin' (getnum `lmargin> '))"
  79.   ITEM "Set right margin..." "" "(setpref `rightmargin' (getnum `rmargin> '))"
  80.   ITEM "Set backup dir..."  ""  "(setpref `bakdir' (getstr `backup dir> '))"
  81.   ITEM "Set max backups..." ""  "(setpref `baknum' (getnum `backups> '))"
  82.   ITEM "Set font..."        ""  "(setpref `font' (getstr `font> ') (getnum `size> '))"
  83.   ITEM "Set screen..."      ""  "(setpref `pubscreen' (getstr `public screen> '))"
  84.   ITEM "Auto indent"        ""  ""
  85.     SUB     "on"               ""  "(setpref `autoindent' 1)"
  86.     SUB     "off"              ""  "(setpref `autoindent' 0)"
  87.   ITEM "Word wrap"          ""  ""
  88.     SUB     "on"               ""  "(setpref `wordwrap' 1)"
  89.     SUB     "off"              ""  "(setpref `wordwrap' 0)"
  90.   ITEM "Save tabs"          ""  ""
  91.     SUB     "none"             ""  "(setpref `savetabs' 0)"
  92.     SUB     "leading"          ""  "(setpref `savetabs' 1)"
  93.     SUB     "all"              ""  "(setpref `savetabs' 2)"
  94.   ITEM "Snapshot window"    ""  ""
  95.     SUB     "on exit"          ""  "(setpref `nosnapshot' 0)"
  96.     SUB     "never"            ""  "(setpref `nosnapshot' 1)"
  97.     SUB     "now"              ""  "(setpref `nosnapshot' 2)"
  98.   BAR
  99.   ITEM "Save settings on exit" "" ""
  100.     SUB     "yes"              ""  "(saveprefs 1)"
  101.     SUB     "no"               ""  "(saveprefs 0)"
  102. END
  103.  
  104.