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

Rewrite indentation function to a generic one

Browse source
This commit is contained in:
Maciej Szlosarczyk 2017-05-26 00:30:20 +03:00
parent a449bcbb5b
commit ed90e42076
No known key found for this signature in database
GPG key ID: 0D4EEACF63D4262E
2 changed files with 10 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

21
behaviour.el
View file

@ -96,22 +96,11 @@ Additional characters after X are highlighted."
(column-enforce-mode -1)
(column-enforce-mode 1))
;;; TODO: Convert to proper functions
(defun set-tab-4 ()
"Set tab length to 4 spaces."
(interactive)
(setq tab-width 4)
(setq tab-stop-list (quote(4 8 12 16 24 28 32 36 40 44 48 52 56 60 64 68 72 76
80 84 88 92 96 100 104 108 112 116 120))))
(defun set-tab-2 ()
"Set tab length to 2 spaces."
(interactive)
(setq tab-width 2)
(setq tab-stop-list (quote(2 4 6 8 10 12 14 16 20 22 24 26 28 30 32 34 36 38
40 42 44 46 48 50 52 54 56 58 60 62 64 66 68 70
72 74 76 78 80 82 84 86 88 90 92 94 96 98 100 102
104 106 108 110 112 114 116 118 120))))
(defun set-indent (step)
"Set indentation to X STEPs."
(interactive "NNumber of columns for one step: ")
(setq tab-width step)
(setq tab-stop-list (number-sequence step 200 step)))
;;;;;;;;;;;;;;;;;;;;;;;; additional features ;;;;;;;;;;;;;;;;;;;;;;;;;;;

8
languages.el
View file

@ -37,7 +37,7 @@
(remove-hook 'html-mode-hook 'web-mode-config)
(remove-hook 'haskell-mode-hook 'haskell-mode-config)
(set-tab-4)
(set-indent 4)
(set-width 99))
(add-hook 'rust-mode-hook 'rust-mode-config)
@ -55,7 +55,7 @@
(remove-hook 'html-mode-hook 'web-mode-config)
(remove-hook 'haskell-mode-hook 'haskell-mode-config)
(set-tab-2))
(set-indent 2))
(add-hook 'elixir-mode-hook 'elixir-mode-config)
(add-hook 'elixir-mode-hook (set-width 80))
@ -71,7 +71,7 @@
(remove-hook 'html-mode-hook 'web-mode-config)
(remove-hook 'elixir-mode-hook 'elixir-mode-config)
(set-tab-4)
(set-indent 4)
(set-width 80))
(add-hook 'haskell-mode-hook 'haskell-mode-config)
@ -86,7 +86,7 @@
(remove-hook 'html-mode-hook 'web-mode-config)
(remove-hook 'haskell-mode-hook 'haskell-mode-config)
(set-tab-2)
(set-indent 2)
(flycheck-mode 1)
(set-width 80))