diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/tg/answer-callback-query.lisp | 2 | ||||
| -rw-r--r-- | src/tg/delete-message.lisp | 2 | ||||
| -rw-r--r-- | src/tg/edit-message-text.lisp | 2 | ||||
| -rw-r--r-- | src/tg/get-me.lisp | 2 | ||||
| -rw-r--r-- | src/tg/get-my-name.lisp | 2 | ||||
| -rw-r--r-- | src/tg/get-updates.lisp | 2 | ||||
| -rw-r--r-- | src/tg/method-macros.lisp (renamed from src/bot/method-macros.lisp) | 4 | ||||
| -rw-r--r-- | src/tg/send-animation.lisp | 2 | ||||
| -rw-r--r-- | src/tg/send-message.lisp | 2 | ||||
| -rw-r--r-- | src/tg/set-my-name.lisp | 2 |
10 files changed, 11 insertions, 11 deletions
diff --git a/src/tg/answer-callback-query.lisp b/src/tg/answer-callback-query.lisp index badd8a4..c7ecb5f 100644 --- a/src/tg/answer-callback-query.lisp +++ b/src/tg/answer-callback-query.lisp | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;; SPDX-License-Identifier: EUPL-1.2 | 1 | ;; SPDX-License-Identifier: EUPL-1.2 |
| 2 | ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> | 2 | ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> |
| 3 | (defpackage :ukkoclot/tg/answer-callback-query | 3 | (defpackage :ukkoclot/tg/answer-callback-query |
| 4 | (:use :c2cl :ukkoclot/bot/method-macros) | 4 | (:use :c2cl :ukkoclot/tg/method-macros) |
| 5 | (:export :answer-callback-query)) | 5 | (:export :answer-callback-query)) |
| 6 | (in-package :ukkoclot/tg/answer-callback-query) | 6 | (in-package :ukkoclot/tg/answer-callback-query) |
| 7 | 7 | ||
diff --git a/src/tg/delete-message.lisp b/src/tg/delete-message.lisp index fd6f323..54cfc8b 100644 --- a/src/tg/delete-message.lisp +++ b/src/tg/delete-message.lisp | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;; SPDX-License-Identifier: EUPL-1.2 | 1 | ;; SPDX-License-Identifier: EUPL-1.2 |
| 2 | ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> | 2 | ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> |
| 3 | (defpackage :ukkoclot/tg/delete-message | 3 | (defpackage :ukkoclot/tg/delete-message |
| 4 | (:use :c2cl :ukkoclot/tg/message :ukkoclot/bot/method-macros :ukkoclot/tg/send-animation) | 4 | (:use :c2cl :ukkoclot/tg/message :ukkoclot/tg/method-macros :ukkoclot/tg/send-animation) |
| 5 | (:export :delete-message :try-delete-message)) | 5 | (:export :delete-message :try-delete-message)) |
| 6 | (in-package :ukkoclot/tg/delete-message) | 6 | (in-package :ukkoclot/tg/delete-message) |
| 7 | 7 | ||
diff --git a/src/tg/edit-message-text.lisp b/src/tg/edit-message-text.lisp index a7db3a8..65e2cc7 100644 --- a/src/tg/edit-message-text.lisp +++ b/src/tg/edit-message-text.lisp | |||
| @@ -7,7 +7,7 @@ | |||
| 7 | :ukkoclot/tg/link-preview-options | 7 | :ukkoclot/tg/link-preview-options |
| 8 | :ukkoclot/tg/message | 8 | :ukkoclot/tg/message |
| 9 | :ukkoclot/tg/message-entity | 9 | :ukkoclot/tg/message-entity |
| 10 | :ukkoclot/bot/method-macros | 10 | :ukkoclot/tg/method-macros |
| 11 | :ukkoclot/tg/parse-mode) | 11 | :ukkoclot/tg/parse-mode) |
| 12 | (:export :edit-message-text)) | 12 | (:export :edit-message-text)) |
| 13 | (in-package :ukkoclot/tg/edit-message-text) | 13 | (in-package :ukkoclot/tg/edit-message-text) |
diff --git a/src/tg/get-me.lisp b/src/tg/get-me.lisp index cfb1304..e4a6de5 100644 --- a/src/tg/get-me.lisp +++ b/src/tg/get-me.lisp | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;; SPDX-License-Identifier: EUPL-1.2 | 1 | ;; SPDX-License-Identifier: EUPL-1.2 |
| 2 | ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> | 2 | ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> |
| 3 | (defpackage :ukkoclot/tg/get-me | 3 | (defpackage :ukkoclot/tg/get-me |
| 4 | (:use :c2cl :ukkoclot/bot/method-macros :ukkoclot/tg/user) | 4 | (:use :c2cl :ukkoclot/tg/method-macros :ukkoclot/tg/user) |
| 5 | (:import-from :ukkoclot/state :bot-id% :bot-username%) | 5 | (:import-from :ukkoclot/state :bot-id% :bot-username%) |
| 6 | (:export :bot-id :bot-username :get-me)) | 6 | (:export :bot-id :bot-username :get-me)) |
| 7 | (in-package :ukkoclot/tg/get-me) | 7 | (in-package :ukkoclot/tg/get-me) |
diff --git a/src/tg/get-my-name.lisp b/src/tg/get-my-name.lisp index 59bb753..a597fe0 100644 --- a/src/tg/get-my-name.lisp +++ b/src/tg/get-my-name.lisp | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;; SPDX-License-Identifier: EUPL-1.2 | 1 | ;; SPDX-License-Identifier: EUPL-1.2 |
| 2 | ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> | 2 | ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> |
| 3 | (defpackage :ukkoclot/tg/get-my-name | 3 | (defpackage :ukkoclot/tg/get-my-name |
| 4 | (:use :c2cl :ukkoclot/tg/bot-name :ukkoclot/bot/method-macros) | 4 | (:use :c2cl :ukkoclot/tg/bot-name :ukkoclot/tg/method-macros) |
| 5 | (:export :get-my-name)) | 5 | (:export :get-my-name)) |
| 6 | (in-package :ukkoclot/tg/get-my-name) | 6 | (in-package :ukkoclot/tg/get-my-name) |
| 7 | 7 | ||
diff --git a/src/tg/get-updates.lisp b/src/tg/get-updates.lisp index 15f5e3f..5192e3c 100644 --- a/src/tg/get-updates.lisp +++ b/src/tg/get-updates.lisp | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;; SPDX-License-Identifier: EUPL-1.2 | 1 | ;; SPDX-License-Identifier: EUPL-1.2 |
| 2 | ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> | 2 | ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> |
| 3 | (defpackage :ukkoclot/tg/get-updates | 3 | (defpackage :ukkoclot/tg/get-updates |
| 4 | (:use :c2cl :ukkoclot/bot/method-macros :ukkoclot/tg/update) | 4 | (:use :c2cl :ukkoclot/tg/method-macros :ukkoclot/tg/update) |
| 5 | (:export :get-updates)) | 5 | (:export :get-updates)) |
| 6 | (in-package :ukkoclot/tg/get-updates) | 6 | (in-package :ukkoclot/tg/get-updates) |
| 7 | 7 | ||
diff --git a/src/bot/method-macros.lisp b/src/tg/method-macros.lisp index d4f04ad..3599328 100644 --- a/src/bot/method-macros.lisp +++ b/src/tg/method-macros.lisp | |||
| @@ -1,12 +1,12 @@ | |||
| 1 | ;; SPDX-License-Identifier: EUPL-1.2 | 1 | ;; SPDX-License-Identifier: EUPL-1.2 |
| 2 | ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> | 2 | ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> |
| 3 | (defpackage :ukkoclot/bot/method-macros | 3 | (defpackage :ukkoclot/tg/method-macros |
| 4 | (:use :c2cl :iterate) | 4 | (:use :c2cl :iterate) |
| 5 | (:import-from :ukkoclot/state :bot) | 5 | (:import-from :ukkoclot/state :bot) |
| 6 | (:import-from :ukkoclot/strings :ends-with :lisp->camel-case) | 6 | (:import-from :ukkoclot/strings :ends-with :lisp->camel-case) |
| 7 | (:import-from :ukkoclot/transport :do-call) | 7 | (:import-from :ukkoclot/transport :do-call) |
| 8 | (:export :define-tg-method)) | 8 | (:export :define-tg-method)) |
| 9 | (in-package :ukkoclot/bot/method-macros) | 9 | (in-package :ukkoclot/tg/method-macros) |
| 10 | 10 | ||
| 11 | (eval-when (:compile-toplevel :load-toplevel :execute) | 11 | (eval-when (:compile-toplevel :load-toplevel :execute) |
| 12 | (defstruct (param (:constructor make-param%)) name type default skip-if-default) | 12 | (defstruct (param (:constructor make-param%)) name type default skip-if-default) |
diff --git a/src/tg/send-animation.lisp b/src/tg/send-animation.lisp index 97dd9f0..1fd7a89 100644 --- a/src/tg/send-animation.lisp +++ b/src/tg/send-animation.lisp | |||
| @@ -7,7 +7,7 @@ | |||
| 7 | :ukkoclot/tg/inline-keyboard-markup | 7 | :ukkoclot/tg/inline-keyboard-markup |
| 8 | :ukkoclot/tg/message | 8 | :ukkoclot/tg/message |
| 9 | :ukkoclot/tg/message-entity | 9 | :ukkoclot/tg/message-entity |
| 10 | :ukkoclot/bot/method-macros | 10 | :ukkoclot/tg/method-macros |
| 11 | :ukkoclot/tg/parse-mode | 11 | :ukkoclot/tg/parse-mode |
| 12 | :ukkoclot/tg/reply-keyboard-markup | 12 | :ukkoclot/tg/reply-keyboard-markup |
| 13 | :ukkoclot/tg/reply-keyboard-remove | 13 | :ukkoclot/tg/reply-keyboard-remove |
diff --git a/src/tg/send-message.lisp b/src/tg/send-message.lisp index 7cd91d9..164dd83 100644 --- a/src/tg/send-message.lisp +++ b/src/tg/send-message.lisp | |||
| @@ -8,7 +8,7 @@ | |||
| 8 | :ukkoclot/tg/link-preview-options | 8 | :ukkoclot/tg/link-preview-options |
| 9 | :ukkoclot/tg/message | 9 | :ukkoclot/tg/message |
| 10 | :ukkoclot/tg/message-entity | 10 | :ukkoclot/tg/message-entity |
| 11 | :ukkoclot/bot/method-macros | 11 | :ukkoclot/tg/method-macros |
| 12 | :ukkoclot/tg/parse-mode | 12 | :ukkoclot/tg/parse-mode |
| 13 | :ukkoclot/tg/reply-keyboard-markup | 13 | :ukkoclot/tg/reply-keyboard-markup |
| 14 | :ukkoclot/tg/reply-keyboard-remove | 14 | :ukkoclot/tg/reply-keyboard-remove |
diff --git a/src/tg/set-my-name.lisp b/src/tg/set-my-name.lisp index 5638a92..1c6b634 100644 --- a/src/tg/set-my-name.lisp +++ b/src/tg/set-my-name.lisp | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;; SPDX-License-Identifier: EUPL-1.2 | 1 | ;; SPDX-License-Identifier: EUPL-1.2 |
| 2 | ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> | 2 | ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> |
| 3 | (defpackage :ukkoclot/tg/set-my-name | 3 | (defpackage :ukkoclot/tg/set-my-name |
| 4 | (:use :c2cl :ukkoclot/tg/bot-name :ukkoclot/tg/get-my-name :ukkoclot/bot/method-macros) | 4 | (:use :c2cl :ukkoclot/tg/bot-name :ukkoclot/tg/get-my-name :ukkoclot/tg/method-macros) |
| 5 | (:export :set-my-name)) | 5 | (:export :set-my-name)) |
| 6 | (in-package :ukkoclot/tg/set-my-name) | 6 | (in-package :ukkoclot/tg/set-my-name) |
| 7 | 7 | ||