diff --git a/pollen/private/project-server-routes.rkt b/pollen/private/project-server-routes.rkt index d97da62..67398b8 100644 --- a/pollen/private/project-server-routes.rkt +++ b/pollen/private/project-server-routes.rkt @@ -188,13 +188,14 @@ (cons filename filename)])]) (cons (car main-cell) - (let ([cell-content (cdr main-cell)] - [indent-string (make-string (* 2 indent-level) #\u00A0)]) + (let* ([cell-content (cdr main-cell)] + [indent-padding (+ 1 indent-level)] + [padding-attr `(style ,(format "display:block;padding-left:~vem" indent-padding))]) (cond - [(string? cell-content) (string-append indent-string cell-content)] + [(string? cell-content) `(span (,padding-attr) ,cell-content)] [(txexpr? cell-content) ;; indent link text by depth in pagetree - `(,(get-tag cell-content) ,(cons '(class "indented-link") (get-attrs cell-content)) ,indent-string (span ((class "indented-link-text")) ,@(get-elements cell-content)))] + `(,(get-tag cell-content) ,(cons padding-attr (get-attrs cell-content)) ,@(get-elements cell-content))] [else (error 'make-path-row (format "mysterious cell data: ~v" cell-content))])))) (cond ; 'in' cell diff --git a/pollen/private/server-extras/poldash.css b/pollen/private/server-extras/poldash.css index fcf878f..931ea3b 100644 --- a/pollen/private/server-extras/poldash.css +++ b/pollen/private/server-extras/poldash.css @@ -66,7 +66,15 @@ a { text-decoration: none; color: #6a6; display: block; - padding: 0.4em; + padding: 0.4em; + padding-left: 0; + padding-right: 0; +} + +/* this catches `in` and `out` boxes */ +td+td a { + padding-left: 1em; + padding-right: 1em; } th a { diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index 3fbd400..a2cc564 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1476228155 +1476243367