From e85e1b5d1aa4f29b02aa9bb1bf0690e5fd777a4b Mon Sep 17 00:00:00 2001 From: nano Date: Sun, 3 May 2026 16:30:26 +0000 Subject: [PATCH] Make the site more editorial --- app/views/Home/index.asp | 156 +++++++++++++++++++++++++++++++++++++-- 1 file changed, 150 insertions(+), 6 deletions(-) diff --git a/app/views/Home/index.asp b/app/views/Home/index.asp index 20d0a3c..deb27ae 100644 --- a/app/views/Home/index.asp +++ b/app/views/Home/index.asp @@ -1,9 +1,153 @@ +<% +Dim featuredPost, homePostIter, homePostItem, homeRecentCount +homeRecentCount = 0 +Set homePostIter = posts.Iterator() +If posts.Count > 0 Then + Set featuredPost = homePostIter.GetNext() +End If +%> +
-
The magazine
-

BrainOrdure

-

Thoughtful posts, clean categories, and a comment section that feels like the front page of a well-kept publication.

-
- Read Posts - Browse Categories +
+
+
The magazine
+

BrainOrdure

+

A tidy, opinionated front page for notes, essays, and reader discussion.

+
+ Read the issue + Browse sections +
+
+ +
+
+
Inside this issue
+

Latest coverage

+ <% If posts.Count = 0 Then %> +

No published stories yet.

+ <% Else %> + + <% End If %> +
+
+
+
+ +
+
+
+
+
Featured story
+

From the editor's desk

+
+
+ + <% If posts.Count = 0 Then %> +
No published posts are available yet.
+ <% Else %> +
+
+
Cover story
+

<%= H(featuredPost.Title) %>

+ <% + Dim featuredPublishedText + featuredPublishedText = "" + If IsDate(featuredPost.PublishedDate) Then + If CDate(featuredPost.PublishedDate) > #1/1/1970# Then + featuredPublishedText = FormatDateTime(featuredPost.PublishedDate, vbLongDate) + End If + End If + If Len(featuredPublishedText) > 0 Then + %> +

<%= H(featuredPublishedText) %>

+ <% + End If + %> +

<%= H(featuredPost.Summary) %>

+ Read the feature +
+
+ +
+ <% + Dim latestPostIter, latestPostItem, latestIndex + latestIndex = 0 + Set latestPostIter = posts.Iterator() + If latestPostIter.HasNext Then Set latestPostItem = latestPostIter.GetNext() + Do While latestPostIter.HasNext And latestIndex < 4 + Set latestPostItem = latestPostIter.GetNext() + latestIndex = latestIndex + 1 + %> +
+ +
+ <% + Loop + %> +
+ <% End If %> +
+ +
+
+
+
Sections
+

Browse the paper

+ <% If categories.Count = 0 Then %> +

No categories are available yet.

+ <% Else %> +
    + <% + Dim homeCategoryIter, homeCategoryItem + Set homeCategoryIter = categories.Iterator() + Do While homeCategoryIter.HasNext + Set homeCategoryItem = homeCategoryIter.GetNext() + %> +
  • + + <%= H(homeCategoryItem.Name) %> + + +
    • + <% + Loop + %> +
+ <% End If %> +
+
+ +
+
+
Reader note
+

Why it feels different

+

The layout now leans into a front-page magazine structure with a feature story, supporting briefs, and a quieter sidebar for section navigation.

+
+