Permalink
Switch branches/tags
Nothing to show
Find file Copy path
43f0bc9 Oct 3, 2018
1 contributor

Users who have contributed to this file

131 lines (130 sloc) 6.04 KB
<!DOCTYPE html>
<html lang="en" lquery="(attr :lang language)">
<head>
<meta charset="utf-8" />
<title lquery='(text (format NIL "~:(~a~)" title))'>Title</title>
<style lquery='(text (read-file (asdf:system-relative-pathname :staple "default/default.css")))'></style>
</head>
<body>
<article class="project">
<header>
<c:when test="images">
<img class="logo" src="logo.svg" alt="Logo" lquery="(attr :src (first images))" />
</c:when>
<h1 lquery="(text title)">Name</h1>
<c:when test="system">
<span class="version" lquery="(text (clip:clip system :version))">1.0</span>
</c:when>
<nav class="languages" iterate="(pages project)">
<c:when test="(string= title (** :title))">
<a href="#" lquery="(attr :href (relative-path * (** :page))) (text (first (language-codes:names language)))">LANG</a>
</c:when>
</nav>
<c:when test="system">
<p class="description" lquery="(text (clip:clip system :description))">
Some short description of the lib.
</p>
</c:when>
<nav class="pages" iterate="(pages project)">
<c:when test="(and (or (string/= title (** :title)) (eq * (** :page)))
(string= language (** :language)))">
<a href="#" lquery="(attr :href (relative-path * (** :page))) (text title)">TITLE</a>
</c:when>
</nav>
</header>
<section id="documentation" lquery="(html documentation)">
</section>
<c:when test="system">
<c:using value="system">
<section id="system">
<h2>System Information</h2>
<c:when test="version">
<div class="row">
<label for="version">Version:</label>
<a id="version" lquery="(text version)">version</a>
</div>
</c:when>
<c:when test="dependencies">
<div class="row">
<label for="dependencies">Dependencies:</label>
<ul id="dependencies" iterate="dependencies"><li><a class="external" lquery="(text (asdf:component-name *)) (attr :href (asdf:system-homepage *))"></a></li></ul>
</div>
</c:when>
<c:when test="author">
<div class="row">
<label for="author">Author:</label>
<a id="author" href="#" lquery='(attr :href (when (extract-author-email author) (format NIL "mailto:~a" (extract-author-email author)))) (text (extract-author-name author))'>author</a>
</div>
</c:when>
<c:when test="license">
<div class="row">
<label for="license">License:</label>
<a id="license" href="#" lquery="(attr :href license-link) (text license)">license</a>
</div>
</c:when>
<c:when test="homepage">
<div class="row">
<label for="homepage">Homepage:</label>
<a id="homepage" href="#" lquery="(attr :href homepage) (text homepage)">http://example.com</a>
</div>
</c:when>
</section>
</c:using>
</c:when>
<section id="index">
<h2>Definition Index</h2>
<ul iterate="(mapcar #'staple::ensure-package-definition packages)">
<li>
<article class="definition package" lquery="(attr :id id)">
<header>
<h3>
<a href="#" lquery="(attr :href xref) (text name)">FOO</a>
</h3>
<ul class="nicknames" iterate="nicknames">
<li lquery="(text *)">CL-FOO</li>
</ul>
<c:when test="source-link">
<a class="source-link" href="#" lquery="(attr :href source-link)">Source</a>
</c:when>
</header>
<div class="docstring" lquery="(html formatted-documentation)">Docstring</div>
<ul class="definitions" iterate="definitions">
<li>
<article class="definition" lquery="(add-class (string-downcase type)) (add-class (when (typep * 'definitions:callable) (string-downcase :callable))) (attr :id id)">
<header>
<span class="visibility" lquery="(text visibility)">visibility</span>
<span class="type" lquery="(text type)">type</span>
<h4 class="name">
<a href="#" lquery="(attr :href xref) (text designator)">name</a>
</h4>
<ul class="qualifiers" iterate="qualifiers">
<li class="qualifier" lquery="(text *)">qualifier</li>
</ul>
<ul class="arguments" iterate="(purify-arglist arguments)">
<c:if test="(listp *)">
<c:then>
<ul class="arguments" iterate="*">
<li class="argument" lquery="(text *) (add-class (when (find * (symbol-value 'lambda-list-keywords)) :lambda-list-keyword))">argument</li>
</ul>
</c:then>
<c:else>
<li class="argument" lquery="(text *) (add-class (when (find * (symbol-value 'lambda-list-keywords)) :lambda-list-keyword))">argument</li>
</c:else>
</c:if>
</ul>
<c:when test="source-link">
<a class="source-link" href="#" lquery="(attr :href source-link)">Source</a>
</c:when>
</header>
<div class="docstring" lquery="(html formatted-documentation)">Docstring</div>
</article>
</li>
</ul>
</article>
</li>
</ul>
</section>
</article>
<script lquery='(text (read-file (asdf:system-relative-pathname :staple "default/default.js")))'></script>
</body>
</html>