The ext-blog Reference Manual

4.1.1 ext-blog/ext-blog.asd

Source

ext-blog.asd.

Parent Component

ext-blog (system).

ASDF Systems

ext-blog.

Packages

ext-blog-asd.

Public Interface

*ext-blog-version* (special variable).

---

4.1.2 ext-blog/src/defmodule.lisp

Source

ext-blog.asd.

Parent Component

src (module).

Packages

• ext-blog.
• xml-rpc-methods.

---

4.1.3 ext-blog/src/utils.lisp

Dependency

defmodule.lisp (file).

Source

ext-blog.asd.

Parent Component

src (module).

Public Interface

• format-timestring (function).
• root-pathname (function).
• route-check-conditions (method).
• string-empty (function).
• theme-pathname (function).

Internals

• *the-random-state* (special variable).
• @nil-route-require (function).
• create-random-string (function).
• get-future-time (function).
• nil-route (class).
• read-binary-file (function).
• src-pathname (function).

---

4.1.4 ext-blog/src/specials.lisp

Dependency

defmodule.lisp (file).

Source

ext-blog.asd.

Parent Component

src (module).

Public Interface

• *entry-static* (special variable).
• *entry-static-path* (special variable).

Internals

• *data-root* (special variable).
• *enable-log* (special variable).
• *font-path* (special variable).
• *log-path* (special variable).
• *store-path* (special variable).

---

4.1.5 ext-blog/src/file-publisher.lisp

Dependencies

• utils.lisp (file).
• specials.lisp (file).

Source

ext-blog.asd.

Parent Component

src (module).

Internals

• *publish-files* (special variable).
• *publish-root* (special variable).
• mount-file-publisher (function).
• push-publish-entry-file (function).
• push-publish-theme-file (function).

---

4.1.6 ext-blog/src/themes.lisp

Dependency

file-publisher.lisp (file).

Source

ext-blog.asd.

Parent Component

src (module).

Public Interface

• load-themes (function).
• theme-desc (generic function).
• theme-name (generic function).
• theme-resources (generic function).
• theme-type (generic function).
• theme-update (generic function).
• themes-count (function).
• update-themes (function).

Internals

• *themes* (special variable).
• +theme-inst+ (special variable).
• create-theme-name (function).
• find-theme (function).
• get-default-theme (function).
• get-normal-themes (function).
• load-theme (function).
• theme-asdf-exist-p (function).

---

4.1.7 ext-blog/src/model/post.lisp

Source

ext-blog.asd.

Parent Component

model (module).

Public Interface

• post (class).
• post-content (reader method).
• (setf post-content) (writer method).
• post-id (reader method).
• (setf post-id) (writer method).
• post-revised-time (reader method).
• (setf post-revised-time) (writer method).
• post-time (reader method).
• (setf post-time) (writer method).
• post-title (reader method).
• (setf post-title) (writer method).

Internals

• *post-store-path* (special variable).
• gen-post-id (function).
• load-posts (generic function).
• store-posts (generic function).

---

4.1.8 ext-blog/src/model/comment.lisp

Source

ext-blog.asd.

Parent Component

model (module).

Public Interface

• comment (class).
• comment-author (reader method).
• (setf comment-author) (writer method).
• comment-content (reader method).
• (setf comment-content) (writer method).
• comment-email (reader method).
• (setf comment-email) (writer method).
• comment-id (reader method).
• (setf comment-id) (writer method).
• comment-post-id (reader method).
• (setf comment-post-id) (writer method).
• comment-time (reader method).
• (setf comment-time) (writer method).
• comment-url (reader method).
• (setf comment-url) (writer method).

Internals

• *comment-store-path* (special variable).
• gen-comment-id (function).
• get-comments-by-post (function).
• load-comments (generic function).
• store-comments (generic function).

---

4.1.9 ext-blog/src/model/user.lisp

Source

ext-blog.asd.

Parent Component

model (module).

Public Interface

• create-user (function).
• load-user (generic function).
• store-user (generic function).
• user-auth (function).
• user-password (reader method).
• (setf user-password) (writer method).
• user-uid (reader method).
• (setf user-uid) (writer method).

Internals

• *user-store-path* (special variable).
• add-user-token (function).
• remove-user-token (function).
• user (class).
• user-tokens (reader method).
• (setf user-tokens) (writer method).
• valid-token-p (function).

