Giới thiệu tính toán-lisp-indent
Một giải pháp tốt hơn là ghi đè chức năng calculate-lisp-indent. Tóm lại, calculate-lisp-indentlà một hàm trả về cột mà một dòng tại điểm nên được thụt vào. Chức năng này là những gì cho lisp-indent-functionbiết mỗi dòng nên được thụt vào bao nhiêu. (xem thêm bài viết của tôi trên reddit để biết thêm thông tin).
So sánh với các câu trả lời khác
Ưu điểm mà câu trả lời này có được khi sử dụng chức năng đã sửa đổi của Fuco1 là (1) nó khắc phục được gốc rễ của vấn đề nằm ở calculate-lisp-indentđó thay vì chỉ dọn dẹp sau khi thụt lề sai được trả về bởi calculate-lisp-indent(2) nó khái quát thành các danh sách được trích dẫn và trích dẫn lại (và nó hoạt động cho dù chúng được trích dẫn / trích dẫn rõ ràng hoặc với 'và `). Nó cũng hoạt động với các trích dẫn và backquote lồng nhau tùy ý.
Ưu điểm của câu trả lời này là thay thế lisp-indent-functionbằng common-lisp-indent-functionchức năng là nó không có tác dụng phụ làm rối tung các vết lõm khác. Elisp và common-lisp được thụt lề khác nhau.
Làm thế nào nó hoạt động
Điều kiện (trong calculate-lisp-indent) này là điều quyết định xem một sexp có được thụt vào như một hàm hay không. Những gì rơi vào mệnh đề khác của nó được thụt vào như một hàm. Điều gì rơi vào mệnh đề if, được thụt lề bình thường (theo phần tử hiện tại). Để làm cho nó thụt vào danh sách được trích dẫn dưới dạng dữ liệu thay vì dưới dạng hàm, chúng ta cần thêm kiểm tra thêm cho các trường hợp danh sách được trích dẫn trong vị từ có điều kiện.
(if (= (point) calculate-lisp-indent-last-sexp)
;; Containing sexp has nothing before this line
;; except the first element. Indent under that element.
nil
;; Skip the first element, find start of second (the first
;; argument of the function call) and indent under.
(progn (forward-sexp 1)
(parse-partial-sexp (point)
calculate-lisp-indent-last-sexp
0 t)))
Mã này kiểm tra các dấu ngoặc đơn mở của sexp đang được thụt lề. Nếu đó là sexp với nhiều sexp, nó sẽ kiểm tra tất cả. Nó trả về t nếu nó tìm thấy bất kỳ giới tính được trích dẫn hoặc trích dẫn.
(let* ((positions (elt state 9))
(last (car (last positions)))
(rest (nreverse (butlast positions)))
(any-quoted-p nil)
(point nil))
(or
(when-let (char last)
(or (char-equal char ?')
(char-equal char ?`)))
(while (and rest (not any-quoted-p))
(setq point (pop rest))
(setq any-quoted-p
(or
(when-let (char point)
(or (char-equal char ?')
(char-equal char ?`)))
(save-excursion
(goto-char (1+ point))
(looking-at-p "\\(?:back\\)?quote[\t\n\f\s]+(")))))))
Tặng kem
Nếu bạn muốn bất kỳ danh sách nào bắt đầu bằng từ khóa được thụt vào dưới dạng dữ liệu ngay cả khi nó không được trích dẫn, hãy thêm danh sách này dưới dạng kiểm tra khác vào vị từ có điều kiện. Điều này có thể hữu ích cho các macro trong đó các giá trị không được trích dẫn để thuận tiện như trong defhydra .
(when-let (char-after (char-after (1+ containing-sexp)))
(char-equal char-after ?:))
Ví dụ
Đoạn mã đầy đủ tôi đã đăng dưới đây hoạt động với trường hợp bạn đã đề cập và hơn thế nữa. Hãy thử nó!
;; Your example
`(:token ,token
:token-quality ,quality)
;; Other cool examples
(quote (hi im gosu
the best vayne player))
'(i am the phantom of
the opera)
'((angel of music
hide no longer))
(backquote (past the point
no return
... the final chapter))
`(fee fi fo
fum)
;; should indent it like a function.
(iamafunction arg1
arg2
arg3)
Để được giải thích sâu hơn về cách thức hoạt động của nó, hãy xem bài đăng của tôi trên reddit .
Đoạn mã đầy đủ
Đây là đoạn mã đầy đủ.
(advice-add #'calculate-lisp-indent :override #'void~calculate-lisp-indent)
(defun void~calculate-lisp-indent (&optional parse-start)
"Add better indentation for quoted and backquoted lists."
;; This line because `calculate-lisp-indent-last-sexp` was defined with `defvar`
;; with it's value ommited, marking it special and only defining it locally. So
;; if you don't have this, you'll get a void variable error.
(defvar calculate-lisp-indent-last-sexp)
(save-excursion
(beginning-of-line)
(let ((indent-point (point))
state
;; setting this to a number inhibits calling hook
(desired-indent nil)
(retry t)
calculate-lisp-indent-last-sexp containing-sexp)
(cond ((or (markerp parse-start) (integerp parse-start))
(goto-char parse-start))
((null parse-start) (beginning-of-defun))
(t (setq state parse-start)))
(unless state
;; Find outermost containing sexp
(while (< (point) indent-point)
(setq state (parse-partial-sexp (point) indent-point 0))))
;; Find innermost containing sexp
(while (and retry
state
(> (elt state 0) 0))
(setq retry nil)
(setq calculate-lisp-indent-last-sexp (elt state 2))
(setq containing-sexp (elt state 1))
;; Position following last unclosed open.
(goto-char (1+ containing-sexp))
;; Is there a complete sexp since then?
(if (and calculate-lisp-indent-last-sexp
(> calculate-lisp-indent-last-sexp (point)))
;; Yes, but is there a containing sexp after that?
(let ((peek (parse-partial-sexp calculate-lisp-indent-last-sexp
indent-point 0)))
(if (setq retry (car (cdr peek))) (setq state peek)))))
(if retry
nil
;; Innermost containing sexp found
(goto-char (1+ containing-sexp))
(if (not calculate-lisp-indent-last-sexp)
;; indent-point immediately follows open paren.
;; Don't call hook.
(setq desired-indent (current-column))
;; Find the start of first element of containing sexp.
(parse-partial-sexp (point) calculate-lisp-indent-last-sexp 0 t)
(cond ((looking-at "\\s(")
;; First element of containing sexp is a list.
;; Indent under that list.
)
((> (save-excursion (forward-line 1) (point))
calculate-lisp-indent-last-sexp)
;; This is the first line to start within the containing sexp.
;; It's almost certainly a function call.
(if (or
;; Containing sexp has nothing before this line
;; except the first element. Indent under that element.
(= (point) calculate-lisp-indent-last-sexp)
;; First sexp after `containing-sexp' is a keyword. This
;; condition is more debatable. It's so that I can have
;; unquoted plists in macros. It assumes that you won't
;; make a function whose name is a keyword.
;; (when-let (char-after (char-after (1+ containing-sexp)))
;; (char-equal char-after ?:))
;; Check for quotes or backquotes around.
(let* ((positions (elt state 9))
(last (car (last positions)))
(rest (reverse (butlast positions)))
(any-quoted-p nil)
(point nil))
(or
(when-let (char (char-before last))
(or (char-equal char ?')
(char-equal char ?`)))
(progn
(while (and rest (not any-quoted-p))
(setq point (pop rest))
(setq any-quoted-p
(or
(when-let (char (char-before point))
(or (char-equal char ?')
(char-equal char ?`)))
(save-excursion
(goto-char (1+ point))
(looking-at-p
"\\(?:back\\)?quote[\t\n\f\s]+(")))))
any-quoted-p))))
;; Containing sexp has nothing before this line
;; except the first element. Indent under that element.
nil
;; Skip the first element, find start of second (the first
;; argument of the function call) and indent under.
(progn (forward-sexp 1)
(parse-partial-sexp (point)
calculate-lisp-indent-last-sexp
0 t)))
(backward-prefix-chars))
(t
;; Indent beneath first sexp on same line as
;; `calculate-lisp-indent-last-sexp'. Again, it's
;; almost certainly a function call.
(goto-char calculate-lisp-indent-last-sexp)
(beginning-of-line)
(parse-partial-sexp (point) calculate-lisp-indent-last-sexp
0 t)
(backward-prefix-chars)))))
;; Point is at the point to indent under unless we are inside a string.
;; Call indentation hook except when overridden by lisp-indent-offset
;; or if the desired indentation has already been computed.
(let ((normal-indent (current-column)))
(cond ((elt state 3)
;; Inside a string, don't change indentation.
nil)
((and (integerp lisp-indent-offset) containing-sexp)
;; Indent by constant offset
(goto-char containing-sexp)
(+ (current-column) lisp-indent-offset))
;; in this case calculate-lisp-indent-last-sexp is not nil
(calculate-lisp-indent-last-sexp
(or
;; try to align the parameters of a known function
(and lisp-indent-function
(not retry)
(funcall lisp-indent-function indent-point state))
;; If the function has no special alignment
;; or it does not apply to this argument,
;; try to align a constant-symbol under the last
;; preceding constant symbol, if there is such one of
;; the last 2 preceding symbols, in the previous
;; uncommented line.
(and (save-excursion
(goto-char indent-point)
(skip-chars-forward " \t")
(looking-at ":"))
;; The last sexp may not be at the indentation
;; where it begins, so find that one, instead.
(save-excursion
(goto-char calculate-lisp-indent-last-sexp)
;; Handle prefix characters and whitespace
;; following an open paren. (Bug#1012)
(backward-prefix-chars)
(while (not (or (looking-back "^[ \t]*\\|([ \t]+"
(line-beginning-position))
(and containing-sexp
(>= (1+ containing-sexp) (point)))))
(forward-sexp -1)
(backward-prefix-chars))
(setq calculate-lisp-indent-last-sexp (point)))
(> calculate-lisp-indent-last-sexp
(save-excursion
(goto-char (1+ containing-sexp))
(parse-partial-sexp (point) calculate-lisp-indent-last-sexp 0 t)
(point)))
(let ((parse-sexp-ignore-comments t)
indent)
(goto-char calculate-lisp-indent-last-sexp)
(or (and (looking-at ":")
(setq indent (current-column)))
(and (< (line-beginning-position)
(prog2 (backward-sexp) (point)))
(looking-at ":")
(setq indent (current-column))))
indent))
;; another symbols or constants not preceded by a constant
;; as defined above.
normal-indent))
;; in this case calculate-lisp-indent-last-sexp is nil
(desired-indent)
(t
normal-indent))))))
Ghi chú cuối cùng
Điều đáng chú ý là câu hỏi này sẽ được khái quát hóa tốt hơn khi làm thế nào để ngăn chặn các emacs khỏi thụt lề danh sách trích dẫn và không trích dẫn dưới dạng hàm .