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

- used local nickname instead of importing alexandria for package 'db'.

src/gui/server/public-api-gemini-gempub.lisp

@@ -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))

src/package.lisp

@@ -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