lisp: use more legible colors on dark backgrounds

On dark backgrounds, the color for the current transaction makes the
text quite unreadable. Let's use a darker color in this case. Maybe some
other colors could be adjusted.