dashboard tweaks (fixes #109)

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

@ -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

@ -67,6 +67,14 @@ a {
color: #6a6;
display: block;
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 {

@ -1 +1 @@
1476228155
1476243367

Loading…
Cancel
Save