Function: kexport:html-url

kexport:html-url is a byte-compiled function defined in kexport.el.

Signature

(kexport:html-url STRING)

Documentation

Convert STRING containing a Url to Html format.

Works exclusively within a call to replace-regexp-in-string.

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/kotl/kexport.el
(defun kexport:html-url (string)
  "Convert STRING containing a Url to Html format.
Works exclusively within a call to `replace-regexp-in-string'."
  (let* ((url (substring string (match-beginning hpath:url-grpn)
			 (match-end hpath:url-grpn)))
	 (last-str-char (length string))
	 (last-url-char (length url)))
    (while (memq (aref url (1- last-url-char))
		 '(?. ?, ?? ?# ?! ?* ?\( ?\)))
      (setq last-url-char (1- last-url-char)))
    (while (memq (aref string (1- last-str-char))
		 '(?. ?, ?? ?# ?! ?* ?\( ?\)))
      (setq last-str-char (1- last-str-char)))
    (format "<a href=\"%s\">%s</a>%s"
	    (substring url 0 last-url-char)
	    (substring string (match-beginning 0) last-str-char)
	    (substring string last-str-char))))