;;; core-ui.el -- User interface layout & behavior

;;;; Load Theme ;;;;;;;;;;;;;;;;;;;;;;;;
(when window-system
  (set-frame-parameter nil 'alpha '(96 86))
  (cycle-font 0))   ; Load font

(add-to-list 'custom-theme-load-path my-themes-dir)
(load-dark-theme)


;;;; GUI Settings ;;;;;;;;;;;;;;;;;;;;;;
(when window-system
  (scroll-bar-mode -1)    ; no scrollbar
  (tool-bar-mode -1)      ; no toolbar
  (menu-bar-mode -1))     ; no menubar

(tooltip-mode -1)
(blink-cursor-mode 1)        ; blink cursor
(global-hl-line-mode -1)     ; highlight line

;; Highlight curent line number
(use-package hlinum
  :config
  (progn
    (hlinum-activate)
    ;; A little excessive
    (remove-hook 'pre-command-hook 'hlinum-unhighlight-current-line)))

;; Line numbers
(setq linum-format " %4d ")
(add-hooks '(text-mode-hook prog-mode-hook) 'linum-mode)

;; Multiple cursors across buffers cause a strange redraw delay for
;; some things, like auto-complete or evil-mode's cursor color
;; switching.
(setq-default cursor-in-non-selected-windows nil)

(setq-default visible-bell nil)   ; silence of the bells
(setq-default use-dialog-box nil) ; avoid GUI
(setq-default redisplay-dont-pause t)

;; do not soft-wrap lines
(setq-default truncate-lines t)
(setq-default truncate-partial-width-windows nil)
(setq-default indicate-buffer-boundaries nil)
(setq-default indicate-empty-lines nil)

(when window-system
  (setq frame-title-format '(buffer-file-name "%f" ("%b")))
  (if (string-equal (system-name) "io")
      (set-frame-size (selected-frame) 326 119)))

(defadvice save-buffers-kill-emacs (around no-query-kill-emacs activate)
  "Prevent annoying \"Active processes exist\" query when you quit Emacs."
  (flet ((process-list ())) ad-do-it))

;; [pedantry intensifies]
(rename-mode-name emacs-lisp-mode "Elisp")


;;;; Modeline ;;;;;;;;;;;;;;;;;;;;;;;;;;
;; (use-package vim-empty-lines-mode
;;   :config (global-vim-empty-lines-mode +1))

(use-package uniquify
  :config
  (setq uniquify-buffer-name-style 'post-forward-angle-brackets
        uniquify-separator ":"
        uniquify-ignore-buffers-re "^\\*"))

(use-package smart-mode-line
  :init
  (defvar rm-blacklist
    (mapconcat 'identity
               '(" SP"
                 " Fill"
                 " EvilOrg"
                 " Abbrev"
                 " snipe"
                 " company"
                 " Anaconda"
                 " WS"
                 " GitGutter"
                 " Undo-Tree"
                 " Projectile\\[.+\\]"
                 " hs"
                 " ElDoc"
                 " wg"
                 " ~"
                 " s-/"
                 " emr"
                 " Refactor"
                 ) "\\|"))
  :config
  (progn
    (setq sml/no-confirm-load-theme t
          sml/mode-width      'full
          sml/extra-filler    (if window-system -1 0)
          sml/show-remote     nil
          sml/modified-char   "*"
          sml/encoding-format nil)

    (setq sml/replacer-regexp-list '(("^~/Dropbox/Projects/" "PROJECTS:")
                                     ("^~/.emacs.d/" "EMACS.D:")))

    (after "evil" (setq evil-mode-line-format nil))

    (setq-default mode-line-misc-info
      '((which-func-mode ("" which-func-format ""))
        (global-mode-string ("" global-mode-string ""))))

    (add-hook! 'after-change-major-mode-hook
               (setq mode-line-format
                     '((if window-system " ")
                       "%e"
                       mode-line-mule-info
                       mode-line-client
                       mode-line-remote
                       mode-line-frame-identification
                       mode-line-buffer-identification
                       mode-line-modified
                       mode-line-modes
                       mode-line-misc-info
                       (vc-mode vc-mode)
                       " "
                       mode-line-position
                       " "
                       mode-line-front-space
                       ))

               (add-to-list 'mode-line-modes
                            '(sml/buffer-identification-filling
                              sml/buffer-identification-filling
                              (:eval (setq sml/buffer-identification-filling
                                           (sml/fill-for-buffer-identification))))))

    (let ((-linepo mode-line-position))
      (sml/setup)
      (sml/apply-theme 'respectful)

      (setq mode-line-position -linepo)
      (sml/filter-mode-line-list 'mode-line-position))))


(provide 'core-ui)
;;; core-ui.el ends here