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

Complete refactor & implement cask

Browse source
This commit is contained in:
Henrik Lissner 2014-09-20 16:54:04 -04:00
parent 418f7bc5a6
commit 8f93fb9b73
39 changed files with 1534 additions and 1155 deletions
Download patch file Download diff file Expand all files Collapse all files

42
init/core-ui.el
View file

@ -1,19 +1,23 @@
(provide 'core-ui)
;; (global-linum-mode t) ; line numbers for everybody!
;; (blink-cursor-mode -1)
(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 8))
;; Line numbers with +1 left-padding
;; (defadvice linum-update-window (around linum-dynamic activate)
;; (let* ((w (length (number-to-string (count-lines (point-min) (point-max)))))
;; (linum-format (concat "%" (number-to-string (+ w 1)) "d" " "))) ad-do-it))
(when (fboundp 'fringe-mode)
(fringe-mode '(0 . 10)))
;; Show full path in window title
(setq frame-title-format
@ -25,7 +29,7 @@
;; do not soft-wrap lines
(setq-default truncate-lines t)
(setq truncate-partial-width-windows nil)
(add-hook 'help-mode-hook (lambda() (setq truncate-lines nil)))
(add-hook! 'help-mode-hook (setq truncate-lines nil))
(setq ediff-window-setup-function 'ediff-setup-windows-plain)
@ -35,7 +39,7 @@
(setq-default visible-bell nil)
(setq-default use-dialog-box nil)
;;;; GUI Settings ;;;;;;;;;;;;;;;;;;;;;
;;;; 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
@ -43,3 +47,21 @@
(when (functionp 'tool-bar-mode) (tool-bar-mode -1))
(when (functionp 'scroll-bar-mode) (scroll-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))
'(" Rake"
" SP"
" Fill"
))
:init
(progn
(setq sml/no-confirm-load-theme t
sml/mode-width 'right
sml/show-remote nil
sml/encoding-format nil)
(sml/setup)
(sml/apply-theme 'respectful)))