]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/webapps/blogs/blogs.factor
factor: fix some spacing
[factor.git] / extra / webapps / blogs / blogs.factor
index 27ddc58afe624ed50f18aca09a93df87453265e4..741b2cfe73faa33678011679a83685d9142094dc 100644 (file)
@@ -173,7 +173,7 @@ M: comment entity-url
 
         { blogs "new-post" } >>template
 
-     <protected>
+    <protected>
         "make a new blog post" >>description ;
 
 : authorize-author ( author -- )
@@ -222,7 +222,7 @@ M: comment entity-url
             "author" value posts-by-url <redirect>
         ] >>submit
 
-     <protected>
+    <protected>
         "delete a blog post" >>description ;
 
 : <delete-author-action> ( -- action )
@@ -240,7 +240,7 @@ M: comment entity-url
             "author" value posts-by-url <redirect>
         ] >>submit
 
-     <protected>
+    <protected>
         "delete a blog post" >>description ;
 
 : validate-comment ( -- )
@@ -265,7 +265,7 @@ M: comment entity-url
             [ insert-tuple ] [ entity-url <redirect> ] bi
         ] >>submit
 
-     <protected>
+    <protected>
         "make a comment" >>description ;
 
 : <delete-comment-action> ( -- action )