mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

added escape-for-html

Browse source
This commit is contained in:
David Botton 2024-08-22 05:49:35 -04:00
parent a34e516325
commit 04031f2520
4 changed files with 74 additions and 73 deletions
Download patch file Download diff file Expand all files Collapse all files

13
source/clog-utilities.lisp
View file

@ -58,6 +58,19 @@ package."
;; Implementation - JS Utilities
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;
;; escape-for-html ;;
;;;;;;;;;;;;;;;;;;;;;
(defun escape-for-html (value)
"Returns a string where < and > are replaced with html entities. This is
particularly useful as #<> is used for unprintable objects in Lisp. Value is
converted with format to a string first."
(setf value (format nil "~A" value))
(setf value (ppcre:regex-replace-all "<" value "&lt;"))
(setf value (ppcre:regex-replace-all ">" value "&gt;"))
value)
;;;;;;;;;;;;;;;
;; js-true-p ;;
;;;;;;;;;;;;;;;