cpack_repository/commit

Enhance the style of the file-hierarchy

diff --git a/TODO.txt b/TODO.txt
index 3f8efd0..20b0e07 100644
--- a/TODO.txt
+++ b/TODO.txt
@@ -4,7 +4,7 @@ Wishlist:
 
   * Allow owner/user to overrule problems (notably undefined
     predicates).
-  * When updating/eaccepting a package, do some sanity checks
+  * When updating/accepting a package, do some sanity checks
     first.
 
 Long term:
diff --git a/components/cpack.pl b/components/cpack.pl
index 024a72d..7cdb7e6 100644
--- a/components/cpack.pl
+++ b/components/cpack.pl
@@ -311,7 +311,8 @@ files_in_pack(Pack) -->
 	  files_to_tree(Files, Trees)
 	},
 	pack_size(Files),
-	html(ul(class(file_hierarchy),
+	html_requires(css('ul_tree.css')),
+	html(ul(class(tree),
 		\dir_nodes(Trees))).
 
 pack_size(Files) -->
@@ -319,8 +320,12 @@ pack_size(Files) -->
 	  length(Files, Count),
 	  sumlist(Sizes, Total)
 	},
-	html(p(['Pack contains ', \n('~D', Count), ' files holding a total of ',
-		\n(human, Total), 'bytes.'])).
+	html(p([ 'Pack contains ', \n('~D', Count), ' files holding a total of ',
+		 b(\n(human, Total)), 'bytes. ',
+		 'Below is the file hierarchy of of the package. ',
+		 'The tree link to pages that provide history and dependencies ',
+		 'for each file.'
+	       ])).
 
 cpack_file_size(File, Size) :-
 	rdf_has(File, cpack:size, Literal),
diff --git a/web/css/cpack.css b/web/css/cpack.css
index 0a9bd92..f92bb5e 100644
--- a/web/css/cpack.css
+++ b/web/css/cpack.css
@@ -92,21 +92,8 @@ table.git_shortlog span.ref_name
   padding: 0px 2px;
 }
 
-ul.file_hierarchy
-{ list-style-image: url('../icons/opendir.png');
-}
-
-ul.dir
-{ padding-left: 0.8em;
-  list-style-image: url('../icons/opendir.png');
-}
-
-ul.file_hierarchy li.file
-{ list-style-image: url('../icons/file.png');
-}
-
-ul.files li
-{ font-family: Monospace;
+div.cpack ul.tree
+{ margin-left: 5%;
 }
 
 div.cpack h2 a