Plumbing to allow the current view to be switched

core/ui/PageTemplate.tid

@@ -22,7 +22,7 @@ title: $:/core/ui/PageTemplate
 <section class="story-river">
 
 <!-- The main story -->
-<$list filter="[list[$:/StoryList]]" history="$:/HistoryList" template="$:/core/ui/ViewTemplate" editTemplate="$:/core/ui/EditTemplate" listview="classic" itemClass="tw-tiddler-frame"/>
+<$list filter="[list[$:/StoryList]]" history="$:/HistoryList" template="$:/core/ui/ViewTemplate" editTemplate="$:/core/ui/EditTemplate" listview={{$:/view}} itemClass="tw-tiddler-frame"/>
 
 <!-- End of story river -->
 </section>

core/ui/ToolsPanel.tid

@@ -1,15 +1,18 @@
 title: $:/core/ui/ToolsPanel
 
+---
+
+{{$:/snippets/viewswitcher}}
+
+---
+
+{{$:/snippets/themeswitcher}}
+
+---
+
 Import: <$import class="tw-drop-zone"/>
 
 ---
 
-<$button message="tw-save-wiki" class="btn btn-primary">Save Changes</$button>
-
----
-
 {{$:/snippets/encryptionstatus}}
 
----
-
-{{$:/snippets/themeswitcher}}

core/wiki/view.tid

@@ -0,0 +1,3 @@
+title: $:/view
+
+classic

core/wiki/viewswitcher.tid

@@ -0,0 +1,13 @@
+title: $:/snippets/viewswitcher
+
+Current theme: {{$:/view}}
+
+<$linkcatcher to="$:/view">
+
+<$list filter="classic zoomin">
+
+<$reveal state="$:/view" type="match" text={{##title}}>&bull;</$reveal><$reveal state="$:/view" type="nomatch" text={{##title}}>&nbsp;</$reveal> <$view field="title" format="link"/>
+
+</$list>
+
+</$linkcatcher>