如何改变中文字符宽度

Emacs-general
1

emacs中算第几列时，一个中文字符等于两个英文占的列数，怎么把它改成一对一呢？ 我找到这个：

谁能写个函数，运行一遍把所有字符都变成一列，然后还可以切换回去。 这个主要是用artist-mode画ditaa流程图时对齐用（中英文等宽）。

1 个赞
2

没发现什么好办法，Emacs 计算列号好像也不容易改，或许你可以报告个 Bug，因为很可能得要上游改代码。作为临时的方法，你可以自己计算个「列号」，比如：

(define-minor-mode your-column-number-mode
  "显示至行首的字符数目."
  :lighter (:eval (format " [%d]" (length (buffer-substring
                                           (line-beginning-position)
                                           (point))))))

注意启用这个 Minor Mode 会有时（比如移动光标）会减慢 Emacs，所以只在你需要的 Buffer 启用它，它是个 buffer-local 的 Minor Mode。

3

问题不是计算列号，而是artist-mode画方框的坐标是列号（中文占俩宽度），而ditaa所有字符等宽，所以中英字符不等宽，方框没法对齐（封口）。另外，在org-table也无法实现对齐。

4

主题引用连接好像实现了改变字符宽度，如果默认用unicode，所有unicode等宽，应该就解决了，要是有个函数在两种状态下切换就好了。

5

https://raw.githubusercontent.com/hamano/locale-eaw/master/eaw.el

6 
(defun unicode-char-range ()
'((#x00 . #xFFFF)))

(defvar default-char-width-table)

(setq default-char-width-table char-width-table)

; for over 23 (checked work in emacs 24)
(defun ditaa-set-char-width ()
(interactive)
(while (char-table-parent char-width-table)
        (setq char-width-table (char-table-parent char-width-table)))
(let ((table (make-char-table nil))
        (width 1))
    (dolist (range (unicode-char-range))
    (set-char-table-range table range width))
    (optimize-char-table table)
    (set-char-table-parent table char-width-table)
    (setq char-width-table table)))

(defun ditaa-unset-char-width ()
(interactive)
(setq char-width-table default-char-width-table))
7

有个疑问

现在英文也和中文一样占两格字符么，还是都占一格字符，你是如何设置的？

应当改进 ditaa 吧，即使在 Emacs 中能用了，用其它编辑器打开时还是不能对齐。

8

其他我不管，中文和英文等宽，都是一个字符可以这样设置（抄别人的）

(set-font emacs-english-font emacs-cjk-font '(20 . 12))
9

这个给 ob-ditaa 添加一个前处理 hook，估计也可以， 就是这个hook函数不太好写

10

原来你们两位已经讨论过这个问题了，才发现论坛也有一帖 ditaa 绘图中显示中文的问题 。

按这种方法设置，中文会不会太小了？ 根本问题还是 ditaa 的功能过于简单了。

另外，看到你另一个 issue，org-table 用的是 string-width 来对齐表格的，不需要再另外设置 char-width-table 。所以 set-font 的方案行不通，使用默认的设置就可以对齐了。

发现行的通，绕了一个圈子 :wink: