|
|
@@ -50,6 +50,10 @@
|
|
|
(setf *telegram-last-update* update-id))
|
|
|
(log:warn "Out-of-order update" update-id))))
|
|
|
|
|
|
+(defvar *start-message* "Hello" "Welcome message. Override it")
|
|
|
+(def-message-cmd-handler handle-start (:start)
|
|
|
+ (send-response chat-id *start-message*))
|
|
|
+
|
|
|
(def-message-admin-cmd-handler handle-admin-settings (:settings)
|
|
|
(send-response chat-id
|
|
|
(format nil "~{~{~A~@[ (~A)~]: ~A~}~^~%~}"
|
