Fix erroneous newline when sending notifications.

This commit is contained in:
Dominik Pantůček 2024-07-02 20:21:33 +02:00
parent bc5db8db99
commit 1840f5675b
6 changed files with 1 additions and 16 deletions

View file

@ -129,8 +129,6 @@
(ptbl (table->string
pdata
#:border '(((#:right light) ... none) ...))))
;;(print pdata)
;;(write ptbl)(newline)
(list k ptbl)))
((fee)
(let* ((pdata
@ -150,8 +148,6 @@
(ptbl (table->string
pdata
#:border '(((#:right light) ... none) ...))))
;;(print pdata)
;;(write ptbl)(newline)
(list k ptbl)))
(else
(if v
@ -182,7 +178,6 @@
(list (list (ansi-string #:red "DokuWiki")
(ansi-string #:red "---")))))
(result (filter identity (append head body mailman dokuwiki))))
;;(write result)(newline)
(table->string result
#:border '(((#:bottom #:right light) ... (#:bottom light))
...