suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

A few links

Browse Source
This commit is contained in:
Jay McCarthy 2013-04-06 15:06:59 -06:00
parent 259621f7cb
commit 47c1334f6d
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/meta/pkg-index/official/main.rkt
View File

@ -603,7 +603,7 @@
(define the-table (define the-table
`(table `(table
(tr (tr
(td "Name") (td "Package Name")
(td ,(if edit-details (td ,(if edit-details
`(input ([name "name"] `(input ([name "name"]
[type "text"] [type "text"]
@ -624,7 +624,8 @@
`(span (input ([name "source"] `(span (input ([name "source"]
[type "text"] [type "text"]
[value ,(package-ref* i 'source "")])) [value ,(package-ref* i 'source "")]))
" (" (a ([href "http://pre.racket-lang.org/docs/html/pkg/Package_Concepts.html#(tech._package._source)"]) "details") ")") ;; XXX change to pkg soon
" (" (a ([href "http://docs.racket-lang.org/planet2/Package_Concepts.html#%28tech._package._source%29"]) "details") ")")
`(a ([href `(a ([href
,(package-url->useful-url (package-ref i 'source))]) ,(package-url->useful-url (package-ref i 'source))])
,(package-ref i 'source))))) ,(package-ref i 'source)))))