doomemacs/init/core-ui.el

72 lines
2 KiB
EmacsLisp
Raw Normal View History

2014-09-05 17:08:40 -04:00
(provide 'core-ui)
;; (global-linum-mode t) ; line numbers for everybody!
2014-09-20 16:54:04 -04:00
(blink-cursor-mode -1)
(global-hl-line-mode 1)
(setq show-paren-delay 0)
(show-paren-mode 1)
;; 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)
2014-07-15 02:21:56 -04:00
;; Show line/col-no in mode-line
2014-07-15 02:21:56 -04:00
(line-number-mode t)
(column-number-mode t)
;; make the fringe unintrusive
2014-09-20 16:54:04 -04:00
(when (fboundp 'fringe-mode)
(fringe-mode '(0 . 10)))
2014-07-22 23:24:02 -04:00
;; Show full path in window title
(setq frame-title-format
'(:eval (if (buffer-file-name) (abbreviate-file-name (buffer-file-name)) "%b")))
2014-07-16 03:28:06 -04:00
2014-09-05 17:08:40 -04:00
;; Whitespaces (activate whitespace-mode to see)
(setq whitespace-style '(face trailing tab-mark))
;; do not soft-wrap lines
(setq-default truncate-lines t)
(setq truncate-partial-width-windows nil)
2014-09-20 16:54:04 -04:00
(add-hook! 'help-mode-hook (setq truncate-lines nil))
2014-09-05 17:08:40 -04:00
(setq ediff-window-setup-function 'ediff-setup-windows-plain)
(setq indicate-buffer-boundaries nil)
(setq indicate-empty-lines nil)
(setq-default visible-bell nil)
(setq-default use-dialog-box nil)
2014-09-20 16:54:04 -04:00
;;;; GUI Settings ;;;;;;;;;;;;;;;;;;;;;;
(setq ring-bell-function 'ignore)
2014-09-05 17:08:40 -04:00
(add-to-list 'default-frame-alist `(font . ,*font))
2014-08-07 18:35:22 -04:00
(add-to-list 'default-frame-alist '(alpha 98 95)) ; *slightly* transparent window
2014-07-21 03:52:01 -04:00
(when (functionp 'scroll-bar-mode) (scroll-bar-mode -1))
2014-09-29 15:24:09 -04:00
(when (functionp 'tool-bar-mode) (tool-bar-mode -1))
2014-07-21 03:52:01 -04:00
(when (functionp 'menu-bar-mode) (menu-bar-mode -1))
2014-09-20 16:54:04 -04:00
;;;; Modeline ;;;;;;;;;;;;;;;;;;;;;;;;;;
(use-package smart-mode-line
:config
(mapc (lambda(mode) (add-to-list 'rm-excluded-modes mode))
2014-09-29 15:24:09 -04:00
'(" SP"
2014-09-20 16:54:04 -04:00
" Fill"
2014-09-29 15:24:09 -04:00
" yas"
" Fly"
" EvilOrg"
2014-10-09 18:37:37 -04:00
" Abbrev"
2014-09-20 16:54:04 -04:00
))
:init
(progn
(setq sml/no-confirm-load-theme t
2014-09-29 15:24:09 -04:00
sml/mode-width 'full
2014-09-20 16:54:04 -04:00
sml/show-remote nil
sml/encoding-format nil)
2014-09-29 15:24:09 -04:00
(add-to-list 'sml/replacer-regexp-list '("^:DB:projects/" "PR:") t)
2014-09-20 16:54:04 -04:00
(sml/setup)
(sml/apply-theme 'respectful)))