summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorGravatar Uko Kokņevičs2025-10-13 06:51:46 +0300
committerGravatar Uko Kokņevičs2025-10-13 06:51:46 +0300
commitcf7a89781d32365026df402338d4f462666ad3a3 (patch)
treeb97ca6cb64ad5501fbf80ff93f7fda8dd1bd54e3 /src
parentMove bot/adanced to tg/* (diff)
downloadukkoclot-cf7a89781d32365026df402338d4f462666ad3a3.tar.gz
ukkoclot-cf7a89781d32365026df402338d4f462666ad3a3.tar.xz
ukkoclot-cf7a89781d32365026df402338d4f462666ad3a3.zip
Move bot/method-macros to tg/method-macros
Diffstat (limited to 'src')
-rw-r--r--src/tg/answer-callback-query.lisp2
-rw-r--r--src/tg/delete-message.lisp2
-rw-r--r--src/tg/edit-message-text.lisp2
-rw-r--r--src/tg/get-me.lisp2
-rw-r--r--src/tg/get-my-name.lisp2
-rw-r--r--src/tg/get-updates.lisp2
-rw-r--r--src/tg/method-macros.lisp (renamed from src/bot/method-macros.lisp)4
-rw-r--r--src/tg/send-animation.lisp2
-rw-r--r--src/tg/send-message.lisp2
-rw-r--r--src/tg/set-my-name.lisp2
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