---

4.1.10 ext-blog/src/model/blog.lisp

Dependencies

• user.lisp (file).
• post.lisp (file).
• comment.lisp (file).

Source

ext-blog.asd.

Parent Component

model (module).

Public Interface

• blog (class).
• blog-author (function).
• blog-comments (reader method).
• (setf blog-comments) (writer method).
• blog-posts (reader method).
• (setf blog-posts) (writer method).
• blog-sub-title (reader method).
• (setf blog-sub-title) (writer method).
• blog-theme (reader method).
• (setf blog-theme) (writer method).
• blog-title (reader method).
• (setf blog-title) (writer method).
• get-1st-post (function).
• get-max-page-id (function).
• get-min-page-id (function).
• get-nth-post (function).
• get-post-comments (function).
• get-post-comments-cnt (function).
• get-posts-by-page (function).

Internals

• *blog* (special variable).
• blog-admin-theme (reader method).
• (setf blog-admin-theme) (writer method).
• blog-footer-html (reader method).
• (setf blog-footer-html) (writer method).
• blog-initialized-p (function).
• blog-user (reader method).
• (setf blog-user) (writer method).
• create-blog (function).
• create-comment (function).
• create-post (function).
• delete-comment (function).
• delete-post (function).
• edit-post (function).
• get-recent-comments (function).
• get-recent-posts (function).

---

4.1.11 ext-blog/src/model/store-blog.lisp

Dependency

blog.lisp (file).

Source

ext-blog.asd.

Parent Component

model (module).

Internals

• *blog-store-path* (special variable).
• alist->blog (function).
• alist-field (function).
• blog->alist (function).
• load-blog (function).
• store-blog (function).

---

4.1.12 ext-blog/src/rsstmpl.lisp

Dependency

utils.lisp (file).

Source

ext-blog.asd.

Parent Component

src (module).

Internals

update-rss-tmpl (function).

---

4.1.13 ext-blog/src/rss.lisp

Dependencies

• rsstmpl.lisp (file).
• model (module).
• routes.lisp (file).

Source

ext-blog.asd.

Parent Component

src (module).

Internals

• rss-format-pubdate (function).
• rss-generate (method).
• rss-get-blog-posts (function).
• rss-get-post-desc (function).

---

4.1.14 ext-blog/src/drawer-dispatch.lisp

Dependencies

• defmodule.lisp (file).
• model (module).

Source

ext-blog.asd.

Parent Component

src (module).

Public Interface

• render-object (method).
• render-page (generic function).

Internals

• drawer-dispatcher (class).
• get-theme (function).

---

4.1.15 ext-blog/src/params.lisp

Dependency

utils.lisp (file).

Source

ext-blog.asd.

Parent Component

src (module).

Internals

• cookie (function).
• params (function).
• params-list (function).

---

4.1.16 ext-blog/src/verify-code.lisp

Dependency

utils.lisp (file).

Source

ext-blog.asd.

Parent Component

src (module).

Internals

• auth-verify-code (function).
• generate-verify-code (function).

---

4.1.17 ext-blog/src/auth.lisp

Dependencies

• defmodule.lisp (file).
• model (module).

Source

ext-blog.asd.

Parent Component

src (module).

Internals

• +cookie-save-time+ (constant).
• authed-p (function).
• check-login (function).
• delete-cookie (function).
• do-login (function).
• on-login (function).
• on-logout (function).
• set-cookie (function).

---

4.1.18 ext-blog/src/routes.lisp

Dependencies

• defmodule.lisp (file).
• model (module).
• auth.lisp (file).
• verify-code.lisp (file).

Source

ext-blog.asd.

Parent Component

src (module).

Public Interface

• api/metaweblog (function).
• api/metaweblog-info (function).
• api/rss (function).
• blog (function).
• index (function).
• initialize (function).
• initialize-done (function).
• login (function).
• login-done (function).
• logout (function).
• main (function).
• make-full-feed-url (function).
• make-full-root-url (function).
• manage (function).
• manage/comment (function).
• manage/comment/delete (function).
• manage/comment/delete/id (function).
• manage/configure (function).
• manage/configure/blogger (function).
• manage/configure/blogger-done (function).
• manage/configure/profile (function).
• manage/configure/profile-done (function).
• manage/new (function).
• manage/new-done (function).
• manage/post (function).
• manage/post/delete (function).
• manage/post/delete/id (function).
• manage/post/edit/id (function).
• manage/post/edit/id-done (function).
• new-comment-done (function).
• page (function).
• verifypic (function).
• view (function).

