Rewrite set-width to be a function that accepts any argument

This commit is contained in:
Maciej Szlosarczyk 2017-05-26 00:08:01 +03:00
parent 7c92796a8c
commit a449bcbb5b
No known key found for this signature in database
GPG key ID: 0D4EEACF63D4262E
4 changed files with 34 additions and 39 deletions

View file

@ -26,7 +26,7 @@
(add-to-list 'auto-mode-alist '("\\.erb\\'" . web-mode))
(add-hook 'ruby-mode-hook 'ruby-mode-config)
(add-hook 'ruby-mode-hook 'set-line-80)
(add-hook 'ruby-mode-hook (set-width 80))
;;; Rust
(defun rust-mode-config ()
@ -37,10 +37,10 @@
(remove-hook 'html-mode-hook 'web-mode-config)
(remove-hook 'haskell-mode-hook 'haskell-mode-config)
(set-tab-4))
(set-tab-4)
(set-width 99))
(add-hook 'rust-mode-hook 'rust-mode-config)
(add-hook 'rust-mode-hook 'set-line-99)
(add-hook 'rust-mode-hook 'racer-mode)
(add-hook 'rust-mode-hook 'flycheck-mode)
@ -58,7 +58,7 @@
(set-tab-2))
(add-hook 'elixir-mode-hook 'elixir-mode-config)
(add-hook 'elixir-mode-hook 'set-line-80)
(add-hook 'elixir-mode-hook (set-width 80))
(add-hook 'elixir-mode-hook 'alchemist-mode)
(add-hook 'elixir-mode-hook 'ruby-end-mode)
@ -71,10 +71,10 @@
(remove-hook 'html-mode-hook 'web-mode-config)
(remove-hook 'elixir-mode-hook 'elixir-mode-config)
(set-tab-4))
(set-tab-4)
(set-width 80))
(add-hook 'haskell-mode-hook 'haskell-mode-config)
(add-hook 'haskell-mode-hook 'set-line-80)
(add-hook 'haskell-mode-hook 'flycheck-mode)
;;; Elisp
@ -88,10 +88,10 @@
(set-tab-2)
(flycheck-mode 1))
(flycheck-mode 1)
(set-width 80))
(add-hook 'emacs-lisp-mode-hook 'elisp-mode-config)
(add-hook 'emacs-lisp-mode-hook 'set-line-80)
(add-hook 'emacs-lisp-mode-hook 'flycheck-mode)
;;;; Other things ;;;;;
@ -105,11 +105,11 @@
(remove-hook 'ruby-mode-hook 'ruby-mode-config)
(remove-hook 'elixir-mode-hook 'elixir-mode-config)
(flycheck-mode 1))
(flycheck-mode 1)
(set-width 120))
(add-hook 'html-mode-hook 'web-mode)
(add-hook 'html-mode-hook 'web-mode-config)
(add-hook 'html-mode-hook 'set-line-120)
(setq web-mode-markup-indent-offset 2)
(setq web-mode-code-indent-offset 2)
@ -118,6 +118,9 @@
(setq css-indent-offset 2)
;; Markdown mode
(add-hook 'markdown-mode-hook 'set-line-80)
(defun markdown-mode-config ()
"Setup markdown mode."
(set-width 80))
(add-hook 'markdown-mode-hook 'markdown-mode-config)
;;; languages.el ends here