Skip to content
Browse files

Merge pull request #8 from antifuchs/link-package-from-ql-overview+no…

…-docsify

Link package from ql overview and de-highlight "NO DESCRIPTION"
  • Loading branch information...
2 parents fe89d7f + 7988526 commit 2990ac49408e7fc7cdf61e8c553c8377b59a1cc4 @gigamonkey committed Jan 5, 2012
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 "")

0 comments on commit 2990ac4

Please sign in to comment.
Something went wrong with that request. Please try again.