Emacs thụt đầu dòng thích hợp?

Question

Thụt lề hiện tại cho cl-flet có vẻ thực sự xấu với tôi. Xem ví dụ:

(defun foo (lst) 
    (cl-flet ((unusually-long-bar (x) 
           (1+ x) 
           (1+ x) 
           (1+ x))) 
    (mapcar #'unusually-long-bar lst))) 

tôi muốn đặt nó vào một cái gì đó hợp lý hơn, như:

(defun foo (lst) 
    (cl-flet ((unusually-long-bar (x) 
       (1+ x) 
       (1+ x) 
       (1+ x))) 
    (mapcar #'unusually-long-bar lst))) 

Làm thế nào tôi có thể làm điều này?

Answer 1

Sau đây nên làm việc:

(setq lisp-indent-function 'common-lisp-indent-function) 
(eval-after-load "cl-indent" 
    '(progn 

    (put 'cl-flet 'common-lisp-indent-function 
    (get 'flet 'common-lisp-indent-function)) 

    )) 

Answer 2

Bằng cách thêm vào câu trả lời Sabof của, đây là một đoạn mà các bản sao quy tắc thụt vào từ tất cả những biểu tượng Common Lisp để cl- tiền tố tương đương Emacs của họ, khi sau này tồn tại:

(load-library "cl-indent") ; defines the common-lisp-indent-function properties 
(cl-loop for symbol being the symbols 
     for cl-indent-rule = (get symbol 'common-lisp-indent-function) 
     for elisp-equivalent = (intern-soft (concat "cl-" (symbol-name symbol))) 
     when (and cl-indent-rule elisp-equivalent (fboundp elisp-equivalent)) 
     do (put elisp-equivalent 'common-lisp-indent-function cl-indent-rule))