Common Lisp Package: SIMPLE-BLOG

A web application based on Weblocks.

README:

FUNCTION

Public

START-SIMPLE-BLOG (&REST ARGS)

Starts the application by calling 'start-weblocks' with appropriate arguments.

STOP-SIMPLE-BLOG

Stops the application by calling 'stop-weblocks'.

Private

ALL-POSTS (&REST ARGS)

return all objects of class POST. Args is an added argument that is ignored (needed for use in dropdown lists in views

Undocumented

ALL-USERS (&REST ARGS)

INIT-USER-SESSION (COMP)

MAKE-ADMIN-PAGE

MAKE-BLOG-WIDGET

MAKE-MAIN-PAGE

MAKE-POSTS-GRIDEDIT

MAKE-USERS-GRIDEDIT

POST-BY-ID (ID)

POST-FORMATTED-TIME (POST)

GENERIC-FUNCTION

Private

BLOG-ACTION-BLOG-MODE (BLOG-WIDGET)

return an action that will switch BLOG-WIDGET into :BLOG mode

BLOG-MAKE-POST-WIDGET (BLOG-WIDGET POST)

make a POST-WIDGET containing POST. (called by RESET-BLOG)

RENDER-BLOG (BLOG-WIDGET MODE)

render a blog widget in mode MODE. This function is called by RENDER-WIDGET-BODY.

RESET-BLOG (BLOG-WIDGET)

Reset the list of post widgets from the posts in the database. This function is called by BLOG-ACTION-BLOG-MODE.

Undocumented

POST-AUTHOR-ID (POST)

POST-AUTHOR-NAME (POST)

SLOT-ACCESSOR

Private

CURRENT-POST (OBJECT)

POST-WIDGET containing the current post when the blog is in :POST mode

SETFCURRENT-POST (NEW-VALUE OBJECT)

POST-WIDGET containing the current post when the blog is in :POST mode

FULL-VIEW (OBJECT)

View to determine how the post is displayed when in :SHORT mode.

SETFFULL-VIEW (NEW-VALUE OBJECT)

View to determine how the post is displayed when in :SHORT mode.

MODE (OBJECT)

The blog can be in two modes, :BLOG and :POST. In :BLOG mode to display a list of posts, and in :POST mode to display an individual post.

SETFMODE (NEW-VALUE OBJECT)

The blog can be in two modes, :BLOG and :POST. In :BLOG mode to display a list of posts, and in :POST mode to display an individual post.

ON-SELECT (OBJECT)

Function to be called when this post is selected. It accepts POST-WIDGET as argument.

SETFON-SELECT (NEW-VALUE OBJECT)

Function to be called when this post is selected. It accepts POST-WIDGET as argument.

POST-FULL-VIEW (OBJECT)

see FULL-VIEW slot of POST-WIDGET

SETFPOST-FULL-VIEW (NEW-VALUE OBJECT)

see FULL-VIEW slot of POST-WIDGET

POST-SHORT-TEXT (OBJECT)

short text of the post, to be shown on the main page of the blog

SETFPOST-SHORT-TEXT (NEW-VALUE OBJECT)

short text of the post, to be shown on the main page of the blog

POST-SHORT-VIEW (OBJECT)

see SHORT-VIEW slot of POST-WIDGET

SETFPOST-SHORT-VIEW (NEW-VALUE OBJECT)

see SHORT-VIEW slot of POST-WIDGET

POST-TEXT (OBJECT)

long text of the post, shown when the user clicks on the link after the short text

SETFPOST-TEXT (NEW-VALUE OBJECT)

long text of the post, shown when the user clicks on the link after the short text

POST-TIME (OBJECT)

time at which the post was created

SETFPOST-TIME (NEW-VALUE OBJECT)

time at which the post was created

POST-TITLE (OBJECT)

a title for the post, to be displayed on both the blog page and on the post page.

SETFPOST-TITLE (NEW-VALUE OBJECT)

a title for the post, to be displayed on both the blog page and on the post page.

POSTS (OBJECT)

composite widget that contains a POST-WIDGET for each post of the blog

SETFPOSTS (NEW-VALUE OBJECT)

composite widget that contains a POST-WIDGET for each post of the blog

SHORT-VIEW (OBJECT)

View to determine how the post is displayed when in :SHORT mode.

SETFSHORT-VIEW (NEW-VALUE OBJECT)

View to determine how the post is displayed when in :SHORT mode.

Undocumented

BLOG-WIDGET (OBJECT)

SETFBLOG-WIDGET (NEW-VALUE OBJECT)

POST (OBJECT)

SETFPOST (NEW-VALUE OBJECT)

POST-AUTHOR (OBJECT)

SETFPOST-AUTHOR (NEW-VALUE OBJECT)

USER-NAME (OBJECT)

SETFUSER-NAME (NEW-VALUE OBJECT)

VARIABLE

Private

Undocumented

*BLOG-STORE*

CLASS

Private

BLOG-WIDGET (OBJECT)

widget to handle a blog

POST-WIDGET

widget to handle a blog post

Undocumented

POST (OBJECT)

SIMPLE-BLOG

USER