読者です 読者をやめる 読者になる 読者になる

無知を晒す

ふだんの出来事はこっちに書いてます: http://tana.hatenablog.com

Emacs23の設定

24でpackage.elでの運用にするといろいろ修正がいる.

;;---------------------------------------------------
;;
;; Emacs全般の設定
;;---------------------------------------------------

;; 起動時に出てくるメッセージを消す
(setq inhibit-startup-message t)

;; 行、列の表示
(line-number-mode t)
(column-number-mode t)

;; C-h to Backspace
(global-set-key "\C-h" 'delete-backward-char)

;; C-c C-c to comment-or-uncomment-region
(global-set-key "\C-c\C-c" 'comment-or-uncomment-region)

;; C-kで行全体を削除
(setq kill-whole-line t)


;; ツールバー・メニューバーの非表示
;; (menu-bar-mode -1)
;; (tool-bar-mode -1)

;; タブ幅を設定
(setq-default tab-width 4 indent-tabs-mode nil)

;; ビジュアルベルを使う
;; (setq visible-bell t)

;; ビープを無効に
(setq ring-bell-function 'ignore)

;; 折り返し
(setq truncate-partial-width-windows nil)

;; シンボリックリンクのリンク先を直接開く
(setq vc-follow-symlinks t)

;; ファイルの自動リロードです
(global-auto-revert-mode 1)

;;----------------------------------------------------
;;
;; Text and Font
;;----------------------------------------------------

;; 背景色と文字色
(setq default-frame-alist
      (append
       '((foreground-color . "ivory")
         (background-color . "black")
         (cursor-color . "deep pink")
         (alpha . (75 55 nil nil)))
       default-frame-alist))

;; フォントを指定
(set-face-attribute 'default nil
                   :family "Ricty"
                   :height 160)
(set-fontset-font
 nil 'japanese-jisx0208
 (font-spec :family "Ricty"))

;;---------------------------------------------------
;;
;; 機能拡張
;;---------------------------------------------------


;;画面を 2 分割したときの 上下を入れ替える swap screen
(defun swap-screen()
  "Swap two screen,leaving cursor at current window."
  (interactive)
  (let ((thiswin (selected-window))
        (nextbuf (window-buffer (next-window))))
    (set-window-buffer (next-window) (window-buffer))
    (set-window-buffer thiswin nextbuf)))
(defun swap-screen-with-cursor()
  "Swap two screen,with cursor in same buffer."
  (interactive)
  (let ((thiswin (selected-window))
        (thisbuf (window-buffer)))
    (other-window 1)
    (set-window-buffer thiswin (window-buffer))
    (set-window-buffer (selected-window) thisbuf)))
(global-set-key [f2] 'swap-screen)
(global-set-key [S-f2] 'swap-screen-with-cursor)

;; 対応する括弧をハイライト
(show-paren-mode t)
(setq show-paren-style 'expression)
(set-face-background 'show-paren-match-face "gray15")
(set-face-foreground 'show-paren-match-face "white")


;;---------------------------------------------------
;;
;; coffee-mode.el
;;---------------------------------------------------

(require 'coffee-mode)

(defun coffee-custom ()
  "coffee-mode-hook"

  ;; CoffeeScript uses two spaces.
  (set (make-local-variable 'tab-width) 2)

  ;; If you don't have js2-mode
  (setq coffee-js-mode 'javascript-mode)

  ;; If you don't want your compiled files to be wrapped
  (setq coffee-args-compile '("-c" "--bare"))

  ;; *Messages* spam
  (setq coffee-debug-mode t)

  ;; Emacs key binding
  (define-key coffee-mode-map [(meta r)] 'coffee-compile-buffer)

  ;; Riding edge.
  (setq coffee-command "/opt/local/bin/coffee")

  ;; Compile '.coffee' files on every save
  (and (file-exists-p (buffer-file-name))
       (file-exists-p (coffee-compiled-file-name))
       (coffee-cos-mode t)))

(add-hook 'coffee-mode-hook 'coffee-custom)
(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.
 '(column-number-mode t)
 '(show-paren-mode t)
 '(tool-bar-mode nil))
(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.
 )


;;---------------------------------------------------
;;
;; auto-install.el
;;---------------------------------------------------
(require 'auto-install)
(setq auto-install-directory "~/.emacs.d/auto-install/")
(auto-install-update-emacswiki-package-name t)
;; (setq url-proxy-service '(("http". "localhost:8339")))
(auto-install-compatibility-setup)

;;---------------------------------------------------
;;
;; anything
;;---------------------------------------------------

(require 'anything-startup)
;; open anything by C-l
(global-set-key "\C-l" 'anything)
(require 'anything-config)
(setq anything-sources (list anything-c-source-buffers
                    anything-c-source-bookmarks
                    anything-c-source-recentf
                    anything-c-source-file-name-history
;                    anything-c-source-locate
                    anything-c-source-mac-spotlight
                    anything-c-source-complex-command-history))



;;---------------------------------------------------
;;
;; auto-complete
;;---------------------------------------------------

(add-to-list 'load-path (expand-file-name "~/.gem/ruby/1.9.1/gems/rcodetools-0.8.5.0/"))
(when (require 'auto-complete nil t)
  (require 'auto-complete-config)
;;  (require 'auto-complete-ruby)

  (global-auto-complete-mode t)
  (set-face-background 'ac-candidate-face "lightgray")
  (set-face-underline 'ac-candidate-face "darkgray")
  (set-face-background 'ac-selection-face "steelblue")

  (define-key ac-complete-mode-map "\M-/" 'ac-start)
  (define-key ac-complete-mode-map "\t" 'ac-expand)
  (define-key ac-complete-mode-map "\r" 'ac-complete)
  (define-key ac-complete-mode-map "\M-n" 'ac-next)
  (define-key ac-complete-mode-map "\M-p" 'ac-previous)
  (define-key ac-mode-map (kbd "M-TAB") 'auto-complete)
  (ac-set-trigger-key "TAB")

  (setq ac-auto-start 3)
  (setq ac-dwim t)
  (set-default 'ac-sources '(ac-source-yasnippet ac-source-abbrev ac-source-words-in-buffer))
  
  (add-hook 'auto-complete-mode-hook
            (lambda ()
              (add-to-list 'ac-sources 'ac-source-filename)
              (add-to-list 'ac-sources 'ac-source-words-in-buffer)))

  (add-hook 'c-mode-hook
            (lambda ()
              (setq ac-sources '(ac-source-gtags ac-source-yasnippet))))

  (setq ac-modes
        (append ac-modes
                '(eshell-mode
                                        ;org-mode
                  )))
                                        ;(add-to-list 'ac-trigger-commands 'org-self-insert-command)

  (add-hook 'emacs-lisp-mode-hook
            (lambda ()
              (setq ac-sources '(ac-source-yasnippet ac-source-abbrev ac-source-words-in-buffer ac-source-symbols))))

  (add-hook 'eshell-mode-hook
            (lambda ()
              (setq ac-sources '(ac-source-yasnippet ac-source-abbrev ac-source-files-in-current-dir ac-source-words-in-buffer))))

;;  (add-hook 'ruby-mode-hook
;;            (lambda ()
;;              (setq ac-omni-completion-sources '(("\\.\\=" ac-source-rcodetools)))))
  )


;;---------------------------------------------------
;;
;; howm-mode
;;---------------------------------------------------

;; ;; home-modeとorg-modeの共存
;; (require 'org)
;; (add-hook 'org-mode-hook 'howm-mode)
;; (add-to-list 'auto-mode-alist '("\\.howm$" . org-mode))
;; (setq howm-view-title-header "*") ;; ← howm のロードより前に書くこと

;; ;; キー割当の重複を避ける (お好みで)
;; (setq howm-prefix "\C-c ") ;; howm のキーを「C-c , □」から「C-z □」に変更

;; howmの読み込み
(push "~/.emacs.d/site-lisp/howm" load-path)
(setq howm-menu-lang 'ja)
(require 'howm-mode)
(setq howm-file-name-format "%Y/%m/%Y_%m_%d.howm")

;; howmディレクトリの指定
(setq howm-directory "~/Dropbox/howm/")


;;---------------------------------------------------
;;
;; org-mode
;;---------------------------------------------------

;; (setq org-export-latex-coding-system 'euc-jp-unix)
;; (setq org-export-latex-date-format "%Y-%m-%d")
;; (setq org-export-latex-classes nil)
;; (add-to-list 'org-export-latex-classes
;;   '("jarticle"
;;     "\\documentclass[a4j,10pt,twocolumn]{jarticle}"
;; ;;    "\\documentclass[a4j]{jarticle}"
;;     ("\\section{%s}" . "\\section*{%s}")
;;     ("\\subsection{%s}" . "\\subsection*{%s}")
;;     ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
;;     ("\\paragraph{%s}" . "\\paragraph*{%s}")
;;     ("\\subparagraph{%s}" . "\\subparagraph*{%s}")
;; ))

;

;;---------------------------------------------------
;;
;; ruby-mode
;;---------------------------------------------------

;; 括弧の後のインデントが深くなるのを防ぐ
(setq ruby-deep-indent-paren-style nil)