14 lines
524 B
Common Lisp
14 lines
524 B
Common Lisp
(in-package :de.anvi.croatoan)
|
|
|
|
(defun extract-char (window &key y x position)
|
|
"Extract and return the single-byte complex char from the window.
|
|
|
|
If the position coordinates y (row) and x (column) are given, move the
|
|
cursor to the position first and then add the character.
|
|
|
|
The position can also be passed in form of a two-element list."
|
|
(when (and y x) (move window y x))
|
|
(when position (apply #'move window position))
|
|
(let* ((winptr (winptr window))
|
|
(chtype (%winch winptr)))
|
|
(chtype2xchar chtype)))
|