How to make org-mode org-insert-link (C-c C-l) automatically fill in the description from a webpage

jmn-url-get-title.el

;; How to make org-mode org-insert-link (C-c C-l) automatically fill in the description from a webpage:

(defun jmn/url-get-title (url &optional descr)
  "Takes a URL and returns the value of the <title> HTML tag,
   Thanks to https://frozenlock.org/tag/url-retrieve/ for documenting url-retrieve"
  (let ((buffer (url-retrieve-synchronously url))
        (title nil))
    (save-excursion
      (set-buffer buffer)
      (goto-char (point-min))
      (search-forward-regexp "<title>\\([^<]+?\\)</title>")	
      (setq title (match-string 1 ) )
      (kill-buffer (current-buffer)))
    title))

(setq org-make-link-description-function 'jmn/url-get-title)