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]
(c) Tiago Charters de Azevedo