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

Rewrote core initfiles: add mod-ac, mod-fly & mod-git

Browse source 
* mod-ac: fuzzy and unintrusive auto-complete
* mod-fly: on-the-fly syntax and spell checking
* mod-git: git-gutter and git-related modes
This commit is contained in:
Henrik Lissner 2014-07-17 02:59:23 -04:00
parent b53dfd6369
commit 30845199b5
12 changed files with 224 additions and 191 deletions
Download patch file Download diff file Expand all files Collapse all files

48
init/core-ui.el
View file

@ -1,48 +1,62 @@
(require-packages
'(uniquify ; unique buffer names for identical filenames
diminish ; shrinks/removes modeline elements
))
;;;; UI Behavior ;;;;;;;;;;;;;;;;;;;;;;
(setq inhibit-startup-screen t) ; don't show EMACs start screen
(fset 'yes-or-no-p 'y-or-n-p) ; y/n instead of yes/no
(global-linum-mode t) ; line numbers for everybody!
(setq inhibit-startup-screen t)
;; Shrink mode-line
(add-hook 'emacs-startup-hook
(lambda()
(diminish 'autopair-mode)
(diminish 'anzu-mode)
(diminish 'volatile-highlights-mode)
(diminish 'undo-tree-mode)
(diminish 'auto-complete-mode)
(diminish 'highlight-indentation-mode)
(diminish 'flyspell-mode " ?")
))
;; Sane scroll settings
(setq scroll-margin 3
scroll-conservatively 100000
scroll-preserve-screen-position 1)
;; mode line settings
;; Show line/col-no in mode-line
(line-number-mode t)
(column-number-mode t)
(size-indication-mode t)
;; y/n instead of yes/no
(fset 'yes-or-no-p 'y-or-n-p)
;; make the fringe unintrusive
(if (fboundp 'fringe-mode) (fringe-mode 8))
;; make the fringe (gutter) smaller
;; the argument is a width in pixels (the default is 8)
(if (fboundp 'fringe-mode)
(fringe-mode 4))
;; Dynamic linum with +1 padding
;; 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))
(linum-format (concat "%" (number-to-string (+ w 1)) "d" (if window-system "" " ")))) ad-do-it))
;;;#uniquify
(setq uniquify-buffer-name-style 'forward)
(setq uniquify-separator "/")
(setq uniquify-after-kill-buffer-p t) ; rename after killing uniquified
(setq uniquify-ignore-buffers-re "^\\*") ; don't muck with special buffers
;;;; GUI Settings ;;;;;;;;;;;;;;;;;;;;;
; (set-face-attribute 'default t :font 'my-font )
(add-to-list 'default-frame-alist `(font . ,my-font))
(add-to-list 'default-frame-alist '(width . 100))
(add-to-list 'default-frame-alist '(height . 75))
(add-to-list 'default-frame-alist '(alpha 98 95)) ; *slightly* transparent window
; (set-face-attribute 'mode-line nil :box '(:line-width 4 :color "#1f2g2a" ))
(if window-system (progn
(tool-bar-mode -1)
(scroll-bar-mode -1)
; Use system clipboard
(setq x-select-enable-clipboard t)
(setq-default line-spacing 1)
; (setq-default line-spacing 1)
(setq ring-bell-function 'ignore)
) (menu-bar-mode -1))