picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

term.l (1307B)

      1 # 16mar10abu
      2 # (c) Software Lab. Alexander Burger
      3 
      4 ### Key codes ###
      5 (setq
      6    *XtF1    (in '("tput" "kf1") (line T))
      7    *XtF2    (in '("tput" "kf2") (line T))
      8    *XtF3    (in '("tput" "kf3") (line T))
      9    *XtF4    (in '("tput" "kf4") (line T))
     10    *XtF5    (in '("tput" "kf5") (line T))
     11    *XtF6    (in '("tput" "kf6") (line T))
     12    *XtF7    (in '("tput" "kf7") (line T))
     13    *XtF8    (in '("tput" "kf8") (line T))
     14    *XtF9    (in '("tput" "kf9") (line T))
     15    *XtF10   (in '("tput" "kf10") (line T))
     16    *XtF11   (in '("tput" "kf11") (line T))
     17    *XtF12   (in '("tput" "kf12") (line T))
     18 
     19    *XtMenu  "^[[29~"                            #?
     20 
     21    *XtIns   (in '("tput" "kich1") (line T))
     22    *XtDel   (in '("tput" "kdch1") (line T))
     23 
     24    *XtPgUp  (in '("tput" "kpp") (line T))
     25    *XtPgDn  (in '("tput" "knp") (line T))
     26    *XtUp    (in '("tput" "cuu1") (line T))
     27    *XtDown  "^[[B"                              #?
     28    *XtRight (in '("tput" "cuf1") (line T))
     29    *XtLeft  "^[[D"                              #?
     30    *XtEnd   "^[[F"                              #?
     31    *XtHome  (in '("tput" "home") (line T)) )
     32 
     33 
     34 ### Cursor movements ###
     35 (de xtUp (N)
     36    (do N (prin *XtUp)) )
     37 
     38 (de xtDown (N)
     39    (do N (prin *XtDown)) )
     40 
     41 (de xtRight (N)
     42    (do N (prin *XtRight)) )
     43 
     44 (de xtLeft (N)
     45    (do N (prin *XtLeft)) )
     46 
     47 # vi:et:ts=3:sw=3