;; るびきちのyaml-modeの説明従って．．
;; http://emacs.rubikitch.com/yaml-mode/
;; 学内からはsetproxyを忘れぬように．
(require 'package)
(add-to-list 'package-archives '("melpa" . "http://melpa.org/packages/") t)
(add-to-list 'package-archives '("marmalade" . "http://maramalae-repo.org/packages/"))
(add-to-list 'package-archives '("org" . "http:/orgmode.org/elpa/") t)
(add-to-list 'package-archives '("org-plus-contrib" . "https:/orgmode.org/elpa/contrib") t)

(fset 'package-desc-vers 'package--ac-desc-version)
(package-initialize)

;;      '(("gnu" . "http://elpa.gnu.org/packages/")

;; るびきちのemacs lispテクニックバイブルに従ってdefaultの色つけを活性化
;; (require 'generic-x)
;; tabの自動生成がうっとおしいからやめた

;; elファイルの置き場所を設定
(setq load-path (cons "~/ruby_learner/workshop/emacs.d/inits" load-path))
(setq load-path (cons "~/ruby_learner/workshop/emacs.d/ruby-mode" load-path))
(setq load-path (cons "~/ruby_learner/workshop/emacs.d/processing-mode" load-path))
(setq load-path (cons "~/ruby_learner/workshop/emacs.d/haml-mode-master" load-path))
(setq load-path (cons "~/ruby_learner/workshop/emacs.d/org-mode" load-path))
(setq load-path (cons "~/ruby_learner/workshop/emacs.d/themes" load-path))
;;setting_theme
(add-to-list 'custom-theme-load-path "~/ruby_learner/workshop/emacs.d/themes")
(setq custom-theme-directory "~/ruby_learner/workshop/emacs.d/themes")
;;(load-theme 'iceberg t)
;;(load-theme 'dracula t)
;;(load-theme 'my-misterioso t)
(load-theme 'my-wombat t)

;; 起動時にスタートアップ画面を表示しない 
(setq inhibit-startup-message t)
;; 1 行ずつスムーズにスクロールする 
(setq scroll-step 1)
;; 行数を記載する
(global-linum-mode t)
(setq linum-format "%d")
(set-face-attribute 'linum nil
            :foreground "#999999"
            :background "#000000"
            :height 0.9)
;; 括弧補完
;;(electric-pair-mode 1)
;; 行数を指定してジャンプする (goto-line) 
;;(global-set-key "\C-l" 'goto-line)
;; 言語を日本語に設定
(set-language-environment 'Japanese)
;; 極力UTF-8とする
(prefer-coding-system 'utf-8)

;; エンコード方式をUTF-8に
(set-default-coding-systems 'utf-8)

(setq coding-system-for-read 'utf-8)
(setq coding-system-for-write 'utf-8)
(require 'ruby-mode)
(defun ruby-mode-set-encoding () nil)
;; C-zでUndo
;;(global-set-key "\C-z" 'undo)
;; 行番号をデフォルトで表示
;;(require 'line-num)
;;(global-linum-mode 1)
;; 対応する括弧を光らせる
(show-paren-mode 1)
;; 最近使ったファイルの一覧
(recentf-mode 1)
;; タイトルバーに開いているバッファのパスを表示
(setq frame-title-format (format "%%f - Emacs@%s" (system-name)))
;; 現在行を目立たせる
;; (global-hl-line-mode)
;; バックアップファイルを作らない
;; (setq backup-inhibited t)
;; モードラインに時間を表示する
(display-time)
;; 現在の関数名をモードラインに表示
(which-function-mode 1)
;; 選択部分のインデント
(global-set-key "\C-x\C-i" 'indent-region)

(defun linux-c-mode ()
  "C mode with adjusted defaults for use with the Linux kernel."
  (interactive)
  (c-mode)
  (setq c-indent-level 8)
  (setq c-brace-imaginary-offset 0)
  (setq c-brace-offset -8)
  (setq c-argdecl-indent 8)
  (setq c-label-offset -8)
  (setq c-continued-statement-offset 8)
  (setq indent-tabs-mode nil)
  (setq tab-width 8)
)

;; ======================================================================
;;  Ruby mode
;; ======================================================================
(add-to-list 'auto-mode-alist '("\\.rake$" . ruby-mode))
(add-to-list 'auto-mode-alist '("Rakefile$" . ruby-mode))
(add-to-list 'auto-mode-alist '("\\.gemspec$" . ruby-mode))
(add-to-list 'auto-mode-alist '("\\.ru$" . ruby-mode))
(add-to-list 'auto-mode-alist '("Gemfile$" . ruby-mode))
(add-to-list 'auto-mode-alist '("Guardfile$" . ruby-mode))
(add-to-list 'auto-mode-alist '("Guardfile$" . ruby-mode))

(autoload 'ruby-mode "ruby-mode"
  "Mode for editing ruby source files" t)
(setq auto-mode-alist (append '(("\\.rb$" . ruby-mode)) auto-mode-alist))
(setq auto-mode-alist (append '(("\\.ru$" . ruby-mode)) auto-mode-alist))
(setq auto-mode-alist (append '(("\\.ru$" . 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)

;;;ruby-electric.el --- electric editing commands for ruby files
;;(require 'ruby-electric)
;;(add-hook 'ruby-mode-hook '(lambda () (ruby-electric-mode t)))

(setq ruby-indent-level 2)
(setq ruby-indent-tabs-mode nil)

;; ruby code folding from https://coderwall.com/p/u-l0ra/ruby-code-folding-in-emacs
(add-hook 'ruby-mode-hook
  (lambda () (hs-minor-mode)))

(eval-after-load "hideshow"
  '(add-to-list 'hs-special-modes-alist
    `(ruby-mode
      ,(rx (or "def" "class" "module" "do" "{" "[")) ; Block start
      ,(rx (or "}" "]" "end"))                       ; Block end
      ,(rx (or "#" "=begin"))                        ; Comment start
      ruby-forward-sexp nil)))

(global-set-key (kbd "C-c h") 'hs-hide-block)
(global-set-key (kbd "C-c s") 'hs-show-block)

;; ======================================================================
;;  Processing mode
;; ======================================================================
;;(add-to-list 'load-path "/Users/bob/ruby-processing/processing2-emacs")
(autoload 'processing-mode "processing-mode" "Processing mode" t)
(add-to-list 'auto-mode-alist '("\\.pde$" . processing-mode))
(setq processing-indent-level 2)

(setq processing-location "/Users/bob/bin/processing-java")
(setq processing-application-dir "/Applications/Processing.app")
(setq processing-sketch-dir "~/Documents/Processing")

(setq-default indent-tabs-mode nil)
(setq tab-width 2)

;; =======================
;; haml mode
;; =======================
;;``` lisp
(require 'haml-mode)
;;```
(autoload 'haml-mode "haml-mode" "haml mode" t)
(add-to-list 'auto-mode-alist '("\\.haml$" . haml-mode))
(setq-default indent-tabs-mode t)
(setq tab-width 2)

;; =======================
;; yaml mode
;; =======================
(require 'yaml-mode)
(add-to-list 'auto-mode-alist '("\\.ya?ml$" . yaml-mode))
(define-key yaml-mode-map "\C-m" 'newline-and-indent)

;; =======================
;; org mode
;; =======================
(require 'ox-latex)
;; (require 'ox-bibtex) こいつは無くなったんかな．イランで．

;; org-modeで行末で折り返しをする
(setq org-startup-truncated nil)
(unless (boundp 'org-latex-classes)
  (setq org-latex-classes nil))
(add-to-list 'org-latex-classes
      '("article"
  "
  \\documentclass{jsarticle}
  \\usepackage[dvipdfmx]{graphicx}
  \\usepackage[utf8]{inputenc}
  \\usepackage[T1]{fontenc}
  "
         ("\\section{%s}" . "\\section*{%s}")
         ("\\subsection{%s}" . "\\subsection*{%s}")
         ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
         ("\\paragraph{%s}" . "\\paragraph*{%s}")
         ("\\subparagraph{%s}" . "\\subparagraph*{%s}")
        ))
 
;;; LaTeX 形式のファイル PDF に変換するためのコマンド
(setq org-latex-pdf-process
      '("platex %f"
        "bibtex %b"
        "platex %f"
        "platex %f"
        "dvipdfmx %b.dvi"))

(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.
 '(org-latex-pdf-process
   (quote
    ("pdflatex -interaction nonstopmode -output-directory %o %f"
     "bibtex %o"
     "pdflatex -interaction nonstopmode -output-directory %o %f"
     "pdflatex -interaction nonstopmode -output-directory %o %f")))
 '(package-selected-packages (quote (haml-mode yaml-mode))))
(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.
 )