lem-mg-patch/term_patch.lisp at master · Hamayama/lem-mg-patch · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
;; workaround for windows pdcurses

(in-package :lem.term)

#+win32
(progn

  (export '(*pos-adjust-mode* get-mouse-mode enable-mouse disable-mouse))

  ;; position adjustment mode
  ;;   =0: no conversion
  ;;   =1: wide character adjustment
  ;;       (for ConEmu utf-8 mode (chcp 65001) (incomplete (unstable))
  ;;   =2: wide character adjustment except cursor
  ;;       (for mintty)
  (defvar *pos-adjust-mode*
    (cond
     #+sbcl
     ((sb-unix::posix-getenv "ConEmuBuild") 1)
     (t 2)))

  ;; mouse mode
  ;;   =0: not use mouse
  ;;   =1: use mouse
  (defvar *mouse-mode* 1)

  ;; for mouse
  (defun get-mouse-mode ()
    *mouse-mode*)
  (defun enable-mouse ()
    (setf *mouse-mode* 1)
    (charms/ll:mousemask (logior charms/ll:all_mouse_events
                                 charms/ll:report_mouse_position)))
  (defun disable-mouse ()
    (setf *mouse-mode* 0)
    (charms/ll:mousemask 0))

  ;; workaround for windows pdcurses
  (defun term-init ()
    #+(or (and ccl unix) (and lispworks unix))
    (lem-setlocale/cffi:setlocale lem-setlocale/cffi:+lc-all+ "")
    (if *tty-name*
        (term-init-tty *tty-name*)
        (charms/ll:initscr))
    (when (zerop (charms/ll:has-colors))
      (charms/ll:endwin)
      (write-line "Please execute TERM=xterm-256color and try again.")
      (return-from term-init nil))
    (charms/ll:start-color)

    ;; enable default color code (-1)
    (charms/ll:use-default-colors)

    (init-colors charms/ll:*colors*)
    (set-default-color nil nil)
    (charms/ll:noecho)
    (charms/ll:cbreak)
    (charms/ll:raw)
    (charms/ll:nonl)
    (charms/ll:refresh)
    (charms/ll:keypad charms/ll:*stdscr* 1)
    (setf charms/ll::*escdelay* 0)
    ;(charms/ll:curs-set 0)

    ;; for mouse
    (when (= *mouse-mode* 1)
      (enable-mouse))

    t)

  )