home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / m / me_cd25.zip / ME2MUTT.ZIP / MYME.MUT < prev    next >
Lisp/Scheme  |  1992-11-09  |  1KB  |  56 lines
  1. ;; myme.mut : My prefered additions to the base ME2
  2. ;; To compile this file: "mc2 -tme2 myme"
  3. ;; C Durland    Public Domain
  4.  
  5. (include me2.h)
  6.  
  7. (defun MAIN
  8. {
  9.   (HELP 0)            ;; I don't need no steenking help
  10.  
  11.   (modify-syntax-entry "w-")    ;; a dash is part of a word
  12.  
  13.     ;; My prefered bindings:
  14.   (bind-to-key "calculator"        "C-c")
  15.   (bind-to-key "scroll-up"        "M-z")
  16.   (bind-to-key "scroll-down"        "C-z")
  17.   (bind-to-key "spawn-shell"        "C-_")
  18.   (bind-to-key "undo"            'M-\')
  19.   (bind-to-key "iturn-on-undo"        'M-+')
  20.  
  21.   (bind-to-key ""            "C-w")        ;; remove that binding
  22.   (bind-to-key "cut-region"        "M-C-w")
  23.  
  24.   (auto-mode-list TRUE
  25.     'Re[0-9]+$'        "mail"    ;; mailx:  "/tmp/Re<digits>"
  26.     '\.letter'        "mail"    ;; mail from tin:    "~/.letter"
  27.     '\.article'        "mail"    ;; posting from tin:    "~/.article"
  28.     'rnmail[0-9]+$'    "mail"    ;; mail from notes:  "/tmp/rnmail<digits>"
  29.     'nfa[0-9]+$'    "mail"    ;; notes:  "/tmp/nfa<digits>"
  30.     'dts.+[0-9]+$'    "mail"    ;; dts
  31.   )
  32.  
  33.   (if (== 1 (argc))        ;; no files on command line
  34.     {
  35. ;      (update)        ;; so messages from the next stuff stick around
  36.       (ask-user)(visit-file)        ;; ask to edit a file
  37.       (command-line-done TRUE)
  38.     })
  39. })
  40.  
  41. (defun
  42.   print-region
  43.   {
  44.     (int bag-id)
  45.  
  46.     (bag-id (create-bag))
  47.     (append-to-bag bag-id APPEND-REGION)
  48.     (OS-filter "lp -o2 " bag-id)
  49.     (free-bag bag-id)
  50.   }
  51. )
  52.  
  53. (defun
  54.   makeit  { (compile "make CDEBUGFLAGS=-g") }
  55. )
  56.