home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / me34exe.zip / mutt / contrib / sunterm.mut < prev    next >
Text File  |  1995-01-14  |  1KB  |  61 lines
  1. ;;
  2. ;; File:
  3. ;;    sun.mut
  4. ;;
  5. ;; Description:
  6. ;;    SUN-UNIX related stuff.
  7. ;;
  8. ;;    This code is based on xterm.mut.
  9. ;;
  10. ;; History:
  11. ;;    930113  M.J. van der Velden
  12. ;;            Public Domain (Version 1.0)
  13. ;;
  14.  
  15. (defun
  16.     ;; soft keys: ESC [ ...  
  17.     sofkeys 
  18.     {
  19.         (string c)
  20.  
  21.         (exe-key
  22.             (switch (getchar)
  23.             "A" 0x0843        ;; Up arrow
  24.         "B" 0x0844        ;; Down arrow
  25.         "C" 0x0845        ;; Right arrow
  26.         "D" 0x0846        ;; Left arrow
  27.         
  28.         "2" {            ;; Functions keys: ESC [ 2 x x z
  29.             (c (concat (getchar) (getchar))) (getchar)
  30.                 (switch c
  31.                   "02" 0x0831 ;; f1
  32.             "25" 0x0832 ;; f2
  33.             "26" 0x0833 ;; f3
  34.             "27" 0x0834 ;; f4
  35.             "28" 0x0835 ;; f5
  36.             "29" 0x0836 ;; f6
  37.             "30" 0x0837 ;; f7
  38.             "31" 0x0838 ;; f8
  39.             "32" 0x0839 ;; f9
  40.                   "33" 0x0830 ;; f10
  41.                       "14" 0x0841 ;; Home
  42.                   "20" 0x0842 ;; End
  43.                   "16" 0x0849 ;; PgUp
  44.                   "22" 0x084A ;; PgDn
  45.                 )
  46.           }
  47.         
  48.         default { 
  49.             (msg "Unknown key")
  50.             (done) 
  51.         }
  52.             )
  53.         )
  54.     }   
  55.   
  56.     MAIN
  57.     {
  58.         (bind-to-key "sofkeys" "^[[")
  59.     }
  60. )
  61.