Emacs, добавление заголовка к ссылке в org-mode (2)

(defun org-link-describe (url &optional descr)
  "Retrieve the HTML title from a URL with a 3-second timeout using request.el."
  (require 'request)
  (require 'dom)
  (require 'mm-util)
  (let ((request-backend 'curl))  ;; Use curl as the backend
    (org-link-describe-fetch-title url)))

(defun org-link-describe-fetch-title (url)
  "Fetch the HTML title from the URL with proper timeout and encoding handling."
  (let ((result nil)
        (done nil)
        (timeout 3))
    ;; Send the HTTP request
    (request
     url
     :timeout timeout
     :headers '(("User-Agent" . "Mozilla/5.0 (compatible; Emacs)")
                ("Accept-Encoding" . "gzip, deflate"))
     :parser #'org-link-describe-parse-response
     :success (cl-function
               (lambda (&key data &allow-other-keys)
                 (setq result data)
                 (setq done t)))
     :error (cl-function
             (lambda (&rest _args &key error-thrown &allow-other-keys)
               (message "Error fetching URL: %s" error-thrown)
               (setq done t))))
    ;; Wait for the request to finish or timeout
    (let ((wait-time 0)
          (step 0.1))
      (while (and (not done)
                  (< wait-time timeout))
        (sleep-for step)
        (setq wait-time (+ wait-time step))))
    result))

(defun org-link-describe-parse-response ()
  "Parse the HTTP response to extract the HTML title."
  (let* ((response request)
         ;; Get Content-Type header
         (content-type (or (request-response-header response "Content-Type") ""))
         ;; Extract charset from Content-Type header
         (charset (org-link-describe-extract-charset content-type)))
    ;; If charset not found in Content-Type, look for meta tag
    (unless charset
      (setq charset (org-link-describe-extract-charset-from-meta)))
    ;; Default to utf-8 if charset is still not found
    (unless charset
      (setq charset "utf-8"))
    ;; Convert charset to coding system
    (let ((coding-system (or (mm-charset-to-coding-system (downcase charset))
                             'utf-8)))
      ;; Decode the buffer using the detected coding system
      (if coding-system
          (mm-decode-coding-region (point-min) (point-max) coding-system)
        (message "Unknown charset %s, defaulting to utf-8" charset)
        (mm-decode-coding-region (point-min) (point-max) 'utf-8)))
    ;; Parse the buffer into a DOM
    (let ((dom (libxml-parse-html-region (point-min) (point-max))))
      ;; Extract and return the <title> text
      (let ((title-node (dom-by-tag dom 'title)))
        (when title-node
          (dom-text (car title-node)))))))

(defun org-link-describe-extract-charset (content-type)
  "Extract charset from Content-Type header."
  (when (string-match "charset=\\([^;]+\\)" content-type)
    (match-string 1 content-type)))

(defun org-link-describe-extract-charset-from-meta ()
  "Extract charset from HTML meta tags."
  (goto-char (point-min))
  (when (re-search-forward "<meta[^>]*charset=[\"']?\\([^\"'/> ]+\\)" nil t)
    (match-string 1)))