Come "decodificare l'URL" una stringa in Emacs Lisp?

Question

Ho una stringa come "foo% 20bar" e voglio "foo bar".

So che ci deve essere una funzione built-in per decodificare una stringa con codifica URL (stringa di query) in Emacs Lisp, ma per la vita di me non riesco a trovarla oggi, né nella mia cartella/cartella o con google.

Qualcuno ricorda come si chiama?

Answer 1

org-link-unescape fa il lavoro per i casi molto semplici ... w3m-url-decode-string è meglio, ma non è costruito in e la versione che ho a livello locale non funziona con Emacs 23.

Answer 2

Penso che lo stiate rendendo un po 'troppo difficile: lo split-string probabilmente farà la maggior parte di ciò che volete. Per cose più appassionate, dai un'occhiata alle funzioni in url-expand.el; sfortunatamente, molti di loro non hanno stringhe doc, quindi potrebbe essere necessario leggere il codice.

url-generic-parse-url sembra un potenziale vincitore.

Answer 3

url-unhex-string 

Answer 4

Emacs è spedito con un URL library, che fornisce una serie di funzioni di analisi degli URL, come già indicato in huaiyuan e Charlie Martin. Ecco un piccolo esempio che darei un'idea come usarlo:

(let ((url "http://www.google.hu/search?q=elisp+decode+url&btnG=Google+keres%E9s&meta=")) 
    ;; Return list of arguments and values 
    (url-parse-query-string 
    ;; Decode hexas 
    (url-unhex-string 
    ;; Retrieve argument list 
    (url-filename 
    ;; Parse URL, return a struct 
    (url-generic-parse-url url))))) 
=> (("meta" "") ("btnG" "Google+keresés") ("/search?q" "elisp+decode+url")) 

penso che sia meglio fare affidamento su di essa rispetto org-mode come è il suo scopo principale per analizzare URL.

Answer 5

Nel mio caso ho dovuto farlo in modo interattivo. Le risposte precedenti mi ha dato le funzioni giuste per chiamare, quindi era solo una questione di avvolgendolo un po 'per renderli interattivi:

(defun func-region (start end func) 
    "run a function over the region between START and END in current buffer." 
    (save-excursion 
    (let ((text (delete-and-extract-region start end))) 
     (insert (funcall func text))))) 

(defun hex-region (start end) 
    "urlencode the region between START and END in current buffer." 
    (interactive "r") 
    (func-region start end #'url-hexify-string)) 

(defun unhex-region (start end) 
    "de-urlencode the region between START and END in current buffer." 
    (interactive "r") 
    (func-region start end #'url-unhex-string)) 

aggiungere il sale, voglio dire si legano ai tasti a seconda dei gusti.