Add a close all tiddlers button

For @pmario

core/modules/widgets/navigator.js

@@ -36,6 +36,7 @@ NavigatorWidget.prototype.generate = function() {
 		{name: "tw-save-tiddler", handlerObject: this, handlerMethod: "handleSaveTiddlerEvent"},
 		{name: "tw-cancel-tiddler", handlerObject: this, handlerMethod: "handleCancelTiddlerEvent"},
 		{name: "tw-close-tiddler", handlerObject: this, handlerMethod: "handleCloseTiddlerEvent"},
+		{name: "tw-close-all-tiddlers", handlerObject: this, handlerMethod: "handleCloseAllTiddlersEvent"},
 		{name: "tw-new-tiddler", handlerObject: this, handlerMethod: "handleNewTiddlerEvent"}
 	];
 };
@@ -114,6 +115,14 @@ NavigatorWidget.prototype.handleCloseTiddlerEvent = function(event) {
 	return false;
 };
 
+// Close all tiddlers
+NavigatorWidget.prototype.handleCloseAllTiddlersEvent = function(event) {
+	this.storyList = [];
+	this.saveStoryList();
+	event.stopPropagation();
+	return false;
+};
+
 // Place a tiddler in edit mode
 NavigatorWidget.prototype.handleEditTiddlerEvent = function(event) {
 	this.getStoryList();

core/styles/base.tid

@@ -195,11 +195,11 @@ a.tw-tiddlylink-missing {
 	border: none;
 }
 
-.tw-menu-list-item .btn-mini-close {
+.btn-mini {
 	color: #e0e0e0;
 }
 
-.tw-menu-list-item:hover .btn-mini-close {
+.btn-mini:hover {
 	color: #444;
 }
 

core/templates/SideBar.tid

@@ -26,8 +26,9 @@ title: $:/templates/SideBar
 <div class="tw-tab-content">
 <$reveal type="match" state="$:/state/sideBarTabSet" text="openTab" qualifyTiddlerTitles="yes">
 <$list filter="[list[$:/StoryList]]" history="$:/HistoryList" itemClass="tw-menu-list-item">
-<$button message="tw-close-tiddler" class="btn-invisible btn-mini-close">&times;</$button> <$view field="title" format="link"/>
+<$button message="tw-close-tiddler" class="btn-invisible btn-mini">&times;</$button> <$view field="title" format="link"/>
 </$list>
+<$button message="tw-close-all-tiddlers" class="btn-invisible btn-mini">close all</$button>
 </$reveal>
 <$reveal type="match" state="$:/state/sideBarTabSet" text="allTab" qualifyTiddlerTitles="yes">
 <$list filter="[!is[system]sort[title]]" itemClass="tw-menu-list-item"/>