dashboard tweaks (fixes #109)

pull/131/head
Matthew Butterick 8 years ago
parent 35046c8312
commit 910f1b6c85

@ -188,13 +188,14 @@
(cons filename filename)])]) (cons filename filename)])])
(cons (car main-cell) (cons (car main-cell)
(let ([cell-content (cdr main-cell)] (let* ([cell-content (cdr main-cell)]
[indent-string (make-string (* 2 indent-level) #\u00A0)]) [indent-padding (+ 1 indent-level)]
[padding-attr `(style ,(format "display:block;padding-left:~vem" indent-padding))])
(cond (cond
[(string? cell-content) (string-append indent-string cell-content)] [(string? cell-content) `(span (,padding-attr) ,cell-content)]
[(txexpr? cell-content) [(txexpr? cell-content)
;; indent link text by depth in pagetree ;; 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))])))) [else (error 'make-path-row (format "mysterious cell data: ~v" cell-content))]))))
(cond ; 'in' cell (cond ; 'in' cell

@ -66,7 +66,15 @@ a {
text-decoration: none; text-decoration: none;
color: #6a6; color: #6a6;
display: block; 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 { th a {

@ -1 +1 @@
1476228155 1476243367

Loading…
Cancel
Save