From f04ada478f4bfa5637744876f00ff56f85dcf552 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Tue, 21 Jul 2026 00:14:25 -0400 Subject: Update --- src/gizmo/wasp-mandarin.el | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) create mode 100644 src/gizmo/wasp-mandarin.el (limited to 'src/gizmo/wasp-mandarin.el') diff --git a/src/gizmo/wasp-mandarin.el b/src/gizmo/wasp-mandarin.el new file mode 100644 index 00000000..f00cb2bc --- /dev/null +++ b/src/gizmo/wasp-mandarin.el @@ -0,0 +1,28 @@ +;;; wasp-mandarin --- description -*- lexical-binding: t; -*- +;;; Commentary: +;;; Code: + +(defun w/mandarin () + "Modify the interface to support language learning." + (interactive) + (defun mode-line-render (left right) + "Return a string of `window-width' length containing LEFT and RIGHT." + (let* ((available-width (- (window-width) (length left) 10))) + (format (format " %%s %%%ds " available-width) left right))) + (setq mode-line-format + (setq-default mode-line-format + `((:eval + (mode-line-render + (concat + (propertize (format-mode-line (buffer-name)) 'face 'bold) + " —— " + (format-mode-line mode-name) + "模式 —— " + (s-replace "~" "家园" (c/replace-home default-directory))) + (format-mode-line + '(line-number-mode + (" 排%l" (column-number-mode " 柱%c"))))))))) + ) + +(provide 'wasp-mandarin) +;;; wasp-mandarin.el ends here -- cgit v1.3.1