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

Polish UI

Browse source
This commit is contained in:
Henrik Lissner 2015-11-04 01:45:11 -05:00
parent 9cf404b6e3
commit cfd15c6d46
1 changed files with 13 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

25
core/core-ui.el
View file

@ -12,9 +12,9 @@
;; Highlight matching parens ;; Highlight matching parens
(setq show-paren-delay 0.075) (setq show-paren-delay 0.075)
(global-hl-line-mode 1) ; do highlight line ;; (global-hl-line-mode 1) ; don't highlight line
(blink-cursor-mode -1) ; do blink cursor (blink-cursor-mode 1) ; do blink cursor
(tooltip-mode -1) ; don't show tooltips (tooltip-mode -1) ; show tooltips in echo area
(setq-default (setq-default
blink-matching-paren nil blink-matching-paren nil
@ -32,7 +32,6 @@
indicate-buffer-boundaries nil indicate-buffer-boundaries nil
indicate-empty-lines nil indicate-empty-lines nil
fringes-outside-margins t ; fringes on the other side of line numbers fringes-outside-margins t ; fringes on the other side of line numbers
left-margin 1
jit-lock-defer-time 0 jit-lock-defer-time 0
jit-lock-stealth-time 3 jit-lock-stealth-time 3
@ -40,9 +39,9 @@
resize-mini-windows t) resize-mini-windows t)
;; hl-line-mode breaks minibuffer in TTY ;; hl-line-mode breaks minibuffer in TTY
(add-hook! minibuffer-setup ;; (add-hook! minibuffer-setup
(make-variable-buffer-local 'global-hl-line-mode) ;; (make-variable-buffer-local 'global-hl-line-mode)
(setq global-hl-line-mode nil)) ;; (setq global-hl-line-mode nil))
;; Hide modeline in help windows ;; Hide modeline in help windows
(add-hook! help-mode (setq-local mode-line-format nil)) (add-hook! help-mode (setq-local mode-line-format nil))
@ -70,8 +69,8 @@
(advice-add 'evil-toggle-fold :before 'narf-load-hs-minor-mode))) (advice-add 'evil-toggle-fold :before 'narf-load-hs-minor-mode)))
(use-package rainbow-delimiters (use-package rainbow-delimiters
:if (display-graphic-p)
:commands rainbow-delimiters-mode :commands rainbow-delimiters-mode
:when (display-graphic-p)
:init (add-hook! (emacs-lisp-mode js2-mode scss-mode) 'rainbow-delimiters-mode) :init (add-hook! (emacs-lisp-mode js2-mode scss-mode) 'rainbow-delimiters-mode)
:config (setq rainbow-delimiters-outermost-only-face-count 1)) :config (setq rainbow-delimiters-outermost-only-face-count 1))
@ -90,6 +89,7 @@
("*Apropos*" :position bottom :height 40 :stick t :dedicated t) ("*Apropos*" :position bottom :height 40 :stick t :dedicated t)
("*Backtrace*" :position bottom :height 15 :stick t) ("*Backtrace*" :position bottom :height 15 :stick t)
("^\\*Org-Babel.*\\*$" :regexp t :position bottom :height 15) ("^\\*Org-Babel.*\\*$" :regexp t :position bottom :height 15)
("^\\*Org .*\\*$" :regexp t :position bottom :height 15)
)) ))
(popwin-mode 1)) (popwin-mode 1))
@ -114,7 +114,7 @@
:preface :preface
(defvar narf--hl-nlinum-overlay nil) (defvar narf--hl-nlinum-overlay nil)
(defvar narf--hl-nlinum-line nil) (defvar narf--hl-nlinum-line nil)
(defvar nlinum-format " %3d ") (defvar nlinum-format " %4d ")
:init :init
(defface linum-highlight-face '((t (:inherit linum))) "Face for line highlights") (defface linum-highlight-face '((t (:inherit linum))) "Face for line highlights")
@ -127,7 +127,7 @@
(remove-hook 'post-command-hook 'narf|nlinum-hl-line) (remove-hook 'post-command-hook 'narf|nlinum-hl-line)
(narf|nlinum-unhl-line)) (narf|nlinum-unhl-line))
;; (add-hook! (markdown-mode prog-mode scss-mode web-mode) 'narf|nlinum-enable) (add-hook! (markdown-mode prog-mode scss-mode web-mode) 'narf|nlinum-enable)
:config :config
(defun narf|nlinum-unhl-line () (defun narf|nlinum-unhl-line ()
"Highlight line number" "Highlight line number"
@ -214,7 +214,7 @@
(spaceline-define-segment narf-buffer-encoding-abbrev (spaceline-define-segment narf-buffer-encoding-abbrev
"The line ending convention used in the buffer." "The line ending convention used in the buffer."
(symbol-name buffer-file-coding-system) (symbol-name buffer-file-coding-system)
:when (not (string-match-p "utf-8" (symbol-name buffer-file-coding-system)))) :when (not (string-match-p "\\(utf-8\\|undecided\\)" (symbol-name buffer-file-coding-system))))
(spaceline-define-segment narf-buffer-position (spaceline-define-segment narf-buffer-position
"A more vim-like buffer position." "A more vim-like buffer position."
@ -280,7 +280,8 @@ to be enabled."
'((selection-info :face highlight-face) '((selection-info :face highlight-face)
narf-env-version narf-env-version
narf-buffer-encoding-abbrev narf-buffer-encoding-abbrev
(major-mode (minor-modes :tight t :separator "") ((major-mode :face (if active 'mode-line-buffer-file 'mode-line-inactive))
(minor-modes :tight t :separator "")
process :when active) process :when active)
(global :when active) (global :when active)
("%l/%c" narf-buffer-position) ("%l/%c" narf-buffer-position)