diff options
| -rwxr-xr-x | journal.lisp | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/journal.lisp b/journal.lisp index 1243508..2d6f8e8 100755 --- a/journal.lisp +++ b/journal.lisp @@ -198,11 +198,7 @@ for matches = (ppcre:all-matches "<a [^>]*?> " markup) while (not (null matches)) do (progn - (setf markup #+nil - (delete-if (constantly t) - markup - :start (1- (second matches)) - :end (second matches)) + (setf markup (replace markup markup :start1 (1+ (first matches)) :end1 (second matches) :start2 (first matches) |