Skip to content


Subversion checkout URL

You can clone with
Download ZIP
tree: dc254de8ec
Fetching contributors…

Cannot retrieve contributors at this time

261 lines (192 sloc) 6.737 kb
;; (setq load-path (cons "~/dotfiles/.elisp/tuareg" load-path))
;; (setq load-path (cons "~/dotfiles/.elisp/" load-path))
(setq debug-on-error nil)
(add-to-list 'load-path "~/dotfiles/.elisp")
(add-to-list 'load-path "~/dotfiles/.elisp/conf")
(add-to-list 'load-path "~/dotfiles/.elisp/tuareg")
;; C-h to backspace
;;(global-set-key "\C-h" 'delete-backward-char)
;;(setq auto-mode-alist (cons '("??.ml??w?" . tuareg-mode) auto-mode-alist))
(autoload 'tuareg-mode "tuareg" "Major mode for editing Caml code" t)
(autoload 'camldebug "camldebug" "Run the Caml debugger" t)
(line-number-mode t)
;(column-number-mode nil)
;; Riece
(setq riece-server-alist
'(("is2007" :host "" :coding utf-8 :nickname "suzemacs")))
;; Tabはspace x 4
(setq-default tab-width 4 indent-tabs-mode nil)
(require 'smart-compile)
;; utf-8
(set-language-environment 'Japanese)
(set-terminal-coding-system 'utf-8)
(setq file-name-coding-system 'utf-8)
(set-clipboard-coding-system 'utf-8)
(setq default-buffer-file-coding-system 'utf-8)
;; For yatex mode
;; (setq coding-system-for-read 'mule-utf-8-unix)
(prefer-coding-system 'utf-8)
(set-default-coding-systems 'utf-8)
(set-keyboard-coding-system 'utf-8)
(set-buffer-file-coding-system 'utf-8-unix)
;; (when (eq window-system 'mac)
;; (add-hook 'window-setup-hook
;; (lambda ()
;; ;; (setq mac-autohide-menubar-on-maximize t)
;; (set-frame-parameter nil 'fullscreen 'fullboth)
;; )))
;; CarbonEmacsやgtkのemacsで最大化
(defun toggle-max-window ()
(if (frame-parameter nil 'fullscreen)
(set-frame-parameter nil 'fullscreen nil)
(set-frame-parameter nil 'fullscreen 'fullboth)))
;; Carbon Emacsの設定で入れられた
'(display-time-mode t)
'(tool-bar-mode nil)
'(transient-mark-mode t))
(if window-system (progn
(set-background-color "Black")
(set-foreground-color "LightGray")
(set-cursor-color "Gray")
(set-frame-parameter nil 'alpha 80)
;; Highlight Parens
(load "mic-paren.el")
(require 'mic-paren)
;; Visible marked area
(transient-mark-mode t)
;; Yatex Mode
(setq auto-mode-alist (cons '("\\.tex$" . yatex-mode) auto-mode-alist))
(add-hook 'yatex-mode-hook' (lambda () (setq auto-fill-function nil)))
;; Smooth down key
(setq scroll-step 1)
(setq scroll-conservatively 4))
;; Answer y or n
(fset 'yes-or-no-p 'y-or-n-p)
;; no backup file
; (setq auto-save-list-file-name nil)
; (setq auto-save-list-file-prefix nil)
; (setq make-backup-files nil))
;; Show time in status line
(setq display-time-24hr-format t)
(setq display-time-format "%Y-%m-%d(%a) %H:%M")
(setq display-time-day-and-date t)
(setq display-time-interval 30)
;; Ack
(defun ack ()
(let ((grep-find-command "ack --nocolor --nogroup --ignore-dir=HTML"))
(call-interactively 'grep-find)))
;; C-o to move window
;; But it conflicts "Open directory" in Dired-mode....
(global-set-key "\C-o" 'next-multiframe-window)
;; Orikaeshi
(setq truncate-partial-width-windows nil)
;; uniquify
(require 'uniquify)
(setq uniquify-buffer-name-style 'post-forward-angle-brackets)
; install-elisp
(require 'install-elisp)
(setq install-elisp-repository-directory (expand-file-name "~/dotfiles/.elisp/"))
; key-chord
(require 'key-chord)
(setq key-chord-two-keys-delay 0.04)
(key-chord-mode 1)
(load "init-physical-move")
(load "init-shell")
(load "init-flymake")
;(load "init-js2")
(load "init-jaspace")
(when (eq window-system 'mac)
(load "init-skk"))
;(load "init-perl")
;(load "init-cpp")
;(load "init-autosave-enhanced")
(load "init-autosave")
(load "init-auto-complete")
(load "init-anything")
(load "init-revive")
;(load "init-html")
(load "init-gauche")
(load "init-python")
(load "init-gdb")
(load "init-gtags")
;(load "init-search")
;(load "less")
(load "init-spell")
(load "init-view")
(load "init-yasnippet")
;(add-to-list 'load-path "/directory/containing/nav/")
;; Project home
;; Instructions are seen in the source file nav.el
(require 'nav)
;; Physical line
(require 'physical-line)
(define-key global-map "\C-a" 'physical-line-beginning-of-line)
(define-key global-map "\C-e" 'physical-line-end-of-line)
;; 変態キーバインド
;(global-set-key [S-right] 'split-window-horizontally)
;(global-set-key [S-left] 'split-window-horizontally)
;(define-key global-map [S-up] 'split-window-vertically)
;(define-key global-map [S-down] 'delete-other-windows)
;(global-set-key [right] 'windmove-right)
;(global-set-key [left] 'windmove-left)
;(define-key global-map [up] 'windmove-up)
;(define-key global-map [down] 'windmove-down)
;(global-set-key [C-backspace] 'switch-to-buffer)
;(global-set-key [C-delete] '(lambda() (interactive)(kill-buffer (buffer-name))))
;(global-set-key [C-right] 'elscreen-next)
;(global-set-key [C-left] 'elscreen-previous)
;(global-set-key [C-return] 'find-file)
;; scroll n line from Mr.Sekiguchi *C-q と C-z に当てている。
; by katchan
(defun scroll-n-lines-ahead (&optional n)
"Scroll ahead N lines (default N = 2)"
(interactive "p")
(scroll-up (prefix-numeric-value n)))
(defun scroll-n-lines-behind (&optional n)
"Scroll behind N lines (default N = 2)"
(interactive "p")
(scroll-down (prefix-numeric-value n)))
(global-set-key "\C-z" 'scroll-n-lines-ahead)
(global-set-key "\C-q" 'scroll-n-lines-behind)
;; デフォルトで分割
(if window-system (set-frame-parameter nil 'fullscreen 'fullboth))
; adjust Jis_table
; define whizzy-command-name
(autoload 'whizzytex-mode
"WhizzyTeX, a minor-mode WYSIWIG environment for LaTeX" t)
;; Egg the emacs controller of git
;; C-v + c:commit, d:status, l:log, l p:push
(add-to-list 'exec-path "/usr/local/git/bin")
(require 'egg)
;; Bookmark
(defadvice bookmark-set (around bookmark-set-ad activate)
(bookmark-load bookmark-default-file t t) ;; 登録前に最新のブックマークを読み直す
(defadvice bookmark-jump (before bookmark-set-ad activate)
(bookmark-load bookmark-default-file t t))
Jump to Line
Something went wrong with that request. Please try again.