Emacs Part 44

[0001 名無しさん＠お腹いっぱい。 2013/12/14(土) 17:36:04.45]

語り合いましょう。

GNU Emacs - GNU Project - Free Software Foundation (FSF)
https://www.gnu.org/software/emacs/

EmacsWiki: サイトマップ
http://www.emacswiki.org/emacs/

前スレ
Emacs Part 43
http://toro.2ch.net/test/read.cgi/unix/1370754332/

[0995 名無しさん＠お腹いっぱい。 2014/02/08(土) 16:27:36.30]

解像度高いと 9pt って小さすぎね？

[0996 名無しさん＠お腹いっぱい。 2014/02/08(土) 16:30:25.16]

ピクセル幅とるの書いてみたけど MeiryoKe_Console が等幅じゃないことが判明してしまってショック
以下 0 から (max-char) までの文字のピクセル幅の uniq 値をソートして出力するコード

(let* ((font-name "ＭＳ ゴシック")
(font-obj (open-font (find-font (font-spec :name font-name))))
(table (make-char-table nil))
width-list
result)
(mapc (lambda (c)
(let ((pixel-width
(ignore-errors (aref
(aref
(font-get-glyphs font-obj 0 1 (char-to-string c))
0)
4))))
(when pixel-width
;; (set-char-table-range table c pixel-width)
(add-to-list 'width-list pixel-width))))
(number-sequence 0 (max-char)))
;; (optimize-char-table char-width-table)
;; (cons (sort width-list '<) table)
(sort width-list '<)
)

[0997 名無しさん＠お腹いっぱい。 2014/02/08(土) 16:33:26.83]

emacs死にかけたぞおい

[0998 名無しさん＠お腹いっぱい。 2014/02/08(土) 16:38:45.52]

>>996
起動時に毎回フォント毎にそんな重いの走らせてられんよ

[0999 名無しさん＠お腹いっぱい。 2014/02/08(土) 16:42:08.28]

フォントになあ

[1000 名無しさん＠お腹いっぱい。 2014/02/08(土) 16:48:33.62]

フォントだよ