diff options
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- |
| 2 | suppress-rules = minus-one | 2 | suppress-rules = minus-one, missing-docstring |
| 3 | suggest-libraries = alexandria, uiop, serapeum | 3 | suggest-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)) |