Internals

• format-args (function).
• make-full-post-url (function).
• make-host (function).
• rss-generate (generic function).

---

4.1.19 ext-blog/src/xmlrpc.lisp

Dependencies

• defmodule.lisp (file).
• model (module).
• ext-blog.lisp (file).

Source

ext-blog.asd.

Parent Component

src (module).

Public Interface

• handle-metaweblog-request (function).
• metaweblog.newmediaobject (function).
• metaweblog.newpost (function).
• set-metaweblog-api (function).

Internals

• *blog* (special variable).
• check-auth-user (macro).
• media-object-url (function).
• save-media-object (function).

---

4.1.20 ext-blog/src/ext-blog.lisp

Dependencies

• specials.lisp (file).
• routes.lisp (file).
• themes.lisp (file).
• drawer-dispatch.lisp (file).
• model (module).

Source

ext-blog.asd.

Parent Component

src (module).

Public Interface

start (function).

Internals

• *access-log-path* (special variable).
• *message-log-path* (special variable).
• create-log-path (function).
• ext-blog-acceptor (class).

---

4.1.21 ext-blog/theme/blog-data.lisp

Source

ext-blog.asd.

Parent Component

theme (module).

Public Interface

• get-all-comments-data (function).
• get-all-posts-data (function).
• get-author-data (function).
• get-blog-data (function).
• get-comment-data (function).
• get-footer-data (function).
• get-head-data (function).
• get-page-data (function).
• get-page-nav-url (function).
• get-page-posts-data (function).
• get-post-comments-data (function).
• get-post-data (function).
• get-post-time-desc (function).
• get-recent-comments-brief (function).
• get-recent-posts-brief (function).
• get-sys-info (function).
• get-themes-data (function).
• get-title-data (function).
• has-post-p (function).

Internals

• get-comment-brief (function).
• get-post-brief (function).
• get-theme-data (function).

---

6.1.1 Special variables

Special Variable: *entry-static* ¶

Package

ext-blog.

Source

specials.lisp.

Special Variable: *entry-static-path* ¶

Package

ext-blog.

Source

specials.lisp.

Special Variable: *ext-blog-version* ¶

Package

ext-blog-asd.

Source

ext-blog.asd.

---

6.1.2 Ordinary functions

Function: api/metaweblog () ¶

Package

ext-blog.

Source

routes.lisp.

Function: api/metaweblog-info () ¶

Package

ext-blog.

Source

routes.lisp.

Function: api/rss () ¶

Package

ext-blog.

Source

routes.lisp.

Function: blog () ¶

Package

ext-blog.

Source

routes.lisp.

Function: blog-author (blog) ¶

Get the blog author name

Package

ext-blog.

Source

blog.lisp.

Function: create-user (id pwd) ¶

Create a new user.

Package

ext-blog.

Source

user.lisp.

Function: format-timestring (time) ¶

Format a time to a string by ‘local-time‘ library

Package

ext-blog.

Source

utils.lisp.

Function: get-1st-post (blog) ¶

Get the first post, usually the recent post.

Package

ext-blog.

Source

blog.lisp.

Function: get-all-comments-data (blog) ¶

Get all comments data

Package

ext-blog.

Source

blog-data.lisp.

Function: get-all-posts-data (blog) ¶

Get all posts data

Package

ext-blog.

Source

blog-data.lisp.

Function: get-author-data (blog) ¶

Package

ext-blog.

Source

blog-data.lisp.

Function: get-blog-data (blog) ¶

Get a blog general description, title and sub-title

Package

ext-blog.

Source

blog-data.lisp.

Function: get-comment-data (blog comment) ¶

Get a comment data

Package

ext-blog.

Source

blog-data.lisp.

Function: get-footer-data (blog) ¶

Package

ext-blog.

Source

blog-data.lisp.

Function: get-head-data (blog) ¶

Get the blog menu data

Package

ext-blog.

Source

blog-data.lisp.

