Add user add/edit (#19)

- Add makeHash function to simplify code around DotLiquid hashes
- Add context extension to determine if a user has an access level
- Add someTask function to simply Task.FromResult (Some x)

src/MyWebLog.Domain/SupportTypes.fs

@@ -600,6 +600,15 @@ type ThemeTemplate =
         Text : string
     }
 
+/// Functions to support theme templates
+module ThemeTemplate =
+    
+    /// An empty theme template
+    let empty =
+        {   Name = ""
+            Text = ""
+        }
+
 
 /// Where uploads should be placed
 type UploadDestination =