cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2024-12-22 23:47:56 +01:00
Code Issues

- fixed welcomebot and moved to a new directory "scripts";

Browse Source 
Also export some symbols that this script uses, from others packages.
This commit is contained in:
cage 2020-12-28 12:12:23 +01:00
parent 05e2f0164e
commit 6c590dbf1a
2 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
modules/welcome-bot.lisp → scripts/welcome-bot.lisp
View File

@ -24,15 +24,14 @@
(define-constant +table-id+ "welcome-minimum-id" :test #'string=) (define-constant +table-id+ "welcome-minimum-id" :test #'string=)
(defparameter *welcome-message-template* "Hi ~s!~%Enjoy the fediverse!" (defparameter *welcome-message-template* "Hi ~s!~%Enjoy the fediverse!"
:test #'string= "The welcome message, the '~s' is replaced with the display-name
:documentation "The welcome message, the '~s' is replaced with the display-name
of the welcomed user") of the welcomed user")
(defun make-table-last-id () (defun make-table-last-id ()
(db-utils:query-low-level (strcat (db::prepare-table +table-id+ (db-utils:query-low-level (strcat (db:prepare-table +table-id+
:autogenerated-id-p nil) :autogenerated-id-p nil)
" id TEXT" " id TEXT"
db::+make-close+))) db:+make-close+)))
(defun dump-minimum-id (minimum-id) (defun dump-minimum-id (minimum-id)
(db-utils:query (db-utils:make-insert :welcome-minimum-id (:id) (minimum-id)))) (db-utils:query (db-utils:make-insert :welcome-minimum-id (:id) (minimum-id))))
@ -57,9 +56,9 @@ of the welcomed user")
(let ((minimum-id (minimum-id))) (let ((minimum-id (minimum-id)))
(assert (or (stringp minimum-id) (assert (or (stringp minimum-id)
(null minimum-id))) (null minimum-id)))
(let* ((toots (api-client::sort-id< (api-client:get-timeline :public (let* ((toots (api-client:sort-id< (api-client:get-timeline :public
:local t :local t
:min-id minimum-id))) :min-id minimum-id)))
(last-toot (lastcar toots))) (last-toot (lastcar toots)))
(when last-toot (when last-toot
(dump-minimum-id (tooter:id last-toot)) (dump-minimum-id (tooter:id last-toot))

3
src/package.lisp
View File

@ -743,6 +743,8 @@
:+default-converation-timeline+ :+default-converation-timeline+
:+message-index-start+ :+message-index-start+
:+tag-separator+ :+tag-separator+
:+make-close+
:prepare-table
:hidden-recipient-p :hidden-recipient-p
:default-timelines :default-timelines
:message-index->sequence-index :message-index->sequence-index
@ -1415,6 +1417,7 @@
:poll-vote :poll-vote
:get-notifications :get-notifications
:delete-notification :delete-notification
:sort-id<
:all-mentions :all-mentions
:update-mentions-folder :update-mentions-folder
:expand-status-thread :expand-status-thread