-;;;------------------------------
-;;; Startup
-;;;------------------------------
+;;; 01-display.el --- UI configulation               -*- lexical-binding: t; -*-
+
+;;--------------------------------------------------
+;; Startup
+;;--------------------------------------------------
 ;;; Disbaled startup display
 (setq inhibit-startup-screen +1)
 (setq initial-scratch-message "")
 
-;;;------------------------------
-;;; Color
-;;;------------------------------
+;;--------------------------------------------------
+;; Color
+;;--------------------------------------------------
 (use-package color)
 
 ;;; Color theme


;;; Symbol
(use-package highlight-symbol
  :init
  (el-get-bundle highlight-symbol)
  (add-hook 'prog-mode-hook 'highlight-symbol-mode)
  :config
  (setq highlight-symbol-idle-delay 0.5))

;;; Parentheses
(electric-pair-mode)
(electric-layout-mode)
(add-to-list 'electric-pair-pairs '(?' . ?'))
(add-to-list 'electric-pair-pairs '(?{ . ?}))

(show-paren-mode)
(setq show-paren-delay 0.3)

(use-package rainbow-delimiters
  :init
  (el-get-bundle rainbow-delimiters)
  (add-hook 'prog-mode-hook 'rainbow-delimiters-mode)
  :config
  (cl-loop for index from 1 to rainbow-delimiters-max-face-count do
           (let ((face (intern (format "rainbow-delimiters-depth-%d-face" index))))
             (cl-callf color-saturate-name (face-foreground face) 30))))

;;; Trailing whitespace
(setq-default show-trailing-whitespace +1)


;;; Difference
(use-package volatile-highlights
  :init (el-get-bundle volatile-highlights)
  :config
  (volatile-highlights-mode)
  ;; supprot undo-tree
  (vhl/define-extension 'undo-tree 'undo-tree-yank 'undo-tree-move)
  (vhl/install-extension 'undo-tree))

;;--------------------------------------------------
;; Frame
;;--------------------------------------------------
;;; Bar
(setq frame-title-format (format "%%f - Emacs@%s" (system-name)))
(menu-bar-mode -1)
