Yu-Gi-Oh! Deck Building and Card Inventory Management web interface written in Common Lisp, utilizing HTMX.
Nevar pievienot vairāk kā 25 tēmas Tēmai ir jāsākas ar burtu vai ciparu, tā var saturēt domu zīmes ('-') un var būt līdz 35 simboliem gara.

45 rindas
1.3KB

  1. {% extends "layouts/default.html" %}
  2. {% block title %}Package Documentation{% endblock %}
  3. {% block content %}
  4. <div class="content">
  5. <div class="table-container">
  6. <table class="table is-bordered is-fullwidth">
  7. <tr>
  8. <th>Endpoint/URL (method)</th>
  9. <th>Parameters</th>
  10. <th>Documentation</th>
  11. </tr>
  12. {% for doc in docs %}
  13. <tr {% if not doc.1 %}class="has-background-danger"{% endif %}>
  14. <td><a href="{{ doc.0 }}">{{ doc.0 }}</a> {{ doc.2 }}</td>
  15. <td>
  16. {% if doc.3 %}
  17. <div class="highlight">
  18. <pre style="white-space: pre-wrap; overflow-wrap: break-word;">{{ doc.3 }}</pre>
  19. </div>
  20. {% endif %}
  21. </td>
  22. <td>
  23. {% if doc.1 %}
  24. <div class="highlight">
  25. <pre style="white-space: pre-wrap; overflow-wrap: break-word;">{{ doc.1 }}</pre>
  26. </div>
  27. {% endif %}
  28. </td>
  29. </tr>
  30. {% endfor %}
  31. </table>
  32. </div>
  33. </div>
  34. {% endblock %}
  35. {# comment #}
  36. (cl-who:with-html-output-to-string (s nil :prologue t)
  37. (:html
  38. (:head)
  39. (:body
  40. (loop for (url docstring methods params) in docs
  41. do (cl-who:htm (:h3 (cl-who:str url) " " (cl-who:fmt "~a" methods))
  42. (if params (cl-who:htm (:h4 (cl-who:fmt " Params: ~a" params))))
  43. (:div (cl-who:str docstring)))))))
  44. {# endcomment #}