home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / me34src.zip / me3 / mutt / misc / myme.mut < prev    next >
Lisp/Scheme  |  1995-01-14  |  2KB  |  65 lines
  1. ;; myme.mut : My prefered additions to the base ME
  2. ;; To compile this file: "mc2 myme"
  3. ;; C Durland    Public Domain
  4.  
  5. (include me.mh)
  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.   (bind-to-key "twiddle-left-of-dot"    'C-t')
  21.  
  22.   (bind-to-key ""            "C-w")        ;; remove that binding
  23.   (bind-to-key "cut-region"        "M-C-w")
  24.  
  25.   (auto-mode-list TRUE
  26.     'Re[0-9]+$'        "mail"    ;; mailx:  "/tmp/Re<digits>"
  27.     '\.letter'        "mail"    ;; mail from tin:    "~/.letter"
  28.     '\.article'        "mail"    ;; posting from tin:    "~/.article"
  29.     'rnmail[0-9]+$'    "mail"    ;; mail from notes:  "/tmp/rnmail<digits>"
  30.     'nfa[0-9]+$'    "mail"    ;; notes:  "/tmp/nfa<digits>"
  31.     'dts.+[0-9]+$'    "mail"    ;; dts
  32.   )
  33.  
  34.   (if (pgm-exists "command-line-done")        ;; ME2.5
  35.     (if (== 1 (argc))        ;; no files on command line
  36.       {
  37.     (ask-user)(visit-file)        ;; ask to edit a file
  38.     (command-line-done TRUE)
  39.       }))
  40. })
  41.  
  42. (defun
  43.   print-region
  44.   {
  45.     (int bag-id)
  46.  
  47.     (bag-id (create-bag))
  48.     (append-to-bag bag-id APPEND-REGION)
  49.     (OS-filter
  50.       (concat "lp "
  51.     (if (arg-flag) (ask "lp flags = ") "-o2")
  52.     " ")
  53.       bag-id)
  54.     (free-bag bag-id)
  55.   }
  56. )
  57.  
  58. (defun
  59.   cmd-line-empty
  60.   {
  61.     (ask-user)(visit-file)        ;; ask to edit a file
  62.   }
  63.   bake { (compile "bake") }
  64. )
  65.