Shorten URLs in Emacs Lisp

How to shorten URLs in Emacs Lisp

O código é este:

(defun short-url (url)
  (interactive "M")
  (let ((url-request-method "GET"))
    (url-retrieve (concat "http://is.gd/create.php?format=simple&url=" url)
                   (lambda (x)
                     (goto-char (point-min))
                     (search-forward-regexp "http://.*")
                     (setq s-url (match-string-no-properties 0))))
   (insert s-url)))
Palavras chave/keywords: is.gd, short urls, Emacs Lisp

Criado/Created: NaN

Última actualização/Last updated: 13-07-2018 [09:50]


Voltar à página inicial.


GNU/Emacs Creative Commons License

(c) Tiago Charters de Azevedo