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

Rearranging buttons

Browse Source
This commit is contained in:
Jay McCarthy 2012-07-31 13:55:32 -06:00
parent cd0e4b8f8a
commit 27fb60b5a4
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/meta/drdr/render.rkt
View File

@ -98,16 +98,18 @@
,(last string-parts))) ,(last string-parts)))
" / ")) " / "))
(span ([class "revnav"]) (span ([class "revnav"])
(a ([href ,prev-rev-url])
(img ([src "/images/rewind.png"])))
,@(if directory? ,@(if directory?
empty empty
`((a ([href ,prev-change-url]) `((a ([href ,prev-change-url])
(img ([src "/images/rewind-change.png"]))) (img ([src "/images/rewind-change.png"])))))
(a ([href ,next-change-url]) (a ([href ,prev-rev-url])
(img ([src "/images/fast-forward-change.png"]))))) (img ([src "/images/rewind.png"])))
(a ([href ,next-rev-url]) (a ([href ,next-rev-url])
(img ([src "/images/fast-forward.png"]))) (img ([src "/images/fast-forward.png"])))
,@(if directory?
empty
`((a ([href ,next-change-url])
(img ([src "/images/fast-forward-change.png"])))))
(a ([href ,cur-rev-url]) (a ([href ,cur-rev-url])
(img ([src "/images/skip-forward1.png"]))))))) (img ([src "/images/skip-forward1.png"])))))))