70 lines
2 KiB
EmacsLisp
70 lines
2 KiB
EmacsLisp
(provide 'core-ui)
|
|
|
|
;; (global-linum-mode t) ; line numbers for everybody!
|
|
(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)
|
|
|
|
;; Show line/col-no in mode-line
|
|
(line-number-mode t)
|
|
(column-number-mode t)
|
|
;; make the fringe unintrusive
|
|
(when (fboundp 'fringe-mode)
|
|
(fringe-mode '(0 . 10)))
|
|
|
|
;; Show full path in window title
|
|
(setq frame-title-format
|
|
'(:eval (if (buffer-file-name) (abbreviate-file-name (buffer-file-name)) "%b")))
|
|
|
|
;; 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)
|
|
(add-hook! 'help-mode-hook (setq truncate-lines nil))
|
|
|
|
(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)
|
|
|
|
;;;; GUI Settings ;;;;;;;;;;;;;;;;;;;;;;
|
|
(setq ring-bell-function 'ignore)
|
|
(add-to-list 'default-frame-alist `(font . ,*font))
|
|
(add-to-list 'default-frame-alist '(alpha 98 95)) ; *slightly* transparent window
|
|
|
|
(when (functionp 'scroll-bar-mode) (scroll-bar-mode -1))
|
|
(when (functionp 'tool-bar-mode) (tool-bar-mode -1))
|
|
(when (functionp 'menu-bar-mode) (menu-bar-mode -1))
|
|
|
|
;;;; Modeline ;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
(use-package smart-mode-line
|
|
:config
|
|
(mapc (lambda(mode) (add-to-list 'rm-excluded-modes mode))
|
|
'(" SP"
|
|
" Fill"
|
|
" yas"
|
|
" Fly"
|
|
" EvilOrg"
|
|
))
|
|
:init
|
|
(progn
|
|
(setq sml/no-confirm-load-theme t
|
|
sml/mode-width 'full
|
|
sml/show-remote nil
|
|
sml/encoding-format nil)
|
|
(add-to-list 'sml/replacer-regexp-list '("^:DB:projects/" "PR:") t)
|
|
|
|
(sml/setup)
|
|
(sml/apply-theme 'respectful)))
|