cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-10 07:20:35 +01:00
Code Issues

- added 'db:gempub-metadata-id->path';

Browse Source 
- used local nickname instead of importing alexandria for package 'db'.
This commit is contained in:
cage 2024-09-15 11:10:07 +02:00
parent c3ed76a3ff
commit 6db8efc934
3 changed files with 364 additions and 354 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

712
src/db.lisp
View File

File diff suppressed because it is too large Load Diff

3
src/gui/server/public-api-gemini-gempub.lisp
View File

@ -44,3 +44,6 @@
(if index-file
(fs:cat-parent-dir temp-directory index-file)
temp-directory)))))
(defun gempub-file-id->path (id)
(db:gempub-metadata-id->path id))

3
src/package.lisp
View File

@ -900,7 +900,6 @@
(defpackage :db
(:use
:cl
:alexandria
:cl-ppcre
:sxql
:sxql-composer
@ -908,6 +907,7 @@
:constants
:db-utils
:text-utils)
(:local-nicknames (:a :alexandria))
(:export
:+db-true+
:+db-false+
@ -1197,6 +1197,7 @@
:all-gempub-metadata
:gempub-metadata-delete
:gempub-metadata-find
:gempub-metadata-id->path
:get-parent-status-row))
(defpackage :date-formatter