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

Clean up core-ui

Browse source
This commit is contained in:
Henrik Lissner 2015-10-26 01:29:38 -04:00
parent fe21e26698
commit 13fe3f8d00
1 changed files with 19 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

32
core/core-ui.el
View file

@ -2,23 +2,23 @@
;; see lib/ui-defuns.el
(when window-system
(fringe-mode '(2 . 3))
(set-frame-font narf-default-font)
(setq frame-title-format '(buffer-file-name "%f" ("%b")))
(fringe-mode '(2 . 3)))
(setq initial-frame-alist '((width . 120) (height . 80))))
(unless window-system
(menu-bar-mode -1))
;; Highlight matching parens
(setq show-paren-delay 0.075)
(global-hl-line-mode 1) ; do highlight line
(blink-cursor-mode 1) ; do blink cursor
(blink-cursor-mode -1) ; do blink cursor
(tooltip-mode -1) ; don't show tooltips
(size-indication-mode -1)
;; Let spaceline handle these
(line-number-mode -1)
(column-number-mode -1)
(setq-default
blink-matching-paren nil
;; Multiple cursors across buffers cause a strange redraw delay for
;; some things, like auto-complete or evil-mode's cursor color
;; switching.
@ -28,10 +28,14 @@
visible-bell nil ; silence of the bells
use-dialog-box nil ; avoid GUI
redisplay-dont-pause t
redisplay-dont-pause nil
indicate-buffer-boundaries nil
indicate-empty-lines nil
fringes-outside-margins t ; fringes on the other side of line numbers
left-margin 1
jit-lock-defer-time 0
jit-lock-stealth-time 3
resize-mini-windows t)
@ -49,7 +53,7 @@
(use-package hl-todo
:commands hl-todo-mode
:init
(add-hook! prog-mode 'hl-todo-mode)
(add-hook! (prog-mode puml-mode) 'hl-todo-mode)
(defvar hl-todo-keyword-faces
'(("TODO" . "#cc9393")
("NOTE" . "#d0bf8f")
@ -99,12 +103,11 @@
(vhl/install-extension 'my-evil-highlights)
(vhl/define-extension 'my-undo-tree-highlights
'undo-tree-undo
'undo-tree-redo)
'undo-tree-undo 'undo-tree-redo)
(vhl/install-extension 'my-undo-tree-highlights)
(volatile-highlights-mode t))
(use-package nlinum ; line numbers
(use-package nlinum
:preface
(defvar narf--hl-nlinum-overlay nil)
(defvar narf--hl-nlinum-line nil)
@ -151,7 +154,8 @@
(ov (-first (lambda (item) (overlay-get item 'nlinum)) overlays)))
(when ov
(narf|nlinum-unhl-line)
(let* ((disp (get-text-property 0 'display (overlay-get ov 'before-string)))
(let* ((disp (get-text-property 0 'display
(overlay-get ov 'before-string)))
(str (nth 1 disp)))
(put-text-property 0 (length str) 'face 'linum-highlight-face str)
(put-text-property 0 (length str) 'face 'linum-highlight-face str)
@ -159,7 +163,9 @@
narf--hl-nlinum-line line-no))))))))
(add-hook! nlinum-mode
(setq nlinum--width (length (number-to-string (count-lines (point-min) (point-max)))))))
(setq nlinum--width
(length (int-to-string (count-lines (point-min) (point-max)))))))
;; Mode-line ;;;;;;;;;;;;;;;;;;;;;;;;;;;