やってみる。
(setq load-path (cons "~/emacs-lisp/" load-path)) ;show recent used files (recentf-mode) ;alias for dabbrev-expand (global-set-key "\C-\\" 'dabbrev-expand ) ;; for coding (global-set-key "\C-ci" 'comment-region) (global-set-key "\C-co" 'uncomment-region) (global-set-key "\C-l" 'goto-line) ;; syntax highlight of corresponding brackets (show-paren-mode t) ;; show function name where now I am (which-function-mode) ;; coloring current line (require 'hl-line) (setq hl-line-face 'underline) (global-hl-line-mode) (custom-set-variables ;; custom-set-variables was added by Custom -- don't edit or cut/paste it! ;; Your init file should contain only one such instance. '(auto-compression-mode t nil (jka-compr)) '(case-fold-search t) '(current-language-environment "Japanese") '(default-input-method "japanese") '(global-font-lock-mode t nil (font-lock)) '(transient-mark-mode t)) (custom-set-faces ;; custom-set-faces was added by Custom -- don't edit or cut/paste it! ;; Your init file should contain only one such instance. ) (windmove-default-keybindings) ;for window move (global-set-key "\C-cf" 'windmove-right) (global-set-key "\C-cb" 'windmove-left) (global-set-key "\C-cp" 'windmove-up) (global-set-key "\C-cn" 'windmove-down) ; bracket jump by % ;; By an unknown contributor (global-set-key "%" 'match-paren) (defun match-paren (arg) "Go to the matching paren if on a paren; otherwise insert %." (interactive "p") (cond ((looking-at "\\s\(") (forward-list 1) (backward-char 1)) ((looking-at "\\s\)") (forward-char 1) (backward-list 1)) (t (self-insert-command (or arg 1))))) ;make fonts bold (add-hook 'font-lock-mode-hook '(lambda () (set-face-foreground 'font-lock-comment-face "aquamarine") (set-face-bold-p 'modeline t) )) ;set info files (require 'info) (setq Info-directory-list (cons (expand-file-name "~/info/") Info-directory-list)) (setq Info-directory-list (cons (expand-file-name "/usr/share/info/") Info-directory-list)) ;; 直前/直後の括弧に対応する括弧を光らせます。 (show-paren-mode) ;load plugins configration (load "~/.emacs.plugins") (put 'set-goal-column 'disabled nil) (setq inhibit-startup-message t)
.emacs.plugin
;for ELScreen (load "elscreen" "ElScreen" t) (elscreen-set-prefix-key "\C-q") (custom-set-variables ;; custom-set-variables was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. '(icicle-reminder-prompt-flag 0)) (custom-set-faces ;; custom-set-faces was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. ) ;;function navi (load-library "navi") (global-set-key [f11] 'call-navi) (global-set-key "\C-x\C-l" 'call-navi) (defun call-navi () (interactive) (navi (buffer-name)) ) (setq navi-listing-window-height 15) ;; highlight insede of pair brackets by paren-mic.el (require 'mic-paren) (paren-activate) ; activating (setq paren-match-face 'bold) (setq paren-sexp-mode t) ;;gtags mode (autoload 'gtags-mode "gtags" "" t) (setq gtags-mode-hook '(lambda () (local-set-key "\M-t" 'gtags-find-tag) (local-set-key "\M-r" 'gtags-find-rtag) (local-set-key "\M-s" 'gtags-find-symbol) (local-set-key "\C-t" 'gtags-pop-stack) )) (add-hook 'c-mode-common-hook '(lambda() (gtags-mode 1) (gtags-make-complete-list) )) (autoload 'se/make-summary-buffer "summarye" nil t) (global-set-key "\C-x\C-l" 'se/make-summary-buffer) (require 'auto-complete) (global-auto-complete-mode t) ;;configuration about clmemo (autoload 'clmemo "clmemo" "ChangeLog memo mode." t) (setq clmemo-file-name "~/WorkingLog") (global-set-key "\C-xM" 'clmemo) ;; historyf.el (require 'historyf) ;; PgUp キーでバッファ履歴を進む (global-set-key '[prior] 'historyf-forward) ;; PgDn キーでバッファ履歴を戻る (global-set-key '[next] 'historyf-back)