Shingo@26: ;;;; -*- mode: emacs-lisp; coding: iso-2022-7bit -*- Shingo@26: ;; meadow/cygwin Shingo@26: Shingo@26: (setq exec-path (append exec-path Shingo@26: '("c:/cygwin/bin" Shingo@26: "c:/cygwin/sbin" Shingo@26: "c:/cygwin/usr/local/bin" Shingo@26: "c:/Progra~2/Maxima-5.25.1/bin"))) Shingo@26: (setq load-path (append load-path '("c:/cygwin/home/swk/lib/elisp" Shingo@26: "c:/cygwin/home/swk/lib/elisp/imaxima"))) Shingo@26: Shingo@26: ;; MULE-UCS; must be put before set-language-environment Shingo@26: (require 'jisx0213) Shingo@26: ;; lang Shingo@26: (set-language-environment "Japanese") Shingo@26: Shingo@26: ;; ime Shingo@26: (setq default-input-method "MW32-IME") Shingo@26: (setq-default mw32-ime-mode-line-state-indicator "[--]") Shingo@26: (setq mw32-ime-mode-line-state-indicator-list '("[--]" "[あ]" "[--]")) Shingo@26: (mw32-ime-initialize) Shingo@26: (add-hook 'mw32-ime-on-hook '(lambda () (set-cursor-color "green"))) Shingo@26: (add-hook 'mw32-ime-off-hook '(lambda () (set-cursor-color "black"))) Shingo@26: (wrap-function-to-control-ime 'y-or-n-p nil nil) Shingo@26: (wrap-function-to-control-ime 'yes-or-no-p nil nil) Shingo@26: (global-set-key "\C-o" 'toggle-input-method) Shingo@26: Shingo@26: ;; mouse cursor Shingo@26: (setq w32-hide-mouse-on-key t) Shingo@26: (setq w32-hide-mouse-timeout 5000) Shingo@26: Shingo@26: ;; initial frame Shingo@26: (setq default-frame-alist Shingo@26: (append (list '(foreground-color . "black") Shingo@26: '(background-color . "white") Shingo@26: '(border-color . "black") Shingo@26: '(mouse-color . "white") Shingo@26: '(cursor-color . "black") Shingo@26: '(width . 80) Shingo@26: '(height . 40) Shingo@26: '(top . 10) Shingo@26: '(left . 380)) Shingo@26: default-frame-alist)) Shingo@26: Shingo@26: ;; fakecygpty Shingo@26: (setq mw32-process-wrapper-alist Shingo@26: '(("/\\(ssh\\|bash\\|tcsh\\|gpg[esvk]?\\)\\.exe" . Shingo@26: (nil . "fakecygpty.exe")))) Shingo@26: Shingo@26: ;;; argument-editing Shingo@26: (require 'mw32script) Shingo@26: (mw32script-init) Shingo@26: Shingo@26: ;; printing: use ps-print-{buffer,region}[-with-faces] Shingo@26: (setq ps-multibyte-buffer 'non-latin-printer) Shingo@26: (setq ps-lpr-command "c:/Program Files (x86)/Ghostgum/gsview/gsview32.exe") Shingo@26: (setq ps-lpr-switches nil) Shingo@26: (setq ps-printer-name nil) Shingo@26: (setq ps-printer-name-option nil) Shingo@26: (setq ps-paper-type 'a4) Shingo@26: (setq ps-line-number t Shingo@26: ps-print-header t Shingo@26: ps-landscape-mode t Shingo@26: ps-number-of-columns 2) Shingo@26: Shingo@26: ;;printing in mew: use mew-summary-print (# key) Shingo@26: (setq mew-print-function Shingo@26: '(lambda (&rest args) Shingo@26: (let ((ps-left-header (list "(Mail Message)" nil))) Shingo@26: (apply 'ps-print-buffer-with-faces args)))) Shingo@26: Shingo@26: ;; imaxima Shingo@26: (autoload 'imaxima "imaxima" "Image support for Maxima." t) Shingo@26: (autoload 'imath-mode "imath" "Interactive Math minor mode." t) Shingo@26: (setq imaxima-gs-program "gswin32c.exe") Shingo@26: (setq imaxima-tmp-dir "C:/Tmp") Shingo@26: (setq imaxima-use-maxima-mode-flag t) Shingo@26: (setq imaxima-image-type 'png) Shingo@26: (eval-after-load "maxima" Shingo@26: '(define-key inferior-maxima-mode-map "\C-c\t" Shingo@26: 'inferior-maxima-complete)) Shingo@26: Shingo@26: Shingo@26: ;; basic preferences Shingo@26: (require 'gnuserv) Shingo@26: (gnuserv-start) Shingo@26: (setq gnuserv-frame (selected-frame)) Shingo@26: Shingo@26: (tool-bar-mode -1) Shingo@26: (menu-bar-mode -1) Shingo@26: (column-number-mode t) Shingo@26: (global-font-lock-mode t) Shingo@26: (show-paren-mode nil) Shingo@26: (set-face-background 'show-paren-match-face "lightpink") Shingo@26: Shingo@26: (setq text-mode-hook '(lambda () (auto-fill-mode 1))) Shingo@26: (setq-default fill-column 70) Shingo@26: (setq-default indent-tabs-mode nil) Shingo@26: (setq kill-whole-line nil) Shingo@26: (define-key minibuffer-local-completion-map "\C-w" 'backward-kill-word) Shingo@26: Shingo@26: (require 'uniquify) Shingo@26: (setq uniquify-buffer-name-style 'post-forward-angle-brackets) Shingo@26: Shingo@26: Shingo@26: ;; sdic Shingo@26: (setq sdic-eiwa-dictionary-list Shingo@26: '((sdicf-client "c:/local/eijiro/sdic_sufary/eiji.sdic") Shingo@26: (sdicf-client "c:/local/eijiro/sdic_sufary/reiji.sdic") Shingo@26: (sdicf-client "c:/local/eijiro/sdic_sufary/ryaku.sdic"))) Shingo@26: (setq sdic-waei-dictionary-list Shingo@26: '((sdicf-client "c:/local/eijiro/sdic_sufary/waei.sdic"))) Shingo@26: Shingo@26: (if (or (boundp 'sdic-eiwa-dictionary-list) Shingo@26: (boundp 'sdic-waei-dictionary-list)) Shingo@26: (progn Shingo@26: (autoload 'sdic-describe-word "sdic" "sdic" t nil) Shingo@26: (autoload 'sdic-describe-region "sdic" "sdic" t nil) Shingo@26: (global-set-key "\C-cw" 'sdic-describe-word) Shingo@26: (global-set-key "\C-cr" 'sdic-describe-region) Shingo@26: (setq sdic-default-coding-system 'euc-japan-unix) Shingo@26: (setq sdic-window-height 20) Shingo@26: (setq sdic-face-style 'bold) Shingo@26: (setq sdic-face-color "firebrick4") Shingo@26: (defadvice sdic-describe-word Shingo@26: (after highlight-phrase-sdic (word &optional search-function) activate) Shingo@26: (let ((w (replace-regexp-in-string "[/*']" "" word))) Shingo@26: (unhighlight-regexp w) Shingo@26: (highlight-phrase w "hi-yellow"))))) Shingo@26: Shingo@26: ;; shell Shingo@26: (setq explicit-shell-file-name "zsh") Shingo@26: (setq shell-file-name "zsh") Shingo@26: (setq shell-command-switch "-c") Shingo@26: Shingo@26: ;; dev env Shingo@26: (global-set-key "\C-c\C-i" 'complete-symbol) Shingo@26: (global-set-key "\C-cc" 'compile) Shingo@26: (setq compile-command "make ") Shingo@26: (setq compilation-scroll-output t) Shingo@26: (add-hook 'c-mode-common-hook Shingo@26: '(lambda () Shingo@26: (c-set-style "K&R") Shingo@26: (setq c-basic-offset 4))) Shingo@26: Shingo@26: ;; sig Shingo@26: (load "sig.el") Shingo@26: (setq signature-file-list Shingo@26: '("~/.sig-shortest" Shingo@26: "~/.sig-O" Shingo@26: "~/.sig-Oe" Shingo@26: "~/.sig-o-short")) Shingo@26: (wrap-function-to-control-ime 'mail-signature-interactive t "P") Shingo@26: Shingo@26: ;; mhc Shingo@26: (load (expand-file-name "~/.mhc.el")) Shingo@26: Shingo@26: ;; comment Shingo@26: (global-set-key "\C-c>" 'comment-region) Shingo@26: (global-set-key "\C-c<" 'uncomment-region) Shingo@26: (setq comment-style 'multi-line) Shingo@26: Shingo@26: ;; time Shingo@26: (defun insert-current-date-string (arg) Shingo@26: (interactive "P") Shingo@26: (insert (let ((system-time-locale "C")) Shingo@26: (format-time-string (if arg "%Y-%m-%d" "%a %b %e, %Y") (current-time))))) Shingo@26: (global-set-key "\e&" 'insert-current-date-string) Shingo@26: Shingo@26: ;; latex Shingo@26: (add-hook 'latex-mode-hook Shingo@26: '(lambda () Shingo@26: (setq tex-verbatim-face nil) Shingo@26: (defun tex-font-lock-suscript () nil)))