eterm-256color.ti

eterm-256color|Emacs term.el terminal emulator term-protocol-version 0.96,
#
# The code here is forced by the interface, and is not subject to
# copyright, constituting the only possible expression of the algorithm
# in this format.
#
# When updating this file, etc/e/eterm-color should be regenerated by
# running "make e/eterm-color" in the etc directory.
# Any change to this file should be done at the same time with a
# corresponding change to the TERMCAP environment variable in term.el.
# Comments in term.el specify where each of these capabilities is implemented.
	colors#256,
	cols#80,
	lines#24,
	pairs#32767,
	am,
	mir,
	msgr,
	xenl,
	bel=^G,
	bold=\E[1m,
	clear=\E[H\E[J,
	cr=\r,
	csr=\E[%i%p1%d;%p2%dr,
	cub1=\b,
	cub=\E[%p1%dD,
	cud1=\n,
	cud=\E[%p1%dB,
	cuf1=\E[C,
	cuf=\E[%p1%dC,
	cup=\E[%i%p1%d;%p2%dH,
	cuu1=\E[A,
	cuu=\E[%p1%dA,
	dch1=\E[P,
	dch=\E[%p1%dP,
	dl1=\E[M,
	dl=\E[%p1%dM,
	ed=\E[J,
	el1=\E[1K,
	el=\E[K,
	home=\E[H,
	ht=\t,
	ich=\E[%p1%d@,
	il1=\E[L,
	il=\E[%p1%dL,
	ind=\n,
	invis=\E[8m,
	kbs=^?,
	kcub1=\EOD,
	kcud1=\EOB,
	kcuf1=\EOC,
	kcuu1=\EOA,
	kdch1=\E[3~,
	kend=\E[4~,
	khome=\E[1~,
	kich1=\E[2~,
	knp=\E[6~,
	kpp=\E[5~,
	op=\E[39;49m,
	rc=\E8,
	rev=\E[7m,
	ri=\EM,
	rmir=\E[4l,
	rmso=\E[27m,
	rmul=\E[24m,
	rs1=\Ec,
	sc=\E7,
	setab=\E[%?%p1%{8}%<%t4%p1%d%e%p1%{16}%<%t10%p1%{8}%-%d%e48;5;%p1%d%;m,
	setaf=\E[%?%p1%{8}%<%t3%p1%d%e%p1%{16}%<%t9%p1%{8}%-%d%e38;5;%p1%d%;m,
	sgr0=\E[m,
	smir=\E[4h,
	smul=\E[4m,
 	smso=\E[7m,
 	u6=\E[%i%d;%dR,
 	u7=\E[6n,
#	smcup=\E[?47h,
#	rmcup=\E[?47l,
#       rs2 may need to be added

term-256color-override.el

(require 'cl-lib)

(defface term-color-light-black
  '((t :foreground "#686868" :background "#686868"))
  "Face used to render black color code."
  :group 'term)

(defface term-color-light-red
  '((t :foreground "#fb4933" :background "#fb4933"))
  "Face used to render black color code."
  :group 'term)

(defface term-color-light-green
  '((t :foreground "#b8bb26" :background "#b8bb26"))
  "Face used to render black color code."
  :group 'term)

(defface term-color-light-yellow
  '((t :foreground "#fabd2f" :background "#fabd2f"))
  "Face used to render black color code."
  :group 'term)

(defface term-color-light-blue
  '((t :foreground "#83a598" :background "#83a598"))
  "Face used to render black color code."
  :group 'term)

(defface term-color-light-magenta
  '((t :foreground "#d3869b" :background "#d3869b"))
  "Face used to render black color code."
  :group 'term)

(defface term-color-light-cyan
  '((t :foreground "#3fd7e5" :background "#3fd7e5"))
  "Face used to render black color code."
  :group 'term)

(defface term-color-light-white
  '((t :foreground "#fdf4c1" :background "#fdf4c1"))
  "Face used to render black color code."
  :group 'term)

(defvar term-colors-16-256
  '("Grey0" "NavyBlue" "DarkBlue" "Blue3" "Blue3" "Blue1" "DarkGreen"
    "DeepSkyBlue4" "DeepSkyBlue4" "DeepSkyBlue4" "DodgerBlue3" "DodgerBlue2"
    "Green4" "SpringGreen4" "Turquoise4" "DeepSkyBlue3" "DeepSkyBlue3"
    "DodgerBlue1" "Green3" "SpringGreen3" "DarkCyan" "LightSeaGreen"
    "DeepSkyBlue2" "DeepSkyBlue1" "Green3" "SpringGreen3" "SpringGreen2"
    "Cyan3" "DarkTurquoise" "Turquoise2" "Green1" "SpringGreen2" "SpringGreen1"
    "MediumSpringGreen" "Cyan2" "Cyan1" "DarkRed" "DeepPink4" "Purple4"
    "Purple4" "Purple3" "BlueViolet" "Orange4" "Grey37" "MediumPurple4"
    "SlateBlue3" "SlateBlue3" "RoyalBlue1" "Chartreuse4" "DarkSeaGreen4"
    "PaleTurquoise4" "SteelBlue" "SteelBlue3" "CornflowerBlue" "Chartreuse3"
    "DarkSeaGreen4" "CadetBlue" "CadetBlue" "SkyBlue3" "SteelBlue1"
    "Chartreuse3" "PaleGreen3" "SeaGreen3" "Aquamarine3" "MediumTurquoise"
    "SteelBlue1" "Chartreuse2" "SeaGreen2" "SeaGreen1" "SeaGreen1"
    "Aquamarine1" "DarkSlateGray2" "DarkRed" "DeepPink4" "DarkMagenta"
    "DarkMagenta" "DarkViolet" "Purple" "Orange4" "LightPink4" "Plum4"
    "MediumPurple3" "MediumPurple3" "SlateBlue1" "Yellow4" "Wheat4" "Grey53"
    "LightSlateGrey" "MediumPurple" "LightSlateBlue" "Yellow4"
    "DarkOliveGreen3" "DarkSeaGreen" "LightSkyBlue3" "LightSkyBlue3" "SkyBlue2"
    "Chartreuse2" "DarkOliveGreen3" "PaleGreen3" "DarkSeaGreen3"
    "DarkSlateGray3" "SkyBlue1" "Chartreuse1" "LightGreen" "LightGreen"
    "PaleGreen1" "Aquamarine1" "DarkSlateGray1" "Red3" "DeepPink4"
    "MediumVioletRed" "Magenta3" "DarkViolet" "Purple" "DarkOrange3"
    "IndianRed" "HotPink3" "MediumOrchid3" "MediumOrchid" "MediumPurple2"
    "DarkGoldenrod" "LightSalmon3" "RosyBrown" "Grey63" "MediumPurple2"
    "MediumPurple1" "Gold3" "DarkKhaki" "NavajoWhite3" "Grey69"
    "LightSteelBlue3" "LightSteelBlue" "Yellow3" "DarkOliveGreen3"
    "DarkSeaGreen3" "DarkSeaGreen2" "LightCyan3" "LightSkyBlue1" "GreenYellow"
    "DarkOliveGreen2" "PaleGreen1" "DarkSeaGreen2" "DarkSeaGreen1"
    "PaleTurquoise1" "Red3" "DeepPink3" "DeepPink3" "Magenta3" "Magenta3"
    "Magenta2" "DarkOrange3" "IndianRed" "HotPink3" "HotPink2" "Orchid"
    "MediumOrchid1" "Orange3" "LightSalmon3" "LightPink3" "Pink3" "Plum3"
    "Violet" "Gold3" "LightGoldenrod3" "Tan" "MistyRose3" "Thistle3" "Plum2"
    "Yellow3" "Khaki3" "LightGoldenrod2" "LightYellow3" "Grey84"
    "LightSteelBlue1" "Yellow2" "DarkOliveGreen1" "DarkOliveGreen1"
    "DarkSeaGreen1" "Honeydew2" "LightCyan1" "Red1" "DeepPink2" "DeepPink1"
    "DeepPink1" "Magenta2" "Magenta1" "OrangeRed1" "IndianRed1" "IndianRed1"
    "HotPink" "HotPink" "MediumOrchid1" "DarkOrange" "Salmon1" "LightCoral"
    "PaleVioletRed1" "Orchid2" "Orchid1" "Orange1" "SandyBrown" "LightSalmon1"
    "LightPink1" "Pink1" "Plum1" "Gold1" "LightGoldenrod2" "LightGoldenrod2"
    "NavajoWhite1" "MistyRose1" "Thistle1" "Yellow1" "LightGoldenrod1" "Khaki1"
    "Wheat1" "Cornsilk1" "Grey100" "Grey3" "Grey7" "Grey11" "Grey15" "Grey19"
    "Grey23" "Grey27" "Grey30" "Grey35" "Grey39" "Grey42" "Grey46" "Grey50"
    "Grey54" "Grey58" "Grey62" "Grey66" "Grey70" "Grey74" "Grey78" "Grey82"
    "Grey85" "Grey89" "Grey93"))

(defmacro term-256-color-define (number color)
  `(defface ,(intern (concat "term-color-" (number-to-string number)))
     (let ((hex-color (apply 'color-rgb-to-hex (color-name-to-rgb ,color))))
       `((t :foreground ,hex-color :background ,hex-color)))
     (format "Color %s" ,number)))

(setq ansi-term-color-vector
      (vconcat
       [term
        term-color-black
        term-color-red
        term-color-green
        term-color-yellow
        term-color-blue
        term-color-magenta
        term-color-cyan
        term-color-white
        term-color-light-black
        term-color-light-red
        term-color-light-green
        term-color-light-yellow
        term-color-light-blue
        term-color-light-magenta
        term-color-light-cyan
        term-color-light-white]
       (cl-loop for j = 16 then (+ j 1)
                while (<= j 255)
                do (eval `(term-256-color-define ,j (nth (- ,j 16) term-colors-16-256)))
                collect (intern (concat "term-color-" (number-to-string j))))))

(defvar term-ansi-disable-bold t)


(define-advice term-handle-colors-array (:override (parameter) 256-colors)
  (cond
   ;; 256
   ((and (= term-terminal-previous-parameter 5)
         (= term-terminal-previous-parameter-2 38)
         (>= parameter 0)
         (<= parameter 256))
    (setq term-ansi-current-color (+ parameter 1)))

   ((and (= term-terminal-previous-parameter 5)
         (= term-terminal-previous-parameter-2 48)
         (>= parameter 0)
         (<= parameter 256))
    (setq term-ansi-current-bg-color (+ parameter 1)))

   ;; Bold  (terminfo: bold)
   ((eq parameter 1)
    (setq term-ansi-current-bold t))

   ;; Underline
   ((eq parameter 4)
    (setq term-ansi-current-underline t))

   ;; Blink (unsupported by Emacs), will be translated to bold.
   ;; This may change in the future though.
   ((eq parameter 5)
    (setq term-ansi-current-bold t))

   ;; Reverse (terminfo: smso)
   ((eq parameter 7)
    (setq term-ansi-current-reverse t))

   ;; Invisible
   ((eq parameter 8)
    (setq term-ansi-current-invisible t))

   ;; Reset underline (terminfo: rmul)
   ((eq parameter 24)
    (setq term-ansi-current-underline nil))

   ;; Reset reverse (terminfo: rmso)
   ((eq parameter 27)
    (setq term-ansi-current-reverse nil))

   ;; ADDITION
   ((and (>= parameter 90) (<= parameter 97))
    (setq term-ansi-current-color (- parameter 81)))

   ;; Foreground
   ((and (>= parameter 30) (<= parameter 37))
    (setq term-ansi-current-color (- parameter 29)))

   ;; Reset foreground
   ((eq parameter 39)
    (setq term-ansi-current-color 0))

   ;; Background
   ((and (>= parameter 40) (<= parameter 47))
    (setq term-ansi-current-bg-color (- parameter 39)))


   ;; Reset background
   ((eq parameter 49)
    (setq term-ansi-current-bg-color 0))

   ;; 0 (Reset) or unknown (reset anyway)
   (t
    (term-ansi-reset)))

  ;; (message "Debug: U-%d R-%d B-%d I-%d D-%d F-%d B-%d"
  ;;          term-ansi-current-underline
  ;;          term-ansi-current-reverse
  ;;          term-ansi-current-bold
  ;;          term-ansi-current-invisible
  ;;          term-ansi-face-already-done
  ;;          term-ansi-current-color
  ;;          term-ansi-current-bg-color)

  (unless term-ansi-face-already-done
    (if term-ansi-current-invisible
        (let ((color
               (if term-ansi-current-reverse
                   (face-foreground
                    (elt ansi-term-color-vector term-ansi-current-color)
                    nil 'default)
                 (face-background
                  (elt ansi-term-color-vector term-ansi-current-bg-color)
                  nil 'default))))
          (setq term-current-face
                (list :background color
                      :foreground color))
          ) ;; No need to bother with anything else if it's invisible.
      (setq term-current-face
            (list :foreground
              (face-foreground
               (elt ansi-term-color-vector term-ansi-current-color)
               nil 'default)
              :background
              (face-background
               (elt ansi-term-color-vector term-ansi-current-bg-color)
               nil 'default)
              :inverse-video term-ansi-current-reverse))

      (when (and term-ansi-current-bold
                 (not term-ansi-disable-bold))
        (setq term-current-face
              `(,term-current-face :inherit term-bold)))

      (when (and term-ansi-disable-bold term-ansi-current-bold)
        (let ((pos (cl-position
                    (plist-get term-current-face :foreground)
                    (mapcar (lambda (face) (face-foreground face nil 'default))
                            (cl-subseq ansi-term-color-vector 1 9))
                    :test #'string=)))
          (if pos
              (plist-put term-current-face
                         :foreground
                         (face-foreground
                          (elt ansi-term-color-vector (+ pos 9)) nil 'default)))))

      (when term-ansi-current-underline
        (setq term-current-face
              `(,term-current-face :inherit term-underline)))))

  ;;	(message "Debug %S" term-current-face)
  ;; FIXME: shouldn't we set term-ansi-face-already-done to t here?  --Stef
  (setq term-ansi-face-already-done nil))

(setq term-termcap-format
  "%s%s:li#%d:co#%d:cl=\\E[H\\E[J:cd=\\E[J:bs:am:xn:cm=\\E[%%i%%d;%%dH\
:nd=\\E[C:up=\\E[A:ce=\\E[K:ho=\\E[H:pt\
:al=\\E[L:dl=\\E[M:DL=\\E[%%dM:AL=\\E[%%dL:cs=\\E[%%i%%d;%%dr:sf=^J\
:dc=\\E[P:DC=\\E[%%dP:IC=\\E[%%d@:im=\\E[4h:ei=\\E[4l:mi:\
:so=\\E[7m:se=\\E[m:us=\\E[4m:ue=\\E[m:md=\\E[1m:mr=\\E[7m:me=\\E[m\
:UP=\\E[%%dA:DO=\\E[%%dB:LE=\\E[%%dD:RI=\\E[%%dC\
:kl=\\EOD:kd=\\EOB:kr=\\EOC:ku=\\EOA:kN=\\E[6~:kP=\\E[5~:@7=\\E[4~:kh=\\E[1~\
:mk=\\E[8m:cb=\\E[1K:op=\\E[39;49m:Co#256:pa#32767:AB=\\E[48;5;%%dm:AF=\\E[38;5;%%dm:cr=^M\
:bl=^G:do=^J:le=^H:ta=^I:se=\\E[27m:ue=\\E[24m\
:kb=^?:kD=^[[3~:sc=\\E7:rc=\\E8:r1=\\Ec:")

(setq term-term-name "eterm-256color")