Refactor :electric setting

This commit is contained in:
Henrik Lissner 2017-02-20 20:55:21 -05:00
parent a841b3ce99
commit afc5b622bb
8 changed files with 10 additions and 10 deletions

View file

@ -33,7 +33,7 @@
(add-hook 'c++-mode-hook '+cc|extra-fontify-c++) (add-hook 'c++-mode-hook '+cc|extra-fontify-c++)
(@set :electric '(c-mode c++-mode objc-mode java-mode) (@set :electric '(c-mode c++-mode objc-mode java-mode)
:chars ?\n ?\}) :chars '(?\n ?\}))
(@set :company-backend (@set :company-backend
'(c-mode c++-mode objc-mode) '(c-mode c++-mode objc-mode)

View file

@ -15,12 +15,12 @@
(@def-package yaml-mode (@def-package yaml-mode
:mode "\\.ya?ml$" :mode "\\.ya?ml$"
:config :config
(@set :electric 'yaml-mode :chars ?\n ?\: ?\-)) (@set :electric 'yaml-mode :chars '(?\n ?\: ?\-)))
(@def-package json-mode :mode "\\.js\\(on\\|[hl]int\\(rc\\)?\\)$" (@def-package json-mode :mode "\\.js\\(on\\|[hl]int\\(rc\\)?\\)$"
:config :config
(@set :electric 'json-mode :chars ?\n ?: ?{ ?})) (@set :electric 'json-mode :chars '(?\n ?: ?{ ?})))
(@def-package vimrc-mode (@def-package vimrc-mode

View file

@ -7,7 +7,7 @@
(add-hook 'lua-mode-hook 'flycheck-mode) (add-hook 'lua-mode-hook 'flycheck-mode)
:config :config
(@set :company-backend 'lua-mode '(company-lua company-yasnippet)) (@set :company-backend 'lua-mode '(company-lua company-yasnippet))
(@set :electric 'lua-mode :words "else" "end") (@set :electric 'lua-mode :words '("else" "end"))
(@set :repl 'lua-mode '+lua/repl) (@set :repl 'lua-mode '+lua/repl)
;; sp's lua-specific rules are obnoxious, so we disable them ;; sp's lua-specific rules are obnoxious, so we disable them

View file

@ -11,7 +11,7 @@
markdown-gfm-additional-languages '("sh")) markdown-gfm-additional-languages '("sh"))
:config :config
(@set :electric 'markdown-mode :chars "+" "#") (@set :electric 'markdown-mode :chars '(?+ ?#))
(@add-hook markdown-mode (@add-hook markdown-mode
(auto-fill-mode +1) (auto-fill-mode +1)

View file

@ -9,7 +9,7 @@
:config :config
(@set :build 'rake 'ruby-mode '+ruby/rake) (@set :build 'rake 'ruby-mode '+ruby/rake)
(@set :company-backend 'ruby-mode '(company-dabbrev-code)) (@set :company-backend 'ruby-mode '(company-dabbrev-code))
(@set :electric 'ruby-mode :words "else" "end" "elseif") (@set :electric 'ruby-mode :words '("else" "end" "elseif"))
(@set :repl 'ruby-mode 'inf-ruby) (@set :repl 'ruby-mode 'inf-ruby)
(setq ruby-deep-indent-paren t) (setq ruby-deep-indent-paren t)
;; Don't interfere with my custom RET behavior ;; Don't interfere with my custom RET behavior

View file

@ -7,7 +7,7 @@
(@add-hook sh-mode '(flycheck-mode highlight-numbers-mode +sh|extra-fontify)) (@add-hook sh-mode '(flycheck-mode highlight-numbers-mode +sh|extra-fontify))
:config :config
(@set :company-backend 'sh-mode '(company-shell)) (@set :company-backend 'sh-mode '(company-shell))
(@set :electric 'sh-mode :words "else" "elif" "fi" "done" "then" "do" "esac" ";;") (@set :electric 'sh-mode :words '("else" "elif" "fi" "done" "then" "do" "esac" ";;"))
(@set :repl 'sh-mode '+sh/repl) (@set :repl 'sh-mode '+sh/repl)
(setq sh-indent-after-continuation 'always) (setq sh-indent-after-continuation 'always)

View file

@ -6,7 +6,7 @@
(add-hook 'typescript-mode-hook 'rainbow-delimiters-mode) (add-hook 'typescript-mode-hook 'rainbow-delimiters-mode)
:config :config
(@set :company-backend 'typescript-mode '(company-tide)) (@set :company-backend 'typescript-mode '(company-tide))
(@set :electric 'typescript-mode :chars ?\} ?\) :words "||" "&&") (@set :electric 'typescript-mode :chars '(?\} ?\)) :words '("||" "&&"))
;; TODO emr definitions for: ;; TODO emr definitions for:
;; + tide-jump-back ;; + tide-jump-back

View file

@ -23,8 +23,8 @@
trigger electric indentation." trigger electric indentation."
(declare (indent 1)) (declare (indent 1))
(let ((modes (if (listp modes) modes (list modes))) (let ((modes (if (listp modes) modes (list modes)))
(chars (doom-mplist-get plist :chars)) (chars (plist-get plist :chars))
(words (doom-mplist-get plist :words))) (words (plist-get plist :words)))
(when (or chars words) (when (or chars words)
(let ((fn-name (intern (format "doom--electric-%s" (s-join "-" (mapcar 'symbol-name modes)))))) (let ((fn-name (intern (format "doom--electric-%s" (s-join "-" (mapcar 'symbol-name modes))))))
`(progn `(progn