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 'closure-template-html-mode)
  13 (setq sgml-basic-offset 4)
  14
  15 (require 'coffee-mode)
  16 (setq coffee-tab-width 4)
  17
  18 (require 'dockerfile-mode)
  19
  20 (require 'git-modes)
  21
  22 (require 'groovy-mode)
  23 (add-to-list 'auto-mode-alist '("\\.groovy\\'" . groovy-mode))
  24
  25 (require 'haskell-mode)
  26
  27 (require 'json-mode)
  28 (require 'js)
  29 (require 'js2-mode)
  30 (require 'typescript-mode)
  31 (require 'tide)
  32 (add-to-list 'auto-mode-alist '("\\.js\\'" . js2-mode))
  33 (add-to-list 'interpreter-mode-alist '("node" . js2-mode))
  34 (setq js2-concat-multiline-strings 'eol)
  35 (setq js2-highlight-external-variables nil)
  36 (setq js2-mode-show-parse-errors nil)
  37 (setq js2-mode-show-strict-warnings nil)
  38 (setq js--declaration-keyword-re "x^") ; declarations should have normal indentation
  39 (setq js-indent-align-list-continuation nil)
  40
  41 (add-hook 'js2-mode-hook #'tide-setup)
  42 (add-hook 'js2-mode-hook #'js2-refactor-mode)
  43 (add-hook 'typescript-mode-hook #'tide-setup)
  44 (add-hook 'typescript-mode-hook #'js2-refactor-mode)
  45
  46 (defun tide-project-root ()
  47   (or
  48    tide-project-root
  49    (let ((root (or (locate-dominating-file default-directory "tsconfig.json")
  50                    (locate-dominating-file default-directory "jsconfig.json")
  51                    (locate-dominating-file default-directory ".git")
  52                    (locate-dominating-file default-directory "package.json"))))
  53      (unless root
  54        (message (tide-join (list "Couldn't locate JavaScript project root folder. Using '" default-directory "' as project root.")))
  55        (setq root default-directory))
  56      (let ((full-path (expand-file-name root)))
  57        (setq tide-project-root full-path)
  58        full-path))))
  59
  60 (require 'js2-refactor)
  61 (js2r-add-keybindings-with-prefix "C-c C-m")
  62 (setq js2r-always-insert-parens-around-arrow-function-params t)
  63 (setq js2r-prefered-quote-type 2)
  64
  65 (require 'rjsx-mode)
  66
  67
  68 (require 'ledger-mode nil 'noerror)
  69 (add-to-list 'auto-mode-alist '("\\.ledger\\'" . ledger-mode))
  70 (setq ledger-post-amount-alignment-column 72)
  71 (setq ledger-reconcile-default-commodity "AUD")
  72 (setq ledger-clear-whole-transactions t)
  73
  74 (require 'markdown-mode)
  75 (setq markdown-command "markdown_py -x markdown.extensions.smart_strong -x markdown.extensions.fenced_code -x markdown.extensions.nl2br")
  76 (add-to-list 'auto-mode-alist '("\\.mdown\\'" . markdown-mode) t)
  77
  78 (require 'pkgbuild-mode)
  79
  80 (require 'python)
  81 (add-hook 'python-mode-hook
  82           (lambda ()
  83             (setq forward-sexp-function nil)
  84             (set (make-local-variable 'python-indent-offset) 4)))
  85
  86
  87 (require 'scala-mode)
  88
  89 (require 'slime)
  90 (setq inferior-lisp-program "sbcl")
  91
  92 (require 'sh-script)
  93 (setq sh-use-smie nil)
  94
  95 (require 'ssh-file-modes)
  96
  97 (when (require 'stumpwm-mode nil 'noerror)
  98   (add-to-list 'auto-mode-alist '("/\\.stumpwmrc\\'" . stumpwm-mode)))
  99
 100 (require 'wgrep)
 101 (setq wgrep-auto-save-buffer t)
 102
 103 (require 'yaml-mode)