Emacs.Emacs23のノウハウ RSSPLAIN

Related pages: Emacs.CarbonEmacsのノウハウ
5555555555555555555555555555555555555555555444444434444444555
5

Emacs 23 for Mac OS XEXTの設定ノウハウなど

5

 

5

美しい日本語フォント設定

5

丸文字フォントに設定するとかなり見やすく美しい

5

 

5
.emacsの設定内容はこれだけ
5
 参考リンク: Emacs23 の フォント設定EXT
5
(when (eq window-system 'ns)
5
  (let ((my-font-height 120)
5
        (my-font (cond
5
                  (t   "Monaco")  ;; XCode 3.1 で使っているフォント
5
                  (nil "Menlo")   ;; XCode 3.2 で使ってるフォント
5
                  ))
5
        (my-font-ja "Hiragino Maru Gothic Pro"))
5
    (setq mac-allow-anti-aliasing t)
5
  
5
    ;; フォントサイズの微調節 (12ptで合うように)
5
    (setq face-font-rescale-alist
5
          '(("^-apple-hiragino.*" . 1.2)
5
            (".*osaka-bold.*" . 1.2)
5
            (".*osaka-medium.*" . 1.2)
5
            (".*courier-bold-.*-mac-roman" . 1.0)
5
            (".*monaco cy-bold-.*-mac-cyrillic" . 0.9)
5
            (".*monaco-bold-.*-mac-roman" . 0.9)
5
            ("-cdac$" . 1.3)))
5
    
5
    ;; デフォルトフォント設定
5
    (when my-font
5
      (set-face-attribute 'default nil :family my-font :height my-font-height)
5
      ;;(set-frame-font (format "%s-%d" my-font (/ my-font-height 10)))
5
      )
5
    
5
    ;; 日本語文字に別のフォントを指定
5
    (when my-font-ja
5
      (let ((fn (frame-parameter nil 'font))
5
            (rg "iso10646-1"))
5
        (set-fontset-font fn 'katakana-jisx0201 `(,my-font-ja . ,rg))
5
        (set-fontset-font fn 'japanese-jisx0208 `(,my-font-ja . ,rg))
5
        (set-fontset-font fn 'japanese-jisx0212 `(,my-font-ja . ,rg))))))
5

 

5
 画面スナップショット
5
 4640928690_30864631c1_o
5

 

4

 

4

'¥'キーで '\' を入力する

4
 参考リンク: Re: バックスラッシュの入力はどうすれば (Macemacsjp-users 1126) - MacEmacs JP - SourceForge.JPEXT
4

以下のコードを.emacsに入れると \ が入力できるようになる。

4
;;------------------------------------------------------------
4
;; Emacs23 on Mac OS X で '¥'キーで '\' を入力する
4
;;------------------------------------------------------------
3
(when (eq (window-system) 'ns)
4
  (progn
4
    (define-key global-map [?¥] [?\\])
4
    (define-key global-map [?\C-¥] [?\C-\\])
4
    (define-key global-map [?\M-¥] [?\M-\\])
4
    (define-key global-map [?\C-\M-¥] [?\C-\M-\\])))
4

 

4

 

5

他に情報があれば追記おねがいします

5

 

5

...comment disabled...