laurens/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Don't guess tabs or spaces, just use spaces

Browse source
This commit is contained in:
laurensmiers 2017-12-05 12:32:43 +01:00
parent 57e501730d
commit bdee0e5c46
1 changed files with 2 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

14
custom/setup-coding.el
View file

@ -1,14 +1,3 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Set indentation style depending on number of spaces/tabs in file ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun infer-indentation-style ()
;; if our source file uses tabs, we use tabs, if spaces spaces, and if
;; neither, we use the current indent-tabs-mode
(let ((space-count (how-many "^ " (point-min) (point-max)))
(tab-count (how-many "^\t" (point-min) (point-max))))
(if (> space-count tab-count) (setq indent-tabs-mode nil))
(if (> tab-count space-count) (setq indent-tabs-mode t))))
;; make angry face to get my attention ;; make angry face to get my attention
(setq prog-modes '(c++-mode python-mode erlang-mode java-mode c-mode emacs-lisp-mode scheme-mode prog-mode)) (setq prog-modes '(c++-mode python-mode erlang-mode java-mode c-mode emacs-lisp-mode scheme-mode prog-mode))
(make-face 'font-lock-angry-face) (make-face 'font-lock-angry-face)
@ -35,7 +24,8 @@
(setq c-basic-offset 4) (setq c-basic-offset 4)
;; Tab-space strategy ;; Tab-space strategy
(add-hook 'c-mode-hook 'infer-indentation-style) ;; we use spaces, deal with it
(setq-default indent-tabs-mode nil)
;; Enable subword mode for handling CamelCase format ;; Enable subword mode for handling CamelCase format
(global-subword-mode t) (global-subword-mode t)