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: 10-10-2022 [14:26]

Voltar à página inicial.