간단한 '사본 형태의 명령

Question

나는 명령을 원하는 복사 킬 (kill) 링 형태. emacs-live에서, 내가 찾을 수있는 가장 가까운 것은이 명령/키 결합

(global-set-key (kbd "M-]") 'kill-ring-save) 

그러나 죽일 - 링 - 저장 일부 남았습니다 행동을 가지고 있었다. Ii는 커서를 지나서 하나 이상의 양식을 복사합니다. 궁극적으로, 나는 아래의 내용을 따라 간단한 함수를 원한다.

(defun copy-form() 
    (kill-ring-save (line-beginning-position) (live-paredit-forward))) 

(global-set-key (kbd "M-]") 'copy-form) 

나는 높이 (SO question 및 Google search) 낮은 검색 한하지만, 균형 잡힌 식을 복사하는 간단한 작업 명령을 찾을 수 없습니다. 누군가 이미 이것을 했습니까?

감사

팀

Answer 1

기능 sexp-at-point 당신에게 커서에서 sexp ("양식")를 제공합니다. kill-ring-save을 사용하여 kill-ring에 복사하십시오. 예컨대 :

(defun copy-sexp-at-point() 
    (interactive) 
    (let ((bnds (bounds-of-thing-at-point 'sexp))) 
    (kill-ring-save (car bnds) (cdr bnds)))) 

는 다른 방법으로, 단지 kill-new를 사용

는

(defun copy-sexp-at-point() 
    (interactive) 
    (kill-new (thing-at-point 'sexp))) 

Answer 2

당신의 copy-form가 키에 바인딩 할 수없는 이유는 함수가 아닌 명령이라는 것이다 - 그것이 interactive 양식이 없습니다.

그러나 귀하의 경우에는 새 기능을 작성할 필요가 없습니다.

는

mark-sexp is an interactive compiled Lisp function in `lisp.el'.

It is bound to C-M-@, C-M-SPC.

및

내가 질문을 이해 확실하지 않다

M-w runs the command kill-ring-save, which is an interactive compiled Lisp function in `simple.el'.

It is bound to <C-insertchar>, M-w, <menu-bar> <edit> <copy>.

Answer 3

의 조합을 시도,하지만 난 고려해야 일을해야 할 때 "균형 잡힌 형태를 복사" 나는 다음과 같이한다 : M-C-SPC M-w. 대신 잘라내려면 M-C-SPC C-w을 사용하십시오.

Answer 4

내가 일반적으로 사용하는 것은 다음과 같습니다. 어떻게 든 복사 대신 균형 표현을 죽이려는 나를 위해 유용합니다. 대신 복사본을 원한다면 먼저 죽이고 실행 취소하십시오. 시점 즉 (), [], {}, <> 이든이 신택스에 의해 정의되는 내부 문자열 그렇지 평형 식이면

이 기능은, 캐릭터를 죽인다.

(defun kill-at-point() 
    "Kill the quoted string or the list that includes the point" 
    (interactive) 
    (let ((p (nth 8 (syntax-ppss)))) 
    (cond 
     ;; string 
     ((eq (char-after p) ?\") 
     (goto-char p) 
     (kill-sexp)) 
     ;; list 
     ((ignore-errors (when (eq (char-after) ?\() 
         (forward-char)) 
         (up-list) 
         t) 
     (let ((beg (point))) 
     (backward-list) 
     (kill-region beg (point))))))) 

나는 또한 포인트가 주석 내부 경우에 대한 특별한 경우를 추가하려고했지만, 나는 점에 의견의 경계를 결정하는 일반적인 방법을 찾을 수 없습니다. 아무도 모른다면, 말해주십시오.

이 다른 기능도 관련 될 수 있습니다. 이전과 마찬가지로 살인에 대해서는 으로 표시됩니다. 좋은 점은 라고 불릴 때마다 지역을 확장한다는 것입니다. 첫 번째 것은 C-, 및 두 번째 to C-M-,에 바인딩합니다.

(defun mark-at-point() 
    "Mark the quoted string or the list that includes the point" 
    (interactive) 
    (let ((p (nth 8 (syntax-ppss)))) 
    (if (eq (char-after p) ?\") 
    (progn 
     (goto-char p) 
      (set-mark (point)) 
     (forward-sexp)) 
     (progn 
     (when (eq (char-after) 40) 
      (forward-char)) 
     (condition-case nil 
      (progn 
       (up-list) 
       (set-mark (point)) 
       (let ((beg (point))) 
       (backward-list) 
       (exchange-point-and-mark))) 
      (error 
      (when (looking-back "}") 
      (exchange-point-and-mark) 
      ;; assumes functions are separated by one empty line 
      (re-search-backward "^[^A-Z-a-z]" nil t) 
      (forward-char))))))))