author | Shingo W. Kagami |
Fri, 10 Feb 2012 03:44:27 +0900 | |
changeset 26 | 5b41a49602f1 |
permissions | -rw-r--r-- |
Shingo@26 | 1 |
;;;; -*- mode: emacs-lisp; coding: iso-2022-7bit -*- |
Shingo@26 | 2 |
;; meadow/cygwin |
Shingo@26 | 3 |
|
Shingo@26 | 4 |
(setq exec-path (append exec-path |
Shingo@26 | 5 |
'("c:/cygwin/bin" |
Shingo@26 | 6 |
"c:/cygwin/sbin" |
Shingo@26 | 7 |
"c:/cygwin/usr/local/bin" |
Shingo@26 | 8 |
"c:/Progra~2/Maxima-5.25.1/bin"))) |
Shingo@26 | 9 |
(setq load-path (append load-path '("c:/cygwin/home/swk/lib/elisp" |
Shingo@26 | 10 |
"c:/cygwin/home/swk/lib/elisp/imaxima"))) |
Shingo@26 | 11 |
|
Shingo@26 | 12 |
;; MULE-UCS; must be put before set-language-environment |
Shingo@26 | 13 |
(require 'jisx0213) |
Shingo@26 | 14 |
;; lang |
Shingo@26 | 15 |
(set-language-environment "Japanese") |
Shingo@26 | 16 |
|
Shingo@26 | 17 |
;; ime |
Shingo@26 | 18 |
(setq default-input-method "MW32-IME") |
Shingo@26 | 19 |
(setq-default mw32-ime-mode-line-state-indicator "[--]") |
Shingo@26 | 20 |
(setq mw32-ime-mode-line-state-indicator-list '("[--]" "[$B$"(B]" "[--]")) |
Shingo@26 | 21 |
(mw32-ime-initialize) |
Shingo@26 | 22 |
(add-hook 'mw32-ime-on-hook '(lambda () (set-cursor-color "green"))) |
Shingo@26 | 23 |
(add-hook 'mw32-ime-off-hook '(lambda () (set-cursor-color "black"))) |
Shingo@26 | 24 |
(wrap-function-to-control-ime 'y-or-n-p nil nil) |
Shingo@26 | 25 |
(wrap-function-to-control-ime 'yes-or-no-p nil nil) |
Shingo@26 | 26 |
(global-set-key "\C-o" 'toggle-input-method) |
Shingo@26 | 27 |
|
Shingo@26 | 28 |
;; mouse cursor |
Shingo@26 | 29 |
(setq w32-hide-mouse-on-key t) |
Shingo@26 | 30 |
(setq w32-hide-mouse-timeout 5000) |
Shingo@26 | 31 |
|
Shingo@26 | 32 |
;; initial frame |
Shingo@26 | 33 |
(setq default-frame-alist |
Shingo@26 | 34 |
(append (list '(foreground-color . "black") |
Shingo@26 | 35 |
'(background-color . "white") |
Shingo@26 | 36 |
'(border-color . "black") |
Shingo@26 | 37 |
'(mouse-color . "white") |
Shingo@26 | 38 |
'(cursor-color . "black") |
Shingo@26 | 39 |
'(width . 80) |
Shingo@26 | 40 |
'(height . 40) |
Shingo@26 | 41 |
'(top . 10) |
Shingo@26 | 42 |
'(left . 380)) |
Shingo@26 | 43 |
default-frame-alist)) |
Shingo@26 | 44 |
|
Shingo@26 | 45 |
;; fakecygpty |
Shingo@26 | 46 |
(setq mw32-process-wrapper-alist |
Shingo@26 | 47 |
'(("/\\(ssh\\|bash\\|tcsh\\|gpg[esvk]?\\)\\.exe" . |
Shingo@26 | 48 |
(nil . "fakecygpty.exe")))) |
Shingo@26 | 49 |
|
Shingo@26 | 50 |
;;; argument-editing |
Shingo@26 | 51 |
(require 'mw32script) |
Shingo@26 | 52 |
(mw32script-init) |
Shingo@26 | 53 |
|
Shingo@26 | 54 |
;; printing: use ps-print-{buffer,region}[-with-faces] |
Shingo@26 | 55 |
(setq ps-multibyte-buffer 'non-latin-printer) |
Shingo@26 | 56 |
(setq ps-lpr-command "c:/Program Files (x86)/Ghostgum/gsview/gsview32.exe") |
Shingo@26 | 57 |
(setq ps-lpr-switches nil) |
Shingo@26 | 58 |
(setq ps-printer-name nil) |
Shingo@26 | 59 |
(setq ps-printer-name-option nil) |
Shingo@26 | 60 |
(setq ps-paper-type 'a4) |
Shingo@26 | 61 |
(setq ps-line-number t |
Shingo@26 | 62 |
ps-print-header t |
Shingo@26 | 63 |
ps-landscape-mode t |
Shingo@26 | 64 |
ps-number-of-columns 2) |
Shingo@26 | 65 |
|
Shingo@26 | 66 |
;;printing in mew: use mew-summary-print (# key) |
Shingo@26 | 67 |
(setq mew-print-function |
Shingo@26 | 68 |
'(lambda (&rest args) |
Shingo@26 | 69 |
(let ((ps-left-header (list "(Mail Message)" nil))) |
Shingo@26 | 70 |
(apply 'ps-print-buffer-with-faces args)))) |
Shingo@26 | 71 |
|
Shingo@26 | 72 |
;; imaxima |
Shingo@26 | 73 |
(autoload 'imaxima "imaxima" "Image support for Maxima." t) |
Shingo@26 | 74 |
(autoload 'imath-mode "imath" "Interactive Math minor mode." t) |
Shingo@26 | 75 |
(setq imaxima-gs-program "gswin32c.exe") |
Shingo@26 | 76 |
(setq imaxima-tmp-dir "C:/Tmp") |
Shingo@26 | 77 |
(setq imaxima-use-maxima-mode-flag t) |
Shingo@26 | 78 |
(setq imaxima-image-type 'png) |
Shingo@26 | 79 |
(eval-after-load "maxima" |
Shingo@26 | 80 |
'(define-key inferior-maxima-mode-map "\C-c\t" |
Shingo@26 | 81 |
'inferior-maxima-complete)) |
Shingo@26 | 82 |
|
Shingo@26 | 83 |
|
Shingo@26 | 84 |
;; basic preferences |
Shingo@26 | 85 |
(require 'gnuserv) |
Shingo@26 | 86 |
(gnuserv-start) |
Shingo@26 | 87 |
(setq gnuserv-frame (selected-frame)) |
Shingo@26 | 88 |
|
Shingo@26 | 89 |
(tool-bar-mode -1) |
Shingo@26 | 90 |
(menu-bar-mode -1) |
Shingo@26 | 91 |
(column-number-mode t) |
Shingo@26 | 92 |
(global-font-lock-mode t) |
Shingo@26 | 93 |
(show-paren-mode nil) |
Shingo@26 | 94 |
(set-face-background 'show-paren-match-face "lightpink") |
Shingo@26 | 95 |
|
Shingo@26 | 96 |
(setq text-mode-hook '(lambda () (auto-fill-mode 1))) |
Shingo@26 | 97 |
(setq-default fill-column 70) |
Shingo@26 | 98 |
(setq-default indent-tabs-mode nil) |
Shingo@26 | 99 |
(setq kill-whole-line nil) |
Shingo@26 | 100 |
(define-key minibuffer-local-completion-map "\C-w" 'backward-kill-word) |
Shingo@26 | 101 |
|
Shingo@26 | 102 |
(require 'uniquify) |
Shingo@26 | 103 |
(setq uniquify-buffer-name-style 'post-forward-angle-brackets) |
Shingo@26 | 104 |
|
Shingo@26 | 105 |
|
Shingo@26 | 106 |
;; sdic |
Shingo@26 | 107 |
(setq sdic-eiwa-dictionary-list |
Shingo@26 | 108 |
'((sdicf-client "c:/local/eijiro/sdic_sufary/eiji.sdic") |
Shingo@26 | 109 |
(sdicf-client "c:/local/eijiro/sdic_sufary/reiji.sdic") |
Shingo@26 | 110 |
(sdicf-client "c:/local/eijiro/sdic_sufary/ryaku.sdic"))) |
Shingo@26 | 111 |
(setq sdic-waei-dictionary-list |
Shingo@26 | 112 |
'((sdicf-client "c:/local/eijiro/sdic_sufary/waei.sdic"))) |
Shingo@26 | 113 |
|
Shingo@26 | 114 |
(if (or (boundp 'sdic-eiwa-dictionary-list) |
Shingo@26 | 115 |
(boundp 'sdic-waei-dictionary-list)) |
Shingo@26 | 116 |
(progn |
Shingo@26 | 117 |
(autoload 'sdic-describe-word "sdic" "sdic" t nil) |
Shingo@26 | 118 |
(autoload 'sdic-describe-region "sdic" "sdic" t nil) |
Shingo@26 | 119 |
(global-set-key "\C-cw" 'sdic-describe-word) |
Shingo@26 | 120 |
(global-set-key "\C-cr" 'sdic-describe-region) |
Shingo@26 | 121 |
(setq sdic-default-coding-system 'euc-japan-unix) |
Shingo@26 | 122 |
(setq sdic-window-height 20) |
Shingo@26 | 123 |
(setq sdic-face-style 'bold) |
Shingo@26 | 124 |
(setq sdic-face-color "firebrick4") |
Shingo@26 | 125 |
(defadvice sdic-describe-word |
Shingo@26 | 126 |
(after highlight-phrase-sdic (word &optional search-function) activate) |
Shingo@26 | 127 |
(let ((w (replace-regexp-in-string "[/*']" "" word))) |
Shingo@26 | 128 |
(unhighlight-regexp w) |
Shingo@26 | 129 |
(highlight-phrase w "hi-yellow"))))) |
Shingo@26 | 130 |
|
Shingo@26 | 131 |
;; shell |
Shingo@26 | 132 |
(setq explicit-shell-file-name "zsh") |
Shingo@26 | 133 |
(setq shell-file-name "zsh") |
Shingo@26 | 134 |
(setq shell-command-switch "-c") |
Shingo@26 | 135 |
|
Shingo@26 | 136 |
;; dev env |
Shingo@26 | 137 |
(global-set-key "\C-c\C-i" 'complete-symbol) |
Shingo@26 | 138 |
(global-set-key "\C-cc" 'compile) |
Shingo@26 | 139 |
(setq compile-command "make ") |
Shingo@26 | 140 |
(setq compilation-scroll-output t) |
Shingo@26 | 141 |
(add-hook 'c-mode-common-hook |
Shingo@26 | 142 |
'(lambda () |
Shingo@26 | 143 |
(c-set-style "K&R") |
Shingo@26 | 144 |
(setq c-basic-offset 4))) |
Shingo@26 | 145 |
|
Shingo@26 | 146 |
;; sig |
Shingo@26 | 147 |
(load "sig.el") |
Shingo@26 | 148 |
(setq signature-file-list |
Shingo@26 | 149 |
'("~/.sig-shortest" |
Shingo@26 | 150 |
"~/.sig-O" |
Shingo@26 | 151 |
"~/.sig-Oe" |
Shingo@26 | 152 |
"~/.sig-o-short")) |
Shingo@26 | 153 |
(wrap-function-to-control-ime 'mail-signature-interactive t "P") |
Shingo@26 | 154 |
|
Shingo@26 | 155 |
;; mhc |
Shingo@26 | 156 |
(load (expand-file-name "~/.mhc.el")) |
Shingo@26 | 157 |
|
Shingo@26 | 158 |
;; comment |
Shingo@26 | 159 |
(global-set-key "\C-c>" 'comment-region) |
Shingo@26 | 160 |
(global-set-key "\C-c<" 'uncomment-region) |
Shingo@26 | 161 |
(setq comment-style 'multi-line) |
Shingo@26 | 162 |
|
Shingo@26 | 163 |
;; time |
Shingo@26 | 164 |
(defun insert-current-date-string (arg) |
Shingo@26 | 165 |
(interactive "P") |
Shingo@26 | 166 |
(insert (let ((system-time-locale "C")) |
Shingo@26 | 167 |
(format-time-string (if arg "%Y-%m-%d" "%a %b %e, %Y") (current-time))))) |
Shingo@26 | 168 |
(global-set-key "\e&" 'insert-current-date-string) |
Shingo@26 | 169 |
|
Shingo@26 | 170 |
;; latex |
Shingo@26 | 171 |
(add-hook 'latex-mode-hook |
Shingo@26 | 172 |
'(lambda () |
Shingo@26 | 173 |
(setq tex-verbatim-face nil) |
Shingo@26 | 174 |
(defun tex-font-lock-suscript () nil))) |