(if (eq system-type 'windows-nt)
  (
    ; for Windows
  )
  (
    ; for FreeBSD
  )
)

(when (eq system-type 'windows-nt)
  ; for Windows
)

;;
;; フォントと IME その他環境依存の設定
;; - ON/OFF は C-Backslash
;; - ON/OFF に連動してカーソルの色を切り替える
;;
(if (eq system-type 'windows-nt)
  ;; Windows
  (progn
    ;; フレームの表示位置とサイズ (文字数指定)
    ;; モニタ解像度によって調整する
    (if (> (x-display-pixel-height) 1080)
      (setq initial-frame-alist
        (append (list
          '(top . 50)
          '(left . 200)
          '(width . 110)
          '(height . 50))
        initial-frame-alist))
      (setq initial-frame-alist
        (append (list
          '(top . 50)
          '(left . 100)
          '(width . 110)
          '(height . 40))
        initial-frame-alist)))
    (setq default-frame-alist initial-frame-alist)

    ;; 作業フォルダを ~/ にする
    (setq default-directory "~/")
    (setq command-line-default-directory "~/")

    ;; フォント
    (set-face-attribute 'default nil :family "Consolas" :height 110)
    (set-fontset-font nil '(#x80 . #x10ffff) (font-spec :family "MS Gothic"))
    (setq use-default-font-for-symbols nil)

    ;; tr-ime
    (tr-ime-standard-install)

    ;; W32-IME
    (setq default-input-method "W32-IME")
    (setq-default w32-ime-mode-line-state-indicator "[--]")
    (setq w32-ime-mode-line-state-indicator-list '("[--]" "[あ]" "[--]"))
    (w32-ime-initialize)
    (add-hook 'w32-ime-on-hook
      #'(lambda () (set-cursor-color "SteelBlue4")))
    (add-hook 'w32-ime-off-hook
      #'(lambda () (set-cursor-color "gray40")))

    ;; IME 制御 (yes/no などの入力のときに IME を off にする)
    (w32-ime-wrap-function-to-control-ime 'universal-argument)
    (w32-ime-wrap-function-to-control-ime 'read-string)
    (w32-ime-wrap-function-to-control-ime 'read-char)
    (w32-ime-wrap-function-to-control-ime 'read-from-minibuffer)
    (w32-ime-wrap-function-to-control-ime 'y-or-n-p)
    (w32-ime-wrap-function-to-control-ime 'yes-or-no-p)
    (w32-ime-wrap-function-to-control-ime 'map-y-or-n-p)
    (w32-ime-wrap-function-to-control-ime 'register-read-with-preview)
  )
  ;; FreeBSD
  (progn
    ;; フォント
    (add-to-list 'default-frame-alist '(font . "Ricty 12"))

    ;; mozc の設定
    (setq default-input-method "japanese-mozc")
    (add-hook 'input-method-activate-hook
      (lambda() (set-cursor-color "SteelBlue4")))
    (add-hook 'input-method-deactivate-hook
      (lambda() (set-cursor-color "gray40")))
  )
)

    ;; 外部ツールのパスを追加
    (add-to-list 'exec-path "~/emacs-win/tools/cmigemo")
    (add-to-list 'exec-path "~/emacs-win/tools/global/bin")
    (add-to-list 'exec-path "~/emacs-win/tools/patch-diff-w32")
    (setenv "PATH"
      (concat
        (concat (expand-file-name "~/emacs-win/tools/patch-diff-w32") ";")
        (getenv "PATH")))
    (setenv "PATH"
      (concat
        (concat (expand-file-name "~/emacs-win/tools/pdfout") ";")
        (getenv "PATH")))

;;
;; Migemo
;;
(when (require 'migemo nil t)
  (setq migemo-command "cmigemo")
  (setq migemo-options '("-q" "--emacs"))
  (if (eq system-type 'windows-nt)
    (setq migemo-dictionary (expand-file-name "~/emacs-win/tools/cmigemo/dict/utf-8/migemo-dict"))
    (setq migemo-dictionary "/usr/local/share/cmigemo/utf-8/migemo-dict")
    )
  (setq migemo-user-dictionary nil)
  (setq migemo-regex-dictionary nil)
  (setq migemo-coding-system 'utf-8-unix)
  (setq helm-migemo-mode 1)
  (migemo-init)
)

(global-set-key (kbd "M-F") 'ediff-files)      ; ファイル比較
(global-set-key (kbd "M-B") 'ediff-buffers)    ; バッファ比較

rem
rem emacs のバッファテキストを PDF に変換するためのバッチファイル
rem pdft.exe が Shift_JIS しか受け付けないため、前段で nkf を用いて変換する
rem
@echo off
set fname=%~n1
nkf32.exe -s > %fname%.tmp
pdft.exe %fname%.tmp
del %fname%.tmp

(when (eq system-type 'windows-nt)
    (setq pdfout-fmt "pdfout.bat %s")
    (defun pdfout-region (begin end)
        (interactive "r")
        (shell-command-on-region begin end (format pdfout-fmt (file-name-base buffer-file-name))))
    (defun pdfout-buffer ()
        (interactive)
        (pdfout-region (point-min) (point-max)))
    )

(global-set-key (kbd "M-P") 'pdfout-region)    ; リージョンを PDF 出力
(global-set-key (kbd "M-p") 'pdfout-buffer)    ; バッファを PDF 出力

;;
;; helm-ag, ripgrep
;;
(setq helm-ag-base-command "rg --vimgrep --no-heading")
(setq helm-ag-insert-at-point 'symbol)
(setq ripgrep-arguments '("-S"))
(if (eq system-type 'windows-nt)
  (setq ripgrep-executable (expand-file-name "~/emacs-win/tools/ripgrep/rg.exe"))
  (setq ripgrep-executable "/usr/local/bin/rg")
)

(when (eq system-type 'windows-nt)
  (defun set-ripgrep-encoding ()
    (let ((name (symbol-name buffer-file-coding-system)))
      (if (string-match "japanese-shift-jis" name)
          (setq ripgrep-arguments '("-S -E Shift_JIS"))
          (setq ripgrep-arguments '("-S")))))
  (add-hook 'find-file-hook 'set-ripgrep-encoding)
)

(if (eq system-type 'windows-nt)                  ; ディレクトリ内の文字列検索
  (global-set-key (kbd "M-G") 'ripgrep-regexp)    ; Windows では helm-ag から ripgrep を呼ぶ方法が不明
  (global-set-key (kbd "M-G") 'helm-ag)           ; FreeBSD では helm-ag から ripgrep を呼ぶ
  )

(when (eq system-type 'windows-nt)
  (setq default-process-coding-system '(utf-8-dos . cp932))
)