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

add support for user-specific documentation list

Browse Source 
svn: r8306

original commit: 1c16d5829ee5c7033922b3f82e23ec7bc8883fa3
This commit is contained in:
Matthew Flatt 2008-01-11 23:13:11 +00:00
parent 6681482d88
commit 77f98c97a8
2 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/help/search.ss
View File

@ -18,8 +18,11 @@
[send-main-page (-> void?)]) [send-main-page (-> void?)])
(define (send-main-page) (define (send-main-page)
(let ([dest-path (build-path (find-doc-dir) "index.html")]) (let ([user-dest-path (build-path (find-user-doc-dir) "index.html")]
(send-url (format "file://~a" (path->string dest-path))))) [dest-path (build-path (find-doc-dir) "index.html")])
(send-url (format "file://~a" (path->string (if (file-exists? user-dest-path)
user-dest-path
dest-path))))))
;; if there is exactly one exact match for this search key, go directly ;; if there is exactly one exact match for this search key, go directly
;; to that place. Otherwise, go to a page that lists all of the matches. ;; to that place. Otherwise, go to a page that lists all of the matches.

4
collects/scribble/scribble.css
View File

@ -374,10 +374,6 @@ i {
vertical-align: top; vertical-align: top;
} }
.centered {
horiz-align: center; /* not right */
}
.ghost { .ghost {
color: white; color: white;
} }