code.delx.au - dotemacs/blob - lisp/my-file-modes.el

   1 ;;; -*- lexical-binding: t -*-
   2
   3 (setq-default indent-tabs-mode nil)
   4 (setq-default require-final-newline t)
   5
   6 (require 'cc-mode)
   7 (setq c-auto-align-backslashes nil)
   8 (setq c-default-style '((java-mode . "java")
   9                         (awk-mode . "awk")
  10                         (other . "stroustrup")))
  11
  12 (require 'coffee-mode)
  13 (setq coffee-tab-width 4)
  14
  15 (require 'dockerfile-mode)
  16
  17 (require 'git-modes)
  18
  19 (require 'groovy-mode)
  20 (add-to-list 'auto-mode-alist '("\\.groovy\\'" . groovy-mode))
  21
  22 (require 'haskell-mode)
  23
  24 (require 'json-mode)
  25 (require 'js)
  26 (add-hook 'json-mode-hook
  27           (lambda ()
  28             (set (make-local-variable 'js-indent-level) 2)))
  29
  30 (require 'js2-mode)
  31 (add-to-list 'auto-mode-alist '("\\.js\\'" . js2-mode))
  32 (add-to-list 'interpreter-mode-alist '("node" . js2-mode))
  33 (setq js2-concat-multiline-strings 'eol)
  34 (setq js2-highlight-external-variables nil)
  35 (setq js2-mode-show-parse-errors nil)
  36 (setq js2-mode-show-strict-warnings nil)
  37 (setq js--declaration-keyword-re "x^") ; declarations should have normal indentation
  38 (when (require 'tern nil 'noerror)
  39   (add-hook 'js2-mode-hook (lambda () (tern-mode t))))
  40
  41 (require 'markdown-mode)
  42 (define-key markdown-mode-map (kbd "M-{") 'markdown-beginning-of-block)
  43 (define-key markdown-mode-map (kbd "M-}") 'markdown-end-of-block)
  44 (setq markdown-command "markdown_py -x markdown.extensions.smart_strong -x markdown.extensions.fenced_code -x markdown.extensions.nl2br")
  45 (add-to-list 'auto-mode-alist '("\\.mdown\\'" . markdown-mode) t)
  46
  47 (require 'pkgbuild-mode)
  48
  49 (require 'python)
  50 (add-hook 'python-mode-hook
  51           (lambda ()
  52             (setq forward-sexp-function nil)
  53             (set (make-local-variable 'python-indent-offset) 4)))
  54
  55
  56 (require 'scala-mode)
  57
  58 (require 'slime)
  59 (setq inferior-lisp-program "sbcl")
  60
  61 (require 'ssh-file-modes)
  62
  63 (when (require 'stumpwm-mode nil 'noerror)
  64   (add-hook 'find-file-hook
  65             (lambda ()
  66               (when (string=
  67                      ".stumpwmrc"
  68                      (file-name-nondirectory (buffer-file-name)))
  69                 (stumpwm-mode)))))
  70
  71 (require 'yaml-mode)