From 7f2884a5dabe1af8c12a3ec66039e00367fc7208 Mon Sep 17 00:00:00 2001 From: chens Date: Wed, 30 Oct 2024 18:14:17 +0800 Subject: [PATCH] add auto-space fork LuciusChen/.emacs.d --- init.el | 1 + lisp/init-auto-space.el | 106 +++++++++++++++++++++++++++++++++++++ lisp/init-editing-utils.el | 62 ++++++++++++++++++++++ 3 files changed, 169 insertions(+) create mode 100644 lisp/init-auto-space.el diff --git a/init.el b/init.el index 7156b3eed3..f7cdcde889 100644 --- a/init.el +++ b/init.el @@ -193,6 +193,7 @@ (require 'init-perl) (require 'init-anki) (require 'init-date) +(require 'init-auto-space) ;; Extra packages which don't require any configuration diff --git a/lisp/init-auto-space.el b/lisp/init-auto-space.el new file mode 100644 index 0000000000..ab300c56c1 --- /dev/null +++ b/lisp/init-auto-space.el @@ -0,0 +1,106 @@ +;;; auto-space.el --- Automatically add space between Chinese and English characters -*- lexical-binding: t -*- +(defun add-space-between-chinese-and-english () + "Automatically add a space between Chinese and English characters." + (let ((current-char (char-before)) + (prev-char (char-before (1- (point)))) + (next-char (char-after))) + (when (and current-char prev-char + (or (and (is-chinese-character prev-char) + (is-halfwidth-character current-char)) + (and (is-halfwidth-character prev-char) + (is-chinese-character current-char))) + (not (eq prev-char ?\s))) ; Check if the previous character is a space + (save-excursion + (goto-char (1- (point))) + (insert " "))) + (when (and current-char next-char + (should-insert-space current-char next-char) + (not (eq current-char ?\s))) ; Check if the current character is a space + (save-excursion + (goto-char (point)) + (insert " "))))) + +(defun is-chinese-character (char) + "Determine if a character is a Chinese character." + (and char (or (and (>= char #x4e00) (<= char #x9fff)) + (and (>= char #x3400) (<= char #x4dbf)) + (and (>= char #x20000) (<= char #x2a6df)) + (and (>= char #x2a700) (<= char #x2b73f)) + (and (>= char #x2b740) (<= char #x2b81f)) + (and (>= char #x2b820) (<= char #x2ceaf))))) + +(defun is-halfwidth-character (char) + "Determine if a character is a halfwidth character using char-width." + (and char (or (and (>= char ?a) (<= char ?z)) + (and (>= char ?A) (<= char ?Z)) + (and (>= char ?0) (<= char ?9)) + (and char (member char '(?% ?> ?< ?+ ?=)))))) + +(defun should-insert-space (char1 char2) + "Determine if a space should be inserted between CHAR1 and CHAR2." + (or (and (is-chinese-character char1) (is-halfwidth-character char2)) + (and (is-halfwidth-character char1) (is-chinese-character char2)))) + +(defun delayed-add-space-between-chinese-and-english () + "Delay execution to automatically add a space between Chinese and English characters." + (run-with-idle-timer 0 nil 'add-space-between-chinese-and-english)) + +(defun insert-space-if-needed (char1 char2 buffer-content) + "Insert a space between CHAR1 and CHAR2 in BUFFER-CONTENT if needed." + (if (and (should-insert-space char1 char2) (not (eq char2 ?\s))) + (concat buffer-content " ") + buffer-content)) + +(defun process-pasted-text (text prev-char next-char) + "Process pasted TEXT to add spaces between Chinese and English characters, considering PREV-CHAR and NEXT-CHAR." + (with-temp-buffer + (insert (if prev-char (concat (char-to-string prev-char) text) text)) + (goto-char (point-min)) + (while (not (eobp)) + (let ((current-char (char-after)) + (next-char-internal (char-after (1+ (point))))) + (when (and current-char next-char-internal + (should-insert-space current-char next-char-internal) + (not (eq (char-after) ?\s))) + (save-excursion + (goto-char (1+ (point))) + (insert " ")))) + (forward-char)) + (let ((buffer-content (buffer-string))) + (if prev-char + (setq buffer-content (substring buffer-content 1))) + ;; Add space between the last char of pasted text and next-char + (setq buffer-content (insert-space-if-needed + (aref buffer-content (1- (length buffer-content))) + next-char + buffer-content)) + buffer-content))) + +(defun auto-space-yank-advice (orig-fun &rest args) + "Advice to automatically add spaces between Chinese and English characters after yanking." + (let ((beg (point)) + (prev-char (char-before))) + (apply orig-fun args) + (let ((end (point)) + (next-char (char-after))) + (let ((pasted-text (buffer-substring-no-properties beg end))) + (delete-region beg end) + (insert (process-pasted-text pasted-text prev-char next-char)))))) + +;;;###autoload +(define-minor-mode auto-space-mode + "Mode to automatically add a space between Chinese and English characters." + :lighter " Auto-Space" + :global t + (if auto-space-mode + (progn + (advice-add 'yank :around #'auto-space-yank-advice) + (advice-add 'yank-pop :around #'auto-space-yank-advice) + (add-hook 'post-self-insert-hook 'add-space-between-chinese-and-english)) + (progn + (advice-remove 'yank #'auto-space-yank-advice) + (advice-remove 'yank-pop #'auto-space-yank-advice) + (remove-hook 'post-self-insert-hook 'add-space-between-chinese-and-english)))) + +(provide 'init-auto-space) +;;; auto-space.el ends here diff --git a/lisp/init-editing-utils.el b/lisp/init-editing-utils.el index 17e495ea0b..5c7589210d 100644 --- a/lisp/init-editing-utils.el +++ b/lisp/init-editing-utils.el @@ -560,5 +560,67 @@ ORIG is the advised function, which is called with its ARGS." +(defun process-pasted-text (text prev-char next-char) + "Process pasted TEXT to add spaces between Chinese and English characters, considering PREV-CHAR and NEXT-CHAR." + (with-temp-buffer + (insert (if prev-char (concat (char-to-string prev-char) text) text)) + (goto-char (point-min)) + (while (not (eobp)) + (let ((current-char (char-after)) + (next-char-internal (char-after (1+ (point))))) + (when (and current-char next-char-internal + (should-insert-space current-char next-char-internal) + (not (eq (char-after) ?\s))) + (save-excursion + (goto-char (1+ (point))) + (insert " ")))) + (forward-char)) + (let ((buffer-content (buffer-string))) + (if prev-char + (setq buffer-content (substring buffer-content 1))) + ;; Add space between the last char of pasted text and next-char + (setq buffer-content (insert-space-if-needed + (aref buffer-content (1- (length buffer-content))) + next-char + buffer-content)) + buffer-content))) + +;; (defun auto-space-yank-advice (orig-fun &rest args) +;; "Advice to automatically add spaces between Chinese and English characters after yanking." +;; (let ((beg (point)) +;; (prev-char (char-before))) +;; (apply orig-fun args) +;; (let ((end (point)) +;; (next-char (char-after))) +;; (let ((pasted-text (buffer-substring-no-properties beg end))) +;; (delete-region beg end) +;; (insert (process-pasted-text pasted-text prev-char next-char)))))) + +;; (advice-add 'yank :around #'auto-space-yank-advice) +;; (advice-add 'yank-pop :around #'auto-space-yank-advice) + +;; (defun add-space-between-chinese-and-english () +;; "Automatically add a space between Chinese and English characters." +;; (let ((current-char (char-before)) +;; (prev-char (char-before (1- (point)))) +;; (next-char (char-after))) +;; (when (and current-char prev-char +;; (or (and (is-chinese-character prev-char) (is-halfwidth-character current-char)) +;; (and (is-halfwidth-character prev-char) (is-chinese-character current-char))) +;; (not (eq prev-char ?\s))) ; Check if the previous character is a space +;; (save-excursion +;; (goto-char (1- (point))) +;; (insert " "))) +;; (when (and current-char next-char +;; (or (and (is-chinese-character current-char) (is-halfwidth-character next-char)) +;; (and (is-halfwidth-character current-char) (is-chinese-character next-char))) +;; (not (eq current-char ?\s))) ; Check if the current character is a space +;; (save-excursion +;; (goto-char (point)) +;; (insert " "))))) + + + + (provide 'init-editing-utils) ;;; init-editing-utils.el ends here