ngn999/url-encode-ty.md

## url-encode-ty.md

      
    Raw
  

              url-encode-ty.md
            
          
    在emacs里做url encoding. 最好你的环境是utf-8
(defun url-encode-ty ()
  (interactive)
  (let* ((origin-string (buffer-substring-no-properties (region-beginning) (region-end)))
         ;; (new-string (url-hexify-string origin-string))
         (new-string
          (with-temp-buffer
            (insert origin-string)
            (perform-replace "\\\\" "\\" nil nil nil nil nil (point-min) (point-max))
            (perform-replace "\\\"" "\"" nil nil nil nil nil (point-min) (point-max))
            (perform-replace "format:protobuf,?" "" nil t nil nil nil (point-min) (point-max))
            (url-hexify-string (buffer-string)))))
    (kill-region (region-beginning) (region-end))
    (goto-char (region-beginning))
    (insert new-string)))