Implement tag mapping

- Move all admin functions to /admin URLs
- Create Liquid filters for page/post edit, category/tag link
- Update all themes to use these filters
- Add delete for pages/posts
- Move category/page functions to Admin module

src/MyWebLog.Domain/DataTypes.fs

@@ -219,6 +219,33 @@ module Post =
         }
 
 
+/// A mapping between a tag and its URL value, used to translate restricted characters (ex. "#1" -> "number-1")
+type TagMap =
+    {   /// The ID of this tag mapping
+        id : TagMapId
+        
+        /// The ID of the web log to which this tag mapping belongs
+        webLogId : WebLogId
+        
+        /// The tag which should be mapped to a different value in links
+        tag : string
+        
+        /// The value by which the tag should be linked
+        urlValue : string
+    }
+
+/// Functions to support tag mappings
+module TagMap =
+    
+    /// An empty tag mapping
+    let empty =
+        { id       = TagMapId.empty
+          webLogId = WebLogId.empty
+          tag      = ""
+          urlValue = ""
+        }
+
+
 /// A web log
 [<CLIMutable; NoComparison; NoEquality>]
 type WebLog =

src/MyWebLog.Domain/SupportTypes.fs

@@ -187,6 +187,22 @@ module PostId =
     let create () = PostId (newId ())
 
 
+/// An identifier for a tag mapping
+type TagMapId = TagMapId of string
+
+/// Functions to support tag mapping IDs
+module TagMapId =
+    
+    /// An empty tag mapping ID
+    let empty = TagMapId ""
+    
+    /// Convert a tag mapping ID to a string
+    let toString = function TagMapId tmi -> tmi
+    
+    /// Create a new tag mapping ID
+    let create () = TagMapId (newId ())
+
+
 /// An identifier for a web log
 type WebLogId = WebLogId of string
 

src/MyWebLog.Domain/ViewModels.fs

@@ -255,6 +255,30 @@ type EditPostModel =
         }
 
 
+/// View model to edit a tag mapping
+[<CLIMutable; NoComparison; NoEquality>]
+type EditTagMapModel =
+    {   /// The ID of the tag mapping being edited
+        id : string
+        
+        /// The tag being mapped to a different link value
+        tag : string
+        
+        /// The link value for the tag
+        urlValue : string
+    }
+    
+    /// Whether this is a new tag mapping
+    member this.isNew = this.id = "new"
+    
+    /// Create an edit model from the tag mapping
+    static member fromMapping (tagMap : TagMap) : EditTagMapModel =
+        { id       = TagMapId.toString tagMap.id
+          tag      = tagMap.tag
+          urlValue = tagMap.urlValue
+        }
+
+
 /// View model to edit a user
 [<CLIMutable; NoComparison; NoEquality>]
 type EditUserModel =