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

tutorial 25

Browse source
This commit is contained in:
David Botton 2021-03-08 23:02:10 -05:00
parent d3ac4741c9
commit 3828139e0b
3 changed files with 69 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
source/clog-utilities.lisp
View file

@ -93,6 +93,14 @@ CLOG-OBJ unless :NAME is set and is used instead."))
(setf res (ppcre:regex-replace-all "\\x0D" res "\\x0D"))
res))
;;;;;;;;;;;;;;
;; lf-to-br ;;
;;;;;;;;;;;;;;
(defun lf-to-br (str)
"Change line feeds to <br>."
(ppcre:regex-replace-all "\\x0A" str "<br>"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Implementation - Color Utilities
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;