emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

UI update

Browse source
This commit is contained in:
Henrik Lissner 2015-07-28 13:13:20 +02:00
parent 90d5fca299
commit dc5faf7691
1 changed files with 26 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

52
core/core-ui.el
View file

@ -7,14 +7,10 @@
(scroll-bar-mode -1) ; no scrollbar (scroll-bar-mode -1) ; no scrollbar
(tool-bar-mode -1) ; no toolbar (tool-bar-mode -1) ; no toolbar
(menu-bar-mode -1) ; no menubar (menu-bar-mode -1) ; no menubar
(set-frame-parameter nil 'fullscreen 'fullboth) (set-frame-parameter nil 'fullscreen 'fullboth)
(fringe-mode '(2 . 8)) (fringe-mode '(2 . 8))
;; more informative window title
(setq frame-title-format '(buffer-file-name "%f" ("%b")))) (setq frame-title-format '(buffer-file-name "%f" ("%b"))))
;; theme and GUI elements are loaded in init.el early
(setq show-paren-delay 0) (setq show-paren-delay 0)
(global-hl-line-mode 1) ; do highlight line (global-hl-line-mode 1) ; do highlight line
@ -24,11 +20,12 @@
(size-indication-mode 1) ; do show file size (size-indication-mode 1) ; do show file size
(tooltip-mode -1) ; don't show tooltips (tooltip-mode -1) ; don't show tooltips
(setq-default
;; Multiple cursors across buffers cause a strange redraw delay for ;; Multiple cursors across buffers cause a strange redraw delay for
;; some things, like auto-complete or evil-mode's cursor color ;; some things, like auto-complete or evil-mode's cursor color
;; switching. ;; switching.
(setq-default
cursor-in-non-selected-windows nil cursor-in-non-selected-windows nil
visible-bell nil ; silence of the bells visible-bell nil ; silence of the bells
use-dialog-box nil ; avoid GUI use-dialog-box nil ; avoid GUI
redisplay-dont-pause t redisplay-dont-pause t
@ -41,6 +38,8 @@
"Prevent annoying \"Active processes exist\" query when you quit Emacs." "Prevent annoying \"Active processes exist\" query when you quit Emacs."
(flet ((process-list ())) ad-do-it))) (flet ((process-list ())) ad-do-it)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(use-package highlight-indentation (use-package highlight-indentation
:diminish highlight-indentation-mode :diminish highlight-indentation-mode
:config :config
@ -112,27 +111,22 @@
:init (setq-default :init (setq-default
sml/no-confirm-load-theme t sml/no-confirm-load-theme t
sml/mode-width 'full sml/mode-width 'full
sml/extra-filler -7 sml/extra-filler -6
sml/show-remote nil sml/show-remote nil
sml/encoding-format nil sml/encoding-format nil
sml/modified-char "*" sml/modified-char "*"
sml/numbers-separator "/" sml/numbers-separator "/"
sml/line-number-format "%3l" sml/line-number-format "%l"
sml/col-number-format "%2c" sml/col-number-format "%c"
sml/pre-modes-separator " : " sml/position-percentage-format "%P"
sml/pre-modes-separator " ["
sml/pre-minor-modes-separator " " sml/pre-minor-modes-separator " "
sml/pos-minor-modes-separator ": " sml/pos-minor-modes-separator "] "
sml/replacer-regexp-list '(("^~/.emacs.d/" "EMACS.D:") sml/replacer-regexp-list '(("^~/.emacs.d/" "EMACS.D:")
("^~/Dropbox/Projects/" "PROJECTS:") ("^~/Dropbox/Projects/" "PROJECTS:")
("^~/Dropbox/notes/" "NOTES:") ("^~/Dropbox/notes/" "NOTES:")
("^/usr/local/Cellar/" "HOMEBREW:"))) ("^/usr/local/Cellar/" "HOMEBREW:")))
:config :config
;; Hide evil state indicator
(after! evil (setq evil-mode-line-format nil))
(sml/setup)
(sml/apply-theme 'respectful)
;; Hack modeline to be more vim-like, and right-aligned ;; Hack modeline to be more vim-like, and right-aligned
(defun sml/generate-minor-modes () (defun sml/generate-minor-modes ()
(if sml/simplified (if sml/simplified
@ -171,20 +165,22 @@
(propertize sml/pos-minor-modes-separator 'face (propertize sml/pos-minor-modes-separator 'face
'font-lock-comment-delimiter-face))))) 'font-lock-comment-delimiter-face)))))
;; Remove extra spaces in format lists ;; Hide evil state indicator
(pop mode-line-modes) (after! evil (setq evil-mode-line-format nil))
(nbutlast mode-line-modes) ;; Add small gap for anzu display
(after! anzu
;; Remove spacing in mode-line position so we can put it elsewhere
(setq mode-line-position
'((sml/position-percentage-format
(-3 (:propertize (:eval sml/position-percentage-format)
face sml/position-percentage help-echo "Buffer Relative Position\nmouse-1: Display Line and Column Mode Menu")))))
(after! anzu ; Add small gap for anzu
(defun narf--anzu-update-mode-line (here total) (defun narf--anzu-update-mode-line (here total)
(concat (anzu--update-mode-line-default here total) " ")) (concat (anzu--update-mode-line-default here total) " "))
(setq anzu-mode-line-update-function 'narf--anzu-update-mode-line)) (setq anzu-mode-line-update-function 'narf--anzu-update-mode-line))
(sml/setup)
(sml/apply-theme 'respectful)
;; Remove extra spaces in format lists
(pop mode-line-modes)
(nbutlast mode-line-modes)
;; Remove spacing in mode-line position so we can put it elsewhere
(setq mode-line-position
'(":" (sml/position-percentage-format
(-3 (:propertize (:eval sml/position-percentage-format) face sml/position-percentage)))))
;; Rearrange and cleanup ;; Rearrange and cleanup
(setq-default mode-line-format (setq-default mode-line-format
@ -200,7 +196,7 @@
mode-line-front-space mode-line-front-space
mode-line-end-spaces mode-line-end-spaces
" " " "
":" mode-line-position))) mode-line-position)))
(provide 'core-ui) (provide 'core-ui)
;;; core-ui.el ends here ;;; core-ui.el ends here