diff options
| author |  Uko Kokņevičs | 2025-10-24 08:09:46 +0300 |
|---|---|---|
| committer | Uko Kokņevičs | 2025-10-24 08:09:46 +0300 |
| commit | 69d775b3d3a8f5bdb920630c7bdf6ec1b264b203 (patch) | |
| tree | 8e9be882f3d690abed0f37e9a29c9dfd7686e9e8 /src/inline-bots.lisp | |
| parent | Update f-string (diff) | |
| download | ukkoclot-69d775b3d3a8f5bdb920630c7bdf6ec1b264b203.tar.gz ukkoclot-69d775b3d3a8f5bdb920630c7bdf6ec1b264b203.tar.xz ukkoclot-69d775b3d3a8f5bdb920630c7bdf6ec1b264b203.zip | |
Configure a custom readtable explicitly
Diffstat (limited to '')
| -rw-r--r-- | src/inline-bots.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/inline-bots.lisp b/src/inline-bots.lisp index f4d8a8d..db9d8ff 100644 --- a/src/inline-bots.lisp +++ b/src/inline-bots.lisp | |||
| @@ -3,16 +3,16 @@ | |||
| 3 | (defpackage :ukkoclot/src/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/src/tg) | 5 | (:use :c2cl :ukkoclot/src/tg) |
| 6 | (:import-from :com.dieggsy.f-string :enable-f-strings) | ||
| 7 | (:import-from :conf) | 6 | (:import-from :conf) |
| 8 | (:import-from :log) | 7 | (:import-from :log) |
| 8 | (:import-from :named-readtables :in-readtable) | ||
| 9 | (:import-from :serapeum :->) | 9 | (:import-from :serapeum :->) |
| 10 | (:import-from :state) | 10 | (:import-from :state) |
| 11 | (:import-from :ukkoclot/src/readtable :readtable) | ||
| 11 | (:local-nicknames (:db :ukkoclot/src/db)) | 12 | (:local-nicknames (:db :ukkoclot/src/db)) |
| 12 | (:export :blacklist-inline-bot :on-inline-bot :whitelist-inline-bot)) | 13 | (:export :blacklist-inline-bot :on-inline-bot :whitelist-inline-bot)) |
| 13 | (in-package :ukkoclot/src/inline-bots) | 14 | (in-package :ukkoclot/src/inline-bots) |
| 14 | 15 | (in-readtable readtable) | |
| 15 | (enable-f-strings) | ||
| 16 | 16 | ||
| 17 | (-> blacklist-inline-bot (integer) (values &optional)) | 17 | (-> blacklist-inline-bot (integer) (values &optional)) |
| 18 | (defun blacklist-inline-bot (inline-bot-id) | 18 | (defun blacklist-inline-bot (inline-bot-id) |