google搜索跳转链接及一些的Elisp函数整理备忘

问题，google 搜索的链接时常打不开。

由于我没找到什么好方法让它使用代理，又鉴于谷歌搜索是明文链接，所以干脆把它的链接挖出来。

这里提供了一个url decode的代码。就是把诸如%2F变成/ 之类的。http://stackoverflow.com/questions/611831/how-to-url-decode-a-string-in-emacs-lisp

(line-beginning-position) 返回行首位置 区别(beginning-of-line)，移光标到行首，返回nil

(line-end-position)返回行尾位置 区别(end-of-line)

(string-match REGEXP STRING &OPTIONAL START)返回regexp在string中的起始位置，从start开始

(region-active-p)当前是否有高亮，详见http://ergoemacs.org/emacs/emacs_region.html

(interactive "r")关于这个请见http://ergoemacs.org/emacs/elisp_command_working_on_string_or_region.html  Use of (interactive)部分

(delete-and-extract-region) 删除并返回region作为string

(kill-new STRING &optional REPLACE) 把string push 到 kill-ring 中，或替换到kill-ring顶层

整理出来的函数

(defun decode-google-link (string &optional start end)
  "extract url in google jump link
param string is not used"
  (interactive
    (if (region-active-p)
    (list nil (region-beginning) (region-end))
      (let ((p (point))
        (b (line-beginning-position))
        (e (line-end-position)))
    (list nil b e))))
  (let* ((string (buffer-substring-no-properties start end))
     (b (string-match "http" string 4))
     (e (string-match "&ei=" string b)))
    (kill-new (url-unhex-string (substring string b e)))))