Permalink
Browse files

add file copyright comment

  • Loading branch information...
1 parent 3da101a commit 4c0a5b0a1bf8558e052b3866444d02e7e5f79751 @kevinlynx committed Dec 12, 2011
View
2 README
@@ -96,7 +96,7 @@ FAQ
1. The font in verify code picuture is too small?
You can find a pcf font file make the font much more bigger. Just put the font
-file in ./data and named it wenquanyi_12ptb.pcf. You can download this font
+file in ./font and named it wenquanyi_12ptb.pcf. You can download this font
file from:
https://github.com/kevinlynx/klprj/blob/master/ext-blog/data/wenquanyi_12ptb.pcf
View
@@ -1,8 +1,9 @@
-;;;;
;;;; auth.lisp
-;;;; Kevin Lynx
-;;;; 6.9.2011
;;;;
+;;;; This file is a part of ext-blog, a common lisp blog engine.
+;;;; See file doc/LICENSE for license details.
+;;;;
+;;;; Author: Kevin Lynx (kevinlynx at gmail dot com)
(in-package #:ext-blog)
;;; cookie stuff
View
@@ -1,8 +1,9 @@
-;;;;
;;;; defmodule.lisp
-;;;; Kevin Lynx
-;;;; 6.4.2011
;;;;
+;;;; This file is a part of ext-blog, a common lisp blog engine.
+;;;; See file doc/LICENSE for license details.
+;;;;
+;;;; Author: Kevin Lynx (kevinlynx at gmail dot com)
(restas:define-module #:ext-blog
(:use common-lisp)
)
View
@@ -1,8 +1,9 @@
-;;;;
;;;; drawer-dispatcher.lisp
-;;;; 6.6.2011
-;;;; Kevin Lynx
;;;;
+;;;; This file is a part of ext-blog, a common lisp blog engine.
+;;;; See file doc/LICENSE for license details.
+;;;;
+;;;; Author: Kevin Lynx (kevinlynx at gmail dot com)
(in-package #:ext-blog)
(export '(render-page))
View
@@ -1,8 +1,9 @@
-;;;;
;;;; ext-blog.lisp
-;;;; Kevin Lynx
-;;;; 6.4.2011
;;;;
+;;;; This file is a part of ext-blog, a common lisp blog engine.
+;;;; See file doc/LICENSE for license details.
+;;;;
+;;;; Author: Kevin Lynx (kevinlynx at gmail dot com)
(in-package #:ext-blog)
(export '(*ext-blog-version* start))
View
@@ -1,8 +1,9 @@
-;;;;
;;;; file-publisher.lisp
-;;;; Kevin Lynx
-;;;; 12.12.2011
;;;;
+;;;; This file is a part of ext-blog, a common lisp blog engine.
+;;;; See file doc/LICENSE for license details.
+;;;;
+;;;; Author: Kevin Lynx (kevinlynx at gmail dot com)
(in-package #:ext-blog)
;;; Used to server theme static files like css, images etc.
View
@@ -1,8 +1,9 @@
-;;;;
;;;; blog.lisp
-;;;; Kevin Lynx
-;;;; 6.4.2011
;;;;
+;;;; This file is a part of ext-blog, a common lisp blog engine.
+;;;; See file doc/LICENSE for license details.
+;;;;
+;;;; Author: Kevin Lynx (kevinlynx at gmail dot com)
(in-package #:ext-blog)
(export '(blog get-1st-post get-nth-post
View
@@ -1,8 +1,9 @@
-;;;;
;;;; comment.lisp
-;;;; Kevin Lynx
-;;;; 6.4.2011
;;;;
+;;;; This file is a part of ext-blog, a common lisp blog engine.
+;;;; See file doc/LICENSE for license details.
+;;;;
+;;;; Author: Kevin Lynx (kevinlynx at gmail dot com)
(in-package #:ext-blog)
(export '(comment comment-id comment-post-id comment-time comment-author
View
@@ -1,8 +1,9 @@
-;;;;
;;;; post.lisp
-;;;; Kevin Lynx
-;;;; 6.4.2011
;;;;
+;;;; This file is a part of ext-blog, a common lisp blog engine.
+;;;; See file doc/LICENSE for license details.
+;;;;
+;;;; Author: Kevin Lynx (kevinlynx at gmail dot com)
(in-package #:ext-blog)
(export '(post post-id post-time post-revised-time post-title post-content))
@@ -1,8 +1,9 @@
-;;;;
;;;; store-blog.lisp
-;;;; Kevin Lynx
-;;;; 6.13.2011
;;;;
+;;;; This file is a part of ext-blog, a common lisp blog engine.
+;;;; See file doc/LICENSE for license details.
+;;;;
+;;;; Author: Kevin Lynx (kevinlynx at gmail dot com)
(in-package #:ext-blog)
(defun alist-field (alist key)
View
@@ -1,8 +1,9 @@
-;;;;
;;;; user.lisp
-;;;; Kevin Lynx
-;;;; 6.9.2011
;;;;
+;;;; This file is a part of ext-blog, a common lisp blog engine.
+;;;; See file doc/LICENSE for license details.
+;;;;
+;;;; Author: Kevin Lynx (kevinlynx at gmail dot com)
(in-package #:ext-blog)
(export '(create-user load-user store-user
@@ -44,8 +45,7 @@
(defun valid-token-p (user token)
(find-if #'(lambda (tok) (string= tok token)) (user-tokens user)))
-(defvar *user-store-path*
- (merge-pathnames "store/users.store" (root-pathname)))
+(defvar *user-store-path* (merge-pathnames "users.store" *store-path*))
(defmethod load-user ()
(let ((path *user-store-path*))
View
@@ -1,8 +1,9 @@
-;;;;
;;;; params.lisp
-;;;; Kevin Lynx
-;;;; 6.9.2011
;;;;
+;;;; This file is a part of ext-blog, a common lisp blog engine.
+;;;; See file doc/LICENSE for license details.
+;;;;
+;;;; Author: Kevin Lynx (kevinlynx at gmail dot com)
(in-package #:ext-blog)
(defun params (name)
View
@@ -1,8 +1,9 @@
-;;;;
;;;; routes.lisp
-;;;; Kevin Lynx
-;;;; 6.4.2011
;;;;
+;;;; This file is a part of ext-blog, a common lisp blog engine.
+;;;; See file doc/LICENSE for license details.
+;;;;
+;;;; Author: Kevin Lynx (kevinlynx at gmail dot com)
(in-package #:ext-blog)
(export '(make-full-root-url make-full-feed-url))
View
@@ -1,8 +1,9 @@
-;;;;
;;;; rss.lisp
-;;;; Kevin Lynx
-;;;; 7.22.2011
;;;;
+;;;; This file is a part of ext-blog, a common lisp blog engine.
+;;;; See file doc/LICENSE for license details.
+;;;;
+;;;; Author: Kevin Lynx (kevinlynx at gmail dot com)
(in-package #:ext-blog)
(defun rss-format-pubdate (post)
View
@@ -1,8 +1,9 @@
-;;;;
;;;; rsstmpl.lisp
-;;;; Kevin Lynx
-;;;; 8.2.2011
;;;;
+;;;; This file is a part of ext-blog, a common lisp blog engine.
+;;;; See file doc/LICENSE for license details.
+;;;;
+;;;; Author: Kevin Lynx (kevinlynx at gmail dot com)
(in-package #:ext-blog)
;;; You must separate the 'compile tmpl' codes from rss.lisp, because if you do,
View
@@ -1,8 +1,9 @@
-;;;;
;;;; specials.lisp
-;;;; Kevin Lynx
-;;;; 12.12.2011
;;;;
+;;;; This file is a part of ext-blog, a common lisp blog engine.
+;;;; See file doc/LICENSE for license details.
+;;;;
+;;;; Author: Kevin Lynx (kevinlynx at gmail dot com)
(in-package #:ext-blog)
(export '(*entry-static* *entry-static-path*))
View
@@ -1,9 +1,11 @@
-;;;;
;;;; themes.lisp
+;;;;
+;;;; This file is a part of ext-blog, a common lisp blog engine.
+;;;; See file doc/LICENSE for license details.
+;;;;
;;;; Manage theme load operations.
-;;;; 6.7.2011
-;;;; Kevin Lynx
;;;;
+;;;; Author: Kevin Lynx (kevinlynx at gmail dot com)
(in-package #:ext-blog)
(export '(theme-name theme-desc theme-type theme-update theme-resources
View
@@ -1,8 +1,9 @@
-;;;;
;;;; utils.lisp
-;;;; Kevin Lynx
-;;;; 6.4.2011
;;;;
+;;;; This file is a part of ext-blog, a common lisp blog engine.
+;;;; See file doc/LICENSE for license details.
+;;;;
+;;;; Author: Kevin Lynx (kevinlynx at gmail dot com)
(in-package #:ext-blog)
(export '(format-timestring
View
@@ -1,8 +1,9 @@
-;;;;
;;;; verify-code.lisp
-;;;; Kevin Lynx
-;;;; 9.15.2011
;;;;
+;;;; This file is a part of ext-blog, a common lisp blog engine.
+;;;; See file doc/LICENSE for license details.
+;;;;
+;;;; Author: Kevin Lynx (kevinlynx at gmail dot com)
(in-package #:ext-blog)
(defun generate-verify-code ()
View
@@ -1,8 +1,9 @@
-;;;;
;;;; xmlrpc.lisp
-;;;; Kevin Lynx
-;;;; 7.6.2011
;;;;
+;;;; This file is a part of ext-blog, a common lisp blog engine.
+;;;; See file doc/LICENSE for license details.
+;;;;
+;;;; Author: Kevin Lynx (kevinlynx at gmail dot com)
(in-package #:xml-rpc-methods)
(defparameter *blog* nil)
View
@@ -22,9 +22,13 @@
get-post-comments-data
get-all-comments-data
get-recent-comments-brief
+ get-sys-info
get-recent-posts-brief
get-all-posts-data))
+(defun get-sys-info ()
+ (concatenate 'string "ext-blog " *ext-blog-version*))
+
(defun get-post-time-desc (post &optional (type :created))
"Get the time string of the post"
(if (eql type :created)
@@ -108,6 +112,7 @@
(defun get-footer-data (blog)
(list :author (blog-author blog)
+ :sysinfo (get-sys-info)
:html (blog-footer-html blog)
:loginurl (restas:genurl 'login)))
@@ -67,7 +67,7 @@
<div id="footer">
<a id="gotop" href="#" onclick="MGJS.goTop();return false;">Top</a>
<div id="copyright">
- Copyright &copy; {$author}, Powerd by Lisp and restas.
+ Copyright &copy; {$author}, Powerd by {$sysinfo}
<strong><a href="{$loginurl}" title="Login to manage">Login</a></strong>
</div>
<div id="themeinfo">
@@ -123,7 +123,7 @@
<div class="to_top">
<a href="#menu" title="Top of Page">&nbsp;</a>
</div>
- <p>Copyright &copy; {$author}, Powerd by Lisp and restas. The theme is
+ <p>Copyright &copy; {$author}, Powerd by {$sysinfo}. The theme is
<a href="http://www.nyssajbrown.net/pockett/" title="PocketT theme by Nyssa Brown Design">PocketT</a>
&nbsp;&nbsp;&nbsp;|&nbsp;&nbsp; <a href="{$loginurl}">Login</a>
</p>

0 comments on commit 4c0a5b0

Please sign in to comment.