Làm cách nào để phát hiện nếu ký tự hiện tại là ký tự nhận xét cho chế độ chính đó?

Tôi đang làm việc với chức năng nhỏ này kéo dòng tiếp theo lên dòng hiện tại. Tôi muốn thêm một chức năng để nếu dòng hiện tại là một nhận xét dòng và dòng tiếp theo cũng là một nhận xét dòng, thì các ký tự nhận xét sẽ bị xóa sau hành động "kéo lên".

Thí dụ:

Trước

;; comment 1▮
;; comment 2

Gọi điện thoại M-x modi/pull-up-line

Sau

;; comment 1▮comment 2

Lưu ý rằng các ;;ký tự được loại bỏ trước đó comment 2.

(defun modi/pull-up-line ()
  "Join the following line onto the current one (analogous to `C-e', `C-d') or
`C-u M-^' or `C-u M-x join-line'.

If the current line is a comment and the pulled-up line is also a comment,
remove the comment characters from that line."
  (interactive)
  (join-line -1)
  ;; If the current line is a comment
  (when (nth 4 (syntax-ppss))
    ;; Remove the comment prefix chars from the pulled-up line if present
    (save-excursion
      (forward-char)
      (while (looking-at "/\\|;\\|#")
        (delete-forward-char 1))
      (when (looking-at "\\s-")
        (delete-forward-char 1)))))

Hàm trên hoạt động nhưng hiện tại, bất kể chế độ chính, nó sẽ xem xét /hoặc ;hoặc #là một ký tự nhận xét : (looking-at "/\\|;\\|#").

Tôi muốn làm cho dòng này thông minh hơn; chế độ chính cụ thể.

Giải pháp

Nhờ giải pháp của @ericstokes, tôi tin rằng hiện tại bên dưới bao gồm tất cả các trường hợp sử dụng của tôi :)

(defun modi/pull-up-line ()
  "Join the following line onto the current one (analogous to `C-e', `C-d') or
`C-u M-^' or `C-u M-x join-line'.

If the current line is a comment and the pulled-up line is also a comment,
remove the comment characters from that line."
  (interactive)
  (join-line -1)
  ;; If the current line is a comment
  (when (nth 4 (syntax-ppss))
    ;; Remove the comment prefix chars from the pulled-up line if present
    (save-excursion
      (forward-char)
      ;; Delete all comment-start or space characters
      (while (looking-at (concat "\\s<" ; comment-start char as per syntax table
                                 "\\|" (substring comment-start 0 1) ; first char of `comment-start'
                                 "\\|" "\\s-")) ; extra spaces
        (delete-forward-char 1)))))

Bạn có thể kiểm tra xem ký tự hiện tại có phải là ký tự nhận xét hay không bằng cách sử dụng bảng cú pháp : (looking-at "\\s<"). Regrec \\s<sẽ khớp bất kỳ ký tự nào với cú pháp "bình luận bắt đầu"; \\s>sẽ khớp với những người có cú pháp "bình luận kết thúc".

Một tùy chọn khác là biến comment-start, đó là chuỗi được chèn bởi comment-dwimvà bạn bè. Nó thường được đặt thành ký tự bắt đầu bình luận cộng với một số khoảng trắng.

Có một giải pháp đơn giản hơn nhiều , vui lòng nghiên cứu mã của tôi tại https://github.com/redguardtoo/evil-nerd-commenter/blob/master/evil-nerd-commenter.el

Tôi sẽ không sao chép / dán tất cả các mã ở đây. nhưng đây là những điểm chính:

• bình luận có mặt phông chữ riêng, tìm kiếm phông chữ khóa-bình luận-mặt và phông chữ khóa-bình luận-dấu phân cách-khuôn mặt trong mã của tôi

• sử dụng API riêng của Emacs để bỏ dòng thứ hai, sau đó nối nó với dòng đầu tiên

Nó nên hoạt động trên bất kỳ chế độ chính hợp lý.

Thủ thuật này không phải do tôi phát minh ra. Đó thực sự là từ mã riêng của Emacs, (cụ thể hơn là flyspell). Vì vậy, giải pháp nên hỗ trợ mọi hỗ trợ flyspell ở chế độ chính

Nếu bạn đang tìm kiếm tính năng này cho mã lisp (Elisp, Clojure, Scheme và Common Lisp), thì bạn nên thử lispy , một hàm được gọi là lispy-fillloại điều này.

Nếu bạn đang tìm kiếm tính năng này cho ngôn ngữ khác, thì bạn nên rebox2 (đã xác minh cho Cvà Python), một chức năng được gọi rebox-fillhoặc chức năng khác được gọi là rebox-dwimthực hiện loại điều này.

Cả hai đều là các gói tuyệt vời và chúng không xung đột với nhau vì chúng được sử dụng cho các chế độ chính khác nhau và cả hai ( lispy-fillvà rebox-dwim) bị ràng buộc M-q, khá gọn gàng.