Function: get-max-page-id (blog page-cnt) ¶

Package

ext-blog.

Source

blog.lisp.

Function: get-min-page-id (blog page-cnt) ¶

Package

ext-blog.

Source

blog.lisp.

Function: get-nth-post (blog id) ¶

Get a post by its id.

Package

ext-blog.

Source

blog.lisp.

Function: get-page-data (blog page-cnt id) ¶

Package

ext-blog.

Source

blog-data.lisp.

Function: get-page-nav-url (blog id page-cnt) ¶

Package

ext-blog.

Source

blog-data.lisp.

Function: get-page-posts-data (blog page-cnt id) ¶

Get the nth page posts data

Package

ext-blog.

Source

blog-data.lisp.

Function: get-post-comments (blog post) ¶

Get all comments associated with the post.

Package

ext-blog.

Source

blog.lisp.

Function: get-post-comments-cnt (blog post) ¶

Get comment count associated with the post.

Package

ext-blog.

Source

blog.lisp.

Function: get-post-comments-data (blog post) ¶

Get all comments data associated with the post

Package

ext-blog.

Source

blog-data.lisp.

Function: get-post-data (blog post) ¶

Get a post render data, used to render

Package

ext-blog.

Source

blog-data.lisp.

Function: get-post-time-desc (post &optional type) ¶

Get the time string of the post

Package

ext-blog.

Source

blog-data.lisp.

Function: get-posts-by-page (blog page-cnt id) ¶

Get the nth page of posts, id starts from 0

Package

ext-blog.

Source

blog.lisp.

Function: get-recent-comments-brief (blog cnt) ¶

Package

ext-blog.

Source

blog-data.lisp.

Function: get-recent-posts-brief (blog cnt) ¶

Package

ext-blog.

Source

blog-data.lisp.

Function: get-sys-info () ¶

Package

ext-blog.

Source

blog-data.lisp.

Function: get-themes-data (blog) ¶

Get all normal themes data

Package

ext-blog.

Source

blog-data.lisp.

Function: get-title-data (blog) ¶

Get the blog title render data

Package

ext-blog.

Source

blog-data.lisp.

Function: handle-metaweblog-request (blog) ¶

Handle metaweblog http request.

Package

xml-rpc-methods.

Source

xmlrpc.lisp.

Function: has-post-p (blog) ¶

Check whether the blog has posts

Package

ext-blog.

Source

blog-data.lisp.

Function: index () ¶

Package

ext-blog.

Source

routes.lisp.

Function: initialize () ¶

Package

ext-blog.

Source

routes.lisp.

Function: initialize-done () ¶

Package

ext-blog.

Source

routes.lisp.

Function: load-themes (&optional path) ¶

Load all themes in directory ‘theme/‘

Package

ext-blog.

Source

themes.lisp.

Function: login () ¶

Package

ext-blog.

Source

routes.lisp.

Function: login-done () ¶

Package

ext-blog.

Source

routes.lisp.

Function: logout () ¶

Package

ext-blog.

Source

routes.lisp.

Function: main () ¶

Package

ext-blog.

Source

routes.lisp.

Function: make-full-feed-url () ¶

Package

ext-blog.

Source

routes.lisp.

Function: make-full-root-url () ¶

Package

ext-blog.

Source

routes.lisp.

Function: manage () ¶

Package

ext-blog.

Source

routes.lisp.

Function: manage/comment () ¶

Package

ext-blog.

Source

routes.lisp.

Function: manage/comment/delete () ¶

Package

ext-blog.

Source

routes.lisp.

Function: manage/comment/delete/id (id) ¶

Package

ext-blog.

Source

routes.lisp.

Function: manage/configure () ¶

Package

ext-blog.

Source

routes.lisp.

Function: manage/configure/blogger () ¶

Package

ext-blog.

Source

routes.lisp.

Function: manage/configure/blogger-done () ¶

Package

ext-blog.

Source

routes.lisp.

Function: manage/configure/profile () ¶

Package

ext-blog.

Source

routes.lisp.

Function: manage/configure/profile-done () ¶

Package

ext-blog.

Source

routes.lisp.

Function: manage/new () ¶

Package

ext-blog.

Source

routes.lisp.

Function: manage/new-done () ¶

Package

ext-blog.

Source

routes.lisp.

