Function: gnus-shorten-url

gnus-shorten-url is a byte-compiled function defined in gnus-sum.el.gz.

Signature

(gnus-shorten-url URL MAX)

Documentation

Return an excerpt from URL not exceeding MAX characters.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-sum.el.gz
(defun gnus-shorten-url (url max)
  "Return an excerpt from URL not exceeding MAX characters."
  (if (<= (length url) max)
      url
    (let* ((parsed (url-generic-parse-url url))
           (host (url-host parsed))
           (rest (concat (url-filename parsed)
                         (when-let* ((target (url-target parsed)))
                           (concat "#" target)))))
      (concat host (string-truncate-left rest (- max (length host)))))))