t.co url -> regular url replacer function

untco.el

;; t.co -> regular url replacer
(defun untco ()
  (interactive)
  (let ((tco (buffer-substring (region-beginning) (region-end))))
    (setq resolv (replace-regexp-in-string "\n+$" "" (shell-command-to-string (format "curl -s -I %s |awk \'$1~/[lL]ocation/{print $2}\'" tco))))
    (if (> (length resolv) 0)
	(progn
	  (kill-region (region-beginning) (region-end))
	  (insert resolv)))))