Function: manage/post () ¶

Package

ext-blog.

Source

routes.lisp.

Function: manage/post/delete () ¶

Package

ext-blog.

Source

routes.lisp.

Function: manage/post/delete/id (id) ¶

Package

ext-blog.

Source

routes.lisp.

Function: manage/post/edit/id (id) ¶

Package

ext-blog.

Source

routes.lisp.

Function: manage/post/edit/id-done (id) ¶

Package

ext-blog.

Source

routes.lisp.

Function: metaweblog.newmediaobject (blogid username password media-obj) ¶

Package

xml-rpc-methods.

Source

xmlrpc.lisp.

Function: metaweblog.newpost (blogid username password post publish) ¶

Package

xml-rpc-methods.

Source

xmlrpc.lisp.

Function: new-comment-done () ¶

Package

ext-blog.

Source

routes.lisp.

Function: page (id) ¶

Package

ext-blog.

Source

routes.lisp.

Function: root-pathname () ¶

Package

ext-blog.

Source

utils.lisp.

Function: set-metaweblog-api () ¶

Package

xml-rpc-methods.

Source

xmlrpc.lisp.

Function: start (&key port) ¶

Package

ext-blog.

Source

ext-blog.lisp.

Function: string-empty (s) ¶

Package

ext-blog.

Source

utils.lisp.

Function: theme-pathname () ¶

Package

ext-blog.

Source

utils.lisp.

Function: themes-count () ¶

Get the theme count currently loaded

Package

ext-blog.

Source

themes.lisp.

Function: update-themes () ¶

Update all themes

Package

ext-blog.

Source

themes.lisp.

Function: user-auth (user id pwd) ¶

Auth a user, if ok return t

Package

ext-blog.

Source

user.lisp.

Function: verifypic () ¶

Package

ext-blog.

Source

routes.lisp.

Function: view (id) ¶

Package

ext-blog.

Source

routes.lisp.

---

6.1.3 Generic functions

Generic Reader: blog-comments (object) ¶

Package

ext-blog.

Methods

Reader Method: blog-comments ((blog blog)) ¶

automatically generated reader method

Source

blog.lisp.

Target Slot

comments.

Generic Writer: (setf blog-comments) (object) ¶

Package

ext-blog.

Methods

Writer Method: (setf blog-comments) ((blog blog)) ¶

automatically generated writer method

Source

blog.lisp.

Target Slot

comments.

Generic Reader: blog-posts (object) ¶

Package

ext-blog.

Methods

Reader Method: blog-posts ((blog blog)) ¶

automatically generated reader method

Source

blog.lisp.

Target Slot

posts.

Generic Writer: (setf blog-posts) (object) ¶

Package

ext-blog.

Methods

Writer Method: (setf blog-posts) ((blog blog)) ¶

automatically generated writer method

Source

blog.lisp.

Target Slot

posts.

Generic Reader: blog-sub-title (object) ¶

Package

ext-blog.

Methods

Reader Method: blog-sub-title ((blog blog)) ¶

automatically generated reader method

Source

blog.lisp.

Target Slot

sub-title.

Generic Writer: (setf blog-sub-title) (object) ¶

Package

ext-blog.

Methods

Writer Method: (setf blog-sub-title) ((blog blog)) ¶

automatically generated writer method

Source

blog.lisp.

Target Slot

sub-title.

Generic Reader: blog-theme (object) ¶

Package

ext-blog.

Methods

Reader Method: blog-theme ((blog blog)) ¶

automatically generated reader method

Source

blog.lisp.

Target Slot

theme.

Generic Writer: (setf blog-theme) (object) ¶

Package

ext-blog.

Methods

Writer Method: (setf blog-theme) ((blog blog)) ¶

automatically generated writer method

Source

blog.lisp.

Target Slot

theme.

Generic Reader: blog-title (object) ¶

Package

ext-blog.

Methods

Reader Method: blog-title ((blog blog)) ¶

automatically generated reader method

Source

blog.lisp.

Target Slot

title.

Generic Writer: (setf blog-title) (object) ¶

Package

ext-blog.

Methods

Writer Method: (setf blog-title) ((blog blog)) ¶

automatically generated writer method

Source

blog.lisp.

Target Slot

title.

Generic Reader: comment-author (object) ¶

Package

