|
|
@ -45,7 +45,9 @@ |
|
|
|
#:latest-archive-editted-entries |
|
|
|
#:latest-archive-editted-entries |
|
|
|
#:latest-editted-pages |
|
|
|
#:latest-editted-pages |
|
|
|
#:latest-storage-editted-files |
|
|
|
#:latest-storage-editted-files |
|
|
|
#:update-single-nav-menu-item)) |
|
|
|
#:update-single-nav-menu-item |
|
|
|
|
|
|
|
#:get-newer-archive-entries |
|
|
|
|
|
|
|
#:get-older-archive-entries)) |
|
|
|
(in-package #:nera-db) |
|
|
|
(in-package #:nera-db) |
|
|
|
|
|
|
|
|
|
|
|
(defparameter *tables* '(user site-settings page storage-file archive-entry) |
|
|
|
(defparameter *tables* '(user site-settings page storage-file archive-entry) |
|
|
@ -327,7 +329,7 @@ slug is updated based on `NEW-FILE-NAME'." |
|
|
|
"Returns a list of all `ARCHIVE-ENTRY' entries in the database." |
|
|
|
"Returns a list of all `ARCHIVE-ENTRY' entries in the database." |
|
|
|
(with-connection (db) |
|
|
|
(with-connection (db) |
|
|
|
(mito:select-dao 'archive:archive-entry |
|
|
|
(mito:select-dao 'archive:archive-entry |
|
|
|
(sxql:order-by (:asc :title))))) |
|
|
|
(sxql:order-by (:desc :created-at))))) |
|
|
|
|
|
|
|
|
|
|
|
(defun create-archive-entry |
|
|
|
(defun create-archive-entry |
|
|
|
(title search-id slug pub-month pub-year thumbnail-slug thumbnail-file-type keywords) |
|
|
|
(title search-id slug pub-month pub-year thumbnail-slug thumbnail-file-type keywords) |
|
|
@ -386,3 +388,19 @@ An example of how to use this function is as follows (remove back-slashes): |
|
|
|
(mito:delete-dao (mito:find-dao 'archive:archive-entry :id id))) |
|
|
|
(mito:delete-dao (mito:find-dao 'archive:archive-entry :id id))) |
|
|
|
((not id) |
|
|
|
((not id) |
|
|
|
(mito:delete-dao (mito:find-dao 'archive:archive-entry :slug slug)))))) |
|
|
|
(mito:delete-dao (mito:find-dao 'archive:archive-entry :slug slug)))))) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defun get-newer-archive-entries (id amount) |
|
|
|
|
|
|
|
"Returns `AMOUNT' of `ARCHIVE-ENTRY' objects relative to `ID' in database." |
|
|
|
|
|
|
|
(with-connection (db) |
|
|
|
|
|
|
|
(mito:select-dao 'archive:archive-entry |
|
|
|
|
|
|
|
(sxql:where (:> :id id)) |
|
|
|
|
|
|
|
(sxql:order-by :id) |
|
|
|
|
|
|
|
(sxql:limit amount)))) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defun get-older-archive-entries (id amount) |
|
|
|
|
|
|
|
"Returns `AMOUNT' of `ARCHIVE-ENTRY' objects relative to `ID' in database." |
|
|
|
|
|
|
|
(with-connection (db) |
|
|
|
|
|
|
|
(mito:select-dao 'archive:archive-entry |
|
|
|
|
|
|
|
(sxql:where (:< :id id)) |
|
|
|
|
|
|
|
(sxql:order-by (:desc :id)) |
|
|
|
|
|
|
|
(sxql:limit amount)))) |
|
|
|