root/branches/2.1/nt/dot.emacs.ja

Revision 3366, 8.7 kB (checked in by miyoshi, 4 years ago)

* mw32font.c (mw32_initialize_default_logfont): Undo the last
change.

* dot.emacs.ja: Use low level font APIs instead of high level
ones.

Line 
1 ;;;; -*- mode: lisp-interaction; syntax: elisp; coding: iso-2022-7bit -*-
2 ;;;;
3 ;;;; Copyright (C) 2001 The Meadow Team
4
5 ;; Author: Koichiro Ohba <koichiro@meadowy.org>
6 ;;      Kyotaro HORIGUCHI <horiguti@meadowy.org>
7 ;;      Hideyuki SHIRAI <shirai@meadowy.org>
8 ;;      KOSEKI Yoshinori <kose@meadowy.org>
9 ;;      and The Meadow Team.
10
11
12 ;; ;;; Mule-UCS $B$N@_Dj(B
13 ;; ;; ftp://ftp.m17n.org/pub/mule/Mule-UCS/
14 ;; ;; (set-language-environment) $B$NA0$K@_Dj$7$^$9(B
15 ;; (require 'un-define)
16 ;; (setq bitmap-alterable-charset 'tibetan-1-column)
17 ;; (require 'jisx0213)
18
19
20 ;;; $BF|K\8l4D6-@_Dj(B
21 (set-language-environment "Japanese")
22
23
24 ;;; IME$B$N@_Dj(B
25 (mw32-ime-initialize)
26 (setq default-input-method "MW32-IME")
27 (setq-default mw32-ime-mode-line-state-indicator "[--]")
28 (setq mw32-ime-mode-line-state-indicator-list '("[--]" "[$B$"(B]" "[--]"))
29 (add-hook 'mw32-ime-on-hook
30           (function (lambda () (set-cursor-height 2))))
31 (add-hook 'mw32-ime-off-hook
32           (function (lambda () (set-cursor-height 4))))
33
34
35 ;; ;;; $B%+!<%=%k$N@_Dj(B
36 ;; ;; (set-cursor-type 'box)            ; Meadow-1.10$B8_49(B (SKK$BEy$G?'$,JQ$k@_Dj(B)
37 ;; ;; (set-cursor-type 'hairline-caret) ; $B=DK@%-%c%l%C%H(B
38
39
40 ;;; $B%^%&%9%+!<%=%k$r>C$9@_Dj(B
41 (setq w32-hide-mouse-on-key t)
42 (setq w32-hide-mouse-timeout 5000)
43
44
45 ;;; font-lock$B$N@_Dj(B
46 (global-font-lock-mode t)
47
48
49 ;; ;;; TrueType $B%U%)%s%H@_Dj(B
50 ;; (w32-add-font
51 ;;  "private-fontset"
52 ;;  '((spec
53 ;;     ((:char-spec ascii :height 120)
54 ;;      strict
55 ;;      (w32-logfont "Courier New" 0 -13 400 0 nil nil nil 0 1 3 49))
56 ;;     ((:char-spec ascii :height 120 :weight bold)
57 ;;      strict
58 ;;      (w32-logfont "Courier New" 0 -13 700 0 nil nil nil 0 1 3 49))
59 ;;     ((:char-spec ascii :height 120 :slant italic)
60 ;;      strict
61 ;;      (w32-logfont "Courier New" 0 -13 400 0   t nil nil 0 1 3 49))
62 ;;     ((:char-spec ascii :height 120 :weight bold :slant italic)
63 ;;      strict
64 ;;      (w32-logfont "Courier New" 0 -13 700 0   t nil nil 0 1 3 49))
65 ;;     ((:char-spec japanese-jisx0208 :height 120)
66 ;;      strict
67 ;;      (w32-logfont "$B#M#S(B $B%4%7%C%/(B" 0 -16 400 0 nil nil nil 128 1 3 49))
68 ;;     ((:char-spec japanese-jisx0208 :height 120 :weight bold)
69 ;;      strict
70 ;;      (w32-logfont "$B#M#S(B $B%4%7%C%/(B" 0 -16 700 0 nil nil nil 128 1 3 49)
71 ;;      ((spacing . -1)))
72 ;;     ((:char-spec japanese-jisx0208 :height 120 :slant italic)
73 ;;      strict
74 ;;      (w32-logfont "$B#M#S(B $B%4%7%C%/(B" 0 -16 400 0   t nil nil 128 1 3 49))
75 ;;     ((:char-spec japanese-jisx0208 :height 120 :weight bold :slant italic)
76 ;;      strict
77 ;;      (w32-logfont "$B#M#S(B $B%4%7%C%/(B" 0 -16 700 0   t nil nil 128 1 3 49)
78 ;;      ((spacing . -1))))))
79
80 ;; (set-face-attribute 'variable-pitch nil :family "*")
81
82
83 ;; ;;; BDF $B%U%)%s%H@_Dj(B
84 ;;
85 ;; ;;; ($BJ}K!$=$N(B1) Netinstall $B%Q%C%1!<%8$r;H$&J}K!(B
86 ;; ;;; misc $B$H(B intlfonts $B%Q%C%1!<%8$rF~$l$^$9!#(B
87 ;; ;;; .emacs$B$N@_Dj(B
88 ;; (setq bdf-use-intlfonts16 t)
89 ;; (setq initial-frame-alist '((font . "intlfonts16")))
90 ;;
91 ;; ;;; ($BJ}K!$=$N(B1')
92 ;; ;;; intlfonts-file-16dot-alist $B$N7A<0$G(B bdf-fontset-alist $B$r=q$-!"(B
93 ;; ;;; $B<!$r@_Dj$9$l$PNI$$!#(B
94 ;; ;;;  (require 'bdf)
95 ;; ;;;  (bdf-configure-fontset "bdf-fontset" bdf-fontset-alist)
96 ;; ;;; $B>\:Y$O(B $MEADOW/pkginfo/auto-autoloads.el $B$H(B $MEADOW/site-lisp/bdf.el $B$r(B
97 ;; ;;; $B;2>H$N$3$H!#(B
98 ;;
99 ;; ;;; ($BJ}K!$=$N(B2)
100 ;; ;;; $B%U%)%s%H$N;XDjJ}K!$O<!$N%5%s%W%k$r;29M$K$9$k!#(B
101 ;; ;;; normal, bold, italic, bold-itaric $B%U%)%s%H$r;XDj$9$kI,MW$"$j!#(B
102 ;; (setq bdf-font-directory "c:/Meadow/fonts/intlfonts/")
103 ;; (w32-add-font "bdf-fontset"
104 ;; `((spec
105 ;;    ;; ascii
106 ;;    ((:char-spec ascii :height any :weight normal :slant normal)
107 ;;     strict (bdf-font ,(expand-file-name "lt1-16-etl.bdf" bdf-font-directory)))
108 ;;    ((:char-spec ascii :height any :weight bold :slant normal)
109 ;;     strict (bdf-font ,(expand-file-name "lt1-16b-etl.bdf" bdf-font-directory)))
110 ;;    ((:char-spec ascii :height any :weight normal :slant any)
111 ;;     strict (bdf-font ,(expand-file-name "lt1-16i-etl.bdf" bdf-font-directory)))
112 ;;    ((:char-spec ascii :height any :weight bold :slant any)
113 ;;     strict (bdf-font ,(expand-file-name "lt1-16bi-etl.bdf" bdf-font-directory)))
114 ;;    ;; katakana-jisx0201
115 ;;    ((:char-spec katakana-jisx0201 :height any :weight normal :slant normal)
116 ;;     strict (bdf-font ,(expand-file-name "8x16rk.bdf" bdf-font-directory))
117 ;;     ((encoding . 1-byte-set-msb)))
118 ;;    ((:char-spec katakana-jisx0201 :height any :weight bold :slant normal)
119 ;;     strict (bdf-font ,(expand-file-name "8x16rk.bdf" bdf-font-directory))
120 ;;     ((encoding . 1-byte-set-msb)))
121 ;;    ((:char-spec katakana-jisx0201 :height any :weight normal :slant any)
122 ;;     strict (bdf-font ,(expand-file-name "8x16rk.bdf" bdf-font-directory))
123 ;;     ((encoding . 1-byte-set-msb)))
124 ;;    ((:char-spec katakana-jisx0201 :height any :weight bold :slant any)
125 ;;     strict (bdf-font ,(expand-file-name "8x16rk.bdf" bdf-font-directory))
126 ;;     ((encoding . 1-byte-set-msb)))
127 ;;    ;; latin-jisx0201
128 ;;    ((:char-spec latin-jisx0201 :height any :weight normal :slant normal)
129 ;;     strict (bdf-font ,(expand-file-name "8x16rk.bdf" bdf-font-directory)))
130 ;;    ((:char-spec latin-jisx0201 :height any :weight bold :slant normal)
131 ;;     strict (bdf-font ,(expand-file-name "8x16rk.bdf" bdf-font-directory)))
132 ;;    ((:char-spec latin-jisx0201 :height any :weight normal :slant any)
133 ;;     strict (bdf-font ,(expand-file-name "8x16rk.bdf" bdf-font-directory)))
134 ;;    ((:char-spec latin-jisx0201 :height any :weight bold :slant any)
135 ;;     strict (bdf-font ,(expand-file-name "8x16rk.bdf" bdf-font-directory)))
136 ;;    ;; japanese-jisx0208
137 ;;    ((:char-spec japanese-jisx0208 :height any :weight normal :slant normal)
138 ;;     strict (bdf-font ,(expand-file-name "j90-16.bdf" bdf-font-directory)))
139 ;;    ((:char-spec japanese-jisx0208 :height any :weight bold :slant normal)
140 ;;     strict (bdf-font ,(expand-file-name "j90-16.bdf" bdf-font-directory)))
141 ;;    ((:char-spec japanese-jisx0208 :height any :weight normal :slant any)
142 ;;     strict (bdf-font ,(expand-file-name "j90-16.bdf" bdf-font-directory)))
143 ;;    ((:char-spec japanese-jisx0208 :height any :weight bold :slant any)
144 ;;     strict (bdf-font ,(expand-file-name "j90-16b.bdf" bdf-font-directory))))))
145
146 ;; $B=i4|%U%l!<%`$N@_Dj(B
147 (setq default-frame-alist
148       (append (list '(foreground-color . "black")
149                     '(background-color . "LemonChiffon")
150                     '(background-color . "gray")
151                     '(border-color . "black")
152                     '(mouse-color . "white")
153                     '(cursor-color . "black")
154 ;;                  '(ime-font . (w32-logfont "$B#M#S(B $B%4%7%C%/(B"
155 ;;                                            0 16 400 0 nil nil nil
156 ;;                                            128 1 3 49)) ; TrueType $B$N$_(B
157 ;;                  '(font . "bdf-fontset")    ; BDF
158 ;;                  '(font . "private-fontset"); TrueType
159                     '(width . 80)
160                     '(height . 40)
161                     '(top . 100)
162                     '(left . 100))
163               default-frame-alist))
164
165
166 ;; ;;; shell $B$N@_Dj(B
167
168 ;; ;;; Cygwin $B$N(B bash $B$r;H$&>l9g(B
169 ;; (setq explicit-shell-file-name "bash")
170 ;; (setq shell-file-name "sh")
171 ;; (setq shell-command-switch "-c")
172
173 ;; ;;; Virtually UN*X!$B$K$"$k(B tcsh.exe $B$r;H$&>l9g(B
174 ;; (setq explicit-shell-file-name "tcsh.exe")
175 ;; (setq shell-file-name "tcsh.exe")
176 ;; (setq shell-command-switch "-c")
177
178 ;; ;;; WindowsNT $B$KIUB0$N(B CMD.EXE $B$r;H$&>l9g!#(B
179 ;; (setq explicit-shell-file-name "CMD.EXE")
180 ;; (setq shell-file-name "CMD.EXE")
181 ;; (setq shell-command-switch "\\/c")
182
183
184 ;;; argument-editing $B$N@_Dj(B
185 (require 'mw32script)
186 (mw32script-init)
187
188
189 ;; ;;; browse-url $B$N@_Dj(B
190 ;; (global-set-key [S-mouse-2] 'browse-url-at-mouse)
191
192
193 ;; ;;; $B0u:~$N@_Dj(B
194 ;; ;; $B$3$N@_Dj$G(B M-x print-buffer RET $B$J$I$G$N0u:~$,$G$-$k$h$&$K$J$j$^$9(B
195 ;; ;;
196 ;; ;;  notepad $B$KM?$($k%Q%i%a!<%?$N7A<0$N@_Dj(B
197 ;; (define-process-argument-editing "notepad"
198 ;;   (lambda (x) (general-process-argument-editing-function x nil t)))
199 ;;
200 ;; (defun w32-print-region (start end
201 ;;                                &optional lpr-prog delete-text buf display
202 ;;                                &rest rest)
203 ;;   (interactive)
204 ;;   (let ((tmpfile (convert-standard-filename (buffer-name)))
205 ;;         (w32-start-process-show-window t)
206 ;;         ;; $B$b$7!"(Bdos $BAk$,8+$($F$$$d$J?M$O>e5-$N(B `t' $B$r(B `nil' $B$K$7$^$9(B
207 ;;         ;; $B$?$@$7!"(B`nil' $B$K$9$k$H(B Meadow $B$,8G$^$k4D6-$b$"$k$+$b$7$l$^$;$s(B
208 ;;         (coding-system-for-write w32-system-coding-system))
209 ;;     (while (string-match "[/\\]" tmpfile)
210 ;;       (setq tmpfile (replace-match "_" t nil tmpfile)))
211 ;;     (setq tmpfile (expand-file-name (concat "_" tmpfile "_")
212 ;;                                     temporary-file-directory))
213 ;;     (write-region start end tmpfile nil 'nomsg)
214 ;;     (call-process "notepad" nil nil nil "/p" tmpfile)
215 ;;     (and (file-readable-p tmpfile) (file-writable-p tmpfile)
216 ;;          (delete-file tmpfile))))
217 ;;
218 ;; (setq print-region-function 'w32-print-region)
219
220 ;;;
221 ;;; end of file
222 ;;;
Note: See TracBrowser for help on using the browser.