1
0

common.lisp 4.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173
  1. (in-package :cl-user)
  2. (defpackage chatikbot.common
  3. (:use :cl
  4. :chatikbot.db
  5. :chatikbot.utils
  6. :chatikbot.telegram
  7. :chatikbot.crypto
  8. :chatikbot.secrets
  9. :chatikbot.server
  10. :chatikbot.macros
  11. :chatikbot.bot
  12. :chatikbot.inline
  13. :chatikbot.chat-cron)
  14. (:export :db-transaction
  15. :db-execute
  16. :db-select
  17. :db-single
  18. :db-init
  19. :load-settings
  20. :set-setting
  21. :lists-set-entry
  22. :lists-get
  23. :*message-id*
  24. :*from-id*
  25. :*chat-id*
  26. :*text*
  27. :*message*
  28. :*cmd*
  29. :*args*
  30. :*query-id*
  31. :*from*
  32. :*raw-data*
  33. :*inline-message-id*
  34. :*source-message*
  35. :*source-chat-id*
  36. :*source-message-id*
  37. :*callback*
  38. :*data*
  39. :*section*
  40. :*code*
  41. :*error*
  42. :*raw-state*
  43. :*state*
  44. :*admins*
  45. :*bot-name*
  46. :*hooks*
  47. :+hour+
  48. :+day+
  49. :*chat-default-timezone*
  50. :run-hooks
  51. :add-hook
  52. :remove-hook
  53. :is-admin
  54. :keyify
  55. :dekeyify
  56. :*settings*
  57. :defsetting
  58. :*backoff-start*
  59. :*backoff-max*
  60. :loop-with-error-backoff
  61. :replace-all
  62. :aget
  63. :agets
  64. :agetter
  65. :preprocess-input
  66. :punctuation-p
  67. :read-from-string-no-punct
  68. :print-with-spaces
  69. :spaced
  70. :text-chunks
  71. :http-request
  72. :xml-request
  73. :get-by-tag
  74. :select-text
  75. :trim-nil
  76. :text-with-cdata
  77. :unspacify
  78. :child-text
  79. :clean-text
  80. :json-request
  81. :plist-hash
  82. :plist-json
  83. :format-ts
  84. :parse-cmd
  85. :parse-float
  86. :smart-f
  87. :format-size
  88. :format-interval
  89. :symbol-append
  90. :get-chat-location
  91. :get-chat-timezone
  92. :same-time-in-chat
  93. :group-by
  94. :pmapcar
  95. :filled
  96. :*telegram-token*
  97. :+telegram-max-callback-data-length+
  98. :telegram-get-updates
  99. :telegram-get-me
  100. :telegram-set-webhook
  101. :telegram-send-message
  102. :telegram-forward-message
  103. :telegram-send-photo
  104. :telegram-send-audio
  105. :telegram-send-document
  106. :telegram-send-sticker
  107. :telegram-send-video
  108. :telegram-send-voice
  109. :telegram-send-video-note
  110. :telegram-send-media-group
  111. :telegram-send-location
  112. :telegram-edit-message-live-location
  113. :telegram-stop-message-live-location
  114. :telegram-send-contact
  115. :telegram-send-chat-action
  116. :telegram-send-get-user-profile-photos
  117. :telegram-send-get-file
  118. :telegram-answer-callback-query
  119. :telegram-edit-message-text
  120. :telegram-edit-message-caption
  121. :telegram-edit-message-reply-markup
  122. :telegram-delete-message
  123. :telegram-answer-inline-query
  124. :telegram-file-contents
  125. :telegram-inline-keyboard-markup
  126. :telegram-reply-keyboard-markup
  127. :telegram-reply-keyboard-hide
  128. :telegram-force-reply
  129. :bot-send-message
  130. :token-hmac
  131. :encode-callback-data
  132. :decode-callback-data
  133. :encode-oauth-state
  134. :decode-oauth-state
  135. :*secret-ring*
  136. :*secret-pass-store*
  137. :*secret-pass-bin*
  138. :secret-get
  139. :secret-set
  140. :secret-del
  141. :secret-wipe
  142. :with-secret
  143. :def-webhook-handler
  144. :get-webhook-url
  145. :get-oauth-url
  146. :def-db-init
  147. :with-parsed-message
  148. :def-message-handler
  149. :def-message-cmd-handler
  150. :def-message-admin-cmd-handler
  151. :with-parsed-callback
  152. :def-callback-handler
  153. :def-callback-section-handler
  154. :def-oauth-handler
  155. :def-oauth-section-handler
  156. :with-random-state
  157. :defcron
  158. :get-inline-keyboard
  159. :inline-button
  160. :add-chat-cron
  161. :get-chat-crons
  162. :delete-chat-cron
  163. :def-chat-cron-handler))
  164. (in-package :chatikbot.common)