From e684e2a73b8385a26fc2bda96b9fff839c726f92 Mon Sep 17 00:00:00 2001 From: JenChieh Date: Tue, 13 Aug 2024 04:48:10 -0700 Subject: [PATCH] feat: Add choose char --- elenv.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/elenv.el b/elenv.el index d546ff3..3251848 100644 --- a/elenv.el +++ b/elenv.el @@ -316,6 +316,14 @@ Optional argument REP is the replacement string of non-displayable character." (string-join (reverse results))) "")) +;;;###autoload +(defun elenv-choose-char (&rest args) + "Choose a character from the list ARGS." + (cl-some (lambda (ch) + (when (elenv-char-displayable-p ch) + ch)) + args)) + ;; ;;; String