summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xjournal.lisp6
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)