Emacs 23.2 включает в себя js-mode, переименованный и обновленный Espresso. Я просто сделал "indent-region" для вашего кода с ошибками и получил это:
var o = { foo : 'bar'
, baz : 'foo'
}
, p
, q = new Squash( o
, { start: 0
, limit: 50
}
)
Я думаю, это не совсем то, что вы хотите. Запятые смещены по-другому, чем вам, вероятно, нравится.
(Черт возьми, это ужасно.)
EDIT
Хорошо, я заглянул в js-mode, и отступ, похоже, сделан с помощью js--proper-indentation
. Он смотрит на текущую строку, а затем пытается принять решение о том, как сделать отступ.
У него есть куча условий, которые он тестирует, для различных синтаксических паттернов. Я просто проверил строку, начинающуюся с запятой, и получил следующие результаты:
var o = { foo : 'bar'
, baz : 'foo'
}
, p
, q = new Squash( o
, { start: 0
, limit: 50
}
)
Я думаю, что это то, что вы хотите, но это все еще выглядит совершенно сломленным для меня. Во всяком случае, так я это сделал.
Вставить этот cond в верхнюю часть списка для js--proper-indentation
:
(defun js--proper-indentation (parse-status)
"Return the proper indentation for the current line."
(save-excursion
(back-to-indentation)
(cond
((looking-at ",")
(let ((spos
(save-excursion
(while (looking-back "}[\t\n ]*")
(backward-sexp)
(if (looking-back ",[\t\n ]*")
(re-search-backward ",[\t\n ]*")))
(cond
((looking-back "\\(,\\|(\\)[ \t]*\\<\\([^:=\n\t ]+\\)[ \t\n]*")
(re-search-backward "\\(,\\|(\\)[ \t]*\\<\\([^:=\n\t ]+\\)[ \t\n]*" (point-min) t)
(+ (current-column) 2))
((re-search-backward "\\<\\([^:=\n\t ]+\\)[ \t]*\\(:\\|=\\)" (point-min) t)
(current-column))
(t
nil)))))
(if spos
(- spos 2)
(+ js-indent-level js-expr-indent-offset))))
....
Обязательно соблюдайте остальные условия в этом defun - я не знаю, что они делают, но они, вероятно, важны.
Не знаю, насколько это надежно, я не проверял его, за исключением одного теста. Но ты должен начать.