|
;;; arch |
|
;; .emacs で OS の判定を関数化しよう - msshの日記 http://d.hatena.ne.jp/mssh/20081208/1228742294 |
|
(defvar os-type nil) |
|
|
|
(cond ((string-match "apple-darwin" system-configuration) ;; Mac |
|
(setq os-type 'mac)) |
|
((string-match "linux" system-configuration) ;; Linux |
|
(setq os-type 'linux)) |
|
((string-match "freebsd" system-configuration) ;; FreeBSD |
|
(setq os-type 'bsd)) |
|
((string-match "mingw" system-configuration) ;; Windows |
|
(setq os-type 'win))) |
|
|
|
(defun mac? () |
|
(eq os-type 'mac)) |
|
|
|
(defun linux? () |
|
(eq os-type 'linux)) |
|
|
|
(defun bsd? () |
|
(eq os-type 'freebsd)) |
|
|
|
(defun win? () |
|
(eq os-type 'win)) |
|
|
|
|
|
|
|
;;;; Font settings |
|
(set-language-environment "English") |
|
(set-terminal-coding-system 'utf-8) |
|
(set-keyboard-coding-system 'utf-8) |
|
(set-buffer-file-coding-system 'utf-8) |
|
(setq default-buffer-file-coding-system 'utf-8) |
|
(prefer-coding-system 'utf-8) |
|
(set-default-coding-systems 'utf-8) |
|
|
|
|
|
;;;; View settings |
|
|
|
(if window-system (progn |
|
(set-background-color "Black") |
|
(set-foreground-color "Green") |
|
(set-face-foreground 'font-lock-comment-face "dark orange") |
|
(set-face-foreground 'font-lock-string-face "slateGray1") |
|
(set-face-foreground 'font-lock-keyword-face "violet") |
|
(set-face-foreground 'font-lock-constant-face "yellow") |
|
(set-face-foreground 'font-lock-function-name-face "maroon2") |
|
(set-face-foreground 'font-lock-variable-name-face "deep sky blue") |
|
(set-face-foreground 'font-lock-type-face "wheat1") |
|
(set-face-foreground 'font-lock-warning-face "violet") |
|
(set-face-bold-p 'font-lock-function-name-face t) |
|
(set-face-bold-p 'font-lock-warning-face nil) |
|
(set-cursor-color "Gray") |
|
(set-frame-parameter nil 'alpha 80) |
|
)) |
|
|
|
(setq inhibit-startup-message t) |
|
;; (tool-bar-mode nil) |
|
(set-scroll-bar-mode nil) |
|
(line-number-mode t) |
|
|
|
;; hightlight cursor line |
|
;; http://blog.iwa-ya.net/2009/06/21/093100 |
|
(defface hlline-face |
|
'((((class color) |
|
(background dark)) |
|
;;(:background "dark state gray")) |
|
(:background "gray10" |
|
:underline "gray24")) |
|
(((class color) |
|
(background light)) |
|
(:background "ForestGreen" |
|
:underline nil)) |
|
(t ())) |
|
"*Face used by hl-line.") |
|
(setq hl-line-face 'hlline-face) |
|
;;(setq hl-line-face 'underline) |
|
(global-hl-line-mode) |
|
|
|
;; Full screen |
|
(defun toggle-fullscreen () |
|
(interactive) |
|
(set-frame-parameter nil 'fullscreen |
|
(if (frame-parameter nil 'fullscreen) nil 'fullboth))) |
|
|
|
(if window-system |
|
(progn |
|
(setq default-frame-alist |
|
(append |
|
'((width . 150) (height . 70) |
|
(background-color . "Black") |
|
) |
|
default-frame-alist)))) |
|
|
|
;==================================== |
|
|
|
;==================================== |
|
(defface my-face-b-1 '((t (:background "medium aquamarine"))) nil) |
|
(defface my-face-b-1 '((t (:background "dark turquoise"))) nil) |
|
(defface my-face-b-2 '((t (:background "cyan"))) nil) |
|
(defface my-face-b-2 '((t (:background "SeaGreen"))) nil) |
|
(defface my-face-u-1 '((t (:foreground "SteelBlue" :underline t))) nil) |
|
(defvar my-face-b-1 'my-face-b-1) |
|
(defvar my-face-b-2 'my-face-b-2) |
|
(defvar my-face-u-1 'my-face-u-1) |
|
(defadvice font-lock-mode (before my-font-lock-mode ()) |
|
(font-lock-add-keywords |
|
major-mode |
|
'( |
|
(" " 0 my-face-b-1 append) |
|
("\t" 0 my-face-b-2 append) |
|
("[ ]+$" 0 my-face-u-1 append) |
|
))) |
|
|
|
|
|
;;;; Key settings |
|
|
|
;; Ctrl-h |
|
(keyboard-translate ?\C-h ?\C-?) |
|
(global-set-key "\C-h" nil) |
|
(global-set-key "\M-h" 'help-command) |
|
(setq mac-command-modifier 'meta) |
|
(setq mac-control-modifier 'control) |
|
(setq mac-option-modifier 'alt) |
|
|
|
;;; Core settings |
|
|
|
(auto-compression-mode t) |
|
(recentf-mode 1) |
|
|
|
(pc-selection-mode 1) |
|
(setq show-paren-mode 1) |
|
|
|
(setq c-tab-always-indent t) |
|
(setq default-tab-width 4) |
|
(setq indent-line-function 'indent-relative-maybe) |
|
|
|
;;(ad-enable-advice 'font-lock-mode 'before 'my-font-lock-mode) |
|
;;(ad-activate 'font-lock-mode) |
|
;;(add-hook 'find-file-hooks '(lambda () |
|
;; (if font-lock-mode |
|
;; nil |
|
;; (font-lock-mode t)))) |
|
|
|
|
|
|
|
(setq frame-title-format (format "emacs@%s : %%f" (system-name))) |
|
|
|
;;;; Key settings |
|
|
|
|
|
|
|
(define-key minibuffer-local-filename-completion-map |
|
" " 'minibuffer-complete-word) |
|
(define-key minibuffer-local-must-match-filename-map |
|
" " 'minibuffer-complete-word) |
|
|
|
;; Plugins load |
|
(defun my-load-path (path) |
|
(let ((epath (expand-file-name path))) |
|
(unless (member epath load-path) |
|
(setq load-path (cons epath load-path))))) |
|
|
|
(my-load-path "~/.emacs.d/site-lisp") |
|
(my-load-path "/usr/share/emacs/site-lisp/ddskk") |
|
(my-load-path "/usr/share/emacs/site-lisp") |
|
(my-load-path "/usr/share/emacs/site-lisp/howm") |
|
;(my-load-path "/Applications/MacPorts/Emacs.app/Contents/Resources/lisp") |
|
|
|
;; howm |
|
(require 'howm) |
|
;; rst.el |
|
;; Emacs で ReStructuredText - SPEAKER BREAKA |
|
;; http://d.hatena.ne.jp/namaco35/20090526/1243355997 |
|
(require 'rst) |
|
(setq auto-mode-alist |
|
(append '(("\\.txt$" . rst-mode) |
|
("\\.howm$" . rst-mode) |
|
("\\.rst$" . rst-mode) |
|
("\\.rest$" . rst-mode)) auto-mode-alist)) |
|
(add-hook 'rst-adjust-hook 'rst-toc-update) |
|
(add-hook 'rst-mode-hook |
|
(lambda () |
|
(setq rst-slides-program "open -a Firefox") |
|
)) |
|
|
|
|
|
|
|
;;(require 'vc-git) |
|
;;(require 'git-emacs) |
|
;;(require 'git-blame) |
|
|
|
(require 'grep-edit) |
|
|
|
;;;; ddskk |
|
;(require 'skk) (setq skk-large-jisyo"/usr/share/skk/SKK-JISYO.L") |
|
|
|
|
|
;;;;;;;;;;;;;; |
|
; GUNU Linux |
|
;;;;;;;;;;;;;; |
|
|
|
;; uim |
|
;(cond |
|
;((string-match "linux" system-configuration) |
|
; (my-load-path "/usr/share/emacs/site-lisp/uim") |
|
; (require 'uim) |
|
; (global-set-key "\C-o" 'uim-mode) |
|
;)) |
|
|
|
|
|
(autoload 'ansi-color-for-comint-mode-on "ansi-color" |
|
"Set `ansi-color-for-comint-mode' to t." t) |
|
(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on) |
|
|
|
;; auto-complete |
|
(require 'auto-complete) |
|
(global-auto-complete-mode t) |
|
(require 'ac-dabbrev) |
|
(setq ac-sources |
|
(list ac-source-dabbrev)) |
|
|
|
|
|
|
|
;; Filetype |
|
|
|
;; php-mode |
|
(add-hook 'php-mode-hook |
|
(lambda () |
|
(require 'php-completion) |
|
(php-completion-mode t) |
|
(define-key php-mode-map (kbd "C-o") 'phpcmp-complete) |
|
(when (require 'auto-complete nil t) |
|
(make-variable-buffer-local 'ac-sources) |
|
(add-to-list 'ac-sources 'ac-source-php-completion) |
|
(auto-complete-mode t)))) |
|
|
|
;; js2-mode |
|
;(autoload 'js2-mode "js2" nil t) |
|
;(add-to-list 'auto-mode-alist '("\\.js$" . js2-mode)) |
|
;(add-to-list 'auto-mode-alist '("\\.json$" . js2-mode)) |
|
;; http://8-p.info/emacs-javascript.html |
|
;(setq-default c-basic-offset 4) |
|
|
|
;(when (load "js2" t) |
|
; (setq js2-cleanup-whitespace nil |
|
; js2-mirror-mode nil |
|
; js2-bounce-indent-flag nil) |
|
|
|
; (defun indent-and-back-to-indentation () |
|
; (interactive) |
|
; (indent-for-tab-command) |
|
; (let ((point-of-indentation |
|
; (save-excursion |
|
; (back-to-indentation) |
|
; (point)))) |
|
; (skip-chars-forward "\s " point-of-indentation))) |
|
; |
|
; (define-key js2-mode-map "\C-i" 'indent-and-back-to-indentation) |
|
; (define-key js2-mode-map "\C-m" nil)) |
|
|
|
;; java-mode |
|
(add-hook 'java-mode-hook |
|
'(lambda () |
|
(c-set-style "stroustrup") |
|
(setq tab-width 4) |
|
(setq indent-tabs-mode nil) |
|
)) |
|
;;;; Python settings |
|
(require 'python) |
|
;; pymacs |
|
;(require 'pymacs) |
|
;(autoload 'pymacs-apply "pymacs") |
|
;(autoload 'pymacs-call "pymacs") |
|
;(autoload 'pymacs-eval "pymacs" nil t) |
|
;(autoload 'pymacs-exec "pymacs" nil t) |
|
;(autoload 'pymacs-load "pymacs" nil t) |
|
;(eval-after-load "pymacs" |
|
; '(add-to-list 'pymacs-load-path "~/.emacs.d/pymacs/")) |
|
;; python-mode, pycomplete |
|
;(setq auto-mode-alist (cons '("\\.py$" . python-mode) auto-mode-alist)) |
|
;(add-to-list 'interpreter-mode-alist '("python" . python-mode)) |
|
;(setq interpreter-mode-alist (cons '("python" . python-mode) |
|
; interpreter-mode-alist)) |
|
;(autoload 'python-mode "python-mode" "Python editing mode." t) |
|
;(add-hook 'python-mode-hook '(lambda () |
|
; (require 'pycomplete) |
|
; )) |
|
;; ropemacs |
|
;;(pymacs-load "ropemacs" "rope-") |
|
;;(setq ropemacs-enable-autoimport t) |
|
;(require 'ipython) |
|
;(setq ipython-command "/opt/local/bin/ipython")) |
|
; (require 'pysmell) |
|
;(add-hook 'python-mode-hook (lambda () (pysmell-mode 1))) |
|
;(add-hook 'python-mode-hook |
|
; '(lambda () |
|
; (define-key python-mode-map "\C-m" 'newline-and-indent) |
|
; (define-key python-mode-map "\M-\"" 'electric-pair) |
|
; (define-key python-mode-map "\M-\'" 'electric-pair) |
|
; (define-key python-mode-map "\M-[" 'electric-pair) |
|
; (define-key python-mode-map "\M-{" 'electric-pair) |
|
; (define-key python-mode-map "\M-(" 'electric-pair) |
|
; (define-key inferior-python-mode-map "\t" 'python-complete-symbol) |
|
; )) |
|
;(defvar ac-source-pysmell |
|
; '((candidates |
|
; . (lambda () |
|
; (require 'pysmell) |
|
; (pysmell-get-all-completions)))) |
|
; "Source for PySmell") |
|
; |
|
;(add-hook 'python-mode-hook |
|
; '(lambda () |
|
; (set (make-local-variable 'ac-sources) (append ac-sources '(ac-source-pysmell))))) |
|
|
|
|
|
|
|
;;scheme-complete |
|
;(require 'scheme-complete) |
|
;(eval-after-load 'scheme |
|
; '(progn |
|
; (setq scheme-default-implementation 'gauche) |
|
; (setq *scheme-current-implementation* 'gauche) |
|
; ;; scheme-smart-complete: M-TAB |
|
; (define-key scheme-mode-map "\C-t" 'scheme-smart-complete) |
|
; ;; scheme-complete-or-indent: TAB |
|
; (define-key scheme-mode-map "\t" 'scheme-complete-or-indent)) |
|
;) |
|
|
|
;(add-hook 'scheme-mode-hook |
|
;(lambda () |
|
;(setq default-scheme-implementation 'gauche) |
|
;(setq *current-scheme-implementation* 'gauche) |
|
|
|
;; eldoc-mode |
|
;;(setq (make-local-variable 'eldoc-documentation-function) |
|
; 'scheme-get-current-symbol-info) |
|
;(eldoc-mode t) |
|
;) |
|
|
|
;; install-elisp.el *package installer |
|
|
|
(require 'install-elisp) |
|
(setq install-elisp-repository-directory "~/.emacs.d/site-lisp") |
|
|
|
|
|
;; migemo |
|
(load "migemo.el") |
|
(setq migemo-command "/opt/local/bin/cmigemo") |
|
(setq migemo-options '("-q" "--emacs" "-i" "¥a")) |
|
(setq migemo-dictionary (expand-file-name "~/local/migemo/migemo-dict")) |
|
;(setq migemo-dictionary "/opt/local/share/migemo/utf-8/migemo-dict") |
|
(setq migemo-user-dictionary nil) |
|
(setq migemo-regex-dictionary nil) |
|
|
|
|
|
|
|
;; anything |
|
(require 'anything) |
|
(require 'anything-config) |
|
(require 'anything-match-plugin) |
|
(setq anything-sources (list anything-c-source-buffers+ |
|
anything-c-source-bookmarks |
|
anything-c-source-recentf |
|
anything-c-source-buffer-not-found |
|
anything-c-source-imenu |
|
anything-c-source-file-name-history |
|
anything-c-source-locate)) |
|
(setq imenu-auto-rescan t) |
|
(define-key anything-map (kbd "C-p") 'anything-previous-line) |
|
(define-key anything-map (kbd "C-n") 'anything-next-line) |
|
(define-key anything-map (kbd "C-v") 'anything-next-source) |
|
(define-key anything-map (kbd "M-v") 'anything-previous-source) |
|
(global-set-key (kbd "C-;") 'anything) |
|
|
|
(require 'anything-etags) |
|
(add-to-list 'anything-sources 'anything-c-source-etags-select) |
|
|
|
(require 'anything-yaetags) |
|
(add-to-list 'anything-sources 'anything-c-source-yaetags-select) |
|
(global-set-key (kbd "M-.") 'anything-yaetags-find-tag) |
|
|
|
|
|
;; session |
|
|
|
(when (locate-library "session") |
|
(setq session-globals-max-size 512) |
|
(setq session-globals-regexp "-\\(ring\\|history\\|hist\\)\\'") |
|
(require 'session) |
|
(defadvice find-alternate-file |
|
(before session-store-buffer-places last activate) |
|
"Invoke session-kill-buffer-hook." |
|
(session-kill-buffer-hook)) |
|
(add-to-list 'session-kill-buffer-commands 'find-alternate-file) |
|
|
|
(add-hook 'after-init-hook 'session-initialize)) |
|
|
|
(when (locate-library "minibuf-isearch") |
|
(setq minibuf-isearch-indicator-string nil) |
|
(setq minibuf-isearch-display-message-always t) |
|
(setq minibuf-isearch-match-format-string "[isearch with '%s']") |
|
(setq minibuf-isearch-no-match-format-string "[No further match with '%s']") |
|
(setq minibuf-isearch-message-on-right t) |
|
(setq history-length 128) |
|
(require 'minibuf-isearch)) |
|
|
|
;; window |
|
;(require 'windows) |
|
|
|
;(setq win:use-frame nil) |
|
;(win:startup-with-window) |
|
;(define-key ctl-x-map "C" 'see-you-again) |
|
|
|
;; sense-region.el |
|
;(autoload 'sense-region-on "sense-region" |
|
; "System to toggle region and rectangle." t nil) |
|
;(sense-region-on) |
|
|
|
|
|
;; emacs23 用設定 |
|
;(cond ( (string-match "^23\." emacs-version) |
|
; (cond (window-system |
|
; (set-default-font "Bitstream Vera Sans Mono-12") |
|
; (set-fontset-font (frame-parameter nil 'font) |
|
; 'japanese-jisx0208 |
|
; '("IPA モナー ゴシック" . "unicode-bmp")) |
|
; )) |
|
;)) |
|
|
|
;; init-loader |
|
(require 'init-loader) |
|
(init-loader-load (expand-file-name "~/.emacs.d/inits")) |
|
|
|
;; yasnippet.el |
|
(require 'yasnippet) |
|
(setq yas/trigger-key (kbd "C-c <kp-multiply>")) |
|
(yas/initialize) |
|
(yas/load-directory "~/.emacs.d/snippets") |
|
|
|
|
|
(put 'upcase-region 'disabled nil) |
