init.el
(setq skk-cursor-hiragana-color "yellow")
(blink-cursor-mode -1)
(global-hl-line-mode 1)
(savehist-mode 1)
(show-paren-mode 1)
(display-time)
(line-number-mode 1)
(column-number-mode 1)
(transient-mark-mode 1)
(setq message-log-max 10000)
(setq enable-recursive-minibuffers t)
(setq use-dialog-box nil)
(defalias 'message-box 'message)
(setq history-length 1000)
(setq echo-keystrokes 0.1)
(defalias 'yes-or-no-p 'y-or-n-p)
(add-hook 'twittering-mode-hook
'(lambda ()
(define-key twittering-mode-map (kbd "f") 'twittering-favorite)))
(add-hook 'dired-mode-hook
'(lambda ()
(define-key dired-mode-map (kbd "C-t") 'dired-previous-line)))
(add-hook 'ibuffer-mode-hook
'(lambda ()
(define-key ibuffer-mode-map (kbd "C-t") 'previous-line)
(define-key ibuffer-mode-map (kbd "<f2>") 'my-buffer-menu2)
(define-key ibuffer-mode-map (kbd "M-o") 'find-file)))
;;; (define-key ibuffer-mode-map (kbd "") 'previous-line)
;;; (global-set-key [f2] 'my-buffer-menu2)
;;; (global-unset-key (kbd "o"))))
(setq skk-large-jisyo "~/ldic_kyuji.dic")
(setq skk-jisyo "~/udic_kyuji.dic")
(setq skk-backup-jisyo "~/udic_kyuji.dic.BAK")
(setq skk-auto-start-henkan-keyword-list nil)
(defun kyu-shin (x) (replace-regexp-in-string "kyu" "shin" x))
(defun shin-kyu (x) (replace-regexp-in-string "shin" "kyu" x))
(defun shinji-to-kyuji nil
(interactive)
(progn
(skk-mode -1)
(skk-save-jisyo)
(setq lub (list skk-large-jisyo skk-jisyo skk-backup-jisyo))
(setq newlub (mapcar (function shin-kyu) lub))
(setq skk-large-jisyo (nth 0 newlub))
(setq skk-jisyo (nth 1 newlub))
(setq skk-backup-jisyo (nth 2 newlub))
;;; (setq skk-large-jisyo "~/ldic_kyuji.dic")
;;; (setq skk-jisyo "~/udic_kyuji.dic")
;;; (setq skk-backup-jisyo "~/udic_kyuji.dic.BAK")
(skk-mode 1)))
(defun kyuji-to-shinji nil
(interactive)
(progn
(skk-mode -1)
(skk-save-jisyo)
(setq lub (list skk-large-jisyo skk-jisyo skk-backup-jisyo))
(setq newlub (mapcar (function kyu-shin) lub))
(setq skk-large-jisyo (nth 0 newlub))
(setq skk-jisyo (nth 1 newlub))
(setq skk-backup-jisyo (nth 2 newlub))
;;; (setq skk-large-jisyo "~/ldic_shinji.dic")
;;; (setq skk-jisyo "~/udic_shinji.dic")
;;; (setq skk-backup-jisyo "~/udic_shinji.dic.BAK")
(skk-mode 1)))
(defun toggle-jitai nil
(interactive)
(cond
((and
(equal skk-large-jisyo "~/ldic_shinji.dic")
(equal skk-jisyo "~/udic_shinji.dic")
(equal skk-backup-jisyo "~/udic_shinji.dic.BAK"))
(shinji-to-kyuji))
((and
(equal skk-large-jisyo "~/ldic_kyuji.dic")
(equal skk-jisyo "~/udic_kyuji.dic")
(equal skk-backup-jisyo "~/udic_kyuji.dic.BAK"))
(kyuji-to-shinji))
((t nil))))
(defun show-lub nil
(interactive)
(setq lub (list skk-large-jisyo skk-jisyo skk-backup-jisyo))
(princ lub))
(defun open-init-el nil
(interactive)
(find-file "~/.emacs.d/init.el"))
(defun skk-hiragana-set nil
(interactive)
(cond (skk-katakana
(skk-toggle-kana nil))
(t
(skk-kakutei))))
(defun skk-katakana-set nil
(interactive)
(cond (skk-katakana
(lambda))
(skk-j-mode
(skk-toggle-kana nil))
(skk-latin-mode
(dolist (skk-kakutei (skk-toggle-kana nil))))))
(global-unset-key (kbd "C-o"))
(global-set-key (kbd "C-o o") 'skk-hiragana-set)
(global-set-key (kbd "C-o e") 'skk-katakana-set)
(global-set-key (kbd "C-o u") 'skk-latin-mode)
(global-set-key [backtab] 'execute-extended-command)
(global-set-key (kbd "C-a") 'beginning-of-line)
(global-set-key (kbd "C-<") 'beginning-of-buffer)
(global-set-key (kbd "C->") 'end-of-buffer)
(global-set-key "\C-x\C-h" 'skk-mode)
(global-set-key (kbd "C-S-u") 'skk-mode)
(global-set-key (kbd "C-x j") 'open-junk-file)
(global-unset-key [tab])
(global-unset-key (kbd "M-c"))
(global-unset-key (kbd "C-x C-f"))
(global-unset-key [f10])
(global-set-key (kbd "C-b") 'delete-backward-char)
(global-set-key "\C-z" nil)
(global-set-key [f1] 'delete-other-windows)
;;;(global-set-key [f2] 'my-buffer-menu)
(global-set-key [f2] 'my-buffer-menu2)
(global-set-key [f3] 'other-window)
(global-set-key [f4] 'open-init-el)
(global-set-key [f5] 'lispxmp)
(global-set-key [f6] 'shell)
(global-set-key [f7] 'eshell)
(global-set-key [f8] 'toggle-jitai)
(global-set-key (kbd "C-<f8>") 'show-lub)
(global-set-key [f9] 'save-buffer)
;;;(global-set-key [f10] 'delete-window)
(global-set-key (kbd "S-<muhenkan>") 'delete-window)
(global-set-key [tab] 'execute-extended-command)
(global-set-key [left] 'backward-char)
(global-set-key [right] 'forward-char)
(global-set-key (kbd "S-<left>") 'backward-kill-word)
(global-set-key [up] 'previous-line)
(global-set-key [down] 'next-line)
(global-set-key (kbd "C-r") 'delete-char)
(global-set-key (kbd "C-S-r") 'kill-word)
(global-set-key (kbd "C-S-k") 'kill-sentence)
(global-set-key (kbd "C-d") 'backward-char)
(global-set-key (kbd "C-S-d") 'backward-word)
(global-set-key (kbd "C-h") 'next-line)
(global-set-key (kbd "C-t") 'previous-line)
(global-set-key (kbd "C-n") 'forward-char)
(global-set-key (kbd "M-o") 'find-file)
(global-set-key (kbd "C-S-d") 'backward-word)
(global-set-key (kbd "C-S-n") 'forward-word)
(global-unset-key (kbd "C-S-h"))
(global-unset-key (kbd "C-S-t"))
(global-set-key (kbd "M-o") 'find-file)
;;(global-set-key (kbd "C-N") 'forward-word)
(global-set-key (kbd "C-S-w") 'save-buffers-kill-terminal)
(global-unset-key (kbd "C-x C-c"))
(global-unset-key (kbd "C-_"))
(global-unset-key (kbd "C-p"))
(global-unset-key (kbd "C-f"))
;;;(add-to-list 'load-path (expand-file-name "~/.emacs.d/auto-install/"))
(add-to-list 'load-path "~/.emacs.d/")
(add-to-list 'load-path "~/.emacs.d/auto-install")
(require 'auto-install)
(auto-install-update-emacswiki-package-name t)
(auto-install-compatibility-setup)
(setq-default skk-kutouten-type 'en)
(setq skk-egg-like-newline t)
(setq skk-henkan-show-candidates-keys '(?a ?o ?e ?u ?h ?t ?n))
(setq skk-rom-kana-rule-list '(
("ca" nil ("カ" . "か"))
("ci" nil ("キ" . "き"))
("cu" nil ("ク" . "く"))
("ce" nil ("ケ" . "け"))
("co" nil ("コ" . "こ"))
("cya" nil ("キャ" . "きゃ"))
("cyu" nil ("キュ" . "きゅ"))
("cye" nil ("キェ" . "きぇ"))
("cyo" nil ("キョ" . "きょ"))
("wi" nil ("ヰ" . "ゐ"))
("we" nil ("ヱ" . "ゑ"))
))
(require 'cl)
;;;(powerline-default-theme)
;(add-to-list 'load-path "~/.emacs.d/site-lisp/")
(add-to-list 'load-path "~/.emacs.d/twittering-mode-3.0.0")
(setq twittering-status-format "%p %S (%s), %C (%@):\n%t\nvia %f\t %L %f \n%d\n---%'")
;; %s - screen_name
;; %S - name
;; %i - profile_image
;; %d - description
;; %l - location
;; %L - " [location]"
;; %u - url
;; %j - user.id
;; %p - protected?
;; %c - created_at (raw UTC string)
;; %C{time-format-str} - created_at (formatted with time-format-str)
;; %@ - X seconds ago
;; %t - text
;; %' - truncated
;; %f - source
;; %# - id
;(require 'lispxmp)
;(setq org-export-latex-coding-system 'shift_jis)
(setq org-export-latex-date-format "%Y-%m-%d")
(setq org-export-latex-classes nil)
(add-to-list 'org-export-latex-classes
'("jsarticle"
"\\documentclass[a4j]{jsarticle}"
("\\section{%s}" . "\\section*{%s}")
("\\subsection{%s}" . "\\subsection*{%s}")
("\\subsubsection{%s}" . "\\subsubsection*{%s}")
("\\paragraph{%s}" . "\\paragraph*{%s}")
("\\subparagraph{%s}" . "\\subparagraph*{%s}")
))
(add-to-list 'org-export-latex-classes
'("jarticle"
"\\documentclass[a4j]{jarticle}"
("\\section{%s}" . "\\section*{%s}")
("\\subsection{%s}" . "\\subsection*{%s}")
("\\subsubsection{%s}" . "\\subsubsection*{%s}")
("\\paragraph{%s}" . "\\paragraph*{%s}")
("\\subparagraph{%s}" . "\\subparagraph*{%s}")
))
(add-to-list 'org-export-latex-classes
'("mine"
"\\documentclass[a4j]{jarticle}"
("\\section{%s}" . "\\section*{%s}")
("\\subsection{%s}" . "\\subsection*{%s}")
("\\subsubsection{%s}" . "\\subsubsection*{%s}")
("\\paragraph{%s}" . "\\paragraph*{%s}")
("\\subparagraph{%s}" . "\\subparagraph*{%s}")
))
(setq org-export-latex-packages-alist
'(("AUTO" "inputenc" t)
("T1" "fontenc" t)
))
(setq org-latex-to-pdf-process
'("/usr/texbin/platex %f" "/usr/texbin/dvipdfmx %b"))
;;; Mew を使う為の設定
;(autoload 'mew "mew" nil t)
;(autoload 'mew-send "mew" nil t)
;;; Mew の起動時にはメールを取得しないようにする設定
(setq mew-auto-get nil)
;;; メールの取得後、POPサーバにあるメールを残す設定
(setq mew-pop-delete nil)
(setq mew-prog-ssl "/usr/local/bin/stunnel3")
;;; パスワードを表示させないための設定
(add-hook 'comint-output-filter-functions 'comint-watch-for-password-prompt)
;(require 'package)
;(setq package-user-dir "~/.emacs.d/elisp/elpa/")
;(add-to-list 'package-archives '("melpa" . "http://melpa.milkbox.net/packages/") t)
;(package-initialize)
;(require 'init-loader)
;(init-loader-load "~/.emacs.d/mine")
;(require 'open-junk-file)
(require 'twittering-mode)
(require 'alpaca)
(setq twittering-use-master-password t)
(setq twittering-timer-interval 300)
(setq twittering-use-ssl t)
(setq eshell-cmpl-ignore-case t)
(tool-bar-mode -1)
(menu-bar-mode -1)
(scroll-bar-mode -1)
(when (eq window-system 'x)
;;; (load-theme 'deeper-blue t)
;;; (load-theme 'tango t)
;;;(load-theme 'misterioso t)
;;;(load-theme 'wheatgrass t)
(load-theme 'manoj-dark t)
;;; (load-theme 'light-blue t)
(set-face-attribute 'default nil
;;; :family "Liberation Mono"
;;; :family "Courier 10 Pitch"
:family "inconsolata"
;;; :family "Dejavu Sans Mono"
;;; :family "Nimbus Mono L"
:height 150))
;; 日本語を
;;; (set-fontset-font "fontset-default"
;;; 'japanese-jisx0208
;;; '("IPAMincho"))
(set-fontset-font "fontset-default"
'japanese-jisx0208
'("ヒラギノ角ゴ ProN W3"))
(when (eq window-system 'ns)
;;;(load-theme 'wombat t)
(load-theme 'molokai t)
;;; (enable-theme 'molokai)
;; Monaco 12pt をデフォルトにする
(set-face-attribute 'default nil
:family "Andale mono"
:height 150)
;;日本語をヒラギノ角ゴProNにする
(set-fontset-font "fontset-default" 'japanese-jisx0208
'("Hiragino Mincho ProN"))
;;半角カナをヒラギノ角ゴProNにする
(set-fontset-font "fontset-default"
'katakana-jisx0201
'("Hiragino Maru Gothic ProN"))
;;for Japanese
(set-language-environment 'Japanese)
(set-default-coding-systems 'utf-8-unix)
(set-terminal-coding-system 'utf-8-unix)
(set-keyboard-coding-system 'sjis-mac)
(set-clipboard-coding-system 'sjis-mac)
(setq-default buffer-file-coding-system 'utf-8)
(prefer-coding-system 'utf-8)
(add-to-list 'default-frame-alist '(font . "fontset-default"))
)
;;;(require 'anything-startup)
;;;(require 'auto-install)
;;;(require 'twit)
;;(setq auto-install-directory "~/.emacs.d/auto-install/")
;;(auto-install-update-emacswiki-package-name t)
;;(auto-install-compatibility-setup) ; 互換性確保
(setq open-junk-file-format "~/program/junk/%Y/%m/%Y-%m-%d-%H%M%S.")
(define-key minibuffer-local-map (kbd "C-t") 'previous-history-element)
(define-key minibuffer-local-map (kbd "C-h") 'next-history-element)
(add-hook 'shell-mode-hook
'(lambda ()
(define-key shell-mode-map (kbd "C-S-t") 'comint-previous-input)
(define-key shell-mode-map (kbd "C-S-h") 'comint-next-input)
(define-key shell-mode-map (kbd "C-d") 'backward-char)))
;;;(add-hook 'eshell-mode-hook
;;; '(lambda ()
;;; (define-key eshell-mode-map (kbd "C-t") 'eshell-previous-matching-input-from-input)
;;; (define-key shell-mode-map (kbd "C-S-h") 'comint-next-input)
;;; (define-key shell-mode-map (kbd "C-d") 'backward-char))
;;;)
(defalias 'dk 'describe-key)
(defalias 'dkb 'describe-key-briefly)
(defalias 'db 'describe-bindings)
(defalias 'df 'describe-function)
(defalias 'dv 'describe-variable)
(defalias 'dm 'describe-mode)
(defalias 'ir 'indent-region)
(defalias 'ap 'apropos)
(defalias 'ff 'find-function)
;;;(aset keyboard-translate-table ?\<tab> ?\M-x)
;;;(if window-system
;;; )
(setq scroll-step 1)
(setq inhibit-startup-message t)
;;
;; YaTeX
;;
(add-to-list 'load-path "~/.emacs.d/site-lisp/yatex")
(autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t)
(setq auto-mode-alist
(append '(("\\.tex$" . yatex-mode)
("\\.ltx$" . yatex-mode)
("\\.cls$" . yatex-mode)
("\\.sty$" . yatex-mode)
("\\.clo$" . yatex-mode)
("\\.bbl$" . yatex-mode)) auto-mode-alist))
(setq YaTeX-inhibit-prefix-letter t)
(setq YaTeX-kanji-code nil)
(setq YaTeX-use-LaTeX2e t)
(setq YaTeX-use-AMS-LaTeX t)
;(setq YaTeX-dvi2-command-ext-alist nil)
;;(setq YaTeX-dvi2-command-ext-alist
;; '(("Preview\\|TeXShop\\|TeXworks\\|Skim\\|mupdf\\|xpdf\\|Firefox\\|Adobe" . ".pdf")))
;;(setq YaTeX-dvi2-command-ext-alist nil)
(setq tex-command "/usr/texbin/platex -synctex=1")
(setq dviprint-command-format "dvpd.sh %s")
;;(setq dviprint-command-format "dvipdfmx -p b4 -l %s")
(setq dvi2-command "open -a Preview")
;(setq tex-command "/usr/texbin/ptex2pdf -l -ot '-synctex=1'")
;(setq tex-command "/usr/texbin/ptex2pdf -l -u -ot '-synctex=1'")
;(setq tex-command "/usr/texbin/pdflatex -synctex=1")
;(setq tex-command "/usr/texbin/lualatex -synctex=1")
;(setq tex-command "/usr/texbin/luajitlatex -synctex=1")
;(setq tex-command "/usr/texbin/xelatex -synctex=1")
;(setq tex-command "/usr/texbin/latexmk")
;(setq tex-command "/usr/texbin/latexmk -e '$latex=q/platex %O -synctex=1 %S/' -e '$bibtex=q/pbibtex %O %B/' -e '$makeindex=q/mendex %O -o %D %S/' -e '$dvipdf=q/dvipdfmx %O -o %D %S/' -norc -gg -pdfdvi")
;(setq tex-command "/usr/texbin/latexmk -e '$latex=q/platex %O -synctex=1 %S/' -e '$bibtex=q/pbibtex %O %B/' -e '$makeindex=q/mendex %O -o %D %S/' -e '$dvips=q/dvips %O -z -f %S | convbkmk -g > %D/' -e '$ps2pdf=q/ps2pdf %O %S %D/' -norc -gg -pdfps")
;(setq tex-command "/usr/texbin/latexmk -e '$latex=q/uplatex %O -synctex=1 %S/' -e '$bibtex=q/upbibtex %O %B/' -e '$makeindex=q/mendex %O -o %D %S/' -e '$dvipdf=q/dvipdfmx %O -o %D %S/' -norc -gg -pdfdvi")
;(setq tex-command "/usr/texbin/latexmk -e '$latex=q/uplatex %O -synctex=1 %S/' -e '$bibtex=q/upbibtex %O %B/' -e '$makeindex=q/mendex %O -o %D %S/' -e '$dvips=q/dvips %O -z -f %S | convbkmk -u > %D/' -e '$ps2pdf=q/ps2pdf %O %S %D/' -norc -gg -pdfps")
;(setq tex-command "/usr/texbin/latexmk -e '$pdflatex=q/pdflatex %O -synctex=1 %S/' -e '$bibtex=q/bibtex %O %B/' -e '$makeindex=q/makeindex %O -o %D %S/' -norc -gg -pdf")
;(setq tex-command "/usr/texbin/latexmk -e '$pdflatex=q/lualatex %O -synctex=1 %S/' -e '$bibtex=q/bibtexu %O %B/' -e '$makeindex=q/texindy %O -o %D %S/' -norc -gg -lualatex")
;(setq tex-command "/usr/texbin/latexmk -e '$pdflatex=q/luajitlatex %O -synctex=1 %S/' -e '$bibtex=q/bibtexu %O %B/' -e '$makeindex=q/texindy %O -o %D %S/' -norc -gg -lualatex")
;(setq tex-command "/usr/texbin/latexmk -e '$pdflatex=q/xelatex %O -synctex=1 %S/' -e '$bibtex=q/bibtexu %O %B/' -e '$makeindex=q/texindy %O -o %D %S/' -norc -gg -xelatex")
(setq bibtex-command (cond ((string-match "uplatex\\|-u" tex-command) "/usr/texbin/upbibtex")
((string-match "platex" tex-command) "/usr/texbin/pbibtex")
((string-match "lualatex\\|luajitlatex\\|xelatex" tex-command) "/usr/texbin/bibtexu")
((string-match "pdflatex\\|latex" tex-command) "/usr/texbin/bibtex")
(t "/usr/texbin/pbibtex")))
(setq makeindex-command (cond ((string-match "uplatex\\|-u" tex-command) "/usr/texbin/mendex")
((string-match "platex" tex-command) "/usr/texbin/mendex")
((string-match "lualatex\\|luajitlatex\\|xelatex" tex-command) "/usr/texbin/texindy")
((string-match "pdflatex\\|latex" tex-command) "/usr/texbin/makeindex")
(t "/usr/texbin/mendex")))
(setq dvi2-command "/usr/bin/open -a Preview")
;(setq dvi2-command "/usr/bin/open -a Skim")
;(setq dvi2-command "/usr/bin/open -a TeXShop")
;(setq dvi2-command "/usr/bin/open -a TeXworks")
;(setq dvi2-command "/usr/bin/open -a Firefox")
;(setq dviprint-command-format "/usr/bin/open -a \"Adobe Reader\" `echo %s | sed -e \"s/\\.[^.]*$/\\.pdf/\"`")
(defun skim-forward-search ()
(interactive)
(progn
(process-kill-without-query
(start-process
"displayline"
nil
"/Applications/Skim.app/Contents/SharedSupport/displayline"
(number-to-string (save-restriction
(widen)
(count-lines (point-min) (point))))
(expand-file-name
(concat (file-name-sans-extension (or YaTeX-parent-file
(save-excursion
(YaTeX-visit-main t)
buffer-file-name)))
".pdf"))
buffer-file-name))))
(add-hook 'yatex-mode-hook
'(lambda ()
(define-key YaTeX-mode-map (kbd "C-c s") 'skim-forward-search)))
(add-hook 'yatex-mode-hook
'(lambda ()
(auto-fill-mode -1)))
;;
;; RefTeX with YaTeX
;;
;(add-hook 'yatex-mode-hook 'turn-on-reftex)
(add-hook 'yatex-mode-hook
'(lambda ()
(reftex-mode 1)
(define-key reftex-mode-map (concat YaTeX-prefix ">") 'YaTeX-comment-region)
(define-key reftex-mode-map (concat YaTeX-prefix "<") 'YaTeX-uncomment-region)))
(defun my-buffer-menu nil
(interactive)
(buffer-menu-other-window)
(other-window 0))
(defun my-buffer-menu2 nil
(interactive)
(ibuffer-other-window)
(other-window 0))
(add-to-list 'load-path "~/.emacs.d/elisp/")
(autoload 'ruby-mode "ruby-mode" "Mode for editing ruby source files" t)
(setq auto-mode-alist (append '(("\\.rb$" . ruby-mode)) auto-mode-alist))
(setq interpreter-mode-alist (append '(("ruby" . ruby-mode)) interpreter-mode-alist))
(autoload 'run-ruby "inf-ruby" "Run an inferior Ruby process")
(autoload 'inf-ruby-keys "inf-ruby" "Set local key defs for inf-ruby in ruby-mode")
(add-hook 'ruby-mode-hook '(lambda () (inf-ruby-keys)))
(global-font-lock-mode 1)
(setq default-frame-alist (append '(
; (foreground-color . "gray") ;
; (background-color . "black") ;
; (cursor-color . "blue") ;
)
default-frame-alist))
;; ruby-electric
;;;(require 'ruby-electric)
(add-hook 'ruby-mode-hook '(lambda ()
;;; (ruby-electric-mode t)
(define-key ruby-mode-map (kbd "C-c c") 'smart-compile)
(define-key ruby-mode-map (kbd "C-c C-c") (kbd "C-c c C-m"))
))
;; rubydb
(autoload 'rubydb "rubydb3x"
"run rubydb on program file in buffer *gud-file*.
the directory containing file becomes the initial working directory
and source-file directory for your debugger." t)
;; ruby-block
;(require 'ruby-block)
;(ruby-block-mode t)
;; ミニバッファに表示し, かつ, オーバレイする.
(setq ruby-block-highlight-toggle t)
(setq ruby-indent-level 2)
(setq ruby-indent-tabs-mode nil)
(require 'smart-compile)
(require 'linum)
(global-linum-mode)
;(exec-path-from-shell-initialize)
;;; This was installed by package-install.el.
;;; This provides support for the package system and
;;; interfacing with ELPA, the package archive.
;;; Move this code earlier if you want to reference
;;; packages in your .emacs.
(when
(load
(expand-file-name "~/.emacs.d/elpa/package.el"))
(package-initialize))
(require 'powerline-init)
(set-face-background 'hl-line "cyan4")