지정된 텍스트로 표시된 영역을 감싸는 Emacs 함수를 작성하는 방법

Question

저는 elisp에 익숙하지 않아 배우려고합니다. 이맥스에서 다음 작업을 수행 할 수 있도록하고 싶습니다 : 나는 마지막에 표시 할 위치 C-공간

이동을 통해

1. 마크, 그래서 강조 영역을 가지고, 가정 "플롯 (강조 표시된 텍스트)"는 이맥스, 말을 "음모"입력 텍스트를 물어
2. 히트
3. 가 되세요 키 시퀀스 "텍스트 강조"하고, 텍스트의 변화를 강조

4. 유무는 수 . 즉, 강조 표시된 텍스트를 괄호로 묶고 텍스트 앞에 입력하고 싶습니다.

   (defun wrap-text() 
       ) 
   

나는 함수의 입력이 강조 표시된 텍스트가 될 것입니다 생각,하지만 난 찾고 어디서부터 시작 모른다. 다른 어려운 부분은 입력 텍스트 부분입니다. 누군가 나를 인도 해 줄 수 있을까요? 감사.

Answer 1

귀하의 경우,이 작업을해야합니다 :

(defun wrap-text (b e txt) 
    "simple wrapper" 
    (interactive "r\nMEnter text to wrap with: ") 
    (save-restriction 
    (narrow-to-region b e) 
    (goto-char (point-min)) 
    (insert txt) 
    (insert "(") 
    (goto-char (point-max)) 
    (insert ")"))) 

(global-set-key (kbd "C-x M-w") 'wrap-text) 

Answer 2

감사 잭슨을 트레이. 나는 내가 freenode의 #emacs에 도움을주기 위해 해결책을 게시했는지 몰랐다. 몇 가지 조사 후, 나는 다음과 같은 내놓았다 :

(defun ess-R-wrap-content-vqn() 
    "Wrap marked region with a specified PREFIX and closing parentheses." 
    (interactive) 
    (set (make-local-variable 'prefix) (read-from-minibuffer "function: ")) 
    (set (make-local-variable 'prefix) (concat prefix "(")) 
    (save-excursion (goto-char (region-beginning)) (insert prefix)) 
    (save-excursion (goto-char (region-end)) (insert ")")) 
) 
(define-key ess-mode-map "\C-c\M-w" 'ess-R-wrap-content-vqn) ;; w is for wrap 

내가 유래 해결책이 게시가되면 알려 줄 알았는데. 다시 고마워. 이것으로부터 elisp를 조금 더 배웁니다.

Answer 3

버전에 조금 더 가까이 뭔가 있지만 일부 변경 :

• 당신이이 지역 변수
• 지역-시작과 지역 엔드 당신의 등가를 제공 만드는 '하자'사용할 수 있습니다

  (defun wrap-in-function() 
      "Wrap marked region with a specified PREFIX and closing parentheses." 
      (interactive) 
      (let ((prefix (read-from-minibuffer "function: "))) 
      (save-excursion 
       (goto-char (region-beginning)) 
       (insert (concat prefix "("))) 
      (save-excursion 
       (goto-char (region-end)) 
       (insert ")")))) 
  

  또 다른 D : 무엇 트레이 여기

했던이 예입니다 두 버전 간의 ifference는 함수를 호출 한 후 해당 지점의 위치입니다. trey 버전을 사용하는 것이 더 좋습니다 (맛의 문제).

편집 : 다음 비고란에 편집 됨.

Answer 4

이것은 'cl'이 필요하지만 그렇지 않으면 매우 작습니다. 몇 년간 사용 해왔다.

(require 'cl) ;;if you haven't elsewhere 
(defun decorate-region(beg end prefix suffix) 
    (interactive "r\nMPrefix: \nMSuffix: ") 
    (cl-set-buffer-substring beg end (concat prefix 
              (buffer-substring beg end) 
              suffix)))