Yu-Gi-Oh! Deck Building and Card Inventory Management web interface written in Common Lisp, utilizing HTMX.
No puede seleccionar más de 25 temas Los temas deben comenzar con una letra o número, pueden incluir guiones ('-') y pueden tener hasta 35 caracteres de largo.

65 líneas
2.0KB

  1. ;;;; src/web/package.lisp
  2. (in-package #:cl-user)
  3. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  4. (defpackage #:cl-deck-builder2.web.flash-message
  5. (:use #:cl)
  6. (:export #:flash
  7. #:flash-gethash
  8. #:flash-error
  9. #:flash-message))
  10. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  11. (defpackage #:cl-deck-builder2.web.query
  12. (:use #:cl
  13. #:cl-deck-builder2.db
  14. #:cl-deck-builder2.models)
  15. (:export #:%sxql-like
  16. #:select-attachment
  17. #:select-category
  18. #:select-constructed-deck-items
  19. #:select-constructed-decks
  20. #:select-deck-item
  21. #:select-feedback
  22. #:select-ydk-deck
  23. #:cards-in-all-decks
  24. #:select-attachment-by-id
  25. #:select-variant-condition
  26. #:select-ygo-cc-item-variants
  27. #:ygo-select-info-by-id
  28. #:ygo-select-info-by-passcode
  29. #:ygo-set-item-by-id
  30. #:ygo-set-item-by-item-id))
  31. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  32. (defpackage #:cl-deck-builder2.web
  33. (:use #:cl
  34. #:caveman2
  35. #:cl-deck-builder2.db
  36. #:cl-deck-builder2.models
  37. #:cl-deck-builder2.i18n
  38. #:cl-deck-builder2.toolkit
  39. #:cl-deck-builder2.web.query
  40. #:cl-deck-builder2.web.flash-message)
  41. (:local-nicknames (#:v #:org.shirakumo.verbose))
  42. (:import-from #:cl-deck-builder2.config
  43. #:*public-directory*
  44. #:*static-directory*
  45. #:*template-directory*)
  46. (:import-from #:cl-deck-builder2.draw
  47. #:draw-deck-image)
  48. (:import-from #:cl-deck-builder2.view #:render)
  49. (:import-from #:hermetic
  50. #:setup
  51. #:login
  52. #:logged-in-p
  53. #:user-name
  54. #:logout
  55. #:auth)
  56. (:export #:*web*
  57. #:make-chat-client
  58. #:make-chat-server))