init.el

;;; init.el --- My init.el  -*- lexical-binding: t; -*-

(eval-and-compile
  (when (or load-file-name byte-compile-current-file)
    (setq user-emacs-directory
          (expand-file-name
           (file-name-directory (or load-file-name byte-compile-current-file))))))

(eval-and-compile
  (customize-set-variable
   'package-archives '(("gnu"   . "https://elpa.gnu.org/packages/")
                       ("melpa" . "https://melpa.org/packages/")
                       ("org"   . "https://orgmode.org/elpa/")))
  (package-initialize)
  (unless (package-installed-p 'leaf)
    (package-refresh-contents)
    (package-install 'leaf))

  (leaf leaf-keywords
    :ensure t
    :init
    ;; optional packages if you want to use :hydra, :el-get, :blackout,,,
    (leaf hydra :ensure t)
    (leaf el-get :ensure t)
    (leaf blackout :ensure t)

    :config
    ;; initialize leaf-keywords.el
    (leaf-keywords-init)))

;; ここにいっぱい設定を書く

;; leafの :customで設定するとinit.elにcustomが勝手に設定を追記します。 この状況になると、変数の二重管理になってしまうので、customがinit.elに追記しないように設定します。
(leaf cus-edit
  :doc "tools for customizing Emacs and Lisp packages"
  :tag "builtin" "faces" "help"
  :custom `((custom-file . ,(locate-user-emacs-file "custom.el"))))

;; EmacsのC言語部分で定義されている変数をcustomで扱えるようにまとめているファイルです。 私の設定を書いておくので、取捨選択して頂ければと思います。変数の説明は F1 vで確認できます。 無効にしているGUI要素についてはコメントアウトしておきました。
(leaf cus-start
  :doc "define customization properties of builtins"
  :tag "builtin" "internal"
  :preface
  (defun c/redraw-frame nil
    (interactive)
    (redraw-frame))

  :bind (("M-ESC ESC" . c/redraw-frame))
  :custom '((user-full-name . "Naoya Yamashita")
            (user-mail-address . "conao3@gmail.com")
            (user-login-name . "conao3")
            (create-lockfiles . nil)
            (debug-on-error . t)
            (init-file-debug . t)
            (frame-resize-pixelwise . t)
            (enable-recursive-minibuffers . t)
            (history-length . 1000)
            (history-delete-duplicates . t)
            (scroll-preserve-screen-position . t)
            (scroll-conservatively . 100)
            (mouse-wheel-scroll-amount . '(1 ((control) . 5)))
            (ring-bell-function . 'ignore)
            (text-quoting-style . 'straight)
            (truncate-lines . t)
            ;; (use-dialog-box . nil)
            ;; (use-file-dialog . nil)
            ;; (menu-bar-mode . t)
            ;; (tool-bar-mode . nil)
            (scroll-bar-mode . nil)
            (indent-tabs-mode . nil))
  :config
  (defalias 'yes-or-no-p 'y-or-n-p)
  (keyboard-translate ?\C-h ?\C-?))

;; Emacsの外でファイルが書き変わったときに自動的に読み直すマイナーモードです。 もちろん、Emacsで編集している場合は外の変更で上書きされることはありません。
(leaf autorevert
  :doc "revert buffers when files on disk change"
  :tag "builtin"
  :custom ((auto-revert-interval . 1))
  :global-minor-mode global-auto-revert-mode)

;; Cやそれに似た構文を持つファイルに関する設定です。 インデントスタイルについては闇なので、詳しくは書きませんが、かなり細かな設定ができます。
(leaf cc-mode
  :doc "major mode for editing C and similar languages"
  :tag "builtin"
  :defvar (c-basic-offset)
  :bind (c-mode-base-map
         ("C-c c" . compile))
  :mode-hook
  (c-mode-hook . ((c-set-style "bsd")
                  (setq c-basic-offset 4)))
  (c++-mode-hook . ((c-set-style "bsd")
                    (setq c-basic-offset 4))))

;; 対応するカッコを強調表示するマイナーモードです。
(leaf paren
  :doc "highlight matching paren"
  :tag "builtin"
  :custom ((show-paren-delay . 0.1))
  :global-minor-mode show-paren-mode)

;; kill-ringの数を制御したり、kill-lineの挙動を変更したりします。
(leaf simple
  :doc "basic editing commands for Emacs"
  :tag "builtin" "internal"
  :custom ((kill-ring-max . 100)
           (kill-read-only-ok . t)
           (kill-whole-line . t)
           (eval-expression-print-length . nil)
           (eval-expression-print-level . nil)))

;; Emacsで好みが分かれる設定として、バックアップファイルを開いているファイルと同じディレクトリに作成するという挙動があります。
;; 単にdisableするのではなく、バックアップファイルを一箇所に集めることでバックアップのメリットを享受しつつ、バックアップファイルが散らばるのを防ぎます。
;; (leaf files
;;  :doc "file input and output commands for Emacs"
;;  :tag "builtin"
;;  :custom `((auto-save-timeout . 15)
;;            (auto-save-interval . 60)
;;            (auto-save-file-name-transforms . '((".*" ,(locate-user-emacs-file "backup/") t)))
;;            (backup-directory-alist . '((".*" . ,(locate-user-emacs-file "backup"))
;;                                        (,tramp-file-name-regexp . nil)))
;;            (version-control . nil)
;;            (delete-old-versions . t)
;;            ))

;; 自動保存されたファイルのリストです。 .emacs.d/backup以下にまとめて保存するようにします。
(leaf startup
  :doc "process Emacs shell arguments"
  :tag "builtin" "internal"
  :custom `((auto-save-list-file-prefix . ,(locate-user-emacs-file "backup/.saves-"))))
(leaf ivy
  :doc "Incremental Vertical completYon"
  :req "emacs-24.5"
  :tag "matching" "emacs>=24.5"
  :url "https://github.com/abo-abo/swiper"
  :emacs>= 24.5
  :ensure t
  :blackout t
  :leaf-defer nil
  :custom ((ivy-initial-inputs-alist . nil)
           (ivy-use-selectable-prompt . t))
  :global-minor-mode t
  :config
  (leaf swiper
    :doc "Isearch with an overview. Oh, man!"
    :req "emacs-24.5" "ivy-0.13.0"
    :tag "matching" "emacs>=24.5"
    :url "https://github.com/abo-abo/swiper"
    :emacs>= 24.5
    :ensure t
    :bind (("C-s" . swiper)))

  (leaf counsel
    :doc "Various completion functions using Ivy"
    :req "emacs-24.5" "swiper-0.13.0"
    :tag "tools" "matching" "convenience" "emacs>=24.5"
    :url "https://github.com/abo-abo/swiper"
    :emacs>= 24.5
    :ensure t
    :blackout t
    :bind (("C-S-s" . counsel-imenu)
           ("C-x C-r" . counsel-recentf))
    :custom `((counsel-yank-pop-separator . "\n----------\n")
              (counsel-find-file-ignore-regexp . ,(rx-to-string '(or "./" "../") 'no-group)))
    :global-minor-mode t))

(leaf prescient
  :doc "Better sorting and filtering"
  :req "emacs-25.1"
  :tag "extensions" "emacs>=25.1"
  :url "https://github.com/raxod502/prescient.el"
  :emacs>= 25.1
  :ensure t
  :custom ((prescient-aggressive-file-save . t))
  :global-minor-mode prescient-persist-mode)
  
(leaf ivy-prescient
  :doc "prescient.el + Ivy"
  :req "emacs-25.1" "prescient-4.0" "ivy-0.11.0"
  :tag "extensions" "emacs>=25.1"
  :url "https://github.com/raxod502/prescient.el"
  :emacs>= 25.1
  :ensure t
  :after prescient ivy
  :custom ((ivy-prescient-retain-classic-highlighting . t))
  :global-minor-mode t)

;; エラーリストのバッファは C-c ! l (flycheck-list-errors)で開くことができます。
(leaf flycheck
  :doc "On-the-fly syntax checking"
  :req "dash-2.12.1" "pkg-info-0.4" "let-alist-1.0.4" "seq-1.11" "emacs-24.3"
  :tag "minor-mode" "tools" "languages" "convenience" "emacs>=24.3"
  :url "http://www.flycheck.org"
  :emacs>= 24.3
  :ensure t
  :bind (("M-n" . flycheck-next-error)
         ("M-p" . flycheck-previous-error))
  :global-minor-mode global-flycheck-mode)

(leaf company
  :doc "Modular text completion framework"
  :req "emacs-24.3"
  :tag "matching" "convenience" "abbrev" "emacs>=24.3"
  :url "http://company-mode.github.io/"
  :emacs>= 24.3
  :ensure t
  :blackout t
  :leaf-defer nil
  :bind ((company-active-map
          ("M-n" . nil)
          ("M-p" . nil)
          ("C-s" . company-filter-candidates)
          ("C-n" . company-select-next)
          ("C-p" . company-select-previous)
          ("<tab>" . company-complete-selection))
         (company-search-map
          ("C-n" . company-select-next)
          ("C-p" . company-select-previous)))
  :custom ((company-idle-delay . 0)
           (company-minimum-prefix-length . 1)
           (company-transformers . '(company-sort-by-occurrence)))
  :global-minor-mode global-company-mode)

(leaf company-c-headers
  :doc "Company mode backend for C/C++ header files"
  :req "emacs-24.1" "company-0.8"
  :tag "company" "development" "emacs>=24.1"
  :added "2020-03-25"
  :emacs>= 24.1
  :ensure t
  :after company
  :defvar company-backends
  :config
  (add-to-list 'company-backends 'company-c-headers))

(leaf leaf
  :config
  (leaf leaf-convert :ensure t)
  (leaf leaf-tree
    :ensure t
    :custom ((imenu-list-size . 30)
             (imenu-list-position . 'left))))

(leaf macrostep
  :ensure t
  :bind (("C-c e" . macrostep-expand)))


(leaf evil
  :ensure t
  :config
  
    (evil-mode 1)
    (setq evil-esc-delay 0.001)

    ;; oキーでインデントしない
    (setq evil-auto-indent nil)
  )

(leaf evil-org
  :ensure t
  )

(leaf evil-leader
  :ensure t
  :config
  (global-evil-leader-mode)
  (evil-leader/set-leader ",")
  (evil-leader/set-key
   "," #'switch-to-last-buffer-or-other-window
 ;;  "x" #'helm-M-x
   "g" #'grep-find
   "f" #'find-file
   "r" #'counsel-recentf
;;   "b" #'helm-buffers-list
;;   "ai" #'helm-imenu
;;   "s" #'search-web-at-point

 ;;  "tj" #'helm-gtags-find-tag        ; 関数の定義元へ移動
 ;;  "tb" #'helm-gtags-pop-stack       ; 元にもどる
 ;;  "tr" #'helm-gtags-find-rtag       ; 関数を参照元の一覧を表示．RET で参照元へジャンプできる
 ;;  "ts" #'helm-gtags-find-symbol     ;
 ;;  "tS" #'helm-gtags-find-select     ; すべてのシンボルから選択する
 ;;  "tp" #'helm-gtags-parse-file      ;

 ;;  "0" #'simple-screen-0
 ;;  "1" #'simple-screen-1
 ;;  "2" #'simple-screen-2
 ;;  "3" #'simple-screen-3
 ;;  "4" #'simple-screen-4
 ;;  "5" #'simple-screen-5
 ;;  "6" #'simple-screen-6
 ;;  "7" #'simple-screen-7
 ;;  "8" #'simple-screen-8
 ;;  "9" #'simple-screen-9
   ))

(leaf tr-ime
  :ensure t
  :config
  ;; tr-imeのDLLを自動でダウンロードしてくれる 
  (tr-ime-advanced-install)
  (setq default-input-method "W32-IME")
  ;; IM のデフォルトを IME に設定
  (setq default-input-method "W32-IME")
  ;; IME のモードライン表示設定
  (setq-default w32-ime-mode-line-state-indicator "[--]")
  (setq w32-ime-mode-line-state-indicator-list '("[--]" "[あ]" "[--]"))

  ;; IME 初期化
  (w32-ime-initialize)

  ;; IME 制御（yes/no などの入力の時に IME を off にする）
  (wrap-function-to-control-ime 'universal-argument t nil)
  (wrap-function-to-control-ime 'read-string nil nil)
  (wrap-function-to-control-ime 'read-char nil nil)
  (wrap-function-to-control-ime 'read-from-minibuffer nil nil)
  (wrap-function-to-control-ime 'y-or-n-p nil nil)
  (wrap-function-to-control-ime 'yes-or-no-p nil nil)
  (wrap-function-to-control-ime 'map-y-or-n-p nil nil)

  ;; IME の未確定文字列のフォント設定
;;  (set-frame-font "Meiryo UI-12" nil t)
;;  (modify-all-frames-parameters '((ime-font . "Meiryo UI-12")))
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; #org
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun my-org ()
  (leaf org
    :ensure t
    :config

    ;; 見た目だけインデントする(実際にはインデントしない)
    (setq org-startup-indented t)

    ;; 見出しの*を隠す
    (setq org-hide-leading-stars t)

    ;; コードブロックも色付け
    (setq org-src-fontify-natively t)

    ;; t:自動的にTODO項目にdoneの印をつける
    (setq org-log-done t)

    ;;(setq org-agenda-include-diary t)
    (setq org-agenda-include-diary nil)

    ;; 言語は日本語
    (setq org-export-default-language "ja")

    ;; 文字コードはUTF-8
    (setq org-export-html-coding-system 'utf-8)

    ;; 行頭の:は使わない BEGIN_EXAMPLE 〜 END_EXAMPLE で十分
    (setq org-export-with-fixed-width nil)

    ;; ^と_を解釈しない
    (setq org-export-with-sub-superscripts nil)

    ;; --や---をそのまま出力する
    (setq org-export-with-special-strings nil)

    ;; TeX・LaTeXのコードを解釈しない
    (setq org-export-with-TeX-macros nil)
    (setq org-export-with-LaTeX-fragments nil)

    (setq org-agenda-time-grid
          '((daily today require-timed)
            "----------------"
            (900 930 1000 1030 1100 1130 1200 1230
                 1300 1330 1400 1430 1500 1530 1600 1630 1700 1730 1800 1830
                 1900 1930 2000 2030 2100 2130 2200 2230 2300 2330 )))

    ;;
    ;; agendaの日付フォーマットを日本語表記に変更。
    ;; http://valvallow.blogspot.com/2011/02/org-agenda-weekly-view.html
    ;;
    (defadvice org-agenda (around org-agenda-around)
      (let ((system-time-locale "English"))
        ad-do-it))
    (defadvice org-agenda-redo (around org-agenda-redo-around)
      (let ((system-time-locale "English"))
        ad-do-it))
    (custom-set-variables
     '(org-agenda-format-date "%Y/%m/%d (%a)"))
    (custom-set-faces
     '(org-agenda-date ((t :weight bold))))

    ;;
    ;; orgファイルの場所
    ;;
    (setq hostname (system-name))
    ;;(message hostname)
    (setq org-directory nil)
    (if (or (equal "MADO-PC" hostname)
            (equal "gnudam" hostname))
        (setq org-directory (expand-file-name "~/Dropbox/org")))
    (if (equal "PC-18176" hostname)
        (setq org-directory (expand-file-name "~/docs/org")))
    ;; TODO org-directoryの判定は、現状のnilかどうかの判定から
    ;;      ディレクトリがあるかどうかに書き換える。
    (if (not (null org-directory))
        (progn
          (require 'em-glob)
          (setq org-agenda-files (eshell-extended-glob (concat org-directory "**/*.org")))))


    (defun my-org-meta-return (&optional prefix)
      (interactive "p") ; pは数引数(C-u)を受けとり、この場合はprefixに束縛される。
      (move-end-of-line nil)
      (org-insert-heading-dwim prefix))

    )
  )

(defun my-elisp ()
  (find-function-setup-keys) ;; C-x F, C-x Kなどを使えるようにする。

  (leaf lispxmp
    :ensure t
    :config
    (define-key emacs-lisp-mode-map (kbd "C-c C-d") 'lispxmp)
    (define-key lisp-interaction-mode-map (kbd "C-c C-d") 'lispxmp)
    )
  ;; (leaf eldoc-extension
  ;;   :ensure t
  ;;   :config
  ;;   (add-hook 'emacs-lisp-mode-hook 'eldoc-mode))
  (leaf paredit
    :ensure t
    :config
    (add-hook 'emacs-lisp-mode-hook 'enable-paredit-mode)
    (add-hook 'ielm-mode-hook 'enable-paredit-mode)
    )
  (leaf rainbow-delimiters
    :ensure t
    :config
    (add-hook 'emacs-lisp-mode-hook 'rainbow-delimiters-mode)
    (add-hook 'ielm-mode-hook 'rainbow-delimiters-mode)
    )
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; 拡張なしで実現できる最低限の設定をここに。
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun my-init ()
  ;;
  ;; #basic
  ;;

  ;; #keybind
  (keyboard-translate ?\C-h ?\C-?) ;; C-h を BACKSPACEにする
  (global-set-key (kbd "C-M-h") 'backward-kill-word)

  ;; 白が嫌いなので速攻色を変えておく
  (set-background-color "Black")
  (set-foreground-color "LightGray")
  (set-cursor-color "Gray")

  ;; モードライン
  (set-face-foreground 'mode-line "Black")
  (set-face-background 'mode-line "White")
  (set-face-foreground 'mode-line-inactive "gray30")
  (set-face-background 'mode-line-inactive "gray85")

  ;; color theme
  ;; (load-theme 'monokai t)
  (load-theme 'tango-dark t)

  ;; 標準のバッファリストだとカーソルが移動しないので
  ;; カーソルが移動するコマンドを定義
  (global-set-key (kbd "C-x C-b")   'buffer-menu)

  (setq large-file-warning-threshold (* 25 1024 1024))
  (setq history-length 1000)
  (setq message-log-max 10000)
  (setq gc-cons-threshold (* 10 gc-cons-threshold))

  (savehist-mode 1)
  (setq-default save-place t)

  (setq echo-keystrokes 0.1)
  (setq enable-recursive-minibuffers t)
  (setq use-dialog-box nil)
  (setq scroll-conservatively 1)

  ;; ファイル名補完時の大文字小文字は無視
  (setq read-file-name-completion-ignore-case t)

  ;; バッファ補完時の大文字小文字は無視
  (setq read-buffer-completion-ignore-case t)

  ;; 検索時に大文字小文字を無視
  (setq-default case-fold-search t)

  ;; 補完時の大文字小文字は無視
  (setq completion-ignore-case t)
  (put 'upcase-region 'disabled nil)

  ;; ミニバッファからミニバッファを開けるように
  (setq enable-recurslve-m1nﾔbuffers t)

  ;; lisp再帰呼び出し？などのエラー防止。
  ;; - http://d.hatena.ne.jp/a666666/20100221/1266695355
  (setq max-lisp-eval-depth 5000)
  (setq max-specpdl-size 12000)

  ;; tab4, no tabcode
  (setq default-tab-width 4)
  (setq tab-width 4)
  (setq-default indent-tabs-mode nil)
  (setq indent-tabs-mode nil)

  ;; no beep, no bell
  (setq visible-bell t)
  (setq ring-bell-function 'ignore)

  ;; バックアップ、自動保存をしない
  (setq make-backup-files nil)
  (setq auto-save-default nil)

  ;; 新しいバッファを作成するときにいちいち聞いてこない
  (setq iswitchb-propmt-newbuffer nil)

  ;; save時に無駄な行末の空白を削除する
  ;;(add-hook 'before-save-hook 'delete-trailing-whitespace)

  ;; 画面分割を抑止する
  (setq pop-up-windows t)

  ;; 「ん」を n 2回で入力 (デフォは1回)
  (setq quail-japanese-use-double-n t)

  ;;
  ;; #alias
  ;;
  (defalias 'message-box 'message)
  (defadvice abort-recursive-edit (before minibuffer-save activate)
    (when (eq (selected-window) (active-minibuffer-window))
      (add-to-history minibuffer-history-variable (minibuffer-contents))))
  (defalias 'yes-or-no-p 'y-or-n-p)

  ;;
  ;; #appiarance
  ;; 見た目の設定
  ;;
  (defface hlline-face
    '((((class color)
        (background dark))
       (:background "brightblue"))
      (((class color)
        (background light))
       (:background "blue"))
      (t
       ()))
    "*Face used by hl-line.")
  (setq hl-line-face 'hlline-face)
  (global-hl-line-mode)

  ;; ミニバッファに時計表示
  ;;(display-time)
  ;;(setq display-time-day-and-date t)

  ;; 行番号
  (setq linum-format "%3d ")
  (column-number-mode 1)
  (line-number-mode 1)

  ;; 最近開いたファイルの保存数
  (setq recentf-max-saved-items 512)

  ;; テキストをカラフルにする
  (global-font-lock-mode t)

  (show-paren-mode 1)
  (transient-mark-mode 1)

  ;; GCを減らして軽くする.
  (setq gc-cons-threshold (* gc-cons-threshold 10))
  (setq garbage-collection-messages t) ;; GC時にメッセージ出力

  ;; ミニバッファで確認せずにすぐにカレントバッファを消す
  (global-set-key (kbd "C-x k") 'kill-this-buffer)

  (cond (window-system
         (setq initial-frame-alist '((width . 120) (height . 80)))
         ;;(set-background-color "RoyalBlue4")

         ;; スクロールバーは右に
         (set-scroll-bar-mode 'right)

         ;; メニューバーは出す
         (menu-bar-mode 1)

         ;; ツールバーは出さない
         (tool-bar-mode 0)

         (scroll-bar-mode 0)

         ;; クリップボードを有効
         (setq x-select-enable-clipboard t)
         ))

  ;; customize 変数の読み込み
  (cond ((file-exists-p custom-file)
         (load custom-file))
        (t
         (with-current-buffer (find-file-noselect custom-file)
           (save-buffer))
         ))
  )
(my-init)
(my-org)
(my-elisp)

(provide 'init)

;; Local Variables:
;; indent-tabs-mode: nil
;; End:

;;; init.el ends here