136 lines
3.9 KiB
EmacsLisp
136 lines
3.9 KiB
EmacsLisp
;;; Languages -- summary
|
|
;;; Commentary:
|
|
|
|
;;; Code:
|
|
;;;; Major languages ;;;;
|
|
;;; Intial imports
|
|
(require 'company)
|
|
|
|
;; Imports
|
|
(load "~/.emacs.d/languages/ruby.elc")
|
|
(load "~/.emacs.d/languages/python.elc")
|
|
(load "~/.emacs.d/languages/elisp.elc")
|
|
|
|
;;; Rust
|
|
(defun rust-mode-config ()
|
|
"Setup editor for rust."
|
|
(remove-hook 'ruby-mode-hook 'ruby-mode-config)
|
|
(remove-hook 'elixir-mode-hook 'elixir-mode-config)
|
|
(remove-hook 'emacs-lisp-mode-hook 'elisp-mode-config)
|
|
(remove-hook 'html-mode-hook 'web-mode-config)
|
|
(remove-hook 'haskell-mode-hook 'haskell-mode-config)
|
|
(remove-hook 'java-mode-hook 'java-mode-config)
|
|
|
|
(set-indent 4))
|
|
|
|
(add-hook 'rust-mode-hook 'rust-mode-config)
|
|
(add-hook 'rust-mode-hook 'racer-mode)
|
|
(add-hook 'rust-mode-hook 'flycheck-mode)
|
|
(add-hook 'rust-mode-hook 'set-width-99)
|
|
|
|
;;; SQL
|
|
(defun sql-mode-hook ()
|
|
"Editor setup for SQL."
|
|
(remove-hook 'ruby-mode-hook 'ruby-mode-config)
|
|
(remove-hook 'elixir-mode-hook 'elixir-mode-config)
|
|
(remove-hook 'emacs-lisp-mode-hook 'elisp-mode-config)
|
|
(remove-hook 'html-mode-hook 'web-mode-config)
|
|
(remove-hook 'haskell-mode-hook 'haskell-mode-config)
|
|
(remove-hook 'java-mode-hook 'java-mode-config)
|
|
|
|
(set-indent 4))
|
|
|
|
(add-hook 'sql-mode-hook 'flycheck-mode)
|
|
(add-hook 'sql-mode-hook 'set-width-120)
|
|
|
|
;;; Elixir
|
|
;; Note: there is no flycheck support for Elixir yet
|
|
(require 'alchemist)
|
|
(defun elixir-mode-config ()
|
|
"Call elixir mode config."
|
|
(remove-hook 'ruby-mode-hook 'ruby-mode-config)
|
|
(remove-hook 'rust-mode-hook 'rust-mode-config)
|
|
(remove-hook 'emacs-lisp-mode-hook 'elisp-mode-config)
|
|
(remove-hook 'html-mode-hook 'web-mode-config)
|
|
(remove-hook 'haskell-mode-hook 'haskell-mode-config)
|
|
(remove-hook 'java-mode-hook 'java-mode-config)
|
|
|
|
(set-indent 2))
|
|
|
|
(add-hook 'elixir-mode-hook 'elixir-mode-config)
|
|
(add-hook 'elixir-mode-hook 'alchemist-mode)
|
|
(add-hook 'elixir-mode-hook 'ruby-end-mode)
|
|
(add-hook 'elixir-mode-hook 'set-width-80)
|
|
|
|
;;; Haskell
|
|
(defun haskell-mode-config ()
|
|
"Call haskell mode config."
|
|
(remove-hook 'ruby-mode-hook 'ruby-mode-config)
|
|
(remove-hook 'rust-mode-hook 'rust-mode-config)
|
|
(remove-hook 'emacs-lisp-mode-hook 'elisp-mode-config)
|
|
(remove-hook 'html-mode-hook 'web-mode-config)
|
|
(remove-hook 'elixir-mode-hook 'elixir-mode-config)
|
|
|
|
(set-indent 4))
|
|
|
|
(add-hook 'haskell-mode-hook 'haskell-mode-config)
|
|
(add-hook 'haskell-mode-hook 'flycheck-mode)
|
|
(add-hook 'haskell-mode-hook 'set-width-80)
|
|
|
|
;;; Java
|
|
(defun java-mode-config ()
|
|
"Setup editor for java."
|
|
(remove-hook 'ruby-mode-hook 'ruby-mode-config)
|
|
(remove-hook 'elixir-mode-hook 'elixir-mode-config)
|
|
(remove-hook 'emacs-lisp-mode-hook 'elisp-mode-config)
|
|
(remove-hook 'html-mode-hook 'web-mode-config)
|
|
(remove-hook 'haskell-mode-hook 'haskell-mode-config)
|
|
(remove-hook 'rust-mode-hook 'rust-mode-config)
|
|
|
|
(set-indent 2))
|
|
|
|
(add-hook 'rust-mode-hook 'java-mode-config)
|
|
(add-hook 'java-mode-hook 'flycheck-mode)
|
|
(add-hook 'java-mode-hook 'set-width-120)
|
|
;;;; Other things ;;;;;
|
|
;;; Javascript
|
|
(setq js-indent-level 2)
|
|
|
|
;;; Web-mode
|
|
(require 'web-mode)
|
|
(defun web-mode-config ()
|
|
"Setup web mode."
|
|
(remove-hook 'rust-mode-hook 'rust-mode-config)
|
|
(remove-hook 'ruby-mode-hook 'ruby-mode-config)
|
|
(remove-hook 'elixir-mode-hook 'elixir-mode-config)
|
|
(remove-hook 'java-mode-hook 'java-mode-config)
|
|
|
|
(flycheck-mode 1)
|
|
(set-indent 2))
|
|
|
|
(add-hook 'html-mode-hook 'web-mode)
|
|
(add-hook 'html-mode-hook 'web-mode-config)
|
|
(add-hook 'html-mode-hook 'set-width-120)
|
|
|
|
(setq web-mode-markup-indent-offset 2)
|
|
(setq web-mode-code-indent-offset 2)
|
|
|
|
;; CSS-mode
|
|
(setq css-indent-offset 2)
|
|
|
|
;; Markdown mode
|
|
(defun markdown-mode-config ()
|
|
"Setup markdown mode."
|
|
(set-indent 2))
|
|
|
|
(add-hook 'markdown-mode-hook 'markdown-mode-config)
|
|
(add-hook 'markdown-mode-hook 'set-width-80)
|
|
|
|
;; Shell things
|
|
(defun shell-mode-config ()
|
|
"Setup shell mode."
|
|
)
|
|
|
|
(setq ansi-color-for-comint-mode t) ;; Properly display colors in shell mode
|
|
(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)
|
|
;;; languages.el ends here
|