summaryrefslogtreecommitdiff
path: root/src/tg/method-macros.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/tg/method-macros.lisp')
-rw-r--r--src/tg/method-macros.lisp6
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