Tmux etc

sbcl/.quicklisp/dists/quicklisp/software/croatoan-20191227-git/src/legacy_coding.lisp

@@ -0,0 +1,26 @@
+(in-package :croatoan)
+
+;;; legacy coding
+;;; http://invisible-island.net/ncurses/man/legacy_coding.3x.html
+
+;;; C prototypes
+
+;; int use_legacy_coding(int level);
+
+;;; Low-level C functions
+
+(defcfun ("use_legacy_coding" %use-legacy-coding) :int (level :int))
+
+;;; High-level Lisp wrappers
+
+;; Possible values: 0 (default), 1 and 2.
+(defun set-char-representation (level)
+  "Set how char-to-string will represent a char."
+  (%use-legacy-coding level))
+
+;;; NOTES
+
+;; This affects %unctrl/char-to-string. See util.lisp and the manpage.
+
+;;; TODOs
+