Add missing sm/define on some file and file-thumbnails rpc methods

This commit is contained in:
Andrey Antukh 2023-11-29 16:06:49 +01:00 committed by Andrés Moya
parent f1d8abf160
commit ad0378270f
2 changed files with 40 additions and 31 deletions

View file

@ -232,6 +232,7 @@
;; --- COMMAND QUERY: get-file (by id) ;; --- COMMAND QUERY: get-file (by id)
(def schema:file (def schema:file
(sm/define
[:map {:title "File"} [:map {:title "File"}
[:id ::sm/uuid] [:id ::sm/uuid]
[:features ::cfeat/features] [:features ::cfeat/features]
@ -243,22 +244,26 @@
[:is-shared :boolean] [:is-shared :boolean]
[:project-id ::sm/uuid] [:project-id ::sm/uuid]
[:created-at ::dt/instant] [:created-at ::dt/instant]
[:data {:optional true} :any]]) [:data {:optional true} :any]]))
(def schema:permissions-mixin (def schema:permissions-mixin
(sm/define
[:map {:title "PermissionsMixin"} [:map {:title "PermissionsMixin"}
[:permissions ::perms/permissions]]) [:permissions ::perms/permissions]]))
(def schema:file-with-permissions (def schema:file-with-permissions
(sm/define
[:merge {:title "FileWithPermissions"} [:merge {:title "FileWithPermissions"}
schema:file schema:file
schema:permissions-mixin]) schema:permissions-mixin]))
(def schema:get-file (def ^:private
schema:get-file
(sm/define
[:map {:title "get-file"} [:map {:title "get-file"}
[:features {:optional true} ::cfeat/features] [:features {:optional true} ::cfeat/features]
[:id ::sm/uuid] [:id ::sm/uuid]
[:project-id {:optional true} ::sm/uuid]]) [:project-id {:optional true} ::sm/uuid]]))
(defn get-file (defn get-file
([conn id] (get-file conn id nil)) ([conn id] (get-file conn id nil))

View file

@ -190,16 +190,20 @@
:always :always
(update :objects assoc-thumbnails page-id thumbs)))))) (update :objects assoc-thumbnails page-id thumbs))))))
(def ^:private schema:get-file-data-for-thumbnail (def ^:private
schema:get-file-data-for-thumbnail
(sm/define
[:map {:title "get-file-data-for-thumbnail"} [:map {:title "get-file-data-for-thumbnail"}
[:file-id ::sm/uuid] [:file-id ::sm/uuid]
[:features {:optional true} ::cfeat/features]]) [:features {:optional true} ::cfeat/features]]))
(def ^:private schema:partial-file (def ^:private
schema:partial-file
(sm/define
[:map {:title "PartialFile"} [:map {:title "PartialFile"}
[:id ::sm/uuid] [:id ::sm/uuid]
[:revn {:min 0} :int] [:revn {:min 0} :int]
[:page :any]]) [:page :any]]))
(sv/defmethod ::get-file-data-for-thumbnail (sv/defmethod ::get-file-data-for-thumbnail
"Retrieves the data for generate the thumbnail of the file. Used "Retrieves the data for generate the thumbnail of the file. Used