;; -*- lexical-binding: t -*-
;;
;; --------------------------------------------------------------------------

(require 'cl-lib)
(cl-pushnew "." load-path :test #'string=)
(require 'luki-lisp)

;; --------------------------------------------------------------------------

(defun what-char (&optional pos) (i)
  (or pos (setf pos (point)))
  (let ((char (char-after pos)))
    (unless (characterp char)
      (error "No char") )
    (let* ((new (get-char-code-property char 'name))
           (old (get-char-code-property char 'old-name))
           (msg (downcase (if (& new old)
                              (@f "%s [old name: %s]" new old)
                            (or new old)))))
      (kill-new msg)
      ($ msg))))

;; (what-char)       ; space
;; (what-char)}      ; right curly bracket (old name closing curly bracket)
;; M-x what-char RET ; line feed (lf)

;; --------------------------------------------------------------------------

(<- 'll-char)