ext-blog.

Methods

Reader Method: comment-author ((comment comment)) ¶

automatically generated reader method

Source

comment.lisp.

Target Slot

author.

Generic Writer: (setf comment-author) (object) ¶

Package

ext-blog.

Methods

Writer Method: (setf comment-author) ((comment comment)) ¶

automatically generated writer method

Source

comment.lisp.

Target Slot

author.

Generic Reader: comment-content (object) ¶

Package

ext-blog.

Methods

Reader Method: comment-content ((comment comment)) ¶

automatically generated reader method

Source

comment.lisp.

Target Slot

content.

Generic Writer: (setf comment-content) (object) ¶

Package

ext-blog.

Methods

Writer Method: (setf comment-content) ((comment comment)) ¶

automatically generated writer method

Source

comment.lisp.

Target Slot

content.

Generic Reader: comment-email (object) ¶

Package

ext-blog.

Methods

Reader Method: comment-email ((comment comment)) ¶

automatically generated reader method

Source

comment.lisp.

Target Slot

email.

Generic Writer: (setf comment-email) (object) ¶

Package

ext-blog.

Methods

Writer Method: (setf comment-email) ((comment comment)) ¶

automatically generated writer method

Source

comment.lisp.

Target Slot

email.

Generic Reader: comment-id (object) ¶

Package

ext-blog.

Methods

Reader Method: comment-id ((comment comment)) ¶

automatically generated reader method

Source

comment.lisp.

Target Slot

id.

Generic Writer: (setf comment-id) (object) ¶

Package

ext-blog.

Methods

Writer Method: (setf comment-id) ((comment comment)) ¶

automatically generated writer method

Source

comment.lisp.

Target Slot

id.

Generic Reader: comment-post-id (object) ¶

Package

ext-blog.

Methods

Reader Method: comment-post-id ((comment comment)) ¶

automatically generated reader method

Source

comment.lisp.

Target Slot

post-id.

Generic Writer: (setf comment-post-id) (object) ¶

Package

ext-blog.

Methods

Writer Method: (setf comment-post-id) ((comment comment)) ¶

automatically generated writer method

Source

comment.lisp.

Target Slot

post-id.

Generic Reader: comment-time (object) ¶

Package

ext-blog.

Methods

Reader Method: comment-time ((comment comment)) ¶

automatically generated reader method

Source

comment.lisp.

Target Slot

time.

Generic Writer: (setf comment-time) (object) ¶

Package

ext-blog.

Methods

Writer Method: (setf comment-time) ((comment comment)) ¶

automatically generated writer method

Source

comment.lisp.

Target Slot

time.

Generic Reader: comment-url (object) ¶

Package

ext-blog.

Methods

Reader Method: comment-url ((comment comment)) ¶

automatically generated reader method

Source

comment.lisp.

Target Slot

url.

Generic Writer: (setf comment-url) (object) ¶

Package

ext-blog.

Methods

Writer Method: (setf comment-url) ((comment comment)) ¶

automatically generated writer method

Source

comment.lisp.

Target Slot

url.

Generic Function: load-user () ¶

Package

ext-blog.

Source

user.lisp.

Methods

Method: load-user () ¶

Generic Reader: post-content (object) ¶

Package

ext-blog.

Methods

Reader Method: post-content ((post post)) ¶

automatically generated reader method

Source

post.lisp.

Target Slot

content.

Generic Writer: (setf post-content) (object) ¶

Package

ext-blog.

Methods

Writer Method: (setf post-content) ((post post)) ¶

automatically generated writer method

Source

post.lisp.

Target Slot

content.

Generic Reader: post-id (object) ¶

Package

ext-blog.

Methods

Reader Method: post-id ((post post)) ¶

automatically generated reader method

Source

post.lisp.

Target Slot

id.

Generic Writer: (setf post-id) (object) ¶

Package

ext-blog.

Methods

Writer Method: (setf post-id) ((post post)) ¶

automatically generated writer method

Source

post.lisp.

Target Slot

id.

Generic Reader: post-revised-time (object) ¶

Package

ext-blog.

Methods

Reader Method: post-revised-time ((post post)) ¶

automatically generated reader method

Source

post.lisp.

Target Slot

revised-time.

Generic Writer: (setf post-revised-time) (object) ¶

