help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: rcd-box.el for box drawings and tables


From: Emanuel Berg
Subject: Re: rcd-box.el for box drawings and tables
Date: Wed, 09 Nov 2022 05:28:26 +0100
User-agent: Gnus/5.13 (Gnus v5.13)

Jean Louis wrote:

> Those characters are like this one ┓ and they are called box
> drawing characters.

That one, ┓, is called "box drawings heavy down and left",
old name "forms heavy down and left".

;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/char.el

(defun what-char (&optional pos)
  (interactive "P")
  (let*((position (or (and (numberp pos) pos)
                      (point) ))
        (kill pos)
        (char (char-after position)) )
    (when char
      (let*((name     (get-char-code-property char 'name))
            (old-name (get-char-code-property char 'old-name))
            (msg (if (and name old-name)
                     (format "%s (old: %s)" name old-name)
                   (or name old-name) ))
            (msg-dc (when (stringp msg)
                      (downcase msg) )))
        (when msg-dc
          (prog1 msg-dc
            (when kill
              (kill-new msg-dc) )
            (message "%s (at point: %d)" msg-dc position) ))))))

;; (what-char)                  ; "space"
;; (what-char 754)              ; "right parenthesis (old: closing parenthesis)"
;; C-u 754 M-x what-char RET    ; same, but also killed
;; C-u M-x what-char RET* (C-y) ; asterisk is yanked
;; M-x what-char RET            ; line feed (lf) (at point: 1034)

-- 
underground experts united
https://dataswamp.org/~incal




reply via email to

[Prev in Thread] Current Thread [Next in Thread]