Win用Emacs
以下は.emacsの内容。 ほとんど使用しないため設定はかなり古くていいかげんです。
;Last Update: <2002/01/11 (Fri) 16:18:20 sakito@s2.xrea.com>
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; 日本語の設定
;;;
(cd "d:/")
(set-language-environment "Japanese")
;(require 'un-define)
;(require 'un-tools)
;(set-keyboard-coding-system 'sjis)
;(set-terminal-coding-system 'sjis)
;(setq file-name-coding-system 'sjis)
;(setq-default buffer-file-coding-system 'ISO-2022-JP)
;(set-clipboard-coding-system 'sjis-dos)
;(set-w32-system-coding-system 'sjis)
;((setq network-coding-system-alist
; '(("nntp" . (junet-unix . junet-unix))
; (110 . (no-conversion . no-conversion))
; (25 . (no-conversion . no-conversion))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; 環境設定
;;;
;;Shell設定
(setq shell-file-name "c:/cygwin/bin/bash.exe")
(setenv "SHELL" shell-file-name)
(setq explicit-shell-file-name shell-file-name)
;(setq explicit-sh-args '("-login" "-i"))
(setq explicit-bash-args '("-login" "-i"))
(setq shell-command-switch "-c")
(setq win32-quote-process-args t)
;;coding system setting
(add-hook 'shell-mode-hook
(lambda ()
(set-buffer-process-coding-system 'undecided-dos 'sjis-unix)))
;;M delete
(add-hook 'comint-output-filter-functions 'shell-strip-ctrl-m nil t)
;;Highlighting on. modefied 言語色設定
(require 'font-lock)
(global-font-lock-mode t)
;; hilit19
(require 'hilit19)
;;動的略語展開で大文字小文字を区別
(setq debbrev-case-fold-search nil)
;;バックアップファイルの保存位置指定
(setq backup-by-copying t)
(fset 'make-backup-file-name
'(lambda (file)
(concat (expand-file-name "d:/tmp/")
(file-name-nondirectory file))))
;;印刷設定
(define-process-argument-editing "/notepad¥¥.exe$"
(lambda (x)
(general-process-argument-editing-function x nil t)))
(setq print-region-function
'(lambda (start end &rest dummyargs)
(let ((tmpfile
(unix-to-dos-filename
(concat (or (getenv "TMP") (getenv "TEMP")) "/"
(make-temp-name "L") ".tmp"))))
(if (file-exists-p tmpfile)
(signal 'file-error
'("The temporary file that I try to create has been exists!")
))
(write-region start end tmpfile nil nil 'sjis-dos)
(call-process "notepad" nil nil nil "/p" tmpfile)
(delete-file tmpfile))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; 画面設定
;;;
;;フレーム設定
(setq default-frame-alist
(append (list '(foreground-color . "black")
'(background-color . "light goldenrod yellow")
'(BORDER-color . "white")
'(cursor-color . "orange")
'(width . 80)
'(height . 40)
'(top . 80)
'(left . 120)
'(vertical-scroll-bars .nil)
'(font . "sakito-fontset")
)
default-frame-alist))
;;mode line color
(set-face-foreground 'modeline "snow")
(set-face-background 'modeline "black")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; 編集設定
;;;
;;フォント
(defvar bdf-font-directory "d:/home/bdf/")
(defvar bdf-font-name-prefix "bdffont16-")
;; 日本語表示の場合
(setq bdf-font-file-alist
'((ascii "8x16.bdf" 0)
(latin-iso8859-1 "non-cjk/etl16-latin1.bdf" 1)
(latin-iso8859-2 "non-cjk/etl16-latin2.bdf" 1)
(latin-iso8859-3 "non-cjk/etl16-latin3.bdf" 1)
(latin-iso8859-4 "non-cjk/etl16-latin4.bdf" 1)
(japanese-jisx0212 "jpn/mincho16.bdf" 0)
(japanese-jisx0208 "jpn/jiskan16.bdf" 0)
(latin-jisx0201 "jpn/8x16rk.bdf" 0)
(katakana-jisx0201 "jpn/8x16rk.bdf" 1)
))
(new-fontset
"sakito-fontset"
(mapcar
(lambda (x)
(let* ((charset (car x))
(filename
(expand-file-name (nth 1 x) bdf-font-directory))
(encoding (nth 2 x))
(fontname
(concat bdf-font-name-prefix (symbol-name charset))))
(w32-add-font fontname
(cons
(cons 'encoding-type encoding)
'((default-ascent . 0)
(relative-compose . 0)
(overhang . 0)
(base . 14)
(height . 16)
(width . 8))))
(w32-change-font-logfont
fontname 0 (list 'bdf-font filename))
(cons charset fontname)))
bdf-font-file-alist))
;; Bold
(w32-change-font-logfont
(concat bdf-font-name-prefix "ascii") 1 (list 'bdf-font
(concat bdf-font-directory "non-cjk/etl16b-latin1.bdf")))
;; italic
(w32-change-font-logfont
(concat bdf-font-name-prefix "ascii") 2 (list 'bdf-font
(concat bdf-font-directory "non-cjk/etl16i-latin1.bdf")))
;; Bold itaric
(w32-change-font-logfont
(concat bdf-font-name-prefix "ascii") 3 (list 'bdf-font
(concat bdf-font-directory "non-cjk/etl16i-latin1.bdf")))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;;好みの設定
;;;
;;Shift カーソルでリージョン選択
(pc-selection-mode)
;; １行づつスクロールする
(setq scroll-conservatively 1)
;;現在のモードを表示
(show-paren-mode t)
;;TAB幅
(setq-default tab-width 4)
;;新規行を作成しない
(setq next-line-add-newlines nil)
;;カーソル行数を表示
(line-number-mode t)
(column-number-mode t)
;;カーソル位置記憶
(require 'saveplace)
(setq-default save-place t)
(setq save-place-file "d:/etc/places.txt")
;;起動時のmessageを表示しない
(setq inhibit-startup-message t)
;; C-x C-b でバッファリストを開く時に、ウィンドウを分割しない
(global-set-key "¥C-x¥C-b" 'buffer-menu)
;;cygwin-mount.el
(require 'cygwin32-mount)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; アプリケーションの設定
;;;
(if (not (memq 'time-stamp write-file-hooks))
(setq write-file-hooks
(cons 'time-stamp write-file-hooks)))
;skk
(require 'skk-autoloads)
(global-set-key "¥C-x¥C-j" 'skk-mode)
(global-set-key "¥C-xj" 'skk-auto-fill-mode)
(global-set-key "¥C-xt" 'skk-tutorial)
(setq skk-large-jisyo "d:/etc/SKK-JISYO.L")
(setq skk-number-style 0)
(setq date-ad 1)
;;epo
(autoload 'epo "epo" "Editing Process Organizer" t)
;;epoan
(require 'epoan)
;;psgml
;(autoload 'sgml-mode "psgml" "Major mode to edit SGML files " t)
;(autoload 'xml-mode "psgml" "Major mode to edit XML files" t)
;(setq auto-mode-alist
; (append (list (cons "¥¥.xml¥¥'" 'xml-mode))
; auto-mode-alist))
;(autoload 'xml-mode "psgml" nil t)
;w3
;(require 'w3-auto)
;(setenv "MAILCAPS" "~/.mailcap")
;(setq w3-default-homepage "http://web1.ibjsystems.co.jp/")
;(setq url-personal-mail-adress "no@foo.spam.org")
;(setq url-automatic-caching t)
;(setq url-standalone-mode t)
;(setq url-be-asynchronous t)
;;;; YaTeX & yahtml (野鳥)
;; yatex-modeを起動させる設定
(setq auto-mode-alist
(cons (cons "¥¥.tex$" 'yatex-mode) auto-mode-alist))
(autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t)
;; yahtml-modeを使う人は以下も加える
(setq auto-mode-alist
(cons (cons "¥¥.html$" 'yahtml-mode) auto-mode-alist))
(autoload 'yahtml-mode "yahtml" "Yet Another HTML mode" t)
;; 1 = Shift JIS, 2 = JIS, 3 = EUC
;; defaultはそれぞれ2
(setq YaTeX-kanji-code 3) ; euc3
(setq yahtml-kanji-code 1) ; jis
(add-hook 'yahtml-mode-hook
'(lambda ()
;; “更新日”の自動更新
(set (make-local-variable 'time-stamp-start) "更新日:[ ¥t]+¥"")
(set (make-local-variable 'time-stamp-format)
"%:y/%02m/%02d %02H:%02M:%02S")
(set (make-local-variable 'time-stamp-line-limit) 30)
;; auto time-stamp
(add-hook 'local-write-file-hooks 'time-stamp)
(auto-fill-mode)))
; (make-local-variable 'time-stamp-start)
; (setq time-stamp-start "更新日:[ ¥t]+¥¥¥¥?[¥"<]+")
; (setq time-stamp-start "Last Update:[ ¥t]+¥¥¥¥?[¥"<]+")
; (make-local-variable 'time-stamp-format)
; (setq time-stamp-format
; '(time-stamp-yyyy/mm/dd time-stamp-hh:mm:ss))
; (add-hook 'local-write-file-hooks 'time-stamp)
; ))
;;SmartDoc mode setting
(setq auto-mode-alist
(append '(("¥¥.sdoc$" .sdoc-mode)) auto-mode-alist))
(setq sgml-quick-keys t)
(autoload 'sdoc-mode "sdoc-mode" nil t)
(add-hook 'sdoc-mode-hook
'(lambda ()
;; “<date></date>”の自動更新
(set (make-local-variable 'time-stamp-start) "<date>")
(set (make-local-variable 'time-stamp-end) "</date>")
(set (make-local-variable 'time-stamp-format)
"%04Y/%02m/%02d (%3a) %02H:%02M:%02S sakito@s2.xrea.com")
(set (make-local-variable 'time-stamp-line-limit) 30)
;; auto time-stamp
(add-hook 'local-write-file-hooks 'time-stamp)
(auto-fill-mode)))
;;Python mode setting
(setq auto-mode-alist
(append '(("¥¥.py$" .python-mode)) auto-mode-alist))
(autoload 'python-mode "python-mode" nil t)
;; pcl-cvsの設定
;; 起動はM-x cvs-examine
;(load-file "d:/bin/Meadow/1.14/site-lisp/pcl-cvs/pcl-cvs-startup.el")
(add-hook 'cvs-mode-hook
(lambda ()
(collection-set-goal-column cvs-buffer-name 38)))
;; log はどのコードで書くか決めて、固定にしておかないと危険です
;; (euc-japan でも sjis でも良いんけど)
(modify-coding-system-alist 'process "cvs" '(undecided . euc-japan))
;; pserver ではなく local repository を使うための設定。詳細は、
;; meadow-users-jp メーリングリストの
;; Subject: about pcl-cvs X-ML-COUNT: 1870
;; Date: Sat, 29 Jan 2000 01:45:18 +0900 で始まる thread を参照のこと。
;;
(if (featurep 'meadow)
(define-process-argument-editing
"/cvs¥¥.exe¥¥'"
(lambda (x)
(let ((command (car x))
(argument (cdr x)))
(setq argument (cygnus-process-argument-quoting argument))
(concat
(unix-to-dos-filename command) " "
(unix-to-dos-argument (mapconcat (function concat) argument " ")
nil nil nil nil))))))
;;; ----------------------------------------------------------------
;;; time-stamp.el (2000/11/20)
;;; ----------------------------------------------------------------
;;; 最終更新日の%04Y/%02m/%02d (%3a) %02H:%02M:%02S sakito@s2.xrea.com自
動挿入
;;; ファイルの先頭から 8 行以内にlast updated : last updated : <>
;;; と書いてあれば、セーブ時に自動的に日付が挿入されます
;(require 'time-stamp)
;(add-hook 'write-file-hooks 'time-stamp)
;(setq time-stamp-active t)
;(setq time-stamp-format "%04Y/%02m/%02d (%3a) %02H:%02M:%02S
sakito@s2.xrea.com")
;(setq time-stamp-start "Last Update:[ ¥t]+¥¥¥¥?[¥"<]+")
;(setq time-stamp-format '(time-stamp-month-dd-yyyy time-stamp-hh:mm:ss))
;(setq time-stamp-format "%04y/%02m/%02d")
;; (setq time-stamp-line-limit 10000) と書いておくと、1万行以内で OK
;(setq time-stamp-end " ¥¥|$")
(defun time-stamp-date ()
"Return the current time as a string in ¥"¥(Date¥)¥" form."
; (format-time-string "[%04Y/%02m/%02d] %02H:%02M:%02S"))
(format-time-string "%04Y/%02m/%02d [%02H:%02M:%02S]"))
(defun insert-date nil
"Insert Date."
(interactive)
(insert (time-stamp-date)))
;; キーバインド変更
(define-key global-map "¥C-c¥C-i" 'insert-date)
;; ----------------------------------------------------------------
;; auto-insert
;; ----------------------------------------------------------------
(require 'autoinsert)
; [test]:2000/11/28
(add-hook 'find-file-hooks 'auto-insert)
;; pcl-cvsが作るテンポラリファイルのバッファでは(auto-insert)しない
(defadvice auto-insert (around deactivate-autoinsert-for-cvs-temp-buffer
first activate)
"Deactivate autoinsert feature for pcl-cvs work buffer."
(or (string-match "pcl-cvs¥.[0-9a-zA-Z]+¥¥'" (buffer-file-name))
(string-match "Mail/draft" (buffer-file-name))
; (string-match "¥¥+draft/[0-9]+" (buffer-name))
ad-do-it)
nil)
;; テンプレートとなるファイルがあるディレクトリ
;; 末尾に"/"が必要なので注意
(setq auto-insert-directory "~/autoinsert/")
;; 質問しないで auto-insertを実行する
(setq auto-insert-query nil)
;; 下請け関数
;; 簡単な置換を実行した後
;; "EDIT_HERE"まで進んで"EDIT_HERE"自体は削除する
;; buffer-modified-p は、変数 auto-insertを見て
;; 仕様に従って設定される
;; 98.5.28 (Thu)
(defun auto-insert-expand-abbrev-and-set-point (template-file)
"Advance to edit point after auto-insert"
(insert-file-contents (concat auto-insert-directory template-file))
; (let ((replace-alist '(
; ("<TODAY>" . (format-time-string "%04Y/%02m/%02d (%3a)"))
; ("<FILENAME>" . (file-name-nondirectory (buffer-file-name)))
; ("<PROJECT>" . "secret")
; ("<TIMESTAMP>" . (concat "Time-stamp: <" (time-stamp-string) ">");)
; ("<AUTHOR>" . user-mail-address)))
)
; (case-replace nil)
; pat sexp)
;; 定型の置換
; (while replace-alist
; (setq pat (car (car replace-alist))
; evaled (eval (cdr (car replace-alist))))
; (goto-char (point-min))
; (while (re-search-forward pat nil t)
; (replace-match evaled 'fixedcase 'literal))
; (setq replace-alist (cdr replace-alist))))
;; 編集位置まで進む
; (goto-char (point-min))
; (and (search-forward "<EDIT_HERE>" nil t)
; (replace-match ""))
; (set-buffer-modified-p (eq auto-insert t)))
(setq auto-insert-alist
(append '(
;;========================================[2001/05/12]
;; yahtml-mode
((yahtml-mode . "yahtml document")
. (lambda nil (auto-insert-expand-abbrev-and-set-point
"html-insert.html")))
;;========================================2002/01/11 [09:31:43]
;; sdoc-mode
((sdoc-mode . "SmartDoc document")
. (lambda nil (auto-insert-expand-abbrev-and-set-point
"sdoc-insert.sdoc")))
;;code
(provide '" (file-name-sans-extension (file-name-nondirectory
(buffer-file-name))) ")
;;; " (file-name-nondirectory (buffer-file-name)) " ends here")
)
auto-insert-alist))
;(cd "~/")
背景が暗い場合に以下を設定
;; background が暗いときに設定 (setq frame-background-mode 'dark) ;; 起動時のframeに有効とする (frame-update-face-colors (selected-frame))