Package

ext-blog.

Methods

Writer Method: (setf post-revised-time) ((post post)) ¶

automatically generated writer method

Source

post.lisp.

Target Slot

revised-time.

Generic Reader: post-time (object) ¶

Package

ext-blog.

Methods

Reader Method: post-time ((post post)) ¶

automatically generated reader method

Source

post.lisp.

Target Slot

time.

Generic Writer: (setf post-time) (object) ¶

Package

ext-blog.

Methods

Writer Method: (setf post-time) ((post post)) ¶

automatically generated writer method

Source

post.lisp.

Target Slot

time.

Generic Reader: post-title (object) ¶

Package

ext-blog.

Methods

Reader Method: post-title ((post post)) ¶

automatically generated reader method

Source

post.lisp.

Target Slot

title.

Generic Writer: (setf post-title) (object) ¶

Package

ext-blog.

Methods

Writer Method: (setf post-title) ((post post)) ¶

automatically generated writer method

Source

post.lisp.

Target Slot

title.

Generic Function: render-page (blog theme route args) ¶

Render blog page by the blog theme

Package

ext-blog.

Source

drawer-dispatch.lisp.

Generic Function: store-user (user) ¶

Package

ext-blog.

Source

user.lisp.

Methods

Method: store-user (user) ¶

Generic Function: theme-desc (inst) ¶

Get the theme description

Package

ext-blog.

Source

themes.lisp.

Generic Function: theme-name (inst) ¶

Get the theme name

Package

ext-blog.

Source

themes.lisp.

Generic Function: theme-resources (inst) ¶

A list of files/directories to be published

Package

ext-blog.

Source

themes.lisp.

Methods

Method: theme-resources (inst) ¶

Generic Function: theme-type (inst) ¶

Theme type can be :normal and :admin

Package

ext-blog.

Source

themes.lisp.

Methods

Method: theme-type (inst) ¶

Generic Function: theme-update (inst) ¶

Update the theme, reload resources etc.

Package

ext-blog.

Source

themes.lisp.

Generic Reader: user-password (object) ¶

Package

ext-blog.

Methods

Reader Method: user-password ((user user)) ¶

automatically generated reader method

Source

user.lisp.

Target Slot

password.

Generic Writer: (setf user-password) (object) ¶

Package

ext-blog.

Methods

Writer Method: (setf user-password) ((user user)) ¶

automatically generated writer method

Source

user.lisp.

Target Slot

password.

Generic Reader: user-uid (object) ¶

Package

ext-blog.

Methods

Reader Method: user-uid ((user user)) ¶

automatically generated reader method

Source

user.lisp.

Target Slot

uid.

Generic Writer: (setf user-uid) (object) ¶

Package

ext-blog.

Methods

Writer Method: (setf user-uid) ((user user)) ¶

automatically generated writer method

Source

user.lisp.

Target Slot

uid.

---

6.1.4 Standalone methods

Method: render-object ((drawer drawer-dispatcher) (data list)) ¶

Package

restas.

Source

drawer-dispatch.lisp.

Method: route-check-conditions ((route nil-route) bindings) ¶

Package

routes.

Source

utils.lisp.

---

6.1.5 Classes

Class: blog ¶

Represents a blog, a blog object has a list of posts and comments, and other stuff.

Package

ext-blog.

Source

blog.lisp.

Direct methods

• (setf blog-admin-theme).
• blog-admin-theme.
• (setf blog-comments).
• blog-comments.
• (setf blog-footer-html).
• blog-footer-html.
• (setf blog-posts).
• blog-posts.
• (setf blog-sub-title).
• blog-sub-title.
• (setf blog-theme).
• blog-theme.
• (setf blog-title).
• blog-title.
• (setf blog-user).
• blog-user.

Direct slots

Slot: user ¶

Initargs

:user

Readers

blog-user.

Writers

(setf blog-user).

Slot: title ¶

Initargs

:title

Readers

blog-title.

Writers

(setf blog-title).

Slot: sub-title ¶

Initargs

:sub-title

Readers

blog-sub-title.

Writers

(setf blog-sub-title).

Slot: posts ¶

Readers

blog-posts.

Writers

(setf blog-posts).

Slot: comments ¶

Readers

blog-comments.

Writers

(setf blog-comments).

