summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Uko Kokņevičs2025-10-19 07:26:56 +0300
committerGravatar Uko Kokņevičs2025-10-19 07:26:56 +0300
commit3b2af0dccba0b51d1d43bc950cf1b2a9f8fecfa6 (patch)
treeb222f24d5e35824a562aef4f4974de9f88cf9b59
parentMake config be a global special variable (diff)
downloadukkoclot-3b2af0dccba0b51d1d43bc950cf1b2a9f8fecfa6.tar.gz
ukkoclot-3b2af0dccba0b51d1d43bc950cf1b2a9f8fecfa6.tar.xz
ukkoclot-3b2af0dccba0b51d1d43bc950cf1b2a9f8fecfa6.zip
Migrate packages from :ukkoclot to :ukkoclot/src
Diffstat
-rw-r--r--.ocicl-lint.conf2
-rw-r--r--src/config.lisp6
-rw-r--r--src/db.lisp4
-rw-r--r--src/enum.lisp6
-rw-r--r--src/hash-tables.lisp4
-rw-r--r--src/inline-bots.lisp12
-rw-r--r--src/main.lisp14
-rw-r--r--src/serializing.lisp4
-rw-r--r--src/state.lisp4
-rw-r--r--src/strings.lisp4
-rw-r--r--src/tg.lisp90
-rw-r--r--src/tg/animation.lisp6
-rw-r--r--src/tg/answer-callback-query.lisp6
-rw-r--r--src/tg/bot-name.lisp6
-rw-r--r--src/tg/business-bot-rights.lisp6
-rw-r--r--src/tg/business-connection.lisp10
-rw-r--r--src/tg/callback-query.lisp10
-rw-r--r--src/tg/chat-administrator-rights.lisp6
-rw-r--r--src/tg/chat-type.lisp6
-rw-r--r--src/tg/chat.lisp6
-rw-r--r--src/tg/delete-message.lisp6
-rw-r--r--src/tg/edit-message-text.lisp16
-rw-r--r--src/tg/force-reply.lisp6
-rw-r--r--src/tg/get-me.lisp8
-rw-r--r--src/tg/get-my-name.lisp6
-rw-r--r--src/tg/get-updates.lisp6
-rw-r--r--src/tg/inline-keyboard-button.lisp6
-rw-r--r--src/tg/inline-keyboard-markup.lisp6
-rw-r--r--src/tg/keyboard-button-poll-type.lisp6
-rw-r--r--src/tg/keyboard-button-request-chat.lisp6
-rw-r--r--src/tg/keyboard-button-request-users.lisp6
-rw-r--r--src/tg/keyboard-button.lisp14
-rw-r--r--src/tg/link-preview-options.lisp6
-rw-r--r--src/tg/message-entity-type.lisp6
-rw-r--r--src/tg/message-entity.lisp6
-rw-r--r--src/tg/message-reaction-updated.lisp12
-rw-r--r--src/tg/message.lisp16
-rw-r--r--src/tg/method-macros.lisp8
-rw-r--r--src/tg/parse-mode.lisp6
-rw-r--r--src/tg/photo-size.lisp6
-rw-r--r--src/tg/reaction-type-custom-emoji.lisp6
-rw-r--r--src/tg/reaction-type-emoji.lisp6
-rw-r--r--src/tg/reaction-type-paid.lisp6
-rw-r--r--src/tg/reaction-type.lisp12
-rw-r--r--src/tg/reply-keyboard-markup.lisp6
-rw-r--r--src/tg/reply-keyboard-remove.lisp6
-rw-r--r--src/tg/reply-parameters.lisp6
-rw-r--r--src/tg/send-animation.lisp24
-rw-r--r--src/tg/send-message.lisp24
-rw-r--r--src/tg/set-my-name.lisp6
-rw-r--r--src/tg/suggested-post-parameters.lisp6
-rw-r--r--src/tg/suggested-post-price.lisp6
-rw-r--r--src/tg/type-macros.lisp8
-rw-r--r--src/tg/update.lisp14
-rw-r--r--src/tg/user.lisp8
-rw-r--r--src/tg/web-app-info.lisp6
-rw-r--r--src/transport.lisp8
-rw-r--r--ukkoclot.asd9
58 files changed, 268 insertions, 269 deletions
diff --git a/.ocicl-lint.conf b/.ocicl-lint.conf
index 3ad0e65..a24c746 100644
--- a/.ocicl-lint.conf
+++ b/.ocicl-lint.conf
@@ -1,3 +1,3 @@
1# minus-one: I don't like 1- 1# minus-one: I don't like 1-
2suppress-rules = minus-one 2suppress-rules = minus-one, missing-docstring
3suggest-libraries = alexandria, uiop, serapeum 3suggest-libraries = alexandria, uiop, serapeum
diff --git a/src/config.lisp b/src/config.lisp
index 03ded98..cf04c1c 100644
--- a/src/config.lisp
+++ b/src/config.lisp
@@ -1,6 +1,6 @@
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/config 3(defpackage :ukkoclot/src/config
4 (:documentation "Stuff for loading the configuration of the bot") 4 (:documentation "Stuff for loading the configuration of the bot")
5 (:nicknames :conf) 5 (:nicknames :conf)
6 (:use :c2cl :iterate) 6 (:use :c2cl :iterate)
@@ -17,7 +17,7 @@
17 #:db-path 17 #:db-path
18 #:dev-group 18 #:dev-group
19 #:owner)) 19 #:owner))
20(in-package :ukkoclot/config) 20(in-package :ukkoclot/src/config)
21 21
22(defstruct config 22(defstruct config
23 (bot-name "Ukko's Clot" :type string) 23 (bot-name "Ukko's Clot" :type string)
@@ -55,7 +55,7 @@
55 (let ((data (with-open-file (f filename) (read f)))) 55 (let ((data (with-open-file (f filename) (read f))))
56 (iter 56 (iter
57 (for (kw-name value) on data by #'cddr) 57 (for (kw-name value) on data by #'cddr)
58 (let ((name (intern (symbol-name kw-name) :ukkoclot/config))) 58 (let ((name (intern (symbol-name kw-name) :ukkoclot/src/config)))
59 (setf (slot-value config name) value)))))) 59 (setf (slot-value config name) value))))))
60 60
61(defun serialize (config) 61(defun serialize (config)
diff --git a/src/db.lisp b/src/db.lisp
index b0159c0..60b8115 100644
--- a/src/db.lisp
+++ b/src/db.lisp
@@ -1,10 +1,10 @@
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/db 3(defpackage :ukkoclot/src/db
4 (:use :c2cl :sqlite) 4 (:use :c2cl :sqlite)
5 (:import-from :log) 5 (:import-from :log)
6 (:export :get-inline-bot-type :set-inline-bot-type :with-db)) 6 (:export :get-inline-bot-type :set-inline-bot-type :with-db))
7(in-package :ukkoclot/db) 7(in-package :ukkoclot/src/db)
8 8
9(defconstant +target-version+ 1 9(defconstant +target-version+ 1
10 "Intended DB version") 10 "Intended DB version")
diff --git a/src/enum.lisp b/src/enum.lisp
index a047c1d..b7cce15 100644
--- a/src/enum.lisp
+++ b/src/enum.lisp
@@ -1,15 +1,15 @@
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/enum 3(defpackage :ukkoclot/src/enum
4 (:documentation "Macro for generating an enum type.") 4 (:documentation "Macro for generating an enum type.")
5 (:use :c2cl :iterate) 5 (:use :c2cl :iterate)
6 (:import-from :alexandria :with-gensyms) 6 (:import-from :alexandria :with-gensyms)
7 (:import-from :ukkoclot/serializing :fixup-value :parse-value) 7 (:import-from :ukkoclot/src/serializing :fixup-value :parse-value)
8 (:import-from :string-case :string-case) 8 (:import-from :string-case :string-case)
9 (:local-nicknames 9 (:local-nicknames
10 (:jzon :com.inuoe.jzon)) 10 (:jzon :com.inuoe.jzon))
11 (:export :define-enum)) 11 (:export :define-enum))
12(in-package :ukkoclot/enum) 12(in-package :ukkoclot/src/enum)
13 13
14(eval-when (:compile-toplevel :load-toplevel :execute) 14(eval-when (:compile-toplevel :load-toplevel :execute)
15 (defstruct (field (:constructor make-field%)) name string) 15 (defstruct (field (:constructor make-field%)) name string)
diff --git a/src/hash-tables.lisp b/src/hash-tables.lisp
index 4290387..f285aa2 100644
--- a/src/hash-tables.lisp
+++ b/src/hash-tables.lisp
@@ -1,11 +1,11 @@
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/hash-tables 3(defpackage :ukkoclot/src/hash-tables
4 (:documentation "Hash-table-oriented utilities.") 4 (:documentation "Hash-table-oriented utilities.")
5 (:use :c2cl) 5 (:use :c2cl)
6 (:import-from :alexandria :with-gensyms) 6 (:import-from :alexandria :with-gensyms)
7 (:export :gethash-lazy)) 7 (:export :gethash-lazy))
8(in-package :ukkoclot/hash-tables) 8(in-package :ukkoclot/src/hash-tables)
9 9
10(defmacro gethash-lazy (key hash-table default-lazy) 10(defmacro gethash-lazy (key hash-table default-lazy)
11 "`gethash' alternative with lazily evaluated default value." 11 "`gethash' alternative with lazily evaluated default value."
diff --git a/src/inline-bots.lisp b/src/inline-bots.lisp
index 47dd81b..4f6a679 100644
--- a/src/inline-bots.lisp
+++ b/src/inline-bots.lisp
@@ -1,16 +1,16 @@
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/inline-bots 3(defpackage :ukkoclot/src/inline-bots
4 (:documentation "This package deals with removing unwanted inline bot usage") 4 (:documentation "This package deals with removing unwanted inline bot usage")
5 (:use :c2cl :ukkoclot/tg) 5 (:use :c2cl :ukkoclot/src/tg)
6 (:import-from :com.dieggsy.f-string :enable-f-strings) 6 (:import-from :com.dieggsy.f-string :enable-f-strings)
7 (:import-from :conf) 7 (:import-from :conf)
8 (:import-from :log) 8 (:import-from :log)
9 (:import-from :ukkoclot/tg :send-message :try-delete-message) 9 (:import-from :ukkoclot/src/tg :send-message :try-delete-message)
10 (:import-from :ukkoclot/state :bot-db) 10 (:import-from :ukkoclot/src/state :bot-db)
11 (:local-nicknames (:db :ukkoclot/db)) 11 (:local-nicknames (:db :ukkoclot/src/db))
12 (:export :blacklist-inline-bot :on-inline-bot :whitelist-inline-bot)) 12 (:export :blacklist-inline-bot :on-inline-bot :whitelist-inline-bot))
13(in-package :ukkoclot/inline-bots) 13(in-package :ukkoclot/src/inline-bots)
14 14
15(enable-f-strings) 15(enable-f-strings)
16 16
diff --git a/src/main.lisp b/src/main.lisp
index be17168..07a486b 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -1,22 +1,22 @@
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/main 3(defpackage :ukkoclot/src/main
4 (:nicknames :ukkoclot) 4 (:nicknames :ukkoclot)
5 (:use :c2cl :iterate :ukkoclot/inline-bots :ukkoclot/tg) 5 (:use :c2cl :iterate :ukkoclot/src/inline-bots :ukkoclot/src/tg)
6 (:import-from :alexandria :when-let) 6 (:import-from :alexandria :when-let)
7 (:import-from :com.dieggsy.f-string :enable-f-strings) 7 (:import-from :com.dieggsy.f-string :enable-f-strings)
8 (:import-from :conf) 8 (:import-from :conf)
9 (:import-from :log) 9 (:import-from :log)
10 (:import-from :serapeum :drop) 10 (:import-from :serapeum :drop)
11 (:import-from :str) 11 (:import-from :str)
12 (:import-from :ukkoclot/db :with-db) 12 (:import-from :ukkoclot/src/db :with-db)
13 (:import-from :ukkoclot/serializing :fixup-value) 13 (:import-from :ukkoclot/src/serializing :fixup-value)
14 (:import-from :ukkoclot/state :make-bot :bot-power-on) 14 (:import-from :ukkoclot/src/state :make-bot :bot-power-on)
15 (:import-from :ukkoclot/strings :escape-xml :is-tg-whitespace :is-tg-whitespace-str) 15 (:import-from :ukkoclot/src/strings :escape-xml :is-tg-whitespace :is-tg-whitespace-str)
16 (:local-nicknames 16 (:local-nicknames
17 (:jzon :com.inuoe.jzon)) 17 (:jzon :com.inuoe.jzon))
18 (:export :main)) 18 (:export :main))
19(in-package :ukkoclot/main) 19(in-package :ukkoclot/src/main)
20 20
21(enable-f-strings) 21(enable-f-strings)
22 22
diff --git a/src/serializing.lisp b/src/serializing.lisp
index 71b0fb2..e9c46f6 100644
--- a/src/serializing.lisp
+++ b/src/serializing.lisp
@@ -1,13 +1,13 @@
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/serializing 3(defpackage :ukkoclot/src/serializing
4 (:use :c2cl :iterate) 4 (:use :c2cl :iterate)
5 (:import-from :log) 5 (:import-from :log)
6 (:import-from :str) 6 (:import-from :str)
7 (:local-nicknames 7 (:local-nicknames
8 (:jzon :com.inuoe.jzon)) 8 (:jzon :com.inuoe.jzon))
9 (:export :fixup-args :fixup-value :parse-value :try-parse-value)) 9 (:export :fixup-args :fixup-value :parse-value :try-parse-value))
10(in-package :ukkoclot/serializing) 10(in-package :ukkoclot/src/serializing)
11 11
12(defun fixup-args (args) 12(defun fixup-args (args)
13 (iter (for (key . value) in args) 13 (iter (for (key . value) in args)
diff --git a/src/state.lisp b/src/state.lisp
index 597f0a8..6348ee3 100644
--- a/src/state.lisp
+++ b/src/state.lisp
@@ -1,6 +1,6 @@
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/state 3(defpackage :ukkoclot/src/state
4 (:documentation "Holds the global state") 4 (:documentation "Holds the global state")
5 (:use :c2cl) 5 (:use :c2cl)
6 (:import-from :com.dieggsy.f-string :enable-f-strings) 6 (:import-from :com.dieggsy.f-string :enable-f-strings)
@@ -15,7 +15,7 @@
15 #:bot-power-on 15 #:bot-power-on
16 #:bot-username% 16 #:bot-username%
17 #:bot-id%)) 17 #:bot-id%))
18(in-package :ukkoclot/state) 18(in-package :ukkoclot/src/state)
19 19
20(enable-f-strings) 20(enable-f-strings)
21 21
diff --git a/src/strings.lisp b/src/strings.lisp
index eae8ec0..04a20de 100644
--- a/src/strings.lisp
+++ b/src/strings.lisp
@@ -1,6 +1,6 @@
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/strings 3(defpackage :ukkoclot/src/strings
4 (:documentation "String-oriented utilities.") 4 (:documentation "String-oriented utilities.")
5 (:use :c2cl :iterate) 5 (:use :c2cl :iterate)
6 (:import-from :cl-unicode :general-category) 6 (:import-from :cl-unicode :general-category)
@@ -8,7 +8,7 @@
8 :escape-xml 8 :escape-xml
9 :is-tg-whitespace 9 :is-tg-whitespace
10 :is-tg-whitespace-str)) 10 :is-tg-whitespace-str))
11(in-package :ukkoclot/strings) 11(in-package :ukkoclot/src/strings)
12 12
13;; These are very inefficient but I don't care until I profile 13;; These are very inefficient but I don't care until I profile
14 14
diff --git a/src/tg.lisp b/src/tg.lisp
index 05b6e90..ee83b9a 100644
--- a/src/tg.lisp
+++ b/src/tg.lisp
@@ -1,49 +1,49 @@
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(uiop:define-package :ukkoclot/tg 3(uiop:define-package :ukkoclot/src/tg
4 (:use :c2cl) 4 (:use :c2cl)
5 (:use-reexport 5 (:use-reexport
6 :ukkoclot/tg/animation 6 :ukkoclot/src/tg/animation
7 :ukkoclot/tg/answer-callback-query 7 :ukkoclot/src/tg/answer-callback-query
8 :ukkoclot/tg/bot-name 8 :ukkoclot/src/tg/bot-name
9 :ukkoclot/tg/business-bot-rights 9 :ukkoclot/src/tg/business-bot-rights
10 :ukkoclot/tg/business-connection 10 :ukkoclot/src/tg/business-connection
11 :ukkoclot/tg/callback-query 11 :ukkoclot/src/tg/callback-query
12 :ukkoclot/tg/chat 12 :ukkoclot/src/tg/chat
13 :ukkoclot/tg/chat-type 13 :ukkoclot/src/tg/chat-type
14 :ukkoclot/tg/chat-administrator-rights 14 :ukkoclot/src/tg/chat-administrator-rights
15 :ukkoclot/tg/delete-message 15 :ukkoclot/src/tg/delete-message
16 :ukkoclot/tg/edit-message-text 16 :ukkoclot/src/tg/edit-message-text
17 :ukkoclot/tg/force-reply 17 :ukkoclot/src/tg/force-reply
18 :ukkoclot/tg/get-me 18 :ukkoclot/src/tg/get-me
19 :ukkoclot/tg/get-my-name 19 :ukkoclot/src/tg/get-my-name
20 :ukkoclot/tg/get-updates 20 :ukkoclot/src/tg/get-updates
21 :ukkoclot/tg/inline-keyboard-button 21 :ukkoclot/src/tg/inline-keyboard-button
22 :ukkoclot/tg/inline-keyboard-markup 22 :ukkoclot/src/tg/inline-keyboard-markup
23 :ukkoclot/tg/keyboard-button 23 :ukkoclot/src/tg/keyboard-button
24 :ukkoclot/tg/keyboard-button-poll-type 24 :ukkoclot/src/tg/keyboard-button-poll-type
25 :ukkoclot/tg/keyboard-button-request-chat 25 :ukkoclot/src/tg/keyboard-button-request-chat
26 :ukkoclot/tg/keyboard-button-request-users 26 :ukkoclot/src/tg/keyboard-button-request-users
27 :ukkoclot/tg/link-preview-options 27 :ukkoclot/src/tg/link-preview-options
28 :ukkoclot/tg/message 28 :ukkoclot/src/tg/message
29 :ukkoclot/tg/message-entity 29 :ukkoclot/src/tg/message-entity
30 :ukkoclot/tg/message-entity-type 30 :ukkoclot/src/tg/message-entity-type
31 :ukkoclot/tg/message-reaction-updated 31 :ukkoclot/src/tg/message-reaction-updated
32 :ukkoclot/tg/parse-mode 32 :ukkoclot/src/tg/parse-mode
33 :ukkoclot/tg/photo-size 33 :ukkoclot/src/tg/photo-size
34 :ukkoclot/tg/reaction-type 34 :ukkoclot/src/tg/reaction-type
35 :ukkoclot/tg/reaction-type-custom-emoji 35 :ukkoclot/src/tg/reaction-type-custom-emoji
36 :ukkoclot/tg/reaction-type-emoji 36 :ukkoclot/src/tg/reaction-type-emoji
37 :ukkoclot/tg/reaction-type-paid 37 :ukkoclot/src/tg/reaction-type-paid
38 :ukkoclot/tg/reply-keyboard-markup 38 :ukkoclot/src/tg/reply-keyboard-markup
39 :ukkoclot/tg/reply-keyboard-remove 39 :ukkoclot/src/tg/reply-keyboard-remove
40 :ukkoclot/tg/reply-parameters 40 :ukkoclot/src/tg/reply-parameters
41 :ukkoclot/tg/send-animation 41 :ukkoclot/src/tg/send-animation
42 :ukkoclot/tg/send-message 42 :ukkoclot/src/tg/send-message
43 :ukkoclot/tg/set-my-name 43 :ukkoclot/src/tg/set-my-name
44 :ukkoclot/tg/suggested-post-parameters 44 :ukkoclot/src/tg/suggested-post-parameters
45 :ukkoclot/tg/suggested-post-price 45 :ukkoclot/src/tg/suggested-post-price
46 :ukkoclot/tg/update 46 :ukkoclot/src/tg/update
47 :ukkoclot/tg/user 47 :ukkoclot/src/tg/user
48 :ukkoclot/tg/web-app-info)) 48 :ukkoclot/src/tg/web-app-info))
49(in-package :ukkoclot/tg) 49(in-package :ukkoclot/src/tg)
diff --git a/src/tg/animation.lisp b/src/tg/animation.lisp
index cae4933..3c95c1a 100644
--- a/src/tg/animation.lisp
+++ b/src/tg/animation.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/animation 3(defpackage :ukkoclot/src/tg/animation
4 (:use :c2cl :ukkoclot/tg/type-macros :ukkoclot/tg/photo-size) 4 (:use :c2cl :ukkoclot/src/tg/type-macros :ukkoclot/src/tg/photo-size)
5 (:export 5 (:export
6 #:animation 6 #:animation
7 #:make-animation 7 #:make-animation
@@ -16,7 +16,7 @@
16 #:animation-file-name 16 #:animation-file-name
17 #:animation-mime-type 17 #:animation-mime-type
18 #:animation-file-size)) 18 #:animation-file-size))
19(in-package :ukkoclot/tg/animation) 19(in-package :ukkoclot/src/tg/animation)
20 20
21(define-tg-type animation 21(define-tg-type animation
22 (file-id string) 22 (file-id string)
diff --git a/src/tg/answer-callback-query.lisp b/src/tg/answer-callback-query.lisp
index c7ecb5f..0bf958f 100644
--- a/src/tg/answer-callback-query.lisp
+++ b/src/tg/answer-callback-query.lisp
@@ -1,9 +1,9 @@
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/src/tg/answer-callback-query
4 (:use :c2cl :ukkoclot/tg/method-macros) 4 (:use :c2cl :ukkoclot/src/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/src/tg/answer-callback-query)
7 7
8(define-tg-method (answer-callback-query boolean) 8(define-tg-method (answer-callback-query boolean)
9 (callback-query-id string) 9 (callback-query-id string)
diff --git a/src/tg/bot-name.lisp b/src/tg/bot-name.lisp
index 10e873c..3205b50 100644
--- a/src/tg/bot-name.lisp
+++ b/src/tg/bot-name.lisp
@@ -1,14 +1,14 @@
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/bot-name 3(defpackage :ukkoclot/src/tg/bot-name
4 (:use :c2cl :ukkoclot/tg/type-macros) 4 (:use :c2cl :ukkoclot/src/tg/type-macros)
5 (:export 5 (:export
6 #:bot-name 6 #:bot-name
7 #:make-bot-name 7 #:make-bot-name
8 #:bot-name-p 8 #:bot-name-p
9 #:copy-bot-name 9 #:copy-bot-name
10 #:bot-name-name)) 10 #:bot-name-name))
11(in-package :ukkoclot/tg/bot-name) 11(in-package :ukkoclot/src/tg/bot-name)
12 12
13(define-tg-type bot-name 13(define-tg-type bot-name
14 (name string)) 14 (name string))
diff --git a/src/tg/business-bot-rights.lisp b/src/tg/business-bot-rights.lisp
index 8d852d2..d683451 100644
--- a/src/tg/business-bot-rights.lisp
+++ b/src/tg/business-bot-rights.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/business-bot-rights 3(defpackage :ukkoclot/src/tg/business-bot-rights
4 (:use :c2cl :ukkoclot/tg/type-macros) 4 (:use :c2cl :ukkoclot/src/tg/type-macros)
5 (:export 5 (:export
6 #:business-bot-rights 6 #:business-bot-rights
7 #:make-business-bot-rights 7 #:make-business-bot-rights
@@ -21,7 +21,7 @@
21 #:business-bot-rights-can-transfer-and-upgrade-gifts 21 #:business-bot-rights-can-transfer-and-upgrade-gifts
22 #:business-bot-rights-can-transfer-stars 22 #:business-bot-rights-can-transfer-stars
23 #:business-bot-rights-can-manage-stories)) 23 #:business-bot-rights-can-manage-stories))
24(in-package :ukkoclot/tg/business-bot-rights) 24(in-package :ukkoclot/src/tg/business-bot-rights)
25 25
26(define-tg-type business-bot-rights 26(define-tg-type business-bot-rights
27 (can-reply boolean nil) 27 (can-reply boolean nil)
diff --git a/src/tg/business-connection.lisp b/src/tg/business-connection.lisp
index 726cdd4..ee2eb15 100644
--- a/src/tg/business-connection.lisp
+++ b/src/tg/business-connection.lisp
@@ -1,11 +1,11 @@
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/business-connection 3(defpackage :ukkoclot/src/tg/business-connection
4 (:use 4 (:use
5 :c2cl 5 :c2cl
6 :ukkoclot/tg/type-macros 6 :ukkoclot/src/tg/type-macros
7 :ukkoclot/tg/business-bot-rights 7 :ukkoclot/src/tg/business-bot-rights
8 :ukkoclot/tg/user) 8 :ukkoclot/src/tg/user)
9 (:export 9 (:export
10 #:business-connection 10 #:business-connection
11 #:make-business-connection 11 #:make-business-connection
@@ -17,7 +17,7 @@
17 #:business-connection-date 17 #:business-connection-date
18 #:business-connection-rights 18 #:business-connection-rights
19 #:business-connection-is-enabled)) 19 #:business-connection-is-enabled))
20(in-package :ukkoclot/tg/business-connection) 20(in-package :ukkoclot/src/tg/business-connection)
21 21
22(define-tg-type business-connection 22(define-tg-type business-connection
23 (id string) 23 (id string)
diff --git a/src/tg/callback-query.lisp b/src/tg/callback-query.lisp
index 3f8cf2d..8dc88d1 100644
--- a/src/tg/callback-query.lisp
+++ b/src/tg/callback-query.lisp
@@ -1,10 +1,10 @@
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/callback-query 3(defpackage :ukkoclot/src/tg/callback-query
4 (:use :c2cl :ukkoclot/tg/type-macros) 4 (:use :c2cl :ukkoclot/src/tg/type-macros)
5 (:use 5 (:use
6 :ukkoclot/tg/message 6 :ukkoclot/src/tg/message
7 :ukkoclot/tg/user) 7 :ukkoclot/src/tg/user)
8 (:export 8 (:export
9 #:callback-query 9 #:callback-query
10 #:make-callback-query 10 #:make-callback-query
@@ -17,7 +17,7 @@
17 #:callback-query-chat-instance 17 #:callback-query-chat-instance
18 #:callback-query-data 18 #:callback-query-data
19 #:callback-query-game-short-name)) 19 #:callback-query-game-short-name))
20(in-package :ukkoclot/tg/callback-query) 20(in-package :ukkoclot/src/tg/callback-query)
21 21
22(define-tg-type callback-query 22(define-tg-type callback-query
23 (id string) 23 (id string)
diff --git a/src/tg/chat-administrator-rights.lisp b/src/tg/chat-administrator-rights.lisp
index 4cbe47f..05f5fb7 100644
--- a/src/tg/chat-administrator-rights.lisp
+++ b/src/tg/chat-administrator-rights.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/chat-administrator-rights 3(defpackage :ukkoclot/src/tg/chat-administrator-rights
4 (:use :c2cl :ukkoclot/tg/type-macros) 4 (:use :c2cl :ukkoclot/src/tg/type-macros)
5 (:export 5 (:export
6 #:chat-administrator-rights 6 #:chat-administrator-rights
7 #:make-chat-administrator-rights 7 #:make-chat-administrator-rights
@@ -23,7 +23,7 @@
23 #:chat-administrator-rights-can-pin-messages 23 #:chat-administrator-rights-can-pin-messages
24 #:chat-administrator-rights-can-manage-topics 24 #:chat-administrator-rights-can-manage-topics
25 #:chat-administrator-rights-can-manage-direct-messages)) 25 #:chat-administrator-rights-can-manage-direct-messages))
26(in-package :ukkoclot/tg/chat-administrator-rights) 26(in-package :ukkoclot/src/tg/chat-administrator-rights)
27 27
28(define-tg-type chat-administrator-rights 28(define-tg-type chat-administrator-rights
29 (is-anonymous boolean) 29 (is-anonymous boolean)
diff --git a/src/tg/chat-type.lisp b/src/tg/chat-type.lisp
index daf135a..4d19bd1 100644
--- a/src/tg/chat-type.lisp
+++ b/src/tg/chat-type.lisp
@@ -1,9 +1,9 @@
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/chat-type 3(defpackage :ukkoclot/src/tg/chat-type
4 (:use :c2cl :ukkoclot/enum) 4 (:use :c2cl :ukkoclot/src/enum)
5 (:export :channel :chat-type :group :private :supergroup)) 5 (:export :channel :chat-type :group :private :supergroup))
6(in-package :ukkoclot/tg/chat-type) 6(in-package :ukkoclot/src/tg/chat-type)
7 7
8(define-enum chat-type 8(define-enum chat-type
9 (private "private") 9 (private "private")
diff --git a/src/tg/chat.lisp b/src/tg/chat.lisp
index bdb698a..6e2f2b7 100644
--- a/src/tg/chat.lisp
+++ b/src/tg/chat.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/chat 3(defpackage :ukkoclot/src/tg/chat
4 (:use :c2cl :ukkoclot/tg/chat-type :ukkoclot/tg/type-macros) 4 (:use :c2cl :ukkoclot/src/tg/chat-type :ukkoclot/src/tg/type-macros)
5 (:export 5 (:export
6 #:chat 6 #:chat
7 #:make-chat 7 #:make-chat
@@ -15,7 +15,7 @@
15 #:chat-last-name 15 #:chat-last-name
16 #:chat-is-forum 16 #:chat-is-forum
17 #:chat-is-direct-messages)) 17 #:chat-is-direct-messages))
18(in-package :ukkoclot/tg/chat) 18(in-package :ukkoclot/src/tg/chat)
19 19
20(define-tg-type chat 20(define-tg-type chat
21 (id integer) 21 (id integer)
diff --git a/src/tg/delete-message.lisp b/src/tg/delete-message.lisp
index 54cfc8b..cc52371 100644
--- a/src/tg/delete-message.lisp
+++ b/src/tg/delete-message.lisp
@@ -1,9 +1,9 @@
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/src/tg/delete-message
4 (:use :c2cl :ukkoclot/tg/message :ukkoclot/tg/method-macros :ukkoclot/tg/send-animation) 4 (:use :c2cl :ukkoclot/src/tg/message :ukkoclot/src/tg/method-macros :ukkoclot/src/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/src/tg/delete-message)
7 7
8(define-tg-method (delete-message boolean) 8(define-tg-method (delete-message boolean)
9 (chat-id (or integer string)) 9 (chat-id (or integer string))
diff --git a/src/tg/edit-message-text.lisp b/src/tg/edit-message-text.lisp
index 65e2cc7..6038e43 100644
--- a/src/tg/edit-message-text.lisp
+++ b/src/tg/edit-message-text.lisp
@@ -1,16 +1,16 @@
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/edit-message-text 3(defpackage :ukkoclot/src/tg/edit-message-text
4 (:use 4 (:use
5 :c2cl 5 :c2cl
6 :ukkoclot/tg/inline-keyboard-markup 6 :ukkoclot/src/tg/inline-keyboard-markup
7 :ukkoclot/tg/link-preview-options 7 :ukkoclot/src/tg/link-preview-options
8 :ukkoclot/tg/message 8 :ukkoclot/src/tg/message
9 :ukkoclot/tg/message-entity 9 :ukkoclot/src/tg/message-entity
10 :ukkoclot/tg/method-macros 10 :ukkoclot/src/tg/method-macros
11 :ukkoclot/tg/parse-mode) 11 :ukkoclot/src/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/src/tg/edit-message-text)
14 14
15;; TODO: Add a way to simply specify :message msg :) 15;; TODO: Add a way to simply specify :message msg :)
16(define-tg-method (edit-message-text message) 16(define-tg-method (edit-message-text message)
diff --git a/src/tg/force-reply.lisp b/src/tg/force-reply.lisp
index 21a4ac6..a3e22f3 100644
--- a/src/tg/force-reply.lisp
+++ b/src/tg/force-reply.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/force-reply 3(defpackage :ukkoclot/src/tg/force-reply
4 (:use :c2cl :ukkoclot/tg/type-macros) 4 (:use :c2cl :ukkoclot/src/tg/type-macros)
5 (:export 5 (:export
6 #:force-reply 6 #:force-reply
7 #:make-force-reply 7 #:make-force-reply
@@ -10,7 +10,7 @@
10 #:force-reply-force-reply 10 #:force-reply-force-reply
11 #:force-reply-input-field-placeholder 11 #:force-reply-input-field-placeholder
12 #:force-reply-selective)) 12 #:force-reply-selective))
13(in-package :ukkoclot/tg/force-reply) 13(in-package :ukkoclot/src/tg/force-reply)
14 14
15(define-tg-type force-reply 15(define-tg-type force-reply
16 (force-reply boolean t :skip-if-default nil) 16 (force-reply boolean t :skip-if-default nil)
diff --git a/src/tg/get-me.lisp b/src/tg/get-me.lisp
index d08fb0e..b7e8bc0 100644
--- a/src/tg/get-me.lisp
+++ b/src/tg/get-me.lisp
@@ -1,10 +1,10 @@
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/src/tg/get-me
4 (:use :c2cl :ukkoclot/tg/method-macros :ukkoclot/tg/user) 4 (:use :c2cl :ukkoclot/src/tg/method-macros :ukkoclot/src/tg/user)
5 (:import-from :ukkoclot/state :bot-id% :bot-username%) 5 (:import-from :ukkoclot/src/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/src/tg/get-me)
8 8
9(define-tg-method (get-me% user :GET)) 9(define-tg-method (get-me% user :GET))
10 10
diff --git a/src/tg/get-my-name.lisp b/src/tg/get-my-name.lisp
index a597fe0..b7cb9bc 100644
--- a/src/tg/get-my-name.lisp
+++ b/src/tg/get-my-name.lisp
@@ -1,9 +1,9 @@
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/src/tg/get-my-name
4 (:use :c2cl :ukkoclot/tg/bot-name :ukkoclot/tg/method-macros) 4 (:use :c2cl :ukkoclot/src/tg/bot-name :ukkoclot/src/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/src/tg/get-my-name)
7 7
8(define-tg-method (get-my-name bot-name :GET) 8(define-tg-method (get-my-name bot-name :GET)
9 (language-code (or string null) nil)) 9 (language-code (or string null) nil))
diff --git a/src/tg/get-updates.lisp b/src/tg/get-updates.lisp
index 5192e3c..5a4da4f 100644
--- a/src/tg/get-updates.lisp
+++ b/src/tg/get-updates.lisp
@@ -1,9 +1,9 @@
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/src/tg/get-updates
4 (:use :c2cl :ukkoclot/tg/method-macros :ukkoclot/tg/update) 4 (:use :c2cl :ukkoclot/src/tg/method-macros :ukkoclot/src/tg/update)
5 (:export :get-updates)) 5 (:export :get-updates))
6(in-package :ukkoclot/tg/get-updates) 6(in-package :ukkoclot/src/tg/get-updates)
7 7
8(define-tg-method (get-updates (array update)) 8(define-tg-method (get-updates (array update))
9 (offset (or integer null) nil) 9 (offset (or integer null) nil)
diff --git a/src/tg/inline-keyboard-button.lisp b/src/tg/inline-keyboard-button.lisp
index 7b49be6..8d866a3 100644
--- a/src/tg/inline-keyboard-button.lisp
+++ b/src/tg/inline-keyboard-button.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/inline-keyboard-button 3(defpackage :ukkoclot/src/tg/inline-keyboard-button
4 (:use :c2cl :ukkoclot/tg/type-macros :ukkoclot/tg/web-app-info) 4 (:use :c2cl :ukkoclot/src/tg/type-macros :ukkoclot/src/tg/web-app-info)
5 (:export 5 (:export
6 #:inline-keyboard-button 6 #:inline-keyboard-button
7 #:make-inline-keyboard-button 7 #:make-inline-keyboard-button
@@ -14,7 +14,7 @@
14 #:inline-keyboard-button-switch-inline-query 14 #:inline-keyboard-button-switch-inline-query
15 #:inline-keyboard-button-switch-inline-query-current-chat 15 #:inline-keyboard-button-switch-inline-query-current-chat
16 #:inline-keyboard-button-pay)) 16 #:inline-keyboard-button-pay))
17(in-package :ukkoclot/tg/inline-keyboard-button) 17(in-package :ukkoclot/src/tg/inline-keyboard-button)
18 18
19(define-tg-type inline-keyboard-button 19(define-tg-type inline-keyboard-button
20 (text string) 20 (text string)
diff --git a/src/tg/inline-keyboard-markup.lisp b/src/tg/inline-keyboard-markup.lisp
index a242557..ac5aab4 100644
--- a/src/tg/inline-keyboard-markup.lisp
+++ b/src/tg/inline-keyboard-markup.lisp
@@ -1,14 +1,14 @@
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/inline-keyboard-markup 3(defpackage :ukkoclot/src/tg/inline-keyboard-markup
4 (:use :c2cl :ukkoclot/tg/inline-keyboard-button :ukkoclot/tg/type-macros) 4 (:use :c2cl :ukkoclot/src/tg/inline-keyboard-button :ukkoclot/src/tg/type-macros)
5 (:export 5 (:export
6 #:inline-keyboard-markup 6 #:inline-keyboard-markup
7 #:make-inline-keyboard-markup 7 #:make-inline-keyboard-markup
8 #:inline-keyboard-markup-p 8 #:inline-keyboard-markup-p
9 #:copy-inline-keyboard-markup 9 #:copy-inline-keyboard-markup
10 #:inline-keyboard-markup-inline-keyboard)) 10 #:inline-keyboard-markup-inline-keyboard))
11(in-package :ukkoclot/tg/inline-keyboard-markup) 11(in-package :ukkoclot/src/tg/inline-keyboard-markup)
12 12
13(define-tg-type inline-keyboard-markup 13(define-tg-type inline-keyboard-markup
14 (inline-keyboard (array (array inline-keyboard-button)))) 14 (inline-keyboard (array (array inline-keyboard-button))))
diff --git a/src/tg/keyboard-button-poll-type.lisp b/src/tg/keyboard-button-poll-type.lisp
index 7aecc48..da74da5 100644
--- a/src/tg/keyboard-button-poll-type.lisp
+++ b/src/tg/keyboard-button-poll-type.lisp
@@ -1,14 +1,14 @@
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/keyboard-button-poll-type 3(defpackage :ukkoclot/src/tg/keyboard-button-poll-type
4 (:use :c2cl :ukkoclot/tg/type-macros) 4 (:use :c2cl :ukkoclot/src/tg/type-macros)
5 (:export 5 (:export
6 #:keyboard-button-poll-type 6 #:keyboard-button-poll-type
7 #:make-keyboard-button-poll-type 7 #:make-keyboard-button-poll-type
8 #:keyboard-button-poll-type-p 8 #:keyboard-button-poll-type-p
9 #:copy-keyboard-button-poll-type 9 #:copy-keyboard-button-poll-type
10 #:keyboard-button-poll-type-type)) 10 #:keyboard-button-poll-type-type))
11(in-package :ukkoclot/tg/keyboard-button-poll-type) 11(in-package :ukkoclot/src/tg/keyboard-button-poll-type)
12 12
13(define-tg-type keyboard-button-poll-type 13(define-tg-type keyboard-button-poll-type
14 (type (or string null) nil)) ;(member "quiz" "regular") or null 14 (type (or string null) nil)) ;(member "quiz" "regular") or null
diff --git a/src/tg/keyboard-button-request-chat.lisp b/src/tg/keyboard-button-request-chat.lisp
index 4128571..981487e 100644
--- a/src/tg/keyboard-button-request-chat.lisp
+++ b/src/tg/keyboard-button-request-chat.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/keyboard-button-request-chat 3(defpackage :ukkoclot/src/tg/keyboard-button-request-chat
4 (:use :c2cl :ukkoclot/tg/chat-administrator-rights :ukkoclot/tg/type-macros) 4 (:use :c2cl :ukkoclot/src/tg/chat-administrator-rights :ukkoclot/src/tg/type-macros)
5 (:export 5 (:export
6 #:keyboard-button-request-chat 6 #:keyboard-button-request-chat
7 #:make-keyboard-button-request-chat 7 #:make-keyboard-button-request-chat
@@ -16,7 +16,7 @@
16 #:keyboard-button-request-chat-request-title 16 #:keyboard-button-request-chat-request-title
17 #:keyboard-button-request-chat-request-username 17 #:keyboard-button-request-chat-request-username
18 #:keyboard-button-request-chat-request-photo)) 18 #:keyboard-button-request-chat-request-photo))
19(in-package :ukkoclot/tg/keyboard-button-request-chat) 19(in-package :ukkoclot/src/tg/keyboard-button-request-chat)
20 20
21(define-tg-type keyboard-button-request-chat 21(define-tg-type keyboard-button-request-chat
22 (request-id integer) 22 (request-id integer)
diff --git a/src/tg/keyboard-button-request-users.lisp b/src/tg/keyboard-button-request-users.lisp
index 2782870..4a22a21 100644
--- a/src/tg/keyboard-button-request-users.lisp
+++ b/src/tg/keyboard-button-request-users.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/keyboard-button-request-users 3(defpackage :ukkoclot/src/tg/keyboard-button-request-users
4 (:use :c2cl :ukkoclot/tg/type-macros) 4 (:use :c2cl :ukkoclot/src/tg/type-macros)
5 (:export 5 (:export
6 #:keyboard-button-request-users 6 #:keyboard-button-request-users
7 #:make-keyboard-button-request-users 7 #:make-keyboard-button-request-users
@@ -12,7 +12,7 @@
12 #:keyboard-button-request-users-request-name 12 #:keyboard-button-request-users-request-name
13 #:keyboard-button-request-users-request-username 13 #:keyboard-button-request-users-request-username
14 #:keyboard-button-request-users-request-photo)) 14 #:keyboard-button-request-users-request-photo))
15(in-package :ukkoclot/tg/keyboard-button-request-users) 15(in-package :ukkoclot/src/tg/keyboard-button-request-users)
16 16
17(define-tg-type keyboard-button-request-users 17(define-tg-type keyboard-button-request-users
18 (request-id integer) 18 (request-id integer)
diff --git a/src/tg/keyboard-button.lisp b/src/tg/keyboard-button.lisp
index 7e0791f..264b7c1 100644
--- a/src/tg/keyboard-button.lisp
+++ b/src/tg/keyboard-button.lisp
@@ -1,13 +1,13 @@
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/keyboard-button 3(defpackage :ukkoclot/src/tg/keyboard-button
4 (:use 4 (:use
5 :c2cl 5 :c2cl
6 :ukkoclot/tg/keyboard-button-poll-type 6 :ukkoclot/src/tg/keyboard-button-poll-type
7 :ukkoclot/tg/keyboard-button-request-chat 7 :ukkoclot/src/tg/keyboard-button-request-chat
8 :ukkoclot/tg/keyboard-button-request-users 8 :ukkoclot/src/tg/keyboard-button-request-users
9 :ukkoclot/tg/type-macros 9 :ukkoclot/src/tg/type-macros
10 :ukkoclot/tg/web-app-info) 10 :ukkoclot/src/tg/web-app-info)
11 (:export 11 (:export
12 #:keyboard-button 12 #:keyboard-button
13 #:make-keyboard-button 13 #:make-keyboard-button
@@ -20,7 +20,7 @@
20 #:keyboard-button-request-location 20 #:keyboard-button-request-location
21 #:keyboard-button-request-poll 21 #:keyboard-button-request-poll
22 #:keyboard-button-web-app)) 22 #:keyboard-button-web-app))
23(in-package :ukkoclot/tg/keyboard-button) 23(in-package :ukkoclot/src/tg/keyboard-button)
24 24
25(define-tg-type keyboard-button 25(define-tg-type keyboard-button
26 (text string) 26 (text string)
diff --git a/src/tg/link-preview-options.lisp b/src/tg/link-preview-options.lisp
index a6fe618..3d1ff3f 100644
--- a/src/tg/link-preview-options.lisp
+++ b/src/tg/link-preview-options.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/link-preview-options 3(defpackage :ukkoclot/src/tg/link-preview-options
4 (:use :c2cl :ukkoclot/tg/type-macros) 4 (:use :c2cl :ukkoclot/src/tg/type-macros)
5 (:export 5 (:export
6 #:link-preview-options 6 #:link-preview-options
7 #:make-link-preview-options 7 #:make-link-preview-options
@@ -12,7 +12,7 @@
12 #:link-preview-options-prefer-small-media 12 #:link-preview-options-prefer-small-media
13 #:link-preview-options-prefer-large-media 13 #:link-preview-options-prefer-large-media
14 #:link-preview-options-show-above-text)) 14 #:link-preview-options-show-above-text))
15(in-package :ukkoclot/tg/link-preview-options) 15(in-package :ukkoclot/src/tg/link-preview-options)
16 16
17(define-tg-type link-preview-options 17(define-tg-type link-preview-options
18 (is-disabled boolean nil) 18 (is-disabled boolean nil)
diff --git a/src/tg/message-entity-type.lisp b/src/tg/message-entity-type.lisp
index f904509..f964667 100644
--- a/src/tg/message-entity-type.lisp
+++ b/src/tg/message-entity-type.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/message-entity-type 3(defpackage :ukkoclot/src/tg/message-entity-type
4 (:use :c2cl :ukkoclot/enum) 4 (:use :c2cl :ukkoclot/src/enum)
5 (:export 5 (:export
6 :message-entity-type 6 :message-entity-type
7 :mention 7 :mention
@@ -23,7 +23,7 @@
23 :text-link 23 :text-link
24 :text-mention 24 :text-mention
25 :custom-emoji)) 25 :custom-emoji))
26(in-package :ukkoclot/tg/message-entity-type) 26(in-package :ukkoclot/src/tg/message-entity-type)
27 27
28(define-enum message-entity-type 28(define-enum message-entity-type
29 (mention "mention") 29 (mention "mention")
diff --git a/src/tg/message-entity.lisp b/src/tg/message-entity.lisp
index c7e6ba1..feb3e8f 100644
--- a/src/tg/message-entity.lisp
+++ b/src/tg/message-entity.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/message-entity 3(defpackage :ukkoclot/src/tg/message-entity
4 (:use :c2cl :iterate :ukkoclot/tg/type-macros :ukkoclot/tg/message-entity-type :ukkoclot/tg/user) 4 (:use :c2cl :iterate :ukkoclot/src/tg/type-macros :ukkoclot/src/tg/message-entity-type :ukkoclot/src/tg/user)
5 (:export 5 (:export
6 #:message-entity 6 #:message-entity
7 #:make-message-entity 7 #:make-message-entity
@@ -16,7 +16,7 @@
16 #:message-entity-custom-emoji-id 16 #:message-entity-custom-emoji-id
17 17
18 #:message-entity-extract)) 18 #:message-entity-extract))
19(in-package :ukkoclot/tg/message-entity) 19(in-package :ukkoclot/src/tg/message-entity)
20 20
21(define-tg-type message-entity 21(define-tg-type message-entity
22 (type message-entity-type) 22 (type message-entity-type)
diff --git a/src/tg/message-reaction-updated.lisp b/src/tg/message-reaction-updated.lisp
index 3792246..896bb9b 100644
--- a/src/tg/message-reaction-updated.lisp
+++ b/src/tg/message-reaction-updated.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/tg/message-reaction-updated 3(defpackage :ukkoclot/src/tg/message-reaction-updated
4 (:use 4 (:use
5 :c2cl 5 :c2cl
6 :ukkoclot/tg/chat 6 :ukkoclot/src/tg/chat
7 :ukkoclot/tg/type-macros 7 :ukkoclot/src/tg/type-macros
8 :ukkoclot/tg/reaction-type 8 :ukkoclot/src/tg/reaction-type
9 :ukkoclot/tg/user) 9 :ukkoclot/src/tg/user)
10 (:export 10 (:export
11 #:message-reaction-updated 11 #:message-reaction-updated
12 #:make-message-reaction-updated 12 #:make-message-reaction-updated
@@ -19,7 +19,7 @@
19 #:message-reaction-updated-date 19 #:message-reaction-updated-date
20 #:message-reaction-updated-old-reaction 20 #:message-reaction-updated-old-reaction
21 #:message-reaction-updated-new-reaction)) 21 #:message-reaction-updated-new-reaction))
22(in-package :ukkoclot/tg/message-reaction-updated) 22(in-package :ukkoclot/src/tg/message-reaction-updated)
23 23
24(define-tg-type message-reaction-updated 24(define-tg-type message-reaction-updated
25 (chat chat) 25 (chat chat)
diff --git a/src/tg/message.lisp b/src/tg/message.lisp
index e7043bc..6739189 100644
--- a/src/tg/message.lisp
+++ b/src/tg/message.lisp
@@ -1,14 +1,14 @@
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/message 3(defpackage :ukkoclot/src/tg/message
4 (:use 4 (:use
5 :c2cl 5 :c2cl
6 :ukkoclot/tg/animation 6 :ukkoclot/src/tg/animation
7 :ukkoclot/tg/chat 7 :ukkoclot/src/tg/chat
8 :ukkoclot/tg/message-entity 8 :ukkoclot/src/tg/message-entity
9 :ukkoclot/tg/photo-size 9 :ukkoclot/src/tg/photo-size
10 :ukkoclot/tg/type-macros 10 :ukkoclot/src/tg/type-macros
11 :ukkoclot/tg/user) 11 :ukkoclot/src/tg/user)
12 (:export 12 (:export
13 #:message-chat-id 13 #:message-chat-id
14 #:message-thread-id 14 #:message-thread-id
@@ -57,7 +57,7 @@
57 #:message-migrate-from-chat-id 57 #:message-migrate-from-chat-id
58 #:message-pinned-message 58 #:message-pinned-message
59 #:message-connected-website)) 59 #:message-connected-website))
60(in-package :ukkoclot/tg/message) 60(in-package :ukkoclot/src/tg/message)
61 61
62;; If this is a MaybeInaccessibleMessage date will be 0 if this is inaccessible 62;; If this is a MaybeInaccessibleMessage date will be 0 if this is inaccessible
63(define-tg-type message 63(define-tg-type message
diff --git a/src/tg/method-macros.lisp b/src/tg/method-macros.lisp
index 82da47c..00adf95 100644
--- a/src/tg/method-macros.lisp
+++ b/src/tg/method-macros.lisp
@@ -1,16 +1,16 @@
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/method-macros 3(defpackage :ukkoclot/src/tg/method-macros
4 (:documentation "Macros for easy defining TG methods.") 4 (:documentation "Macros for easy defining TG methods.")
5 (:use :c2cl :iterate) 5 (:use :c2cl :iterate)
6 (:import-from :alexandria :with-gensyms) 6 (:import-from :alexandria :with-gensyms)
7 (:import-from :com.dieggsy.f-string :enable-f-strings) 7 (:import-from :com.dieggsy.f-string :enable-f-strings)
8 (:import-from :serapeum :take) 8 (:import-from :serapeum :take)
9 (:import-from :str) 9 (:import-from :str)
10 (:import-from :ukkoclot/state :bot) 10 (:import-from :ukkoclot/src/state :bot)
11 (:import-from :ukkoclot/transport :do-call) 11 (:import-from :ukkoclot/src/transport :do-call)
12 (:export :define-tg-method)) 12 (:export :define-tg-method))
13(in-package :ukkoclot/tg/method-macros) 13(in-package :ukkoclot/src/tg/method-macros)
14 14
15(eval-when (:compile-toplevel :load-toplevel :execute) 15(eval-when (:compile-toplevel :load-toplevel :execute)
16 (enable-f-strings)) 16 (enable-f-strings))
diff --git a/src/tg/parse-mode.lisp b/src/tg/parse-mode.lisp
index 57ef2af..6fa37c3 100644
--- a/src/tg/parse-mode.lisp
+++ b/src/tg/parse-mode.lisp
@@ -1,9 +1,9 @@
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/parse-mode 3(defpackage :ukkoclot/src/tg/parse-mode
4 (:use :c2cl :ukkoclot/enum) 4 (:use :c2cl :ukkoclot/src/enum)
5 (:export :html :markdown-legacy :markdown :parse-mode)) 5 (:export :html :markdown-legacy :markdown :parse-mode))
6(in-package :ukkoclot/tg/parse-mode) 6(in-package :ukkoclot/src/tg/parse-mode)
7 7
8(define-enum parse-mode 8(define-enum parse-mode
9 (markdown-legacy "Markdown") 9 (markdown-legacy "Markdown")
diff --git a/src/tg/photo-size.lisp b/src/tg/photo-size.lisp
index f55c0df..af8ff5e 100644
--- a/src/tg/photo-size.lisp
+++ b/src/tg/photo-size.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/photo-size 3(defpackage :ukkoclot/src/tg/photo-size
4 (:use :c2cl :ukkoclot/tg/type-macros) 4 (:use :c2cl :ukkoclot/src/tg/type-macros)
5 (:export 5 (:export
6 #:photo-size 6 #:photo-size
7 #:make-photo-size 7 #:make-photo-size
@@ -12,7 +12,7 @@
12 #:photo-size-width 12 #:photo-size-width
13 #:photo-size-height 13 #:photo-size-height
14 #:photo-size-file-size)) 14 #:photo-size-file-size))
15(in-package :ukkoclot/tg/photo-size) 15(in-package :ukkoclot/src/tg/photo-size)
16 16
17(define-tg-type photo-size 17(define-tg-type photo-size
18 (file-id string) 18 (file-id string)
diff --git a/src/tg/reaction-type-custom-emoji.lisp b/src/tg/reaction-type-custom-emoji.lisp
index 21cb966..05ed3b7 100644
--- a/src/tg/reaction-type-custom-emoji.lisp
+++ b/src/tg/reaction-type-custom-emoji.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/reaction-type-custom-emoji 3(defpackage :ukkoclot/src/tg/reaction-type-custom-emoji
4 (:use :c2cl :ukkoclot/enum :ukkoclot/tg/type-macros) 4 (:use :c2cl :ukkoclot/src/enum :ukkoclot/src/tg/type-macros)
5 (:export 5 (:export
6 #:custom-emoji-type 6 #:custom-emoji-type
7 #:reaction-type-custom-emoji-type 7 #:reaction-type-custom-emoji-type
@@ -10,7 +10,7 @@
10 #:reaction-type-custom-emoji-p 10 #:reaction-type-custom-emoji-p
11 #:copy-reaction-type-custom-emoji 11 #:copy-reaction-type-custom-emoji
12 #:reaction-type-custom-emoji-custom-emoji-id)) 12 #:reaction-type-custom-emoji-custom-emoji-id))
13(in-package :ukkoclot/tg/reaction-type-custom-emoji) 13(in-package :ukkoclot/src/tg/reaction-type-custom-emoji)
14 14
15(define-enum reaction-type-custom-emoji-type 15(define-enum reaction-type-custom-emoji-type
16 (custom-emoji-type "custom_emoji")) 16 (custom-emoji-type "custom_emoji"))
diff --git a/src/tg/reaction-type-emoji.lisp b/src/tg/reaction-type-emoji.lisp
index 6939e41..1e48b01 100644
--- a/src/tg/reaction-type-emoji.lisp
+++ b/src/tg/reaction-type-emoji.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/reaction-type-emoji 3(defpackage :ukkoclot/src/tg/reaction-type-emoji
4 (:use :c2cl :ukkoclot/enum :ukkoclot/tg/type-macros) 4 (:use :c2cl :ukkoclot/src/enum :ukkoclot/src/tg/type-macros)
5 (:export 5 (:export
6 #:reaction-type-emoji-type 6 #:reaction-type-emoji-type
7 #:emoji-type 7 #:emoji-type
@@ -10,7 +10,7 @@
10 #:reaction-type-emoji-p 10 #:reaction-type-emoji-p
11 #:copy-reaction-type-emoji 11 #:copy-reaction-type-emoji
12 #:reaction-type-emoji-emoji)) 12 #:reaction-type-emoji-emoji))
13(in-package :ukkoclot/tg/reaction-type-emoji) 13(in-package :ukkoclot/src/tg/reaction-type-emoji)
14 14
15(define-enum reaction-type-emoji-type 15(define-enum reaction-type-emoji-type
16 (emoji-type "emoji")) 16 (emoji-type "emoji"))
diff --git a/src/tg/reaction-type-paid.lisp b/src/tg/reaction-type-paid.lisp
index 8d53610..413f9ae 100644
--- a/src/tg/reaction-type-paid.lisp
+++ b/src/tg/reaction-type-paid.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/reaction-type-paid 3(defpackage :ukkoclot/src/tg/reaction-type-paid
4 (:use :c2cl :ukkoclot/enum :ukkoclot/tg/type-macros) 4 (:use :c2cl :ukkoclot/src/enum :ukkoclot/src/tg/type-macros)
5 (:export 5 (:export
6 #:reaction-type-paid-type 6 #:reaction-type-paid-type
7 #:paid-type 7 #:paid-type
@@ -9,7 +9,7 @@
9 #:make-reaction-type-paid 9 #:make-reaction-type-paid
10 #:reaction-type-paid-p 10 #:reaction-type-paid-p
11 #:copy-reaction-type-paid)) 11 #:copy-reaction-type-paid))
12(in-package :ukkoclot/tg/reaction-type-paid) 12(in-package :ukkoclot/src/tg/reaction-type-paid)
13 13
14(define-enum reaction-type-paid-type 14(define-enum reaction-type-paid-type
15 (paid-type "paid")) 15 (paid-type "paid"))
diff --git a/src/tg/reaction-type.lisp b/src/tg/reaction-type.lisp
index 1fd07f5..356555d 100644
--- a/src/tg/reaction-type.lisp
+++ b/src/tg/reaction-type.lisp
@@ -1,14 +1,14 @@
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/reaction-type 3(defpackage :ukkoclot/src/tg/reaction-type
4 (:use 4 (:use
5 :c2cl 5 :c2cl
6 :ukkoclot/tg/type-macros 6 :ukkoclot/src/tg/type-macros
7 :ukkoclot/tg/reaction-type-custom-emoji 7 :ukkoclot/src/tg/reaction-type-custom-emoji
8 :ukkoclot/tg/reaction-type-emoji 8 :ukkoclot/src/tg/reaction-type-emoji
9 :ukkoclot/tg/reaction-type-paid) 9 :ukkoclot/src/tg/reaction-type-paid)
10 (:export :reaction-type)) 10 (:export :reaction-type))
11(in-package :ukkoclot/tg/reaction-type) 11(in-package :ukkoclot/src/tg/reaction-type)
12 12
13(deftype reaction-type () 13(deftype reaction-type ()
14 '(or reaction-type-emoji reaction-type-custom-emoji reaction-type-paid)) 14 '(or reaction-type-emoji reaction-type-custom-emoji reaction-type-paid))
diff --git a/src/tg/reply-keyboard-markup.lisp b/src/tg/reply-keyboard-markup.lisp
index a0c16ca..d6c0af3 100644
--- a/src/tg/reply-keyboard-markup.lisp
+++ b/src/tg/reply-keyboard-markup.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/reply-keyboard-markup 3(defpackage :ukkoclot/src/tg/reply-keyboard-markup
4 (:use :c2cl :ukkoclot/tg/keyboard-button :ukkoclot/tg/type-macros) 4 (:use :c2cl :ukkoclot/src/tg/keyboard-button :ukkoclot/src/tg/type-macros)
5 (:export 5 (:export
6 #:reply-keyboard-markup 6 #:reply-keyboard-markup
7 #:make-reply-keyboard-markup 7 #:make-reply-keyboard-markup
@@ -13,7 +13,7 @@
13 #:reply-keyboard-markup-one-time-keyboard 13 #:reply-keyboard-markup-one-time-keyboard
14 #:reply-keyboard-markup-input-field-placeholder 14 #:reply-keyboard-markup-input-field-placeholder
15 #:reply-keyboard-markup-selective)) 15 #:reply-keyboard-markup-selective))
16(in-package :ukkoclot/tg/reply-keyboard-markup) 16(in-package :ukkoclot/src/tg/reply-keyboard-markup)
17 17
18(define-tg-type reply-keyboard-markup 18(define-tg-type reply-keyboard-markup
19 (keyboard (array (array keyboard-button))) 19 (keyboard (array (array keyboard-button)))
diff --git a/src/tg/reply-keyboard-remove.lisp b/src/tg/reply-keyboard-remove.lisp
index 595ff31..efed650 100644
--- a/src/tg/reply-keyboard-remove.lisp
+++ b/src/tg/reply-keyboard-remove.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/reply-keyboard-remove 3(defpackage :ukkoclot/src/tg/reply-keyboard-remove
4 (:use :c2cl :ukkoclot/tg/type-macros) 4 (:use :c2cl :ukkoclot/src/tg/type-macros)
5 (:export 5 (:export
6 #:reply-keyboard-remove 6 #:reply-keyboard-remove
7 #:make-reply-keyboard-remove 7 #:make-reply-keyboard-remove
@@ -9,7 +9,7 @@
9 #:copy-reply-keyboard-remove 9 #:copy-reply-keyboard-remove
10 #:reply-keyboard-remove-remove-keyboard 10 #:reply-keyboard-remove-remove-keyboard
11 #:reply-keyboard-remove-selective)) 11 #:reply-keyboard-remove-selective))
12(in-package :ukkoclot/tg/reply-keyboard-remove) 12(in-package :ukkoclot/src/tg/reply-keyboard-remove)
13 13
14(define-tg-type reply-keyboard-remove 14(define-tg-type reply-keyboard-remove
15 (remove-keyboard boolean t :skip-if-default nil) 15 (remove-keyboard boolean t :skip-if-default nil)
diff --git a/src/tg/reply-parameters.lisp b/src/tg/reply-parameters.lisp
index 9527c40..d9c7b3b 100644
--- a/src/tg/reply-parameters.lisp
+++ b/src/tg/reply-parameters.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/reply-parameters 3(defpackage :ukkoclot/src/tg/reply-parameters
4 (:use :c2cl :ukkoclot/tg/type-macros :ukkoclot/tg/message-entity) 4 (:use :c2cl :ukkoclot/src/tg/type-macros :ukkoclot/src/tg/message-entity)
5 (:export 5 (:export
6 #:reply-parameters 6 #:reply-parameters
7 #:make-reply-parameters 7 #:make-reply-parameters
@@ -15,7 +15,7 @@
15 #:reply-parameters-quote-entities 15 #:reply-parameters-quote-entities
16 #:reply-parameters-quote-position 16 #:reply-parameters-quote-position
17 #:reply-parameters-checklist-task-id)) 17 #:reply-parameters-checklist-task-id))
18(in-package :ukkoclot/tg/reply-parameters) 18(in-package :ukkoclot/src/tg/reply-parameters)
19 19
20(define-tg-type reply-parameters 20(define-tg-type reply-parameters
21 (message-id integer) 21 (message-id integer)
diff --git a/src/tg/send-animation.lisp b/src/tg/send-animation.lisp
index 1fd7a89..a0b2d57 100644
--- a/src/tg/send-animation.lisp
+++ b/src/tg/send-animation.lisp
@@ -1,20 +1,20 @@
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/send-animation 3(defpackage :ukkoclot/src/tg/send-animation
4 (:use 4 (:use
5 :c2cl 5 :c2cl
6 :ukkoclot/tg/force-reply 6 :ukkoclot/src/tg/force-reply
7 :ukkoclot/tg/inline-keyboard-markup 7 :ukkoclot/src/tg/inline-keyboard-markup
8 :ukkoclot/tg/message 8 :ukkoclot/src/tg/message
9 :ukkoclot/tg/message-entity 9 :ukkoclot/src/tg/message-entity
10 :ukkoclot/tg/method-macros 10 :ukkoclot/src/tg/method-macros
11 :ukkoclot/tg/parse-mode 11 :ukkoclot/src/tg/parse-mode
12 :ukkoclot/tg/reply-keyboard-markup 12 :ukkoclot/src/tg/reply-keyboard-markup
13 :ukkoclot/tg/reply-keyboard-remove 13 :ukkoclot/src/tg/reply-keyboard-remove
14 :ukkoclot/tg/reply-parameters 14 :ukkoclot/src/tg/reply-parameters
15 :ukkoclot/tg/suggested-post-parameters) 15 :ukkoclot/src/tg/suggested-post-parameters)
16 (:export :reply-animation :send-animation)) 16 (:export :reply-animation :send-animation))
17(in-package :ukkoclot/tg/send-animation) 17(in-package :ukkoclot/src/tg/send-animation)
18 18
19(define-tg-method (send-animation message) 19(define-tg-method (send-animation message)
20 (business-connection-id (or string null) nil) 20 (business-connection-id (or string null) nil)
diff --git a/src/tg/send-message.lisp b/src/tg/send-message.lisp
index 164dd83..9edc50d 100644
--- a/src/tg/send-message.lisp
+++ b/src/tg/send-message.lisp
@@ -1,20 +1,20 @@
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/send-message 3(defpackage :ukkoclot/src/tg/send-message
4 (:use 4 (:use
5 :c2cl 5 :c2cl
6 :ukkoclot/tg/force-reply 6 :ukkoclot/src/tg/force-reply
7 :ukkoclot/tg/inline-keyboard-markup 7 :ukkoclot/src/tg/inline-keyboard-markup
8 :ukkoclot/tg/link-preview-options 8 :ukkoclot/src/tg/link-preview-options
9 :ukkoclot/tg/message 9 :ukkoclot/src/tg/message
10 :ukkoclot/tg/message-entity 10 :ukkoclot/src/tg/message-entity
11 :ukkoclot/tg/method-macros 11 :ukkoclot/src/tg/method-macros
12 :ukkoclot/tg/parse-mode 12 :ukkoclot/src/tg/parse-mode
13 :ukkoclot/tg/reply-keyboard-markup 13 :ukkoclot/src/tg/reply-keyboard-markup
14 :ukkoclot/tg/reply-keyboard-remove 14 :ukkoclot/src/tg/reply-keyboard-remove
15 :ukkoclot/tg/reply-parameters) 15 :ukkoclot/src/tg/reply-parameters)
16 (:export :reply-message :send-message)) 16 (:export :reply-message :send-message))
17(in-package :ukkoclot/tg/send-message) 17(in-package :ukkoclot/src/tg/send-message)
18 18
19(define-tg-method (send-message message) 19(define-tg-method (send-message message)
20 (business-connection-id (or string null) nil) 20 (business-connection-id (or string null) nil)
diff --git a/src/tg/set-my-name.lisp b/src/tg/set-my-name.lisp
index 1c6b634..67c698d 100644
--- a/src/tg/set-my-name.lisp
+++ b/src/tg/set-my-name.lisp
@@ -1,9 +1,9 @@
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/src/tg/set-my-name
4 (:use :c2cl :ukkoclot/tg/bot-name :ukkoclot/tg/get-my-name :ukkoclot/tg/method-macros) 4 (:use :c2cl :ukkoclot/src/tg/bot-name :ukkoclot/src/tg/get-my-name :ukkoclot/src/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/src/tg/set-my-name)
7 7
8(define-tg-method (set-my-name% boolean) 8(define-tg-method (set-my-name% boolean)
9 (name (or string null) nil) 9 (name (or string null) nil)
diff --git a/src/tg/suggested-post-parameters.lisp b/src/tg/suggested-post-parameters.lisp
index 2bf3753..f68d49a 100644
--- a/src/tg/suggested-post-parameters.lisp
+++ b/src/tg/suggested-post-parameters.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/suggested-post-parameters 3(defpackage :ukkoclot/src/tg/suggested-post-parameters
4 (:use :c2cl :ukkoclot/tg/type-macros :ukkoclot/tg/suggested-post-price) 4 (:use :c2cl :ukkoclot/src/tg/type-macros :ukkoclot/src/tg/suggested-post-price)
5 (:export 5 (:export
6 #:suggested-post-parameters 6 #:suggested-post-parameters
7 #:make-suggested-post-parameters 7 #:make-suggested-post-parameters
@@ -9,7 +9,7 @@
9 #:copy-suggested-post-parameters 9 #:copy-suggested-post-parameters
10 #:suggested-post-parameters-price 10 #:suggested-post-parameters-price
11 #:suggested-post-parameters-send-date)) 11 #:suggested-post-parameters-send-date))
12(in-package :ukkoclot/tg/suggested-post-parameters) 12(in-package :ukkoclot/src/tg/suggested-post-parameters)
13 13
14(define-tg-type suggested-post-parameters 14(define-tg-type suggested-post-parameters
15 (price (or suggested-post-price null) nil) 15 (price (or suggested-post-price null) nil)
diff --git a/src/tg/suggested-post-price.lisp b/src/tg/suggested-post-price.lisp
index 1369b89..b8eaa21 100644
--- a/src/tg/suggested-post-price.lisp
+++ b/src/tg/suggested-post-price.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/suggested-post-price 3(defpackage :ukkoclot/src/tg/suggested-post-price
4 (:use :c2cl :ukkoclot/tg/type-macros) 4 (:use :c2cl :ukkoclot/src/tg/type-macros)
5 (:export 5 (:export
6 #:suggested-post-price 6 #:suggested-post-price
7 #:make-suggested-post-price 7 #:make-suggested-post-price
@@ -9,7 +9,7 @@
9 #:copy-suggested-post-price 9 #:copy-suggested-post-price
10 #:suggested-post-price-currency 10 #:suggested-post-price-currency
11 #:suggested-post-price-amount)) 11 #:suggested-post-price-amount))
12(in-package :ukkoclot/tg/suggested-post-price) 12(in-package :ukkoclot/src/tg/suggested-post-price)
13 13
14(define-tg-type suggested-post-price 14(define-tg-type suggested-post-price
15 (currency string) ;(member "XTR" "TON") 15 (currency string) ;(member "XTR" "TON")
diff --git a/src/tg/type-macros.lisp b/src/tg/type-macros.lisp
index d09359c..914261d 100644
--- a/src/tg/type-macros.lisp
+++ b/src/tg/type-macros.lisp
@@ -1,17 +1,17 @@
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/type-macros 3(defpackage :ukkoclot/src/tg/type-macros
4 (:documentation "Macros for easy defining TG types.") 4 (:documentation "Macros for easy defining TG types.")
5 (:use :c2cl :iterate) 5 (:use :c2cl :iterate)
6 (:import-from :alexandria :with-gensyms) 6 (:import-from :alexandria :with-gensyms)
7 (:import-from :com.dieggsy.f-string :enable-f-strings) 7 (:import-from :com.dieggsy.f-string :enable-f-strings)
8 (:import-from :str) 8 (:import-from :str)
9 (:import-from :ukkoclot/serializing :parse-value) 9 (:import-from :ukkoclot/src/serializing :parse-value)
10 (:import-from :ukkoclot/hash-tables :gethash-lazy) 10 (:import-from :ukkoclot/src/hash-tables :gethash-lazy)
11 (:local-nicknames 11 (:local-nicknames
12 (:jzon :com.inuoe.jzon)) 12 (:jzon :com.inuoe.jzon))
13 (:export :define-tg-type)) 13 (:export :define-tg-type))
14(in-package :ukkoclot/tg/type-macros) 14(in-package :ukkoclot/src/tg/type-macros)
15 15
16(eval-when (:compile-toplevel :load-toplevel :execute) 16(eval-when (:compile-toplevel :load-toplevel :execute)
17 (enable-f-strings)) 17 (enable-f-strings))
diff --git a/src/tg/update.lisp b/src/tg/update.lisp
index 90535ed..cc4b6d3 100644
--- a/src/tg/update.lisp
+++ b/src/tg/update.lisp
@@ -1,13 +1,13 @@
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/update 3(defpackage :ukkoclot/src/tg/update
4 (:use 4 (:use
5 :c2cl 5 :c2cl
6 :ukkoclot/tg/type-macros 6 :ukkoclot/src/tg/type-macros
7 :ukkoclot/tg/business-connection 7 :ukkoclot/src/tg/business-connection
8 :ukkoclot/tg/callback-query 8 :ukkoclot/src/tg/callback-query
9 :ukkoclot/tg/message 9 :ukkoclot/src/tg/message
10 :ukkoclot/tg/message-reaction-updated) 10 :ukkoclot/src/tg/message-reaction-updated)
11 (:export 11 (:export
12 #:update 12 #:update
13 #:make-update 13 #:make-update
@@ -23,7 +23,7 @@
23 #:update-edited-business-message 23 #:update-edited-business-message
24 #:update-message-reaction 24 #:update-message-reaction
25 #:update-callback-query)) 25 #:update-callback-query))
26(in-package :ukkoclot/tg/update) 26(in-package :ukkoclot/src/tg/update)
27 27
28(define-tg-type update 28(define-tg-type update
29 (update-id integer) 29 (update-id integer)
diff --git a/src/tg/user.lisp b/src/tg/user.lisp
index b16ee15..2549d66 100644
--- a/src/tg/user.lisp
+++ b/src/tg/user.lisp
@@ -1,8 +1,8 @@
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/user 3(defpackage :ukkoclot/src/tg/user
4 (:use :c2cl :ukkoclot/tg/type-macros) 4 (:use :c2cl :ukkoclot/src/tg/type-macros)
5 (:import-from :ukkoclot/strings :escape-xml) 5 (:import-from :ukkoclot/src/strings :escape-xml)
6 (:export 6 (:export
7 #:user 7 #:user
8 #:make-user 8 #:make-user
@@ -22,7 +22,7 @@
22 #:user-can-connect-to-business 22 #:user-can-connect-to-business
23 23
24 #:user-format-name)) 24 #:user-format-name))
25(in-package :ukkoclot/tg/user) 25(in-package :ukkoclot/src/tg/user)
26 26
27(define-tg-type user 27(define-tg-type user
28 (id integer) 28 (id integer)
diff --git a/src/tg/web-app-info.lisp b/src/tg/web-app-info.lisp
index 3f8dc42..6126aa3 100644
--- a/src/tg/web-app-info.lisp
+++ b/src/tg/web-app-info.lisp
@@ -1,14 +1,14 @@
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/web-app-info 3(defpackage :ukkoclot/src/tg/web-app-info
4 (:use :c2cl :ukkoclot/tg/type-macros) 4 (:use :c2cl :ukkoclot/src/tg/type-macros)
5 (:export 5 (:export
6 #:web-app-info 6 #:web-app-info
7 #:make-web-app-info 7 #:make-web-app-info
8 #:web-app-info-p 8 #:web-app-info-p
9 #:copy-web-app-info 9 #:copy-web-app-info
10 #:web-app-info-url)) 10 #:web-app-info-url))
11(in-package :ukkoclot/tg/web-app-info) 11(in-package :ukkoclot/src/tg/web-app-info)
12 12
13(define-tg-type web-app-info 13(define-tg-type web-app-info
14 (url string)) 14 (url string))
diff --git a/src/transport.lisp b/src/transport.lisp
index d47db4d..bb451c1 100644
--- a/src/transport.lisp
+++ b/src/transport.lisp
@@ -1,17 +1,17 @@
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/transport 3(defpackage :ukkoclot/src/transport
4 (:documentation "Package dealing with HTTP calls.") 4 (:documentation "Package dealing with HTTP calls.")
5 (:use :c2cl) 5 (:use :c2cl)
6 (:import-from :cl+ssl) 6 (:import-from :cl+ssl)
7 (:import-from :dex) 7 (:import-from :dex)
8 (:import-from :log) 8 (:import-from :log)
9 (:import-from :ukkoclot/serializing :fixup-args :parse-value) 9 (:import-from :ukkoclot/src/serializing :fixup-args :parse-value)
10 (:import-from :ukkoclot/state :bot-base-uri) 10 (:import-from :ukkoclot/src/state :bot-base-uri)
11 (:local-nicknames 11 (:local-nicknames
12 (:jzon :com.inuoe.jzon)) 12 (:jzon :com.inuoe.jzon))
13 (:export :do-call)) 13 (:export :do-call))
14(in-package :ukkoclot/transport) 14(in-package :ukkoclot/src/transport)
15 15
16(defun req (uri method content) 16(defun req (uri method content)
17 "Wrapper function for making a request." 17 "Wrapper function for making a request."
diff --git a/ukkoclot.asd b/ukkoclot.asd
index fb02132..fd7f14e 100644
--- a/ukkoclot.asd
+++ b/ukkoclot.asd
@@ -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 3
4(defsystem "ukkoclot" 4(defsystem :ukkoclot
5 :class :package-inferred-system 5 :class :package-inferred-system
6 :author "Uko Kokņevičs <perkontevs@gmail.com>" 6 :author "Uko Kokņevičs <perkontevs@gmail.com>"
7 :maintainer "Uko Kokņevičs <perkontevs@gmail.com>" 7 :maintainer "Uko Kokņevičs <perkontevs@gmail.com>"
@@ -10,12 +10,11 @@
10 :version "0.2.0" 10 :version "0.2.0"
11 :description "ukkoclot: Ukko's shitty telegram bot" 11 :description "ukkoclot: Ukko's shitty telegram bot"
12 :long-description #.(uiop:read-file-string (uiop:subpathname *load-pathname* "README.md")) 12 :long-description #.(uiop:read-file-string (uiop:subpathname *load-pathname* "README.md"))
13 :pathname "src" 13 :depends-on (:ukkoclot/src/main)
14 :depends-on (:ukkoclot/main))
15 ;; TODO: :in-order-to ((test-op (test-op ukkoclot-test))) 14 ;; TODO: :in-order-to ((test-op (test-op ukkoclot-test)))
16 15
17(register-system-packages :ukkoclot/config '(:conf)) 16(register-system-packages :ukkoclot/src/config '(:conf))
18(register-system-packages :ukkoclot/main '(:ukkoclot)) 17(register-system-packages :ukkoclot/src/main '(:ukkoclot))
19 18
20(register-system-packages :closer-mop '(:c2cl)) 19(register-system-packages :closer-mop '(:c2cl))
21(register-system-packages :dexador '(:dex)) 20(register-system-packages :dexador '(:dex))
HIC SVNT DRACONES