Emacs org-mode automatically fetch link title

init.el

;; Adpated from https://gist.github.com/jmn/34cd4205fa30ccf83f94cb1bc0198f3f
;; Automatically fetch link description (C-c C-l) for link at point

(defun my/url-get-title (url &optional descr)
  (with-temp-buffer
    (url-insert-file-contents url)
    (goto-char (point-min))
    (search-forward-regexp (rx "<title>" (group (*? anything)) "</title>"))
    (match-string 1)))

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