Slot: admin-theme ¶

Initargs

:admin-theme

Readers

blog-admin-theme.

Writers

(setf blog-admin-theme).

Slot: footer-html ¶

Initargs

:footer-html

Readers

blog-footer-html.

Writers

(setf blog-footer-html).

Slot: theme ¶

Initargs

:theme

Readers

blog-theme.

Writers

(setf blog-theme).

Class: comment ¶

Package

ext-blog.

Source

comment.lisp.

Direct methods

• (setf comment-author).
• comment-author.
• (setf comment-content).
• comment-content.
• (setf comment-email).
• comment-email.
• (setf comment-id).
• comment-id.
• (setf comment-post-id).
• comment-post-id.
• (setf comment-time).
• comment-time.
• (setf comment-url).
• comment-url.

Direct slots

Slot: id ¶

Initargs

:id

Readers

comment-id.

Writers

(setf comment-id).

Slot: post-id ¶

Initargs

:post-id

Readers

comment-post-id.

Writers

(setf comment-post-id).

Slot: time ¶

Package

common-lisp.

Initargs

:time

Readers

comment-time.

Writers

(setf comment-time).

Slot: author ¶

Initargs

:author

Readers

comment-author.

Writers

(setf comment-author).

Slot: email ¶

Initargs

:email

Readers

comment-email.

Writers

(setf comment-email).

Slot: url ¶

Initargs

:url

Readers

comment-url.

Writers

(setf comment-url).

Slot: content ¶

Initargs

:content

Readers

comment-content.

Writers

(setf comment-content).

Class: post ¶

A post object is also called an entry.

Package

ext-blog.

Source

post.lisp.

Direct methods

• (setf post-content).
• post-content.
• (setf post-id).
• post-id.
• (setf post-revised-time).
• post-revised-time.
• (setf post-time).
• post-time.
• (setf post-title).
• post-title.

Direct slots

Slot: id ¶

Initargs

:id

Readers

post-id.

Writers

(setf post-id).

Slot: time ¶

Package

common-lisp.

Initargs

:time

Readers

post-time.

Writers

(setf post-time).

Slot: revised-time ¶

Readers

post-revised-time.

Writers

(setf post-revised-time).

Slot: title ¶

Initargs

:title

Readers

post-title.

Writers

(setf post-title).

Slot: content ¶

Initargs

:content

Readers

post-content.

Writers

(setf post-content).

---

6.2.1 Constants

Constant: +cookie-save-time+ ¶

Package

ext-blog.

Source

auth.lisp.

---

6.2.2 Special variables

Special Variable: *access-log-path* ¶

Package

ext-blog.

Source

ext-blog.lisp.

Special Variable: *blog* ¶

Package

ext-blog.

Source

blog.lisp.

Special Variable: *blog* ¶

Package

xml-rpc-methods.

Source

xmlrpc.lisp.

Special Variable: *blog-store-path* ¶

Package

ext-blog.

Source

store-blog.lisp.

Special Variable: *comment-store-path* ¶

Package

ext-blog.

Source

comment.lisp.

Special Variable: *data-root* ¶

Package

ext-blog.

Source

specials.lisp.

Special Variable: *enable-log* ¶

Package

ext-blog.

Source

specials.lisp.

Special Variable: *font-path* ¶

Package

ext-blog.

Source

specials.lisp.

Special Variable: *log-path* ¶

Package

ext-blog.

Source

specials.lisp.

Special Variable: *message-log-path* ¶

Package

ext-blog.

Source

ext-blog.lisp.

Special Variable: *post-store-path* ¶

Package

ext-blog.

Source

post.lisp.

Special Variable: *publish-files* ¶

Package

ext-blog.

Source

file-publisher.lisp.

Special Variable: *publish-root* ¶

Package

ext-blog.

Source

file-publisher.lisp.

Special Variable: *store-path* ¶

Package

ext-blog.

Source

specials.lisp.

Special Variable: *the-random-state* ¶

Package

ext-blog.

Source

utils.lisp.

Special Variable: *themes* ¶

Package

ext-blog.

Source

themes.lisp.

Special Variable: *user-store-path* ¶

Package

ext-blog.

Source

user.lisp.

Special Variable: +theme-inst+ ¶

Package

ext-blog.

Source

themes.lisp.

---