cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- used a parameter for the welcome message.

This commit is contained in:
cage 2020-12-27 13:22:25 +01:00
parent 8f1f60b409
commit 482fa3079e
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
doc/welcome-bot.lisp
View File

@ -23,6 +23,11 @@
(define-constant +table-id+ "welcome-minimum-id" :test #'string=)
(defparameter *welcome-message-template* "Hi ~s!~%Enjoy the fediverse!"
:test #'string=
:documentation "The welcome message, the '~s' is replaced with the display-name
of the welcomed user")
(defun make-table-last-id ()
(db-utils:query-low-level (strcat (db::prepare-table +table-id+
:autogenerated-id-p nil)
@ -61,7 +66,7 @@
(loop for toot in toots do
(let* ((account (tooter:account toot))
(welcome-message (format nil
"Hi ~s!~%Enjoy the fediverse!"
*welcome-message-template*
(tooter:display-name account)))
(reply-id (tooter:id toot)))
(when (and (not (tooter:bot account))