Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP

Loading…

Link package from ql overview and de-highlight "NO DESCRIPTION" #8

Merged
merged 3 commits into from

2 participants

@antifuchs

If a system is named the same as its primary package, this adds a link from the system name to its package's page - provided that the system is into the lisp image, of course.

antifuchs added some commits
@antifuchs antifuchs De-highlight "NO DESCRIPTION" in the quicklisp overview page.
This should make the systems with a description stand out more.
fafb6f8
@antifuchs antifuchs Link package page from quicklisp overview
This adds a link to the package documentation for any quicklisp
project that happens to have the same name as one of its packages.
7988526
@antifuchs antifuchs Add a .gitignore
Initialize it with .fasl
1ddd768
@gigamonkey gigamonkey merged commit 2990ac4 into from
@gigamonkey
Owner

Looks good, thanks!

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Commits on Dec 27, 2011
  1. @antifuchs

    De-highlight "NO DESCRIPTION" in the quicklisp overview page.

    antifuchs authored
    This should make the systems with a description stand out more.
  2. @antifuchs

    Link package page from quicklisp overview

    antifuchs authored
    This adds a link to the package documentation for any quicklisp
    project that happens to have the same name as one of its packages.
  3. @antifuchs

    Add a .gitignore

    antifuchs authored
    Initialize it with .fasl
This page is out of date. Refresh to see the latest.
Showing with 10 additions and 4 deletions.
  1. +1 −0  .gitignore
  2. +9 −4 manifest.lisp
View
1  .gitignore
@@ -0,0 +1 @@
+*.fasl
View
13 manifest.lisp
@@ -171,12 +171,17 @@ a true Common Lisp while still working in Allegro's mlisp."
(loop for system in (ql-dist:provided-systems dist)
for name = (ql-dist:name system)
for installedp = (ql-dist:installedp system)
- for description = (gethash name descriptions "NO DESCRIPTION!")
+ for (description descriptionp) = (multiple-value-list
+ (gethash name descriptions "NO DESCRIPTION!"))
do
(html
- (:tr
- (:td name)
- (:td description)
+ (:tr :class (:format "~:[not-documented~;~]" descriptionp)
+ (:td
+ (if (and installedp (find-package (case-invert-name name)))
+ (html (:a :href (:format "/package/~a" name) name))
+ (html name)))
+ (:td :class "docs"
+ description)
(:td
(if installedp
(html "")
Something went wrong with that request. Please try again.