在emacs-lisp中，如何在文本字符串中間定位點？

Question

在emacs-lisp中，如何將文本字符串中間的點定位？我想讓我的光標結束以下功能：

(defun web-research() 
(interactive) 
(insert "#+BEGIN_QUOTE\n\n%s\n#+END_QUOTE\n") 
(org-mac-chrome-insert-frontmost-url) 
) 

Answer 1

有很多選項。 例如，

(defun web-research() 
    (interactive) 
    (insert "#+BEGIN_QUOTE\n\n%s\n#+END_QUOTE\n") 
    (search-backward "%") 
    (org-mac-chrome-insert-frontmost-url)) 

或

(defun web-research() 
    (interactive) 
    (insert "#+BEGIN_QUOTE\n\n") 
    (let ((p (point))) 
    (insert "\n\n#+END_QUOTE\n") 
    (org-mac-chrome-insert-frontmost-url) 
    (goto-char p)) 

或

(defun web-research() 
    (interactive) 
    (insert "#+BEGIN_QUOTE\n\n%s") 
    (save-excursion (insert "\n#+END_QUOTE\n")) 
    (org-mac-chrome-insert-frontmost-url)) 

IMO第二是最好的。

Answer 2

你可以使用這樣的東西，如yasnippet。

# -*- mode: snippet -*- 
# name: web-research 
# expand-env: ((yas-indent-line 'fixed)) 
# key: wr 
# -- 
#+BEGIN_QUOTE 

%s$0 

#+END_QUOTE 
`(if (boundp 'org-mac-chrome-get-frontmost-url) (org-mac-chrome-get-frontmost-url) "http://www.example.com/")` 

我似乎不具有org-mac-chrome-get-frontmost-url或insert變種，但快速搜索後，我猜org-mac-chrome-get-frontmost-url是該解決方案使用的東西。