diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-30 21:51:04 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-30 21:51:04 +0100 |
| commit | 5d0b3520f01f55d09ed05927f1f4aa43df9e5bc6 (patch) | |
| tree | ed8842efebfb87fdf755053957a41bdd45e9a893 /journal-content.lisp | |
| parent | 3199fd448e0e15c23096460647b21f361561a2c7 (diff) | |
Implement metaWeblog.getCategories and metaWeblog.getRecentPosts.
Ignore-this: 38094bb5aff14dc701398aa871e22116
darcs-hash:607981d7d7dff2945b8a1824c152a365ea28ceea
Diffstat (limited to 'journal-content.lisp')
| -rw-r--r-- | journal-content.lisp | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/journal-content.lisp b/journal-content.lisp index 3d286b3..29f01e4 100644 --- a/journal-content.lisp +++ b/journal-content.lisp @@ -279,16 +279,19 @@ (setf (%trackbacks-about journal-entry) new-value)) -(defun make-journal-entry-id () +(defun find-largest-post-id () #.(locally-enable-sql-reader-syntax) (prog1 - (1+ (or (single-object (select [max [slot-value 'journal-entry 'id]] - :from [journal-entry] - :flatp t)) - -1)) + (single-object (select [max [slot-value 'journal-entry 'id]] + :from [journal-entry] + :flatp t)) #.(restore-sql-reader-syntax-state))) +(defun make-journal-entry-id () + (1+ (or (find-largest-post-id) -1))) + + (defun make-journal-comment-id () #.(locally-enable-sql-reader-syntax) (prog1 |