gitback/doomemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Polish UI + highlight minibuffer when active

Browse Source
This commit is contained in:
Henrik Lissner 2015-11-30 16:51:13 -05:00
parent bec677f3da
commit 63eefa6872
1 changed files with 22 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
core/core-ui.el
View File

@ -23,21 +23,32 @@
jit-lock-defer-time nil
jit-lock-stealth-time 1
resize-mini-windows t)
split-width-threshold nil
split-height-threshold 30
resize-mini-windows 'grow-only
fringe-indicator-alist (delq (assoc 'continuation fringe-indicator-alist) fringe-indicator-alist))
(defvar narf-fringe-size 6)
(if window-system
(progn
(fringe-mode narf-fringe-size)
(setq frame-title-format '(buffer-file-name "%f" ("%b")))
(setq initial-frame-alist '((width . 120) (height . 80)))
(set-frame-font narf-default-font)
(set-face-attribute 'default t :font narf-default-font)
(define-fringe-bitmap 'tilde [64 168 16] nil nil 'center)
(setcdr (assq 'empty-line fringe-indicator-alist) 'tilde)
(set-fringe-bitmap-face 'tilde 'font-lock-comment-face))
(set-fringe-bitmap-face 'tilde 'font-lock-comment-face)
(set-window-fringes (minibuffer-window) 0 0 nil)
(defun narf|minibuffer-setup ()
(make-local-variable 'face-remapping-alist)
(set-window-fringes (selected-window) 0 0 nil)
(add-to-list 'face-remapping-alist '(default mode-line-inactive)))
(add-hook! minibuffer-setup 'narf|minibuffer-setup))
(menu-bar-mode -1))
(mapc (lambda (x) (set-fontset-font "fontset-default" `(,x . ,x) "DejaVu Sans" nil 'prepend))
@ -45,6 +56,8 @@
(blink-cursor-mode 1) ; do blink cursor
(tooltip-mode -1) ; show tooltips in echo area
(when (featurep 'eldoc)
(global-eldoc-mode -1)) ; on by default in Emacs 25?
;; Highlight line
(add-hook! (prog-mode puml-mode markdown-mode) 'hl-line-mode)
@ -76,9 +89,11 @@
;; Fade out when unfocused ;;;;;;;;;;;;;
(add-hook! focus-in (set-frame-parameter nil 'alpha 100))
(add-hook! focus-out (set-frame-parameter nil 'alpha 80))
(add-hook! focus-out (set-frame-parameter nil 'alpha 90))
;; Plugins ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(use-package visual-fill-column :defer t)
(use-package yascroll
:commands (yascroll-bar-mode)
:config
@ -146,7 +161,7 @@
:preface
(defvar narf--hl-nlinum-overlay nil)
(defvar narf--hl-nlinum-line nil)
(defvar nlinum-format " %4d ")
(defvar nlinum-format "%5d ")
(defface linum-highlight-face '((t (:inherit linum))) "Face for line highlights")
(setq linum-format "%3d ")
:init
@ -351,14 +366,13 @@ iedit."
;; Initialize modeline
(spaceline-install
;; Left side
'((evil-state :face highlight-face :when active)
narf-anzu narf-iedit narf-evil-substitute
'(narf-anzu narf-iedit narf-evil-substitute
(narf-buffer-path remote-host)
narf-buffer-modified
narf-vc
((flycheck-error flycheck-warning flycheck-info) :when active))
;; Right side
'((selection-info :face highlight-face :skip-alternate t)
'((selection-info :face highlight-face :skip-alternate t :when active)
narf-env-version
narf-buffer-encoding-abbrev
(narf-major-mode