sfos/harbour-sextant
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Properly print escaped strings in commands files

Browse source
This commit is contained in:
Renaud Casenave-Péré 2022-10-04 09:28:46 +02:00
parent aaef928049
commit e687f473f6
1 changed files with 12 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
lisp/local-projects/sextant/models/commands.lisp
View file

@ -158,23 +158,21 @@
(defmethod serialize-command ((command command-modify-text) stream)
(with-slots (before-text after-text) command
(princ " :before-text \"" stream)
(princ before-text stream)
(princ "\" :after-text \"" stream)
(princ after-text stream)
(princ "\"" stream)))
(princ " :before-text " stream)
(prin1 before-text stream)
(princ " :after-text " stream)
(prin1 after-text stream)))
(defmethod serialize-command ((command command-join/split-node) stream)
(with-slots (previous-text previous-eol next-text next-eol) command
(princ " :previous-text \"" stream)
(princ previous-text stream)
(princ "\" :previous-eol \"" stream)
(princ previous-eol stream)
(princ "\" :next-text \"" stream)
(princ next-text stream)
(princ "\" :next-eol \"" stream)
(princ next-eol stream)
(princ "\"" stream)))
(princ " :previous-text " stream)
(prin1 previous-text stream)
(princ " :previous-eol " stream)
(prin1 previous-eol stream)
(princ " :next-text " stream)
(prin1 next-text stream)
(princ " :next-eol " stream)
(prin1 next-eol stream)))