diff options
Diffstat (limited to 'src/tg/method-macros.lisp')
| -rw-r--r-- | src/tg/method-macros.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/tg/method-macros.lisp b/src/tg/method-macros.lisp index b924e15..0be6f00 100644 --- a/src/tg/method-macros.lisp +++ b/src/tg/method-macros.lisp | |||
| @@ -6,8 +6,8 @@ | |||
| 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 :ukkoclot/state :bot) | 10 | (:import-from :ukkoclot/state :bot) |
| 10 | (:import-from :ukkoclot/strings :ends-with :lisp->camel-case) | ||
| 11 | (:import-from :ukkoclot/transport :do-call) | 11 | (:import-from :ukkoclot/transport :do-call) |
| 12 | (:export :define-tg-method)) | 12 | (:export :define-tg-method)) |
| 13 | (in-package :ukkoclot/tg/method-macros) | 13 | (in-package :ukkoclot/tg/method-macros) |
| @@ -36,8 +36,8 @@ | |||
| 36 | (collect (apply #'make-param param-spec)))) | 36 | (collect (apply #'make-param param-spec)))) |
| 37 | 37 | ||
| 38 | (defun path-from-name (name) | 38 | (defun path-from-name (name) |
| 39 | (let ((str (lisp->camel-case (symbol-name name)))) | 39 | (let ((str (str:camel-case name))) |
| 40 | (if (ends-with str "%") | 40 | (if (str:ends-with-p "%" str :ignore-case nil) |
| 41 | (take (- (length str) 1) str) | 41 | (take (- (length str) 1) str) |
| 42 | str))) | 42 | str))) |
| 43 | 43 | ||