Emacs 中的自动缩进 Javascript 代码（bsd 风格又名 Allman 风格）答案

【问题标题】：Auto indent Javascript code in Emacs (bsd style aka Allman style)Emacs 中的自动缩进 Javascript 代码（bsd 风格又名 Allman 风格）
【发布时间】：2017-06-08 10:15:45
【问题描述】：

我无法将 Emacs 设置为使用 Javascript。当我按下“{”和“}”时，我希望 Emacs 自动缩进。当我在 C 上编写代码时，它工作得非常好。当我按“}”时，括号取代了它的位置。我希望看到这样的东西：

very good styles

但我明白了：

it's my problem here

我不明白为什么括号仍然存在。

您能告诉我，我该怎么做才能使它正确吗？

我想，我需要在我的 .emacs 文件中添加一些东西，不是吗？

这是我的 .emacs：

(setq c-default-style "bsd" 
      c-basic-offset 4)
(setq-default c-basic-offset 4
              tab-width 4
              indent-tabs-mode nil)

(setq make-backup-files nil
      auto-save-default nil
      auto-save-list-file-name nil)


(global-set-key (kbd "RET") 'newline-and-indent)                           

(show-paren-mode t) ; Highlight expression between {}, (), []
(setq show-paren-style 'parenthesis) ; parenthesis | expression | mixed

(add-hook 'html-mode-hook
            (lambda ()
                  ;; Default indentation is usually 2 spaces, changing to 4.
                  (set (make-local-variable 'sgml-basic-offset) 2)
                  (setq tab-width 2)
            )
)

(setq font-lock-maximum-decoration
      '((html-mode . 1)))

(setq column-number-mode t)

;(electric-pair-mode t)
;(setq electric-pair-preserve-balance nil)
;(electric-indent-mode -1)


; 80 letters rule (highlight)
(setq-default
  whitespace-line-column 78
   whitespace-style       '(face lines-tail))
(add-hook 'prog-mode-hook #'whitespace-mode) ; only if I write code
(add-hook 'text-mode-hook #'whitespace-mode) ; and the other cases

; Use all c-mode settings when I code on javascript (indent, tab-width, ...)
;(add-hook 'js-mode-hook 'c-mode)

;(add-hook 'js-mode-hook #'c-default-style)

;(add-to-list 'auto-mode-alist '("\\.js\\'" . c-mode))

【问题讨论】：

你是用自带的js-mode还是other js modes？
我想说你的(global-set-key (kbd "RET") 'newline-and-indent) 行可能有问题。你可以试试没有吗？（之后，indent-according-to-mode ？）
内置js模式。

标签： javascript emacs indentation auto-indent

【解决方案1】：

试试 js2 模式。那有更好的风格和缩进。顺便说一句，您可能不应该像这样在 .emacs 中编写所有内容。文件结构可能类似于

|.emacs
| -- <your mode files.el>

我有自己的 .emacs 和帮助文件：

https://bitbucket.org/tdatta/ansible_plays

它在

roles--> emacs --> files

您可以查看一个以供参考。它并不完美，但结构仍然更好。

【讨论】：

我试过了。同样的结果。更丰富的突出显示，但括号不动。
嗯不知道你为什么会有那个。我在 windows 和 linux 都试过了，似乎工作正常。如果您可以提供更多信息（emacs + 平台版本）并链接您的 .emacs，那么任何人都可以更轻松地为您提供具体答案。

【解决方案2】：

我找不到任何内置函数或现成的解决方案，所以我阅读了 emacs 文档并编写了自己的 emacs-lisp 函数。也许有人会需要它。

(global-set-key (kbd "RET") 'newline-and-indent)

(add-hook 'js-mode-hook
    (lambda()
        (local-set-key (kbd "{")
            (lambda() (interactive)
                (my-bsd-lparen-align)
                (insert "{")
            )
        )
        (local-set-key (kbd "}")
            (lambda() (interactive)
                (insert "}")
                (indent-according-to-mode)
                ;(c-indent-command)                                             
            )
        )
    )
)


(defun my-bsd-lparen-align()
    (skip-chars-forward " \t")
    (setq cur_pos (point))
    (my-line-begin)
    (setq new_pos (point))
    (goto-char cur_pos)
    (if (eq cur_pos new_pos)
        (__my-bsd-lparen-put)
    )
)

(defun my-line-begin()
    (beginning-of-line)
    (skip-chars-forward " \t")
    (current-column)
)

(defun __my-bsd-lparen-put()
    (setq init_pos (point))
    (setq cur_start (my-line-begin))
    (forward-line -1)
    (setq block_start (my-line-begin))
    (setq diff (- cur_start block_start))
    (goto-char init_pos)
    (if (>= diff 0)
        (delete-backward-char diff)
        (loop for i from 1 to (- diff) do (insert " "))
    )
)

【讨论】：